**************
***********
*******
***********
**************

Private Sub Command1_Click( )
Dim s, j As Single
s=
For j=1 to 50
If Then
s=s*j
Else
s=
End if
Next j
print “s=”:s
End Sub
试在横线处填写适当的内容,使程序得到相应的计算结果。
x=6
If x <= 5 Then
y = 2 * x + 1
Else
y = x / 2
End If
图1
Private Sub Command1_Click( )
w= val (Text1. text)
if then
f=38
Else
f=
End If
Text2. text=f
End Sub
① 分支结构可以嵌套分支结构 ② 分支结构可以嵌套循环结构
③ 循环结构可以嵌套分支结构 ④ 循环结构可以嵌套循环结构

For k=15 To 1 Step -5
Print k
Next
程序运行后,k的值是: