单项选择题

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1 Click()
Dim a
a=Array(2， 4， 6， 8)
j=1
For i = 4 To 1 Step -3
s=s+a(i) (j
j = j ( 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是

A．22
B．24
C．26
D．28

<上一题目录下一题>

热门试题

单项选择题

设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) 2 =b(i) 2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是

A．数组b中的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1 Click() Dim a As Integer Dim b As Integer a=2 For i=1 To 3 b=F(

A．
Print b
Next i
End Sub
程序运行后

相关试题