填空题

设有如下代码：
x＝0
Do
x＝x+1
Loop While x＞＝______
运行程序，要求循环体执行4次后结束循环，请在空白处填入适当语句使程序完整。

【参考答案】

D

<上一题目录下一题>

热门试题

填空题

有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4，3个按钮分别为：清除(名为 G1)、计算(名为C2)和退出(名为C3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Wext1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中；单击“退出”按钮则退出程序。依据上述功能，请将下列程序补充完整。 Private Sub C1 Click() Me!Text1＝ Me!Text2＝ Me!Text3＝ Me!Text4＝ End Sub Private Sub C2 Click() IfMe!Text1＝ Or Me!Text2＝ Or Me!Text3＝ Then MsgBox 三个文本框都要输入值! ______ Me!Text4＝(Val(Me!Text1)+Val(Me!Text2)+______) End If End Sub Private Sub C3 Click() Docmd. End Sub

填空题

下列程序的输出结果是______。 Private Sub Command1_Click() Dim arr(1To 10) For i＝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

相关试题