2．在文本框Text1中输入一串字符，用标签Label1显示其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。
试题二
一、单选题（30分，每小题1分） 1、（ ）字节称为一个MB。 （A） 1024 （B）1000K
（C） 1024*1024
（D） 10000K
2、计算机硬件系统的五大部件是（ ）。
（A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（ ）。
（A）键盘、鼠标、扫描仪 （B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘 （D）触摸屏、打印机、鼠标 4、计算机网络的主要作用是( )。
(A) 数据处理 (B) 信息传输与数据处理 (C) 文献查询 (D) 资源共享与信息传输 5、二进制数1010等于十六进制数( )。 (A) 10 (B) 11 (C) A (D) B
6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( )。(A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare 7、下列程序段的执行结果为( )。 J1 = 10 J2 = 30
If J1 < J2 Then Print J2; Print J1
(A)10 (B)30 (C)10 30 (D)30 10
8、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（ ） (A) x1=\ (B) x1='False' (C) x1=False (D) x1=#False#
9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（(A) Private Sub Text1_LostFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub (B) Private Sub Text1_GotFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
。 11
）
End Sub
(C) Private Sub Text1_SetFocus() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change() Text1.SelStart=0
Text1.SelLength=Len(Text1.Text) End Sub
10、设用复制、粘贴的方法建立了一个单选按钮数组Option1，以下对该数组的说法错误的是( )。 (A) 所有单选按钮的Caption属性都是Option1 (B) 单选按钮的大小都相同
(C) 在代码中访问任意一个单选按钮只需使用名称Option1 (D) 单选按钮共享相同的事件过程
11、下面过程说明语句中合法的是（ ）。
(A) Sub f1（ByVal n() As Integer） (B)Function f1（ByVal n As Integer） (C) Function f1（f1 As Integer） As Integer (D)Sub f1（n() As Integer）As Integer 12、Cls 方法可清除窗体或图片框中的（ ）信息。
(A) Picture属性设置的背景图案 (B) 在设计时放置的控件 (C) 程序运行时产生的图形和文字 (D) 以上都对 13、在窗体中右击鼠标能弹出菜单test的是（ ）。
(A)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =2 Then PopupMenu test End Sub
(B)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu test End Sub (C)Sub Form_Click() PopupMenu test End Sub
(D)Sub Form_DblClick() PopupMenu test End Sub
14、下列符号常量的声明中，( )是不合法的。
(A) Const a As Single = 1.1 (B) Const a As Integer = \(C) Const a As Double = Sin(1) (D) Const a = \15、下列程序段的执行结果为( )。 Dim S(9) For i=0 To 9
12
S(i)=3*I Next i Print S(S(3))
(A) 12 (B) 27 (C) 0 (D) 出错 16、下列数组声明正确的是（ ）。 (A) n=5
Dim a(1 to n) As Integer ReDim a(1 to 12) (C) Dim a() As Single ReDim a(3 ,4) As Integer n=5
ReDim a(1 to n) As Integer
17、下列控件中，没有Caption属性的是（ ）。
(A) 框架 (B) 列表框 (C) 复选框 (D) 单选按钮 18、下面关于计时器控件（Timer）的叙述中，错误的是（ ）。 (A) 计时器控件运行时不可见
(B) 通过Color属性可设置计时器控件的颜色 (C) 计时器控件只有一个事件即Timer事件 (D) 计时器的Interval属性值设为0时，计时器无效 19、表达式 2 ^ 2 * 5 + 3 Mod 10 \\ 3 的值是（ ）。 （A）0 （B） 18 （C）19 (D) 20
20、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为20和100。程序运行后，如果移动滚动条滑块，则在文本框中显示滚动条的当前值。以下程序段中能实现上述操作的是（ ）。
(A) Private Sub Hscroll1_Change() Text1.Text=HScroll1.Value End Sub
(B) Private Sub Hscroll1_Click() Text1.Text=HScroll1.Value End Sub
(C) Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption
End Sub (D) Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub
13
(B) Dim a(10) As Integer
(D) Dim a() As Integer
21、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Load() Text1.Text = \ Text1.SetFocus For i = 1 To 5 Sum = Sum + i Next i
Text1.Text = Sum End Sub
上述程序的运行结果是（ ）。
(A) 在文本框中输出15 (B) 在文本框中输出0
(C) 在文本框中输出不定值 (D) SetFocus方法不可在Load事件中使用，所以出错 22、下面说法不正确的是( )。 (A) 滚动条的重要事件是Change和Scroll
(B) 框架的主要作用是将控件进行分组，以完成各自相对独立的功能
(C) 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上 (D) 组合框中Style属性有三个不同的值，使组合框呈现不同的形式 23、以下Case语句中有语法错误的是（ ）。 (A) Case 0 To 10
(B) Case Is>10 And Is<50
(C) Case Is>10 (D) Case 3,5,Is>10
24、关于文件操作控件，下列叙述不正确的是（ ）。
(A) 驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器 (B) 从驱动器列表框中选择驱动器能变更系统当前的工作驱动器
(C) 使用通用对话框(CommonDialog)中的“打开文件”对话框选择文件名，无需编程即可自动地打开所选文件 (D) 通过编写适当的程序代码可以使文件列表框（FileListBox）中显示当前目录列表框(DirLIstBox)中选中的文件列表
25、从磁盘上读入一个名为“c:\\filel.txt”的顺序文件，下面程序段正确的是（ ）。 (A) Open \(B) Open c:\\filel.txt For Input As # 1 (C) F=\
Open \(D) F=\Open F For Input As # 1
26、改变下列（ ）属性可设置控件的位置，。
(A) Height 与 Width (B) Height 与Top (C) Left 与 Top (D) Left 与 Width 27、在Visual Basic 中，( ) 关键字用于注释语句。 (A) Rem (B) End (C) Else (D) Loop
28、X是一个数值型变量，表达式Int（X / 2）= X / 2 的作用是（ ）。 (A) 用于测试X是否偶数 (B) 返回一个整数 (C) 返回一个奇数 (D) 用于测试X是否整数
14
29、执行了下面程序后，组合框中显示的数据项是（ ）。 Private Sub Form_Load() For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3
Combo1.RemoveItem i Next i End Sub
(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 6
30、打开顺序文件语句中，关键字Append表示把新数据添加到( )。 (A) 文件首 (B) 文件尾 (C) 文件中间 (D) 随机位置
二、填空（50分，每空2分） 1、设有如下程序段：
a$=\：b$=Mid(a$,InStr(a$,\执行上面的程序段后，变量b$的值为__【1】 _。 2、设a=4，执行x = IIf(a>6,-2,0)后，x的值为【2】 _。
3、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then 【3】 End If Next i End Sub
Private Sub Command1_Click() Sum = 0
For i = 1 To 【4】 Sum = Sum + 【5】 Next i
【6】 End Sub
4、用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空： Option Base 1
15