[单选题]

（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345

参考答案与解析：

相关试题

在窗体上画一个名为Command1的命令按钮,然后编写下列程序:Option B

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写下列程序：Option Base 1Private Sub Command1_Click()D．im ArrA．rr=Array(1,2,3,4,5)j=1F．or i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SE．nd Sub程序运行后，单击命令按钮，输出结果是( )。A．54321B．123C．12345D．345

  • 查看答案

    • 在窗体上画一个命令按钮,名称为Command1,然后编写下列程序:Private

    [单选题]在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：Private Sub Command1_Click()F．or i=1 To 2F．or j=1 To iPrint String(i,"Hello")Next jPrintNext iE．nd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A)B)C)D．)HA．H HH HHB．H HHHHC．HHHHD．H

  • 查看答案

    • 在窗体上画一个命令按钮Command1,然后编写下列代码:Private Sub

    [单选题]在窗体上画一个命令按钮Command1，然后编写下列代码：Private Sub Command1_Click()D．im Arr1(10) As Integer,Art2(10) As Integern=3F．or i=1 To 5A．rr1(i)=iA．rr2(n)=2*n+iNext iPrint Arr2(n);Arr1(n)E．nd Sub运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13

  • 查看答案

    • (23)在窗体上画一个名为 Command1 的命令按钮,然后编写以下程序: P

    [单选题]（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )D．im M(10) As IntegerF．or k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A．）6B．）5C．）7D．）8

  • 查看答案

    • (11)在窗体上画一个名为 Command1 的命令按钮,然后编写如下程序: P

    [试题]（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click( )D．im i As IntegerSum=0n=InputBox("Enter a number")n=Val(n)F．or i=1 To nSum= (12)Next iPrint SumE．nd SubF．unction fun(t As Integer)As Longp=1F．or i=1 To tp=p*iNext i(13)E．nd Function以

  • 查看答案

    • 在窗体上画一个名为Command1的命令按钮,然后编写如下程序:Option B

    [单选题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

  • 查看答案

    • 在窗体上画一个命令按钮,然后编写下列程序 Private Sub Command

    [单选题]在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为A．2 3 4B．2 5 9C．3 5 4D．2 4 3

  • 查看答案

    • 在窗体上画一个命令按钮Command1,然后编写如下程序: Private Su

    [主观题]在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()D．im arr()As IntegerRe Dim arr(3)F．or i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xE．nd IfMe.Print(arr(4)-arr(3))E．nd Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为[ ]。

  • 查看答案

    • 在窗体上画一个命令按钮,然后编写如下程序Private Sub Command1

    [单选题]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8

  • 查看答案

    • 在窗体上画一个名为Command 1的命令按钮,然后编写如下程序:Option

    [单选题]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

  • 查看答案