1、一、单选题（30 分，每题 1 分）1计算机中采用二进制，是因为_(1)C_。(A)可降低硬件成本 (B)两个状态的系统具有稳定性(C)二进制的运算法则简单 (D)上述三个原因2我们通常说的U盘属于计算机部件中的_(2)C_。(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备3. 下列表示存储容量的数据中，_(3)D_是最小的。(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte4. 一个完整计算机系统应包括_(4)B_。(A) 主机和显示器 (B)硬件系统和软件系统(C)系统软件和应用软件 (D) 内存和外存5. 下列执行速度最
2、快的程序语言是_(5)C_。(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言6. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是_(6)B _。(A) 属性、对象、方法、事件 (B) 属性、对象、事件、方法(C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法7. 以下叙述中正确的是_(7)A_。(A)窗体的 Name 属性指定窗体的名称，用来标识一个窗体(B)窗体的 Name 属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的 Name 属性的值(D)对象的 Name 属性值可以为空8. 在 VB 中，保存一个工程至少应保存两个文件，这两个文件分别
3、是_(8)B_。(A)文本文件和工程文件 (B)窗体文件和工程文件 (C)窗体文件和标准模块文件 (D)类模块文件和工程文件9. 在下列说法中，正确的是_(9)C_(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB 系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D)复选框的 Value 属性值为布尔型10.当一个复选框被选中时，它的 Value 属性的值是_(10)C_(A) 3 ( B) 2 (C) 1 (D) 011.计算结果为 0 的表达式是_(11)D_ (A)Int(2.4)+Int(-2.8) (B)Cint(
4、2.4)+Cint(-2.8) (C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8)12.可以惟一标识控件数组中的每一个控件属性的是_(12)C_ (A)Name (B)Caption (C)Index (D)Enabled13. 下列变量名中，合法的变量名是_(13)A_。(A)m24 (B)mn-k (C)24m (D)m+n14. 若有语句”Dim Flag As Boolean” ，则下面赋值语句正确的是_(14)D_。(A) Flag =“True“ (B) Flag=True (C)Flag=Ture (D)Flag=True15. 下列叙述不正确
5、的是_(15)D_。(A)InputBox 函数返回值为字符型 (B)MsgBox 函数返回值为所单击按钮的键值(C) MsgBox 语句没有返回值 (D) MsgBox 语句返回值为所单击按钮的键值16. 若要在 Text1 的光标(焦点)移动到其它控件时进行合法性判断，则可使用_(16)C _事件来实现。(A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus17.一般情况下，控件的大小是由_(17)A_属性确定的(A) Width 和 Height (B) Top 和 Left (C) Width 和 Left (D) Top 和 Width
6、18以下能判断是否到达文件尾的函数是_(18)D_(A)BOF (B) LOC (C)LOF (D)EOF19下列过程语句说明合法的是_(19)A_。(A)Sub f1(ByVal n() As Integer) (B)Sub f1(n() As Integer)As Integer(C)Function f1(f1 As Integer) As Integer (D)Finction f1(ByVal n As Integer)20.要在文本框 Text1 中显示列表框 List1 中最后一个项目的正确语句是_(20)C_。(A)Text1.Text=List1.List(ListCount
7、-1) (B)Text1.Text=List1.List(0)(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex21设组合框 Combo1 中有 5 个项目，则以下能删除最后一项的语句是_(21)C_。(A)Combo1.RemoveItem Text (B)Combo1.RemoveItem 5(C)Combo1.RemoveItem 4 (D)Combo1.RemoveItem Combo1.Listcount22在通用声明代码中有以下语句：Option Base 1Dim a (4,-3 to
8、 3) As String则该数组有_(22)A_个元素。(A) 28 (B) 24 (C) 35 (D) 3023.要使菜单项能通过按键盘上的 Alt 键及 K 键打开，应在菜单编辑器中设置_(23)B_。(A) 在 “名称 ”栏中“K”字符前加上“&” (B) 在“标题”栏中“K”字符前加上“&”(C) 在“名称”栏中“K”字符后加上“&” (D) 在“标题”栏中“K”字符后加上“&”24. 以下 Case 语句中错误的是_(24)C_。(A) Case 0 To 10 (B) Case Is10(C) Case Is10 And Is1025假定有以下两个过程,则以下说法中不正确的是_(
9、25)D_。Private Sub PPP (a As Single, b As Single)a = a + bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate( )x=18Call PPP (x,(x)Print xEnd Sub (A)形参是 a 和 b ，两个实参 x 和(x)允许重名(B)形参是 a 和 b ，实参(x)表示是传值调用(C)形参是 a 和 b ，实参 x 表示是传址调用(D)Print a, b 输出的值分别为 36，3626若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用 _(26
10、)C_ 控件将它们分隔开。 TextBox PictureBox Image Frame (A) 或 (B) 或 (C) 或 (D) 或27.在窗体上画一个名称为 CommandDialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =“CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“CommonDialog1.FilterIndex=2CommonDialog1.DialogT
11、itle=“VBTest“CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是_(27)D_(A)该对话框被设置为“打开”对话框 (B) 在该对话框中指定的默认文件名为空(C)该对话框的标题为 VBTest (D)在该对话框中指定的默认文件类型为文本文件(*.Txt)28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPri
12、nt a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是_(28)B_。(A) 4 (B) 5 (C) 6 (D) 729在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程,该事件过程的功能是_(29)C_Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub(A) 输出 n
13、 以内的奇数 (B) 输出 n 以内的偶数(C) 输出 n 以内的素数 (D) 输出 n 以内能被 j 整除的数30设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub该程序通过 For 循环计算一个表达式的值，这个表达式是_(30)C_ (A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5 (D)1+1/2+1
14、/3+1/4+1/5二、填空题（50 分，每空 2 分）1、设 a=6，则执行 x=Iif(a5,-1,0)后，x 的值为_1-1_。2、Visual Basic 提供了三种对数据文件的访问方式，它们是顺序访问方式、_2随机文件 _访问方式和二进制访问方式。3、 赋值语句：a=123 & MID(“123456“,3,2)执行后，a 变量中的值_312334_ 。4、如果有以下程序代码，则输出结果是_4False_。x = 10y = 5Print x 2 = y 35、运行下面的程序，单击窗体后在窗体上显示的内容是_510 220_；若将程序中的 A 语句与 B 语句的位置互换，再次执行程序
15、，单击窗体后在窗体上显示的内容是_610 120_。Private Sub Form_Click()Dim a As Integer,b As Integer a=0: b=0 Do While a a(j + 1) Thena1 = a(j)a(j) = a(j + 1)a(j + 1) = a1_21End If_Next jNext iEnd Sub10、在 C 盘根目录下有一数据文件（cj.dat） ，内容如下：9901，56，789902，97，899903，67，759904，78，769905，100，90其中第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要
16、求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下：Dim a(5, 4) As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerOpen “c:cj.dat“ For _22Input_ As #1For i = 1 To 5For j = 1 To 3Input #1, _23a(I,j)_Next j_24a(I,4)_= a(i, 2) + a(i, 3)Next iSortFor i = 1 To 5For j = 1 To 4Print a(i, j),Next jPrintNext i
17、Close #1End SubPrivate Sub Sort()Dim i As Integer, j As Integer, k As Integer, temp As IntegerFor i = 1 To 4For j = i + 1 To 5If a(i, 4) a(j, 4) ThenFor k = 1 To _254_temp = a(i, k): a(i, k) = a(j, k): a(j, k) = tempNext kEnd IfNext jNext iEnd Sub三、编程题（20 分，每题 10 分）1、编写子过程 Swap，调换数组中数值的存放位置，即 a(1)与
18、a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。Sub swap(a() as integer)Dim i%,n%,t%For I = 1 to n/2T=a(i)A(i)=a(n-i+1)A(n-i+1)=tNext iEnd sub2、求 Sn=a+aa+aaa+aaa 的值，其中 a 是一个数字。例如：2+22+222+2222+22222(此时 n5)，a 和 n 的值由用户通过 InputBox 输入。Private sub command1_click()Dim a%,I%,n%,s as long,t as longA=inputbox(“请输入 a:”)N=inputbox(“请输入 n:”)For I = 1 to nT=t & aS=s+val(t)Next iPrint sEnd sub
