广中医VB模拟试题.doc

一、单选题（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. 下列执行速度最快的程序语言是_(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中，保存一个工程至少应保存两个文件，这两个文件分别是_(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(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. 下列叙述不正确的是_(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和Width18以下能判断是否到达文件尾的函数是_(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-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 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假定有以下两个过程,则以下说法中不正确的是_(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)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)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.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-1NextPrint 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以内的奇数 (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/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语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是_610 120_。Private Sub Form_Click()Dim a As Integer,b As Integer a=0: b=0 Do While a a(j + 1) Then a1 = 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其中第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下：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 5 For j = 1 To 3 Input #1, _23a(I,j)_ Next j _24a(I,4)_= a(i, 2) + a(i, 3)Next iSortFor i = 1 To 5 For j = 1 To 4 Print a(i, j), Next j PrintNext iClose #1End SubPrivate Sub Sort()Dim i As Integer, j As Integer, k As Integer, temp As IntegerFor i = 1 To 4 For j = i + 1 To 5 If a(i, 4) a(j, 4) Then For k = 1 To _254_ temp = a(i, k): a(i, k) = a(j, k): a(j, k) = temp Next k End If Next jNext iEnd Sub三、编程题（20分，每题10分）1、 编写子过程Swap，调换数组中数值的存放位置，即a(1)与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)