B)调用过程时使用的实参的个数应与过程形参的个数相同 C)只有函数过程能够将过程中处理的信息返回到调用程序中 D)窗体可以作为过程的参数 (30)设有如下通用过程
Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr = \ strL = Len(xStr) i = strL / 2 Do While i <= strL
tStr = tStr & Mid(xStr, i + 1, 1) i = i + 1 Loop
Fun = tStr & tStr End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如
下事件过程
Private Sub Command1_Click() Dim S1 As String S1 = \
Text1.Text = LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是
A)ABCDEF B)abcdef C)defdef D)defabc
(31)在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1）,并把窗体
的KeyPreview属性设置为True,然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show
Text1.Text = \ Text1.SetFocus End Sub
Private Sub Command1_Click()
Text1.Text = LCase(SaveAll) + SaveAll End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub
程序运行后，直接用键盘输入：VB,再单击命令按钮则文本框中显示的内容为 A)vbVB B)不显示任何信息 C)VB D)出错 (32)设有以下程序
Private Sub Form_Click()
x = 50
For i = 1 To 4
y = InputBox(\请输入一个整数\ y = Val(y)
If y Mod 5 = 0 Then a = a + y x = y Else
a = a + x End If Next i Print a End Sub
程序运行后，单击窗体，在输入对话框中依次输入15,24,35,46,输出结果为 A)100 B)50 C)120 D)70 (33)以下关于菜单的叙述中，错误的是
A)当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器 B)把菜单项的Enabled属性设置为False,则可删除该菜单项 C)弹出式菜单在菜单编辑器中设计
D)程序运行时，利用控件数组可以实现菜单项的增加或减少
(34)以下叙述中错误的是
A)在程序运行时,通用对话框控件是不可见的
B)调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)可以打开不 同的对话框窗口
C)调用通用对话框控件的ShowOpen方法,能够直接打开在该通用对话框中指定的 文件
D)调用通用对话框控件的ShowColor方法,可以打开颜色对话框窗口 (35)设在工程文件中有一个标准模块，其中定义了如下记录类型: Type Books
Name As String*10 TelNum As String*20 End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录，下列能够完成该操作的事件过程是
A)Private Sub Command1_Click() Dim B As Books
Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Write #1, B.Name, B.TelNum Close #1 End Sub
B)Private Sub Command1_Click() Dim B As Books
Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Print #1, B.Name, B.TelNum Close #1 End Sub
C)Private Sub Command1_Click() Dim B As Books
Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Write #1, B Close #1 End Sub
D)Private Sub Command1_Click() Dim B As Books
Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\