一、单选题（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="False"      (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) 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 = "12"

(C) Const a As Double = Sin(1)      (D) Const a = "OK"

15、下列程序段的执行结果为(      )。

Dim S(9)

For i=0 To 9

  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	(B) Dim a(10) As Integer ReDim a(1 to 12)
(C) Dim a() As Single ReDim a(3 ,4) As Integer	(D) Dim a() 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

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 "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 # 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是否整数

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$="ShanghaiBeijing"：b$=Mid(a$,InStr(a$,"i")+1)

执行上面的程序段后，变量b$的值为__ Beijing___。

2、设a=4，执行x = IIf(a>6,-2,0)后，x的值为0_。

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

List1.additem i

End If

Next i

End Sub

Private Sub Command1_Click()

Sum = 0

For i = 1 To list1.listcount

Sum = Sum + list1.list(i-1)

Next i

Text1.text=sum

End Sub

4、用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空：

Option Base 1

Private Sub Command1_Click()

Dim arr1%, Max%

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

Max = arr1(1)

For i = 1 To 8

If arr1(i) > Max Then Max=arr1(i)

Next i

Print "最大值是: "; Max

End Sub

5、设在窗体上有一个文本框Text1，一个标签数组Label1,共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。

   Private Sub Labell_Click(Index As Integer)

     Text1.Text=   label1(index).caption   

   End Sub

6、下列程序的功能是：当x<47时，y=10 x；当47≤x≤100时，y=0.7x；当x>100时，没有意义。请填空。

Private Sub Command1_Click()

Dim x As Single

x=InputBox("请输入x的值！")

select case x

Case Is < 47

y=10*x

Case 47 To 100

y=0.7 * x

Case Else

Print "输入的数据出界！"

End Select

Print x, y

End Sub

8、表达式Fix(-32.68)+Int(-23.02)的值为 -56

9、下面的程序用“冒泡”法将数组a中的数组元素按升序排列，请将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a

a=Array(67, 45, 24, 52, 49, 37, 87, 58, 23, 82)

For i=1 to ubound(a)-1

For j=1 to ubound(a)-i

If a(j) > a(j＋1) Then

t=a(j)

a(j)=a(j+1)

a(j＋1)=t

End If

Next j

Next i

For i= 1 to ubound(a)

Print a(i);

Next i

End Sub

11、下列程序运行时，当单击窗体后，从键盘分别在文本框Text1、Text2输入整数m、n，求解m、n的最大公约数，并将结果显示在窗体上。请将程序补充完整

Private Sub Form_click()

       m = val(text1.text)

       n = Val(Text2.text)

       Print  m ; "和"; n; "的最大公约数是：";gys(m,n)

End Sub

Private Function gys(n, m)

        p = n Mod m

        If  p=0 Then

            gys= m

        Else

         Gys=Gys(m,p)

End If

  End Function

12、在窗体模块中编写以下Sub过程和窗体Click事件过程：

Private Sub suba(x As Integer,y As Integer)

Dim t As Integer

t =x: x=y : y=t

End Sub

Private Sub Form_Click()

Dim a As Integer,b As Integer

a =10: b =20

Call suba(a,b)

Print a ;b;

Call suba(b,a)

Print a ;b

End Sub

当程序运行时，在窗体中单击鼠标左键，则程序的输出结果是  20 10 10 20    。

13、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim Data As String

Text1.Text = ""

Open ".\smtext1.txt" for input As #1

Do While not eof(1)

Data = Input(1，#1)

Text1.Text = Text1.Text & Data

Loop

Close #1

End Sub

 

三、编程题（20分，每小题10分）

1、编写程序，分别统计出文本框Text1中输入的字符串中所包含的字母、数字和其它字符的个数，并将结果显示在窗体上。

 

2、编写一个函数，求任意正整数k的阶乘k! = 1 * 2 *… * k。再编写一段事件过程，用户输入两个整数n和m（n≥m），求组合数。