填空题

下列程序的输出结果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori＝1 To 10
arr(i) ＝i
Next i
For Each i In arr()
arr(i) ＝arr(i) *2+1
Next i
MsgBox arr(7)
End Sub

【参考答案】

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

填空题
有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4，3个按钮分别为：清除(名为 C1) 、计算(名为C2) 和退出(名为C3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Text1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中；单击“退出”按钮则退出程序。请将下列程序填空补充完整。 Private Sub C1_Click() Me!Text1＝ Me!Text2＝ Me!Text3＝ Me!Text4＝ End Sub Private Sub C2_Click() If Me!Text1＝ Or Me!Text2＝ Or Me!Text3＝ Then MsgBox“三个文本框都要输入值!” [11] Me!Text4＝(Val(Me!Text1) +Val(Me!Text2) + [12] ) End If End Sub Private Sub C3_Click() Docmd. [13] End Sub
填空题
下列VBA程序段运行时，内层循环的循环总次数是______。 For m＝0 To 7 step 3 For n＝m-1 To m+1 Next n Next m
相关试题