1
sub command1_click()
if val(text1)>val(text2) then
label1=text2
else
label1=text1
endif
end sub
2.
sub command1_click()
dim a(1 to 10) as integer
dim i as integer
for i=1 to 10
a(i)=i
next
msgbox a(1)+a(5)+a(10)
end sub
3
sub command1_click()
dim x as integer,i as integer
x=1
for i=1 to 10
x=x*i
next
msgbox x
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024