帮我解释这个vb程序

显示全部楼层 · 2008-12-26 14:03:31

Private Sub command1_click()
dim i as integer,a as integer
do while <20
do while true
if i mod 10=0 then
exit do

else

i=i-i

end if

loop

i=i+11

a=a+i

loop

print a

end sub

千问 · 2008-12-26 14:03:31

dim i as integer,a as integer '定义两个整形变量do while <20 '这句语法有问题，没有指明是什么<20应该会出错do while true '这句是一个无限循环，当循环过程中没有退出的话它无限循环下去if i mod 10=0 then'判断i是否可以整除10exit do
'成产退出内层循环else
i=i-i
'不成立i加1end if loop i=i+11
a=a+i loop print a
'将a值打印在你的form上，也可以说显示。...

千问 · 2008-12-26 14:03:31

do while <20 这句有问题Do While a < 20 要指明一个名才对...

千问 · 2008-12-26 14:03:31

do while <20这句有问题，你需要补充。是否漏掉了？...