在窗体上放置一个命令按钮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 程序运行后，单击命令按钮，则在窗体上输出的结果为( )。

A．10

B．12

C．16

D．20

[单选题]在窗体上放置一个命令按钮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 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，并编写下列单击事件的程序： 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，并编写下列单击事件的程序： 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程序运行后，

[单选题]（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 程序运行后，单击命令按钮，则在窗体上输出

[单选题]在窗本上放置一个命令按钮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的命令按钮，然后编写下列程序：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 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的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_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，然后编写下列程序：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