一C5脊髓损伤患者出现直肠功能障碍，大便秘结，3～4d一次，治疗师指导其家属用示指或中指戴指套，涂润滑油，缓缓插入肛门，把直肠壁向肛门一侧缓慢持续地牵拉。该治疗方法称为（）A、肠道牵张技术B、肛门牵张技术C、肛门反射治疗D、直肠运动疗法E、肛门运动疗法

在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：

DimaAsInteger

Subtest()

a=a+1:b=b+1:c=c+1

Print"Sub:";a;"，";b;"，";c

EndSub

PrivateSubCommand1_Click()

a=2:b=3:c=4

Calltest

Calltest

EndSub

程序运行后，单击命令按钮，窗体中将显示( )

A.Sub：3，4，5Sub：4，5，6

B.Sub：2，3，4Sub：2，3，4

C.Sub：3，1，1Sub：4，1，1

D.Sub：1，1，1Sub：1，1，1

（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

脊髓损伤患者一般在伤后4～5年开始出现症状，95%有排便障碍，下列叙述不正确的是

A、便秘

B、大便潴留

C、结肠扩张

D、排便时间延长

E、排便问题局限在直肠与肛门

如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。

A．Private Sub form_ Load() Text1. Text="*****"End Sub

B．Private Sub form_ Load() Text1. PasswordChar=“*”End Sub

C．Private Sub form_ Load() Text1. Visible="*****" End Sub

D．Private Sub form. Load() Text1. Text= String(5，"*")End Sub

以下程序的运行结果是

sub（int x,int y,int *z）

{*z=y-x;}

main（）

{ int a,b,c;

sub（10,5,&a）;

sub（7,a,&b）;

sub（a,b,&c）;

printf（"M,M,M＼n",a,b,c）;}

A．5,2,3

B．-5,-12,-7

C．-5,-12,-17

D．5,-2,-7

下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程

有如下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

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

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

Next

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【 】。

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

假定有如下的Sub过程：

Sub Sub1(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=5

b=4

Sub1 a，b

Print a；b

End Sub

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

A．

B．

C．

D．