Dim a As Integer
Dim b As Integer
Private Sub计算_Click()
a=3
b=5
a=a+b
Form1.Print a
End Sub
1 Dim iAs Integer
2 Private Sub Command1_Click( )
3 i= Rnd*①+ 1
4 i= Int (i)
5 Image1.Picture②( AppPath & "" & i &"jpg") '加载相应点数的图片
6 End Sub
Private Sub计算_Click( )
a= a+b
s=0
for i in range(1,10,3):
s=s+i
该程序段运行后，s的结果是（）。
Dim m, n, k As Integer
m = 6
n = 1
For k = 1 To m Step 2
n = n * k
Next k
Print "n ="; n
程序运行后，n的值是：
#输入x的值，
x=int (input(“请输入一个数x：”))
if x<50：
y=
print(“y的值是：”，y)
elif:
y=0.7*x
else：
print(“输入数据出界”)
