缺乏细胞壁的原核细胞型微生物是A．B．C．D．E．

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。

A．空白

B．错误提示

C．北京

D．上海

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．空白

B．错误提示

C．北京

D．上海

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click（）

Dim a

a= Array（1,2,3,4,5）

For i=1 To UBound（a）

a（i）= a（i）+i-1

Next

Print a（3）

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是（）。

A．4

B．5

C．6

D．7

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

A． 123.45

B．12345.00

C．12345

D．00123.45

A．A.1

B．B.2

C．C.3

D．D.4

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=“VisualBasic” Print String(3，a$) End Sub程序运行后，单击命令按钮，在窗体上显示的内容是

A．VVV

B．Vis

C．sic

D．11

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5\10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub

A．15

B．13

C．11

D．9