未知题型
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox('请输入a的值') a=Val(A) b=InputBox('请输入b的值') b=Val(B) x=InputBox('请输入x的值') x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、8、9、2、11、-1,则输出结果为 ______。
D.12
- A.15
B.14
C.13
【参考答案】
D
解析:本题中,每次循环开始的时候,变量a都被重新赋了一次值,所以最后的结果仅仅是2+11+(-1),因此最终......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
点击查看答案
相关考题
-
单项选择题
关于过哪些点有主轴,现有四种结论,试判断哪一种是正确的:( )。 A、只有通过形心才有主轴 B、过图形中任意点都有主轴 C、过图形内任意点和图形外某些特殊点才有主轴 D、过图形内、外任意点都有主轴 -
未知题型
在窗体上画一个名称为command1的命令按钮,然后编写如下程序; Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc('A')+(i-1)) Next i For Each b1 In arr Print b1; Next End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。2 3 4
A.ABCD
B.abcd
C.出错信息
D.1 -
单项选择题
正时传动带的作用就是当发动机运转时,活塞的行程(上下的运动)、气门的开启与关闭(时间)、点火的顺序(时刻)在正时传动带的作用下,时刻保持“( )”运转。 A、相差360度 B、同步 C、相差180度 D、异步
