A．白细胞管型B．红细胞管型C．透明管型D．蜡样管型E．上皮细胞管型 正常人尿中偶可见到的A．B．C．D．E．

在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下：

Private Sub Commandl_Click()

Labele.Caption＝“标签”

End Sub

Private Sub Form_Load()

Form.Caption＝“举例”

Commandl.Caption＝“移动”

End Sub

打开窗体后，单击命令按钮，屏幕显示()。

A．

B．

C．

D．

在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下：

Private Sub Commandl Click（）Lablel．Caption=”标签”

End Sub

Private Sub Form—Load（）Form．Caption=”举例”

Commandl．Caption=”移动”End Sub

打开窗体后，单击命令按钮，屏幕显示（）。

A.

B.

C.

D.

在窗体中有一个命令按钮Commandl，编写事件代码如下：

Private Sub Command1_CliCk()

Dim s As Integer

s=P(1)+P(2)+e(3)+P(4)

debug．Print S

End SUb

Public Function P(N AS Integer)

Dim Sum As Integer

Sum=0

For i=1 To N

Sum=Sum+i

Next i

P=Sum

End Function

打开窗体运行后，单击命令按钮，输出结果是

A．15

B．20

C．25

D．35

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim d1 As Date

Dim d2 As Date

d1=#12/25/2009#

d2=#1/5/2010#

MsgBox DateDiFF(“WW”,d1,d2)

End SuB

打开窗体运行后，单击命令按钮，消息框中输出的结果是

A．1

B．2

C．10

D．11

在窗体中有一个命令按钮Commandl，编写事件代码如下：

Private Sub Command1_CliCk()

Dim s As Integer

s=P(1)+P(2)+e(3)+P(4)

debug．Print S

End SUb

Public Function P(N AS Integer)

Dim Sum As Integer

Sum=0

For i=1 To N

Sum=Sum+i

Next i

P=Sum

End Function

打开窗体运行后，单击命令按钮，输出结果是

A．15

B．20

C．25

D．35

在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB commandl_Click()

Dim d1 As Date

Dim d2 As Date

d1=#12/25/2009#

d2=#1/5/2010#

MsgBox DateDiFF(“WW”,d1,d2)

End SuB

打开窗体运行后，单击命令按钮，消息框中输出的结果是

A．1

B．2

C．10

D．11

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

A．VVV

B．Vis

C．sic

D．11

在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

Private Sub Commandl一Click（）Dim i，j，X

For i=1 TO 20 step 2

X=0

For j=i TO 20 step 3

X=X+1

Next j

Next i．Textl．Value=Str(x)

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。

A.1

B.7

C.17

D.400

在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

Private SuB cormmandl_Click()

Dim i,j,x

For i=i To 20 step 2

x=0

For j=1 To 20 step 2

x=x+1

Next j

Next i

Text1.Value=Str(x)

End SuB

打开窗体运行后，单击命令按钮，文本框中显示的结果是

A．1

B．7

C．17

D．400

在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为()

A．0

B．1

C．2

D．3