单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： 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，则输出结果为 ______。

A．15
B．14
C．13
D．12

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为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 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。

A．ABCD
B．abcd
C．出错信息
D．1 2 3 4

填空题

在窗体上建立名称为Text1、Text2和删的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为command1的命令按钮，单击它将得到数M从右边起的N位数字，并把该数字显示在Text3文本框中，如下图所示。请填空。private Fuction digit(ByVal m As Integer, ByVal n As Integer) As IntegerDim i As IntegerFor i = 1 To n - 1M=m 10Next iDigit= 【6】 End FunctionPrivate Sub Command1_Click()Dim m As Integer，n As Integer，k As Integerm=Val(Text1.Text)n=Val(Tex2.Text)k= 【7】 Text3.Text = Str(k)End Sub

相关试题