问题很大，首先你找的是既能被3整除又能被10整除（即个位数是0，而不是6）的数，然后你每找到一个数就把它输出25次（还每次单独一行，也就是每个数都输出了25行，而没有每行5个数），最后你还没统计找到的数字个数；至于少写、错写Next之类的语法错误就不提了
可以这样写：
dim i%,k%
for i=1 to 1000
if i mod 3=0 and i mod 10=6 then
?i;
k=k+1
if k mod 5=0 then ?
endif
next i
?
?k

①运行结果如果是你想要就没有问题，反之就有问题。
②对符合你的两个if条件的i，你将会输出25次（每次一行），这与题意（每行5个）不符。
③第二个if条件的本质是个位为0，与题意（个位为6）不符。
④没有统计并输出符合条件的数的个数。
综上，你写的有问题。

@Luosen56:罗老师你这记事本写程序，是怎么运行的？给普及一下呗