(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：

Private Sub Commandl_lick()

D．im a(10) As Integer

F．or k＝10 To 1 Step-1

a(k)＝20-2*k

Next k

k＝k＋7

Print a(k-a(k))

E．nd Sub

运行程序，单击命令按钮，输出结果是

A．）18

B．）12

C．）8

D．）6

[单选题]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )D．im M(10) As IntegerF．or k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A．）6B．）5C．）7D．）8

[试题]（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click( )D．im i As IntegerSum=0n=InputBox("Enter a number")n=Val(n)F．or i=1 To nSum= (12)Next iPrint SumE．nd SubF．unction fun(t As Integer)As Longp=1F．or i=1 To tp=p*iNext i(13)E．nd Function以

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写下列程序：Option Base 1Private Sub Command1_Click()D．im ArrA．rr=Array(1,2,3,4,5)j=1F．or i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SE．nd Sub程序运行后，单击命令按钮，输出结果是( )。A．54321B．123C．12345D．345

[单选题]（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345

[单选题]在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl—Click()D．im M(10)As IntegerF．or k=1 TO 10M(k)=12一kNext kx=8PrintM(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是A．6B．5C．7D．8

[单选题]在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。A．101B．6C．5D．4

[单选题]在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum

[单选题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）D．im a1（4, 4）, a2（4, 4）F．or i = 1 To 4F．or j = 1 To 4a1（i, j） = i + ja2（i, j） = a1（i, j） + i + jNext jNext iPrint a1（3, 3）; a2（3, 3）E．nd Sub程序运行后，单击命令按钮，在窗体上输出的是（ ）。A．6 6B．10 5C．7 21D．6