1、 试题、试卷纸 总 9 页 第 8 页 （A）卷课程类别：必修 选修 考试方式： 开卷 闭卷 2006 2007 学年第一学期使用班级： 课程名称： 医药计算机应用基础 考试时间： 2007 年 1 月 日姓名： 班级： 学号： 一、单选题（30分，每小题1分）u 一个完整计算机系统应包括_(1)_。(A) 主机、键盘、和显示器 (B)硬件系统和软件系统(C) 主机和其他外部设备 (D) 系统软件和应用软件u 打印机属于计算机部件中的_(2)_。(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备u 下列表示存储容量的数据中，_(3)_是最大的。(A)20480 KB (B)
2、 1.44 MB (C) 1 GB (D)4865723 Byteu 在计算机内部能够直接执行的程序语言是_(4)_。(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言u 下列叙述正确的是_(5)_。(A)程序设计就是编制程序 (B)程序的测试必须由程序员自己去完成(C)程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行再测试u 以下叙述中错误的是_(6)_。(A)Visual Basic 是事件驱动型可视化编程工具(B)Visual Basic应用程序不具有明显的开始和结束语句(C)Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Heig
3、ht）属性(D)Visual Basic中控件的某些属性只能在运行时设置u 以下不属于VB工作模式的是_(7)_模式。(A) 编译 (B) 设计 (C) 运行 (D) 中断u 以下语句的输出结果是_(8)_ 。 Print Format $(32548.5,“000,000.00”) (A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50u 若要使某可见控件获得焦点，则可使用_(9)_方法来实现。(A) Refresh (B) SetFocus (C) Value (D) GotFocusu 在下列说法中，正确的是_(10)_。(A) 通过适
4、当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D) 复选框的Value属性值为布尔型u 执行以下程序段,输出的结果为_(11)_。a$=abbacddcbaFor i=6 To 2 Step -2x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X & Y & z)Next iPrint z(A) ABA (B) BBABBA (C) ABBABA (D) AABAABu 控件在窗体上的位置是由_(12)_属性确定的。(A) Width和Hei
5、ght (B) Top和Left (C) Width和Left (D) Top和Width u 关于Name属性，以下叙述中_(13)_是正确的。(A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。(B) 窗体的Name属性用于设置显示在窗体标题栏的文本。(C) 可以通过代码在程序运行中改变某个对象的Name属性值。(D) 对象的Name属性值可以设置为空。u 下列名称中_(14)_可以作为VB的变量名。(A) mod (B) m-d (C) tempVal (D) leftu 要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中_(15)_是不正确的。(A) Max =
6、IIf(x y, x, y)(B) If x y Then Max = x Else Max = y(C) Max = xIf y = x Then Max = y(D) If y x Then Max = yMax = xu 执行以下语句后，a的值为_(16)_Dim a As Integera = 1Do Until a = 100 a = a + 2Loop(A) 102 (B)100 (C)溢出 (D)101u 对于语句If a = b Then c = d 的语法分析，_(17)_是正确的。(A) a=b 和 c=d都是赋值语句 (B) a=b是关系表达式，c=d是赋值语句(C) a
7、=b 和 c=d都是关系表达式 (D) a=b是赋值语句，c=d是关系表达式u 运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是_(18)_。Private Sub Command1_Click() Dim a As Integer Static b As Integer a = a + 5: b = b + 5 Print a, bEnd Sub(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0u 在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有_(19)_个元素。(A) 36 (B) 48 (C) 60 (D) 80u 下面的子
8、过程定义语句中没有语法和逻辑错误的是_(20)_。(A) Sub S1(ByVal n%() (B) Sub S1(n As Integer) As Integer(C) Function S1(ByVal n As Integer) (D) Function S1%(ByVal S1 As Integer)u 执行了下面程序后，组合框中数据项的值是_(21)_ 。Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub (A)1 5 6 (B)
9、1 3 5 (C)4 5 6 (D)2 4 6u 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是_(22)_.(A)List1.List B）List1.ListIndex (C)List1.Index (D)List1. Textu 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：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 Fo
10、rNext jIf j Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是_(23)_(A) 输出n以内的奇数 (B) 输出n以内的偶数(C) 输出n以内的素数 (D) 输出n以内能被j整除的数u 如果要在菜单中添加一个分隔线，则应将其标题属性设置为_(24)_。(A)= (B)* (C)& (D)-u 以下关于文件的叙述中正确的是_(25)_。(A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open命令的作用是打开一个已经存在的文件(D) 使用Input # 语句可以从随时机文件中读取数据u 以下定义数组或给
11、数组元素赋值的语句中，正确的是_(26)_。(A) Dim a As Variant (B) Dim a(10) As Integer a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)(C) Dim a%(10) (D) Dim a(3),b(3) As Integer a(1)=ABCDE a(0)=0 : a(1)=1 : a(2)=2 : b=au 窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为_(27)_。Private Sub test(p,m,n) p=p+1: m=m+1: n=n+1 Print “Sub:”; p; m; n End Su
12、bPrivate Sub Command1_Click() a1=1: b1=2: c1=3 Call test(a1,b1+3,(c1) Print “Main:”; a1; b1; c1End Sub(A) Sub: 2 6 4Main: 2 6 4(B) Sub: 2 6 4Main: 1 6 4(C) Sub: 2 6 4Main: 1 2 3(D) Sub: 2 6 4Main: 2 2 3u 以下语句用于打开一个顺序文件OpenC:MyFile.txt For OutPut,但是该语句的一个重要错误是没有_(28)_。 (A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件
13、名 (D) 指定文件类型Private Sub Timer1_Timer()If Label1.Left 2 * b Or a = c And b c Or c du 运行下列程序，单击命令按钮，则Text1中显示_6_，窗体中显示_7_。Private Sub Command1_Click() Dim i As Integer, j As Integer, a(5, 4) As Integer For i = 2 To 3 For j = 2 To 4 a(i, j) = i + j Next j Next i Text1.Text = a(3, 2) Print a(3, 1)End Su
14、bu 如下图，窗体上有两个命令按扭C1, C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。C2C1 Private Sub C1_Click()Dim a As StringForm1.Caption = 交换后a = _8_ Text1.Text = _9_ C2.Caption = aEnd Subu 请完善以下判断完数的程序。一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。例如6是一个完数，因为6=1+2+3。Private Sub CmdJudge_Click()If _13_ Then Pict
15、ure1.Print m & 是完数 Picture1.Print m; =; For i = 1 To UBound(a) - 1 Picture1.Print a(i); +; Next i Picture1.Print _14_Else Picture1.Print m & 不是完数End IfEnd SubDim a()m = Val(Text1.Text)ReDim a(1)a(1) = 1k = _10_j = 1For i = 2 To m - 1 If m Mod i = 0 Then k = k + i 因数和 j = j + 1 因数个数 ReDim _11_ a(j) a
16、(j) = _12_ End IfNext I(转右)u 编写程序。在窗体上显示如下图所示的“九九加法表”。_15_ Explicit Private Sub Form_Click() Dim i%, j% Print + 1 2 3 4 5 6 7 8 9 For i = 1 To _16_ Print i; For j = 1 To _17_ If i + j 10 _18_ Print ; Print _19_; Next j _20_ Next i End Subu 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序, 通过调用过程Swap，调换数组中数值的存放位置，即a
17、(1)与a(10)的值互换，a(2)与a(9)的值互换，a(5)与a(6)的值互换。请填空Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = iNextCall Swap(_21_)For i = 1 To 10Print a(i);NextEnd SubSub Swap(b() As Integer)n = _22_For i = 1 To n / 2t = b(i)b(i) = b(n)b(n) = t_23_NextEnd Sub 试题、试卷纸 总 8 页 第 9 页 （A）
18、卷u 设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如t1.txt原来内容为ABCD, t2.txt原来内容为1234，合并后t1.txt的内容将成为“ABCD1234”Private Sub Command1_Click() Open t1.txt _24_ As #1 Open t2.txt For Input As #2 Do While Not EOF(2) Line Input #2, s _25_ Loop CloseEnd Sub三、编程题（20分，每题10分）1 编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。2在文本框Text1中输入一串字符，用标签Label1显示其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。”
