当前位置: 代码迷 >> VFP >> 请问3道VB的编程题
  详细解决方案

请问3道VB的编程题

热度:1830   发布时间:2013-02-26 00:00:00.0
请教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
  相关解决方案