VB二级考试习题及答案.pdfVIP

练习练习3 3 一、单选题一、单选题（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)程序设计就是编制程序(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 $(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)_。 a$=“abbacddcba“ For i=6 To 2 Step -2 x=Mid(a,i,i):y=Left(a,i) z=Right(a,i):z=UCase(X p; m; n End Sub Private Sub Command1_Click() a1=1: b1=2: c1=3 Call test(a1,b1+3,(c1) Print “Main:”; a1; b1; c1 End Sub (A) Sub: 2 64 Main: 2 64 (B) Sub: 264 Main: 164 (C) Sub: 2 64 Main: 1 23 (D) Sub: 264 Main: 223 以下语句用于打开一个顺序文件 Open“C:MyFile.txt“ For OutPut,但是该语句的一 个重要错误是没有_(28)_。 (A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件名 (D) 指定文件类型 在窗体上画一个名称为 Label1、 标题为“VisualBasic 考试”的标签， 两个名称分别 为 Command1 和 Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个 名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500。编写如下程序： Private Sub Form_Load() Timer1.Enabled=False End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub 程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错 误的是_(29)_ Private Sub Timer1_Timer() If Label1.Left 2 * b Or a = c And b d 运行下列程序， 单击命令按钮， 则 Text1 中显示_65_， 窗体中显示_70_。 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 Sub 如下图，窗体上有两个命令按扭 C1, C2 及一个文本框 Text1，当按下 C1 时，将 C2 的标题与 Text1 中的内容交换。 Private Sub C1_Click() Dim a As String Form1.Caption = “交换后“ a = _8text1.text_ Text1.Text = _9c2.caption_ C2.Caption = a End Sub 请完善以下判断完数的程序。一个数如果恰好等于它的因 子之和，这个数就被称为“完数” 。一个数的因子是指除 了该数本身以外能够被其整除的数。例如 6 是一个完数， 因为 6=1+2+3。 Private Sub CmdJudge_Click() Dim a() m = Val(Text1.Text) ReDim a(1) a(1) = 1 k = _10_1_ j = 1 For i = 2 To m - 1 If m Mod i = 0 Then k = k + i 因数和 j = j + 1 因数个数 ReDim _11_preserve_ a(j) a(j) = _12i_ End If C1 C2 If _13_k=m_ Then Picture1.Print m “=“; For i = 1 To UBound(a) - 1 Picture1.Print a(i); “+“; Next i Picture1.Print _14a(ubound(a)_ Else Picture1.Print m For j = 1 To _17i_ If i + j = “a“ And zimu