单项选择题

在窗体上画一个名称为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 Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．10
B．16
C．12
D．20

<上一题目录下一题>

热门试题

单项选择题

有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（）。Const ShiftKey=1Const CtrlKey=2Const Key_F5=&H74Const Key_F6=&H75Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode=Key_F5 And Shift=ShiftKey ThenPrint Press Shift+F5 ElseIf KeyCode=Key_F6 And Shift=CtrlKey ThenPrint Press Ctrl+F6 End IfEnd Sub

A．无任何信息
B． Press Shift+F5
C． Press Ctrl+F6
D．程序出错

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer，n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m，n)Print n(5)End Sub程序运行后，单击命令按钮输出结果为( )。

A．’65+13’
B．["电脑商情"]
C．[[中国]]
D．’[x=y]’

相关试题