• 2021-04-14
    在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 DO Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。 A.13.45.8 B.1 3 5 C.1 4 7 D.无数据输出
  • 正确答案:B解析:DoUntil...Loop循环采用的是先判断循环条件后执行循环体的做法。而用Until关键字表示当循环条件为False时执行循环体,直到条件为True时终止循环。代码中,num是整型数据,循环体共被执行3次。循环体第三次被执行后,num的值为7,故循环终止。

    举一反三

    内容

    • 0

      在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=1:b=2:c=3 a=b:b=c:c=a Print a;b;c End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是().

    • 1

      在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是

    • 2

      窗体上有一个名为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序,单击命令按钮,则输出结果是______。

    • 3

      执行如下代码片段后,num的值为:int num = 5;num = (num % 2) == 0 ? num – 1 : num + 1; A: 1 B: 4 C: 5 D: 6

    • 4

      在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array(" 北京 ", " 上海 ", " 天津 ", " 重庆 ") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。