填空题

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：
Private Subo(By Vid p As lnteger)
p=p*2
End Sub
Private Sub Commandl_C1kk()
Dim i As Intcger
Cail s(1)
Ifi＞4 Thcni=i＾2
MsgBoxi
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

【参考答案】

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

单项选择题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码； PrivateSubCommand1_Click() s= ABBACDDCAB Fori=6 To 2 Step-2 x=Mid(s,i,i) y=LeR(s,i) z=Right(s,i) z=x&y&z Nexti MsgBoxz EndSub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A．AABAAB
B．ABBABA
C．BABBA
D．BBABBA
填空题
以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分(设满分为10分)。请填空补充完整。 PrivateSubForm_Click() Dim Max as Integer,Min as Integer Dim i as Integer,x as Integer,s as Integer Dimp p as Single Max=0 Min=10 Fori=1 To 8 x=Vid(1nputBox( 请输入分数: )) If______Ihen Max=x If______ThhcnMin=x s=s+x Nexti S=______ p=s 6 MsgBox 最后得分: &p EndSub
相关试题