填空题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Private Sub s(ByVal p As Integer) p=p*2 End Sub Private Sub Command1_click() Dim i As Integer i=3 Call s(i) If i＞4 Then i=i^2 MsgBox i End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为（）。

【参考答案】

3
<上一题 目录 下一题>
热门 试题

填空题
设有如下代码： x=1 Do x=x+2 Loop until（） 运行程序，要求循环执行3次后结束循环，在空白处填入适当语句。
填空题
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_click() Dim s,i For i=1 To 10 s=s+i Next i MsgBox s End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为（）。
相关试题