填空题
在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Command1_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
程序运行后,单击命令按钮,消息框显示的是
【13】
。
【参考答案】
D
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
在窗体上画一个命令按钮,然后编写如下程序: Function fun(ByValnum As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num 10) num=num 10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox( 请输入一个数 ) n=CLng(n) r=fun(n) MsgBox r End Sub 程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为 【14】 。
点击查看答案&解析
填空题
Access数据库包括表、查询、窗体、报表、 【8】 、宏和模块等基本对象。
点击查看答案&解析
相关试题
运行如下程序段: x=1 y=1 z=1 F...