试题一
一、单选题
? 一个完整计算机系统应包括___(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)_____方法来实现。
1
(A) Refresh (B) SetFocus (C) Value (D) GotFocus ? 在下列说法中，正确的是___(10)___。
(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B) 在列表框中不能进行多项选择
(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列 (D) 复选框的Value属性值为布尔型 ? 执行以下程序段,输出的结果为___(11)___。
a$=\For i=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i) z=Right(a,i): z=UCase(X & Y & z) Next i Print z
(A) ABA (B) BBABBA (C) ABBABA (D) AABAAB ? 控件在窗体上的位置是由___(12)___属性确定的。
(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width ? 关于Name属性，以下叙述中___(13)___是正确的。
(A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。 (B) 窗体的Name属性用于设置显示在窗体标题栏的文本。 (C) 可以通过代码在程序运行中改变某个对象的Name属性值。 (D) 对象的Name属性值可以设置为空。 ? 下列名称中___(14)___可以作为VB的变量名。
(A) mod (B) m-d (C) tempVal (D) left
? 要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___(15)___是不正确的。(A) Max = IIf(x > y, x, y)
(B) If x > y Then Max = x Else Max = y
2
(C) Max = x
(D) If y > x Then Max = y
If y >= x Then Max = y
Max = x
? 执行以下语句后，a的值为___(16)___
Dim a As Integer a = 1
Do Until a = 100 a = a + 2 Loop
(A) 102 (B)100 (C)溢出 (D)101
? 对于语句If a = b Then c = d 的语法分析，___(17)___是正确的。
(A) a=b 和 c=d都是赋值语句 (B) a=b是关系表达式，c=d是赋值语句 (C) a=b 和 c=d都是关系表达式 (D) a=b是赋值语句，c=d是关系表达式
? 运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__(18)__。Private Sub Command1_Click() Dim a As Integer Static b As Integer a = a + 5: b = b + 5 Print a, b End Sub
(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0 ? 在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有___(19)___个元素。
(A) 36 (B) 48 (C) 60 (D) 80
? 下面的子过程定义语句中没有语法和逻辑错误的是___(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)
3
? 执行了下面程序后，组合框中数据项的值是___(21)___ 。
Private Sub Form_Click()
For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i End Sub
(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 6
? 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
__(22)___.
(A)List1.List B）List1.ListIndex (C)List1.Index (D)List1. Text
? 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For Next j
If j > Sqr(i) Then Print i Next i End Sub
该事件过程的功能是__(23)__
(A) 输出n以内的奇数 (B) 输出n以内的偶数
4
(C) 输出n以内的素数 (D) 输出n以内能被j整除的数
? 如果要在菜单中添加一个分隔线，则应将其标题属性设置为___(24)_____。
(A)= (B)* (C)& (D)- ? 以下关于文件的叙述中正确的是__(25)__。
(A) 一个记录中所包含的各元素的数据类型都是相同的 (B) 随机文件中每个记录的长度是固定的 (C) Open命令的作用是打开一个已经存在的文件 (D) 使用Input # 语句可以从随时机文件中读取数据
? 以下定义数组或给数组元素赋值的语句中，正确的是__(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)=\? 窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为___(27)___。 ? Private Sub test(p,m,n)
p=p+1: m=m+1: n=n+1 Print “Sub:”; 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 6 4
(B) Sub: 2 6 4 (C) Sub: 2 6 4 (D) Sub: 2 6 4
5