1、1.在利用菜单编辑器设计菜单时，为了把组合键“Alt X“设置为“退出(X)“菜单项的访问键，可以将该菜单项的标题设置为( B )。A) 退出(X yEnd Sub运行程序，单击命令按钮，输出结果是A) 1 1 B) 5 4C) 1 4D) 5 1参考答案：D【解析】sa 函数，两个参数均是按地址传递，调用 Sa，x，y 将地址分别传给形参a、b。在函数 sa 中，a=x=5，b=4，b=a=5，t=a/b=5/5=1；b=1 mod 5 =1，此时x=a=5，y=b=1，故选择 D 项。12. 在窗体上画一个名称为Text1的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过
2、程：Private Sub Command1_Click()Dim i As Integer， n As IntegerFor i 0 To 50ii3nn1If i10 Then Exit ForNextText1.Text Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。A) 2B) 3C) 4D) 5【解析】程序中 For 循环的结束有两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量 i 的值被修改：i i3，因此，每次循环开始时 i 的取值为 0,4,8，i 为 8 时执行 ii 311，nn13，这时 i 的
3、值大于 10，退出 For 循环，因此 For 循环执行了 3 次，即 n 的值为 3。所以在文本框中会显示 3。13. 窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A) Private Sub HScroll1_Change()Print HScroll1.ValueEnd SubB) Private Sub HScroll1_Change()Print HScroll1.SmallChangeEnd SubC) Private Sub HScroll1_Scroll()P
4、rint HScroll1.ValueEnd SubD) Private Sub HScroll1_Scroll()Print HScroll1.SmallChangeEnd Sub【解析】根据题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的 Change 事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值，Value属性值可返回这个值，综合一下，故 A 选项正确。14. 设有如下程序：Option Base 1Dim a(3， 4)As Integer， b(4， 3)As IntegerPrivate Sub Command1_Click()循环 1For i 1 To
5、 3For j 1 To 4b(j， i)a(i， j)Next jNext i循环 2xb(1 ， 1)For i 1 To 4For j 1 To 3Print b(i， j)；If xmax Thenmaxa(k)End IfNext kPrint maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是( D )。A) 把If a(k)max Then改为If a(k)0 Thencount(n)count(n)1End IfNext kmcount(0)For k1 To 25If m
6、count(k)Thenmcount(k)End IfNext kPrint mEnd SubA) 0B) 1C) 2D) 3【解析】根据题中的程序代码可知，ch 为输入字符串的大写状态，第一个 For 循环是依次取出字母，n 为取出字母与“A“字符的 ASCII 码差值，然后再赋给数组count()；第二个 For 循环是找出数组 count()中的最小值，因此，最后窗体上输出的结果为 3，即选项 D。27. 设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String， strL As IntegertStr
7、 “strLLen(xStr)istrL / 2Do While istrLtStrtStr & Mid(xStr， i1， 1)ii1LoopFuntStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1“ABCDEF“Text1.Text LCase(Fun(S1)End Sub程序运行后，单击命令按钮，文本框中显示的是( C )。A) ABCDEFB) abcdefC) defdefD) defabc【解
8、析】程序中过程 Fun 的 Do 循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数 Len 用于返回字符串的长度，过程中字符串的长度做为 Do 循环的结束条件。 Mid 是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用 Mid(xStr， i1， 1)，通过循环依次取出字符串后半部分的字符。函数返回的字符串经 Lcase函数转换为小写然后显示在文本框中。程序中做为 Fun 过程参数的字符串为“ABCDEF“，经处理返回并转为小写后为“defdef“。28. 在窗体上画一个命令按钮和一个文本框(名称分别为Command
9、1 和Text1) ，并把窗体的KeyPreview 属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()ShowText1.Text “Text1.SetFocusEnd SubPrivate Sub Command1_Click()Text1.Text LCase(SaveAll)SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAllSaveAll Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，
10、则文本框中显示的内容为(A )。A) vbVBB) 不显示任何信息C) VBD) 出错【解析】窗体的 KeyPreview 属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True 时，窗体将会接收按键事件。因此在文本框中输入“VB“时，会先触发 Form_KeyPress()事件，该事件将输入的字符保存到窗体模块变量 SaveAll 中，然后才会显示在文本框中。当单击命令按钮时，Lcase 函数将变量 SaveAll 中的字符串“VB “转换为小写，为“vb“，然后与原字符串连接，即“vb“VB“，显示在文本框中则为 “vbVB“。29
11、. 设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx20y2f x * yEnd Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integerx10 y5yf(x)Print x； yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(B )。A) 10 5B) 20 40C) 20 5D) 10 40【解析】过程 f 中形参变量 x 没有指定传递方式，则默认按地址传递，会影响实参值。而变量
12、y 在按钮事件过程和 f 过程中都是局部变量只在本过程中起作用。因此执行 yf(x)后，x 值在过程中被改变为 20，而 y 被赋为过程返回值 40。因此程序窗体上会显示 20 和 40。30. 假定有以下通用过程：Function Fun(n As Integer)As Integerxn * nFunx 11End Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As IntegerFor i 1 To 2yFun(i)Print y；Next iEnd Sub程序运行后，单击命令按
13、钮，在窗体上显示的内容是( C )。A) 1 3B) 10 8C) 10 7D) 0 531. 下列关于顺序文件的描述中，正确的是( D ) 。A) 文件的组织与数据写入的顺序无关B) 主要的优点是占空间少，且容易实现记录的增减操作C) 每条记录的长度是固定的D) 不能像随机文件一样灵活地存取数据【解析】顺序文件的特点是：文件中各记录写入、存放和读取的顺序是一致的，即最先写入的记录放在文件的最前面，后面写入的依次往后面存放，最后写入的记录存放在文件的最后。读取时也是，先读取完前面的记录，才能读取后面的记录。所以文件的组织与数据写入的顺序有关，而且读取文件时效率低，不灵活。故 A 选项错误，D
14、选项正确。根据顺序文件的特点，文件实现记录的增减不容易。故 B 选项错误。顺序文件的每条记录中各数据项个数不固定，所以记录的长度也不固定。故 C 选项错误。32. 下面关于文件叙述中错误的是( D ) 。A) VB数据文件需要先打开，再进行处理B) 随机文件每个记录的长度是固定的C) 不论是顺序文件还是随机文件，都是数据文件D) 顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录【解析】顺序文件的记录是顺序存放的，先写入的记录存放在文件的最前面，后写入的依次往后面存放，最后写入的记录放在文件的最后面。如果访问某条记录，要先访问前面的记录，才能访问后面的记录，不能按记录号直接访问。故 D
15、选项错误。33. 下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( B ) 。A) InitDir属性用于设置对话框中显示的起始目录B) Filter属性用于设置对话框默认的过滤器C) DefaultExt属性用于设置对话框中默认的文件类型D) FileTitle属性用于存放对话框中所选择的文件名【解析】通用对话框的 InitDir 属性用于设置对话框中显示的起始目录，Filter 属性用来指定在对话框中显示的文件类型，FilterIndex 用于设置对话框默认的过滤器，DefaultExt 属性用于设置对话框中默认的文件类型，FileTitle 属性用于存放对话框中所选择的文件名。
