编写如下事件过程： PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_ XAsSi

在窗体上画两个文本框，其名称分别为Name1和PassWord1，然后编写如下事件过程

Private Sub Form_Load（）

Show

Name1.Text=""

Password1.Text=""

Password1.SetFocus

End Sub

Private Sub Password1_KeyDown（KeyCode As Integer, Shift As Integer）

Name1.Text=Name1.Text + Chr（KeyCode - 3）

End Sub

程序运行后，如果在Password1中输入"hit"，则在Name1文本框中显示的内容是 【8】 。

窗体中有命令按钮Commandl，事件过程如下：

PublicFunction f(x As Integer)As Integer

Dim Y AsInteger

X=20

y=2

f= X *Y

End Function

PrivateSub Commandl_Click（）

Dim y As Integer

static x As Integer

x=10

y=5

y=f(x)

Debug.Print x;y

End Sub

运行程序，单击命令按钮，则立即窗口中显示的内容是（）

A.10；5

B.10；40

C.20；5

D.20；40

窗体中有命令按钮Commandl，事件过程如下： PublicFunction f(x As Integer)As Integer Dim Y AsInteger X=20 y=2 f= X *Y End Function PrivateSub Commandl_Click（） Dim y As Integer static x As Integer x=10 y=5 y=f(x) Debug.Print x;y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是（）

A.10；5

B.10；40

C.20；5

D.20；40

若有如下Sub过程： Subsfun(X As Single，y As Single) t=X x=t/Y y=t ModY End Sub 在窗体中添加一个命令按钮Command33，对应的事件过程如下： PrivateSub Command33 Click（） Dim a AsSingle Dim b AsSingle a=5：b=4 sfun(ab) MsgBoxa&chr(10)+chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（）。

A.1和1

B.1．25和1

C.1．25和4

D.5和4

窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)&”是偶数．” Else Text1=Str(x)&”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（）。

A.result(x)=“偶数”

B.result(x)

C.result(x)=“奇数”

D.NOT result(x)

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： PrivateSub run34_Click sum=0 For i=10T01 Step-2 sum=sum+i Next i MsgBoxsum End Sub 运行以上事件，程序的输出结果是（）。

A.10

B.30

C.55

D.其他结果

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：

PrivateSub run34_Click

sum=0

For i=10T01 Step-2

sum=sum+i

Next i

MsgBoxsum

End Sub

运行以上事件，程序的输出结果是（）。

A.10

B.30

C.55

D.其他结果

有如下事件程序，运行该程序后输出结果是（）。

PrivateSub Command33_click

Dim x AsInteger，Y AsInteger

x=1：y=0

Do Untily＜=25y=y+x*xx=x+1

Loop

MsgBox”x=＆x＆”，y="&Y

End Sub

A.x=1，y=0

B.x=4，y=25

C.x=5，y=30

D.输出其他结果

Integer，b As Integer，i AsInteger For i=1To 10 num=InputBox(”请输入数据：”，”输入”) IfInt(num／2)==num／2 Then a=a+1 Else b=b+1 End if Next i MsgBox(”运行结果：a=”&Str(a)&”，b=”&Str(b)) End Sub 运行以上事件过程，所完成的功能是（）。

A.对输入的10个数据求累加和

B.对输入的10个数据求各自的余数，然后再进行累加

C.对输入的10个数据分别统计奇数和偶数的个数

D.对输入的10个数据分别统计整数和非整数的个数

A.此过程可以被任何其它过程调用

B.此过程只可以被本窗体模块中的其它过程调用

C.此过程不可以被任何其它过程调用

D.此过程是一个不可用过程

A.3

B.10

C.20

D.2