更多"在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如"的相关试题:
[填空题]在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
Private Sub Commandl_Click( )
Dima(5)
Fori=0 To 4
A(i)=i+1
t=i+1
If t=3 Then
Print a(i)
A(t-1)=a(i-2)
Else
A(t)=a(i)
End If
Ifi=3 Thena(i+1)=a(t-4)
A(4)=1
Printa(i)
NextI
End Sub
程序运行后,单击命令按钮,输出结果是上______。
[填空题]在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
Private Sub Commandl_Click( )
Dima(5)
Fori=0 To 4
A(i)=i+1
t=i+1
If t=3 Then
Print a(i)
A(t-1)=a(i-2)
Else
A(t)=a(i)
End If
Ifi=3 Thena(i+1)=a(t-4)
A(4)=1
Printa(i)
NextI
End Sub
程序运行后,单击命令按钮,输出结果是上______。
[填空题]在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Commandl_Click( )
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后,单击命令按钮,消息框显示的是 。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click( )
DO Until b<0
a=InputBox(”输入a的值”)
a=Val(a)
b=InputBox(”输入b的值”)
b=Val(b)
a=a+b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是【15】。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click( )
Do Until b a=In put Box("输入a的值")
a=Val(a)
b=Input Box("输入b的值")
b=Val(b)
a=a+b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是【14】。
[填空题]在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序:
Private Sub Commandl_click( )
Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i) =i
Next i
x=1
MsgDox a(f(x) +x)
End Sub
Function f(y As Integer)
y=y+2
End Function
程序运行后,单击命令按钮,消息框的输出结果为______。