请问3道VB的编程题

请教3道VB的编程题
1.用程序的方式，求1~100之间能同时被3和7整除的自然数，并将这些自然数在屏幕上显示。
2.用程序的方式,求100~999之间，中间一个数值为6的所有自然数，并将这些自然数在屏幕上显示。
3.用程序的方式,求1000~2000之间，十位数和百位数数值相同的自然数，并将这些自然数在屏幕上显示。

------解决方案--------------------
就不做更多的解释了。

clear
close all
? "同时被3和7整除的数 "
for i=1 to 100
if i%3=0 and i%7=0
?? i, " "
endif
endfor
?
?
? "中间值为6 "
?
k=1
for i=100 to 999
if substr(str(i,3),2,1)= "6 "
?? i, " "
k=k+1
if k=10
?
k=1
endif
endif
endfor

?
?
? "十位，百位相同 "
?
k=1
for i=100 to 2000
if substr(str(i,4),2,1)=substr(str(i,4),3,1)
?? i , " "
k=k+1
if k=10
?
k=1
endif
endif
endfor