经设区的市、自治州以上人民政府财政部门同意的，采用招标所需时间不能满足用户紧急需要的，可以选

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub

A．2 5 8

B．7 4 1

C．8 5 2

D．3 6 9

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是()。 Private Sub Command1_Click() Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Print k End Sub

A．20

B．21

C．22

D．23

程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是()。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub

A．32

B．28

C．30

D．36

程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是()。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y\2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(j)； Next j End Sub

A．1 0 0 0

B．1 0 0 1 0

C．0 0 1 1 0

D．1 0 1 0 0

窗体上有一个名称为Command1的命令按钮，并有如下程序代码：

运行程序，单击命令按钮，窗体上显示的是

A.13

B.21

C.22

D.33

在一个窗体上添加一个命令按钮控件，名为Command1，事件过程如下，则执行结果是()。 Option Base 1 Private Sub Command1_Cliek() Dim a(5) As Integer Dim k As Integer Dim tota1 As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 Fork=1 To 5 tota1=tota1+a(k) Next k Print total End Sub

A．10

B．15

C．27

D．35

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是()。

Option Base 1

Private Sub Command1_Click()

Dim a(5) As Integer

Dim k As Integer

Dim total As Integer

a(1)=2

a(2)=5

a(3)=4

a(4)=10

a(5)=6

For k=1 To 5

total=total+a(k)

Next k

Print total

End Sub

A．10

B．15

C．27

D．35

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是()。 Option Base 1 Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 tota11=tota1+a(k) Next k Print tota1 End Sub

A．10

B．15

C．27

D．35

在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：

Option Base 1

Pdvate Sub Command1_Click()

Dim c As Integer,d As Integer

d=0

c=6

X=Array(2,4,6,8,10,12)

For i=1 To 6

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．10

B．12

C．16

D．20