下列疾病不是由维生素B₁引起的（）

下列过程定义语句中，参数不是对象的定义语句是（ ）。

A．Sub Pro4（x As Form）

B．Sub Pro4（y As Control）

C．Sub Pro4（Form1 As Form,Labell As Control）

D．Sub Pro4（x As Currency）

（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

有一过程如下:

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,运行结果为【 】。

下列程序的输出结果是______。 #include sub1(char a,char b) {char c; c=a;a=b;b=c;} sub2(char* a,char b) {char c; c=*a;*a=b;b=c;} sub3(char* a,char*b) {char c; c=*a;*a=*b;*b=c;} { char a,b; a='A' ;b='B'; sub3 (&a, &b) ;putchar (a) ;putchar (b); a='A';b='B';sub2(&a,b);putchar(a);prtchar(b); a='A';b='B';sub1(a,b);putchar(a) ;putchar(b); }

A．BABBAB

B．ABBBBA

C．BABABA

D．BAABBA

窗体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···

在通用声明中定义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

（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub

若要在子过程Procl调用后返回两个变量的结果，下列过程定义语句中有效的是( )。

A．Sub Proc1(n，m)

B．Sub Proc1(ByVal n，m)

C．Sub Proc1(n，BYVal m)

D．Sub Proc1(ByVal n，ByVal m)

在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是

A．23BCD

B．ABC

C．!@#ABC

D．123abc

如下图所示，只执行下列程序后，有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