单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
OPtion Base l
Private Sub Commandl_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 lf
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A．89
B．99
C．23
D．77

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．10 5
B．20 5
C．20 40
D．10 40

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load( ) Show Text1.Text= Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，shift As Integer) Print Visua1 Basic ； End Sub 程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是

A．VisualBasic
B．程序设计
C．A程序设计
D．Visual Basic程序设计

相关试题