单项选择题

假定有如下事件过程:
Private Sub Form Click()
Dim x As Integer, n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
End Sub
程序运行后,单击窗体,输出结果是______。

A.81 4
B.56 3
C.28 1
D.243 5
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: 1 12 123 1234 则在下划线处应填入的内容为______。
A.Rght(c1,i)
B.Left(c1,i)
C.Mid(c1, i, 1)
D.Mid(c1, i,
单项选择题
有如下程序: Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter<20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后,单击窗体,输出结果为______。
A.15 0
B.20 -1
C.10 True
D.10 False
相关试题
  • 在窗体上画一个名称为Label1、标题为“Vis...
  • 在窗体上画一个名称为Command1的命令按钮...
  • 有如下程序: Private Sub Form_Click...
  • 假定在窗体(名称为Form1)的代码窗口中定...
  • 在窗体上画一个名称为Command1的命令按钮...