单项选择题
在窗体上面一个名称为Commandl的命令按钮,然后编写如下程序:
Option.Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum = 0
For i = 1 To 5
Sum=Sum+a(i)
Next i
x=Sum/5
For i=1 To 5
If a(i) >x Then Print a(i);
Next i
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
A.1 2
B.1 2 3
C.3 4 5
D.4 5
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个名称为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
点击查看答案&解析
相关试题
在窗体上画一个名称为Lablel的标签和一个名...
设有如下程序 Option Base 1 Private...
在窗体上画一个文本框、一个标签和一个命令...
在窗体上画一个列表框、一个命令按钮和一个...
标准模块和窗体模块的功能是计算和打印两个...