[单选题]

在窗体上画一个名称为Commandl的命令按钮,然后编写如下代码: OpdOn Base1 Private Sub Commandl_CUck() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 Ifx(i)>c Then d=d+x(i) c=X(i) Else d=d-c End If Next I Printd End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。

A.89

B.99

C.23

D.77

参考答案与解析:

相关试题

在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:Option

[单选题]在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码: Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后,单击命令按钮,在输入对话框中分别A.0B.2C.3D.4

  • 查看答案
  • 在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:option B

    [单选题]在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:option Base 1Pdvate Sub Commandl_Click()D.im aa=Array(1,2,3,4)J=1F.or i=3 To 1 Step-1s=s+a(i)*Jj=j*10NextiPrint sE.nd Sub运行上面的程序,其输出结果是A.1234B.12C.34D.4321

  • 查看答案
  • 在窗体上画一个命令按钮,名称为 Command1, 然后编写如下代码:Optio

    [单选题]在窗体上画一个命令按钮,名称为 Command1, 然后编写如下代码:Option Base 0Private Sub Command1_Click()D.im A (4)As Integer,B(4) As IntegerF.or k=0 To 2A.(k+1)=InputBox(“ 请输入一个整数 ”)B.(3-k)=A(k+1)Next kPrint B(k)E.nd Sub程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输入结果为( )。 A.0B.2C.3D.4

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为______。A.0B.1C.2

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Next k Print B(k) End sub 程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为______。A.0B.2C.3D.4

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,输出结果为___

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序: Privat

    [单选题]在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:Private Sub Commandl_Click()F.or I=1 T0 2F.or J=1 To IPrint String(I,″Hello″);Next JPrintNext IE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.H HH HHB.H HHHHC.HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序: Private Sub Command1_Ctick() 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. HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:Option

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。A.89B.99C.23D.77

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:Dption

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Dption Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=1 To 5 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。A.89B.99C.23D.77

  • 查看答案