在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a + b + xLoopPrint aEnd Sub在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 【9】 。

题目

在窗体上画一个命令按钮,然后编写如下事件过程:

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

在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 【9】 。


相似考题
更多“在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() x=0 DoUnt ”相关问题
  • 第1题:

    在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是

    A.3

    B.4

    C.5

    D.6


    正确答案:D
    解析:本题考查For循环控制语句的嵌套。当输入3时,For i执行三次,对应的Forj循环执行一次,二次、三次,Forj每执行一次,x都加1,故最终结果为6,选D。

  • 第2题:

    在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1 To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是______ 。

    A.7

    B.15

    C.157

    D.538


    正确答案:B

  • 第3题:

    在窗体上画一个名称为Comillarldl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 n=InputBox(" ") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是( )。

    A.3

    B.4

    C.5

    D.6


    正确答案:D
    解析:本题是一个简单的双重For-Next循环考题,这里需要注意的是,循环的终值都是由变量设置的。当步长大于0时,循环的初值与终值相等,仍然要执行一次循环;只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为Fori=1To1并不执行循环,则会认为选项C为答案。答案为D。

  • 第4题:

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

    A.VVV

    B.Vis

    C.sic

    D.11


    正确答案:A
    解析:本题考查字符串函数。 String返回n个字符。如果为字符串,则返回n个字符串的首字符。据此,本题的正确答案为A,即返回3个“Visual Basic”的首字母“V”。

  • 第5题:

    在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n : 4 TO 0 Step -1 x(n)= n + 1 Print x(n); Next n End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是

    A.54321

    B.4

    C.54321

    D.0


    正确答案:A
    解析:本题针对输出格式的问题。因字符串没有正负号,所以输出的字符之间没有空格;而数字有正负号,输出的字符之间应有空格。数组x被定义为字符串型变量,n+1的计算结果自动转换成字符串赋给x(n),所以输出的字符之间是没有空格的。

  • 第6题:

    在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

    Private Sub Command1_Click()

    x = -5

    If Sgn(x) Then

     y = Sgn(x ^ 2)

    Else

     y = Sgn(x)

    End If

    Print y

    End Sub

    程序运行后,单击命令按钮,窗体上显示的是( )。

    A.-5

    B.25

    C.1

    D.-1


    正确答案:C