一、单选题（30分，每小题1分）1、（C ）字节称为一个MB。

（A）1024 （B）1000K （C）1024*1024 （D）10000K2、计算机硬件系统的五大部件是（A ）。

（A）CPU、内存储器、输入设备、输出设备、外存储器（B）运算器、控制器、存储器、输出设备、输入设备（C）CPU、总线、存储器、外设、主板（D）主机箱、显示器、音箱、鼠标、键盘3、常用的输入设备有（A ）。

（A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标（C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标4、计算机网络的主要作用是( D )。

(A) 数据处理(B) 信息传输与数据处理(C) 文献查询(D) 资源共享与信息传输5、二进制数1010等于十六进制数( C )。

(A) 10 (B) 11 (C) A (D) B6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。

(A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare7、下列程序段的执行结果为( D )。

J1 = 10J2 = 30If J1 < J2 Then Print J2;Print J1(A)10 (B)30 (C)10 30 (D)30 108、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ）(A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False#9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。

(A) Private Sub Text1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End Sub (B) Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End Sub(C) Private Sub Text1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub10、设用复制、粘贴的方法建立了一个单选按钮数组Option1，以下对该数组的说法错误的是( C )。

(A) 所有单选按钮的Caption属性都是Option1(B) 单选按钮的大小都相同(C) 在代码中访问任意一个单选按钮只需使用名称Option1(D) 单选按钮共享相同的事件过程11、下面过程说明语句中合法的是（B ）。

(A) Sub f1（ByV al n() As Integer）(B)Function f1（ByV al n As Integer）(C) Function f1（f1 As Integer）As Integer (D)Sub f1（n() As Integer）As Integer12、Cls 方法可清除窗体或图片框中的（C ）信息。

(A) Picture属性设置的背景图案(B) 在设计时放置的控件(C) 程序运行时产生的图形和文字(D) 以上都对13、在窗体中右击鼠标能弹出菜单test的是（ A ）。

(A)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then PopupMenu testEnd Sub(B)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)PopupMenu testEnd Sub(C)Sub Form_Click()PopupMenu testEnd Sub(D)Sub Form_DblClick()PopupMenu testEnd Sub14、下列符号常量的声明中，( C )是不合法的。

(A) Const a As Single = 1.1 (B) Const a As Integer = "12"(C) Const a As Double = Sin(1) (D) Const a = "OK"15、下列程序段的执行结果为( B )。

Dim S(9)For i=0 To 9S(i)=3*INext iPrint S(S(3))(A) 12 (B) 27 (C) 0 (D) 出错16、下列数组声明正确的是（D ）。

(A) n=5Dim a(1 to n) As Integer (B) Dim a(10) As IntegerReDim a(1 to 12)(C) Dim a() As SingleReDim a(3 ,4) As Integer (D) Dim a() As Integern=5ReDim a(1 to n) As Integer17、下列控件中，没有Caption属性的是（B ）。

(A) 框架(B) 列表框(C) 复选框(D) 单选按钮18、下面关于计时器控件（Timer）的叙述中，错误的是（B ）。

(A) 计时器控件运行时不可见(B) 通过Color属性可设置计时器控件的颜色(C) 计时器控件只有一个事件即Timer事件(D) 计时器的Interval属性值设为0时，计时器无效19、表达式 2 ^ 2 * 5 + 3 Mod 10 \ 3 的值是（D ）。

（A）0 （B）18 （C）19 (D) 2020、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为20和100。

程序运行后，如果移动滚动条滑块，则在文本框中显示滚动条的当前值。

以下程序段中能实现上述操作的是（A ）。

(A) Private Sub Hscroll1_Change()Text1.Text=HScroll1.V alueEnd Sub (B) Private Sub Hscroll1_Click()Text1.Text=HScroll1.V alueEnd Sub(C) Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd Sub (D) Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub21、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是（D ）。

(A) 在文本框中输出15 (B) 在文本框中输出0(C) 在文本框中输出不定值(D) SetFocus方法不可在Load事件中使用，所以出错22、下面说法不正确的是( C )。

(A) 滚动条的重要事件是Change和Scroll(B) 框架的主要作用是将控件进行分组，以完成各自相对独立的功能(C) 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上(D) 组合框中Style属性有三个不同的值，使组合框呈现不同的形式23、以下Case语句中有语法错误的是（ B ）。

(A) Case 0 To 10 (B) Case Is>10 And Is<50(C) Case Is>10 (D) Case 3,5,Is>1024、关于文件操作控件，下列叙述不正确的是（C ）。

(A) 驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器(B) 从驱动器列表框中选择驱动器能变更系统当前的工作驱动器(C) 使用通用对话框(CommonDialog)中的“打开文件”对话框选择文件名，无需编程即可自动地打开所选文件(D) 通过编写适当的程序代码可以使文件列表框（FileListBox）中显示当前目录列表框(DirLIstBox)中选中的文件列表25、从磁盘上读入一个名为“c:\filel.txt”的顺序文件，下面程序段正确的是（ D ）。

(A) Open "c:\filel.txt" For Output As # 2 (B) Open c:\filel.txt For Input As # 1(C) F="c:\filel.txt"Open "F" For Input As # 2 (D) F="c:\filel.txt"Open F For Input As # 126、改变下列（C ）属性可设置控件的位置，。

(A) Height 与Width (B) Height 与Top (C) Left 与Top (D) Left 与Width27、在Visual Basic 中，( A ) 关键字用于注释语句。

(A) Rem (B) End (C) Else (D) Loop28、X是一个数值型变量，表达式Int（X / 2）= X / 2 的作用是（A ）。

(A) 用于测试X是否偶数(B) 返回一个整数(C) 返回一个奇数(D) 用于测试X是否整数29、执行了下面程序后，组合框中显示的数据项是（ B ）。

Private Sub Form_Load()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 630、打开顺序文件语句中，关键字Append表示把新数据添加到( B )。

(A) 文件首(B) 文件尾(C) 文件中间(D) 随机位置二、填空（50分，每空2分）1、设有如下程序段：a$="ShanghaiBeijing"：b$=Mid(a$,InStr(a$,"i")+1)执行上面的程序段后，变量b$的值为__。