按药物的t_1/2（半衰期）给药，约几个t<

A.5

B.2

C.11

D.8

E.1

有如下SUB过程：

Sub s(x As Single，y As Single)

t =x

x=t / y

Y=t Mod y

End Sub

在窗体上添加一个命令按纽，然后编写如下事件过程：

Private Sub Form_ Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a，b

Print a，b

End Sub

则程序运行后，单击命令按纽，输出的结果为：【 】。

左乳房内上象限扪及3cm×3cm肿块，质地偏硬，边界不太清楚，与皮肤胸肌无粘连；左腋下可扪及肿大淋巴结3个，质韧，约蚕豆大小，活动良好，病理证实乳房腺癌淋巴结转移，按TNM分期应为：

A.T 1 N1 M0

B.T 1 N 2 M 0

C.T 1 2 N 1 M\sub 0

D.T 1 2 N 2 M\sub 0

E.T 13 N 1 M\sub 0

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为

A．0 0

B．1 1

C．0 2

D．1 2

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2

以下程序用于求S=1+3+32+33+…+310的值。

Private Sub Commandl_Click()

S=1

T=1

ForI=1 To 10

T=______

S=S+T

NextI

Print"S="；S

End Sub

有如下事件过程：

Private Sub Form. Active ( )

Dim Score (1 to 3) As Integer

Dim i As Integer

Dim t As Variant

Fori=3 To 1 step-1

Score (i) = 2 * i

Next

For Each t In Score

Print t

Next

End Sub

程序运行后窗体上显示的值为【 】。

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25

下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function

A．t=18

B．t=24

C．t=30

D．t=32

假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。

A．6 5

B．1 1

C．1.2 5

D．1.2 1