[单选题]

(26)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的结果是 。A.10 B.12 C.16 D.20

参考答案与解析:

相关试题

在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option

[单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base1Private Sub Command1_Click()D.im c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)F.or i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)E.lsed=d-cE.nd IfNext iPrint dE.nd Sub程序运行后,单击命令按钮,则在窗体上输出的内容为( )。A.10B.12C.1

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option Base 1Pdvate Sub Command1_Click()D.im c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)F.or i=1 To 6If X(i)>c Thend=d+X(i)c=X(i)E.lsed=d-cE.nd IfNext iPrint dE.nd Sub程序运行后,单击命令按钮,则在窗体上输山的结果是( )。A.10B.12

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Optio

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1Private Sub Commandl_Click0Dim C As Integer, d As Integer d=0 c=6 X = Array(2, 4, 6, 8, 10, 12) For i= 1 To 6 If X(i) > c Then d = d + X(i) c = X(i) Else d=d-c End If Next i Print dEnd Sub程序运行后,单击命令按钮,则

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Optio

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer , d As Integer d = 0 c = 6 X = Araay(2,4,6,8,10,12) For i = 1 To 6 If X(i)> c Then d = d + X(i) c = X(i) Else d = d - c End If Next i Print d End Sub程序运行后,

  • 查看答案
  • 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:Option

    [单选题]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的结果为(

  • 查看答案
  • 在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序:Optio

    [单选题]在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 X=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End SubA.10B.12C.16D.20

  • 查看答案
  • 在窗体上有一个命令按钮Command1,编写下列程序:Private Sub C

    [单选题]在窗体上有一个命令按钮Command1,编写下列程序:Private Sub Command1_Click()Print pp1(3,7)E.nd SubPublic Function pp1(x As Single,n As Integer)As SingleIf n=0 Thenpp1=1E.lseIf n Mod 2=1 Thenpp1=x*x+nE.lsepp1=x*x-nE.nd IfE.nd IfE.nd Function程序运行后,单击该命令按钮,屏幕上显示的是( )。A.2B.1

  • 查看答案
  • 在窗体上画一个命令按钮,名称为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,其单击事件中有下列程序段,则事件

    [单选题]在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出( )。F.or i=1 To 4F.or j=1 To 3x=3F.or k=1 To 2K=x+3Next kNext jNext iText1.Text=Str(x)A.3B.6C.9D.12

  • 查看答案
  • (22)在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段

    [单选题](22)在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出 For i=1 To 4 For j=1 To 3 x= 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Text=Str(x)A.3 B.6 C.9 D.12

  • 查看答案