niusouti.com

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

相似考题

1.在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 2x=x+6NextNextPrint xEnd Sub程序运行后,单击命令按钮,输出结果是A．12B．13C．16D．17

2.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 3For j=1 To 4If j Mod 2＜＞0 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub程序执行后，单击命令按钮，输出结果是【 】。

3.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Do Whileb＞=0c=a+bLoopEnd Sub程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是( )。

4.在窗体上画一外名称Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click( )x=0n=InputBox(" ")For i = 1 To nFor j = 1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是【 】。

更多“在窗体上画一个命令按钮,然后编写如下事件过程: 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

相关内容