微机二年级vb期末试题.doc

微机二年级（VISUAL BASIC 6.0 程序设计）期末试题一、选择题：(每题2分，共20分)1. 如果要在单击时执行一段代码，则应将代码写在_事件过程中。2. 一个工程中可能包括多种类型的文件，其中扩展名为.vbp的文件表示_文件。3. 设 A=5，B=6，C=7，D=8，表达式 32*B OR A=C AND BC OR CD 的值是_。4. 表达式 10 MOD 164 的值是_。5. VB 程序的三种基本结构是：顺序、选择和_。6. 表达式 len(我的英文名 tom)的值是_。7. 如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有_个元素。8. 定时器控件的Interval属性值是指时间间隔，单位为_9. 在过程调用中，参数的传递可分为两种方式，其中按_传递方式是默认的。10. 菜单中的“访问键”可通过在访问键字母前插入_符号实现。二、选择题：(每题2分，共60分)（ ）1设a=“Visual Basic”，下面使b=“Visual”的语句是A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6)（ ）2.要使变量 x 赋值为 1100 间（含 1，不含 100）的一个随机整数，正确的语句是_。A. x=Int(100*Rnd) B. x=Int(101*Rnd) C. x=1+Int(100*Rnd) D. x=1+Int(99*Rnd)（ ）3.Visual Basic 表达式 Cos(0)+Abs(1)+Int(Rnd)的值是_。A. 1 B. -1 C. 0 D. 2（ ）4.若 x=1，执行语句 If x Then x = 0 Else x = 1 的结果是_。A.实时错误 B.编译错误 C. x=1 D. x=0（ ）5下列叙述不正确的是 A、 注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译 B、 注释语句可以放在代码中的任何位置 C、 注释语句不能放在续行符的后面 D、 代码中加入注释语句的目的是提高程序的可读性 （ ）6.下列 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是_。A. If sex=男And age0 Then n=n+1B. If sex=男And age40 and(duty=教授or duty=副教授) Then n=n+1C. If sex=男And age40 And Right(duty,2)=教授 Then n=n+1D. If sex=男And age2*b OR a=c AND bc OR cd下列表达式的值是A.1 B. 0 C. True D. False（ ）26窗体上有一个公用对话框CommonDialog1，则语句CommonDialog1.ShowSave的作用是_。A.显示打开对话框 B.显示颜色对话框 C.显示字体对话框 D.显示另存为对话框（ ）27要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性（ ） ADir BPath CDrive DFileName（ ）28为清除图片框 Picture1 中的图形，下列方法正确的是_。A. Picture1.Picture=LoadPicture() B. Set Picture1.Picture=LoadPictureC.Picture1.Picture=LoadPicture(C:Winap.Bmp) D. Set Picture1.Picture=LoadPicture(C:Winap.Bmp)（ ）29下面对语句 Open Rizhi.dat For Output As #1的功能描述错误的是_。A.以顺序输出模式打开文件Rizhi.datB.如果文件Rizhi.dat不存在，则建立一个新文件C.如果文件Rizhi.dat已存在，则打开该文件，新写入的的数据将添加到文件末尾D.如果文件Rizhi.dat已存在，则打开该文件，新写入的的数据将覆盖原来的数据（ ）30 FileFiles.Pattern=*.dat语句执行后，FileFiles 文件列表框中显示_。A. 只包含文件扩展名为.dat的文件 B.第一个 dat 文件C.包含所有的文件 D.显示磁盘的路径三、程序题：(每题5分，共20分)1k = 0 For i = 1 To 4 For j = 1 To 3 If j Mod 2 = 0 Then k = k + 1 k = k + 1 Next Next上述代码执行后，k=_2Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = ABCDEFG For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print YEnd Sub上述代码执行后，Y_3Private Sub Command1_Click() Dim intA(1 To 4) As Integer Dim i As Integer For i = 1 To 4 intA(i) = i Next Call Proc1(intA() For i = 1 To 4 Print intA(i) Next End Sub Private Sub Proc1(B() As Integer) Dim i As Integer For i = 1 To 4 B(i) = 2 * i Next End Sub上述代码执行后，输出结果是：_4Private x As IntegerPrivate Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = zEnd Sub 程序运行后，连续 3 次单击命令按钮后，3 个标签中显示的内容分别是_。答题卷班级：_姓名：_一、 选择题：(每题2分，共20分)1_2. _3. _4._5. _6_7. _8. _9._10. _二、 选择题：(每题2分，共60分)1-5：_， _，_，_，_6-10：_， _，_，_，_11-15：