单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码：
Option Base 1
Prirate 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．89
B．99
C．23
D．77
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是
A．10
B．15
C．25
D．24
单项选择题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox( ) For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A．3
B．4
C．5
D．6
相关试题