1、一、单选题（30分，每小题1分） 一个完整计算机系统应包括_(1)_。(A) 主机、键盘、和显示器 (B)硬件系统和软件系统(C) 主机和其他外部设备 (D) 系统软件和应用软件 打印机属于计算机部件中的_(2)_。(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 下列表示存储容量的数据中，_(3)_是最大的。(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 在计算机内部能够直接执行的程序语言是_(4)_。(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言 下列叙述正确的是_(5)_。(A)程序设计就是编制程序
2、 (B)程序的测试必须由程序员自己去完成(C)程序经调试改错后还应进行再测试 (D) 程序经调试改错后不必进行再测试 以下叙述中错误的是_(6)_。(A)Visual Basic 是事件驱动型可视化编程工具(B)Visual Basic 应用程序不具有明显的开始和结束语句(C)Visual Basic 工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(D)Visual Basic 中控件的某些属性只能在运行时设置 以下不属于 VB 工作模式的是_(7)_模式。(A) 编译 (B) 设计 (C) 运行 (D) 中断 以下语句的输出结果是_(8)_ 。 Print Format
3、 $(32548.5,“000,000.00”) (A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50 若要使某可见控件获得焦点，则可使用_(9)_方法来实现。(A) Refresh (B) SetFocus (C) Value (D) GotFocus 在下列说法中，正确的是_(10)_。(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB 系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D) 复选框的 Value 属性值为布尔型 执行以下程序段,输出的结果为_(11)_
4、。a$=“abbacddcba“For i=6 To 2 Step -2x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X p; m; nEnd SubPrivate Sub Command1_Click()a1=1: b1=2: c1=3Call 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 3 以下
5、语句用于打开一个顺序文件 Open“C:MyFile.txt“ For OutPut,但是该语句的一个重要错误是没有_(28)_。(A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件名 (D) 指定文件类型 在窗体上画一个名称为 Label1、标题为“VisualBasic 考试”的标签，两个名称分别为 Command1 和 Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500。编写如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd Su
6、bPrivate Sub Command1_Click()Timer1.Enabled=TrueEnd Sub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中Private Sub Timer1_Timer()If Label1.Left 2 * b Or a = c And b d 运行下列程序，单击命令按钮，则 Text1 中显示_5_，窗体中显示_0_。Private Sub Command1_Click()Dim i As Integer, j As Integer, a(5, 4) As IntegerFor i = 2 To 3For j = 2 To 4a
7、(i, j) = i + jNext jNext iText1.Text = a(3, 2)Print a(3, 1)End Sub 如下图，窗体上有两个命令按扭 C1, C2 及一个文本框 Text1，当按下 C1 时，将 C2的标题与 Text1 中的内容交换。Private Sub C1_Click()Dim a As StringForm1.Caption = “交换后“a = _Text1.Txt_ Text1.Text = _C2.Caption_ C2.Caption = aEnd Sub 请完善以下判断完数的程序。一个数如果恰好等于它的因子之和，这个数就被称为“完数” 。一个数
8、的因子是指除了该数本身以外能够被其整除的数。例如 6 是一个完数，因为 6=1+2+3。Private Sub CmdJudge_Click()Dim a()m = Val(Text1.Text)ReDim a(1)a(1) = 1k = _1_j = 1For i = 2 To m - 1If m Mod i = 0 Thenk = k + i 因数和j = j + 1 因数个数ReDim _preserve_ a(j)C1 C2If _m=k_ ThenPicture1.Print m “=“;For i = 1 To UBound(a) - 1Picture1.Print a(i); “
9、+“;Next iPicture1.Print _a(ubound(a)_ElsePicture1.Print m For j = 1 To _i_If i + j 10 _then Print “ “; Print _i+j_;Next j_print_ Next i End Sub 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序, 通过调用过程Swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空Option Base 1Private Sub Command1_Click()Dim
10、a(10) As IntegerFor i = 1 To 10a(i) = iNext Call Swap(_a_)For i = 1 To 10Print a(i);NextEnd Sub 设当前文件夹已有文件 t1.txt 和 t2.txt，其中各有若干文字。现要将 t2.txt 的内容合并到 t1.txt 中。例如 t1.txt 原来内容为“ABCD“, t2.txt 原来内容为“1234“，合并后 t1.txt 的内容将成为“ABCD1234”Private Sub Command1_Click()Sub Swap(b() As Integer)n = _Ubound(b)_For i
11、 = 1 To n / 2t = b(i)b(i) = b(n)b(n) = t_n=n-1 _NextEnd Sub试题、试卷纸 总 8 页 第 8 页 （A）卷Open “t1.txt“ _for append_ As #1 Open “t2.txt“ For Input As #2 Do While Not EOF(2)Line Input #2, s_Print #1,s_ LoopCloseEnd Sub三、编程题（20分，每题10分）1 编写一个自定义函数 Gcd(m,n),实现求 m 和 n 两个正整数的最大公约数。Private Function gys(n, m)p = n Mod mIf p=0 Thengys= mElseGys=Gys(m,p)End IfEnd Function2在文本框 Text1 中输入一串字符，用标签 Label1 显示其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是 i，共出现 3 次。 ”Dim maxFor i=0 to len(s)For j=0 to len(s)If Mid(s,i,1)=mid(s,j,1) then n=n+1Next jIf maxn then max=nNext i
