在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（）。 Private Sub Command1_Click（) Dim i%, j%, x%, n% x = 0 n = InputBox（"Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End SubA．6B．10C．14D．18
在窗体上添加一个命令按钮Command1，编写如下事件过程，运行时单击命令按钮，如果在输入对话框中输入3，则在窗体上显示的内容是（）。 Private Sub Command1_Click（) Dim i%, j%, x%, n% x = 0 n = InputBox（"Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub
A．6
B．10
C．14
D．18
参考答案和解析
C
相关考题：
有如下事件过程：Private Sub Form. Click()Dim n As Integerx=0n=InputBox(”请输入一个整数”)For i=1 To iFor j=1 To ix=x+1Next jNext 1Print xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是( )。A．13B．14C．15D．16
在窗体上画一外名称Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click( )x=0n=InputBox(" ")For i = 1 To nFor j = 1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是【 】。
在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。A．2B．7C．14D．37
在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．5B．6C．8D．11
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 5B．4 5C．8 4D．3 4
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim in As Integer，n As Integer，p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。A．1B．7C．17D．400
在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 ______。A．7B．15C．157D．538
在窗体上画一个名称为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．3B．4C．5D．6
有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。A.13B.14C.15D.16
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 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．3B．4C．5D．6
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．0 3 7 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Commandl一Click（ ）Dim i，j，X For i=1 TO 20 step 2 X=0 For j=i TO 20 step 3 X=X+1 Next j Next i．Textl．Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。A.1B.7C.17D.400
在窗体上画一个命令按钮，然后编写如下事件过程: 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．7B．15C．157D．538
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() For i=1 To 2 For j=1 To i Print String(i,"Hello") Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．H HH HHB．H HHHHC．HHHHH HH HHHHD．H
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后，单击命令按钮，输出的结果是A．7B．15C．157D．538
在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是A．7B．15C．21D．538
在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End SubA．13B．26C．30D．40
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 3 5 7B．2 8 14 53C．0 3 21 45D．0 5 11 34
在窗体上画一个名称为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．54321B．4C．54321D．0
设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。A．30B．25C．20D．15
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1_Click() a=0 n=InputBox("") For i=1 To n For j=1 To i a=a+1 Next j Next i Print a End Sub 程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。A．5B．6C．9D．10
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 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．3B．4C．5D．6
在窗体上添加按钮cmd，并编写如下事件代码： Private sub crud_Click( ) For i=1 to4 x=4 For j=1 to 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i Msgbox x End sub 打开窗体，单击按钮后，消息框中显示的信息为( )。A．7B．15C．157D．538
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是( )。A．7B．15C．157D．528
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1 Click() a=0 n=InputBox(” ”) For i=l To n For j=1 To i a=a+1 Next j Next i Print a End Sub 程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。A．5B．6C．9D．10
在窗体上画一个名称为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．3B．4C．5D．6