、单选题 ( 30分，每小题 1分)(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 列表示存储容量的数据中， ____ (3) ___ 是最大的是事件驱动型可视化编程工具 应用程序不具有明显的开始和结束语句 工具箱中的所有控件都具有宽度(Width )和高度(Height )属性 中控件的某些属性只能在运行时设置(7)___ 模式。

运行 (D) 中断(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"一个完整计算机系统应包括 (A) 主机、键盘、和显示器 (C) 主机和其他外部设备 打印机属于计算机部件中的(1) ___ 。

(B) 硬件系统和软件系统 (D) 系统软件和应用软件(2)___ 。

(A) 20480 KB (B) 1.44 MB 在计算机内部能够直接执行的程序语言是 (A) 数据库语言(B) 高级语言下列叙述正确的是 ___(5)_(A) 程序设计就是编制程序 完成 (C) 程序经调试改错后还应进行再测试 以下叙述中错误的是 ___(6)(C) 1 GB(D)4865723 Byte ___(4) ___ 。

(C) 机器语言(B)(D) 汇编语言程序的测试必须由程序员自己去(D) 程序经调试改错后不必进行再测试 (A)Visual Basic (B)Visual Basic (C)Visual Basic (D)Visual Basic 以下不属于VB 工作模式的是 (A) 编译 (B) 设计 (C) 以下语句的输出结果是 Print Format$(32548.5,(8)___ 。

“000,000.00 ”)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要求出变量 x 和 y 中较大的一个并保存在变量是不正确的(B) If x > y Then Max = x Else Max = y (D) If y > x Then Max = y Max = x (16)___Dim a As Integera = 1Do 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) 定义的数组(D) leftMax 中，下面的程序段中(15)(A) Max = If(x > y, x, y) (C) Max = xIf y >= x Then Max = y 执行以下语句后，a 的值为.共有___(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) 执行了下面程序后，组合框中数据项的值是___(21)___ 。

Private Sub Form_Click()For i=1 to 6 Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd 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在窗体上画一个名称为Comma nd的命令按钮和一个名称为Textl的文本框，然后编写如下事件过程：Private Sub Comma nd1_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该事件过程的功能是_(23)_(A)输出n以内的奇数(B) 输出n以内的偶数(C)输出n以内的素数(D) 输出n以内能被j整除的数如果要在菜单中添加一个分隔线，则应将其标题属性设置为_(24) ______(A)= (B)* (C)& (D)-以下关于文件的叙述中正确的是_(25)_。

(A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open命令的作用是打开一个已经存在的文件(D) 使用In put # 语句可以从随时机文件中读取数据以下定义数组或给数组元素赋值的语句中，正确的是_(26)(A) Dim a As Varia nt (B) Dim a(10) As In tegera=Array(1,2,3,4,5) (C) Dim a%(10)a(1)="ABCDE"a=Array(1,2,3,4,5)(D) Dim a( 3),b(3) As In tegera(0)=0 : a(1)=1 : a(2)=2 : b=a窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为(27)Private Sub test(p,m,n)p=p+1: m=m+1: n=n+1Print “Sub:” ; 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 4 (B) Sub: 2 6 4 (C) Sub: 2 6 4 (D) Sub: 2 6 4Mai n: 2 6 4 Mai n: 1 6 4 Mai n: 1 2 3 Mai n: 2 2 3 以下语句用于打开一个顺序文件Ope n"C:\MyFile.txt" For OutPut, 但是该语句的一个重要错误是没有—(28) _______ 。

(A)指定打开方式(B)指定文件号(C)指定打开文件名(D)指定文件类型在窗体上画一个名称为Label1、标题为“ VisualBasic考试”的标签，两个名称分别为Comma nd和Comma nd2标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Private Sub Form_Load()Timerl.E nabled=FalseEnd SubPrivate Sub Comma nd1_Click() Timer1.E nabled=TrueEnd SubInterval属性设置为500。

编写如下程序Private Sub Timer1_Timer()If Label1.Left<Width The n Label1.Left = Label1 .Left + 20 ElseLabel1.Left=0End If程序运行后，单击“开始”按钮，标签在窗体中移动。

对于这个程序，误的是___(29)_(A) 标签的移动方向为自右向左(B) 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动(C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动(D) 标签按指定的时间时隔移动设有如下程序，通过For循环计算一个表达式的值，这个表达式是___(30) ______ Private Sub Comma nd1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNext iEnd Sub(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分)Visual Basic中有三种类型的模块文件，即类模块、标准模块和—窗体—模块。