1.PrivateSubForm_Click()
DimiAsInteger,kAsInteger,cAsInteger
Fori=1To5
IfiMod3=0Then
k=k+2
Else
c=c+3
EndIf
Nexti
Printk,c
EndSub
写出程序运行时单击窗体后,Form1上的输出结果.
2.PrivateSubForm_Click()
StaticSumAsInteger
Fori=1To6
Sum=Sum+i
Nexti
PrintSum
EndSub
写出程序运行时点击窗体两次后,变量Sum的值.
3.PrivateSubCommand1_Click()
DimXAsInteger,YAsInteger
X=1:Y=1
Fori=1To3
Forj=1Toi
Y=Y+j
Nextj
X=X+Y
Nexti
PrintX
EndSub
写出程序运行时单击命令按钮后,窗体Form1上的输出结果.