2012VB试题 - 实际考试题.doc

姓名 学号 学院 专业 座位号 ( 密 封 线 内 不 答 题 )密封线线_ _ 诚信应考,考试作弊将带来严重后果！ 华南理工大学期末考试 VB高级语言程序设计 试卷注意事项：1. 考前请将密封线内各项信息填写清楚； 2. 所有答案请直接答在试卷上(或答题纸上)； 3考试形式：闭卷； 4. 本试卷共 五 大题，满分100分，考试时间120分钟。题 号一二三四五总分得 分评卷人一、 填空题（每空1分，共10分）1. VB中过程的参数传递有两种方式：（ ）和（ ）。2. 若 x=2，y=4 和 z=6，则逻辑表达式 Not(xy) Or x+y+z50 And 100/zy 的值为 （ ）。3. 用随机函数Rnd生成大于或等于1，小于10的随机整数值的表达式：（ ）。4. 已知数组元素A(1)=4,A(2)=2,A(3)=1,A(4)=3，则A(A(1)+A(2)-A(4)的值为 ( )。5. Dim a#语句声明变量a是（ ）型变量。6. 若以写的方式打开顺序文件”d:file1.dat”(文件号为5)，则正确的语句是（ ）。7. 在窗体上使用Print方法输出列表框List1中序号为5项目内容，语句为（ ）。8. 向组合框Combo5添加序号为3，内容为“华南理工大学”的项目，使用的语句为（ ）9. 当单选按钮OptionButton的Value属性为（ ）时，表示该单选按钮处于未选中状态。10. 若在标准模块中以关键字public定义子过程，则在（ ）中都可以调用该子过程。二、 单项选择题（每题1.5分，共30分）1、 指示一个窗体位置的值是窗体的（ ）A）对象 B）事件 C）属性 D）方法2、 在VB中，下列变量名不合法的是_。A. 姓名 B. a$bC. sum%D. n0_13、 数学式子sin25写成VB表达式是_A. sin25B. Sin（25）C. Sin（25*3.14/180）对D. Sin(25)4、 设窗体上有一个滚动条,单击滚动条右端的按钮一次，滚动条移动一定的刻度值，决定此刻度值的属性是_。A. Max 对B. MinC. SmallChangeD. Largechange5、 下面循环语句中在任何情况下都至少执行一次循环体的是_A.Do While 对B.While 循环体 循环体Loop WendC.Do D. Do Until 循环体 循环体Loop Until Loop6、 执行下列程序段输出结果是（ ）X%=2Do while x 2*b OR a=c AND b c OR cd的值是 。A. 1 B. True C. False D. -110、 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 。 A. 工程资源管理器窗口 B. 工具箱窗口 C. 代码窗口 D. 属性窗口11、 运行下列程序，结果为 。const a=2a=4 ：print aA 2 B. 4 C. 0 D. 出错12、 要用数组A存放如下方阵的数据，如果不浪费存储空间，说明数组A的语句应是 。9 2 32 5 63 6 8 ADim A(9) As Integer BDim A(3,3) As Integer CDim A(-1 to 1,-3 to -1) As Single DDim A(-3 to -1,1 to 3) As Integer13、 在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是 。AText1.FontName= HScroll1.MaxBText1.FontSize= HScroll1.MinCText1.FontSize= HScroll1.valueDText1.FontBold= HScroll1.value14、 按文件的内容划分有 。A顺序文件和随机文件BASCII文件和二进制文件C程序文件和数据文件D磁盘文件和打印文件15、 在下列语句中，数组a说明正确的是（ ）A） n=5 : Dim a(1 to n) As IntegerB） Dim a(10) As Integer : ReDim a(1 to 12)C） Dim a() As Single : ReDim a(3, 4) As IntegerD） Dim a() As Integer : n=5 : ReDim a(1 to n) As Integer三、 程序阅读题（每题6分，共24分） 1 写出执行下列事件过程的输出结果。Private Sub Form_Click()Dim i, x, yFor i = 1 To 3x = i*i + 2Select Case xCase 6y = x/4 + 6Case 10 To 20y = x*xCase Elsey = 0End SelectPrint x=; x, y=; yNext iEnd Sub2 写出单击Command1按钮后，下列程序运行的结果。Private Sub Command1_Click()Dim a(1 To 9) As IntegerDim b(1 To 3, 1 To 3) As IntegerDim i%, j%For i = 1 To 9a(i) = iNext iFor i = 1 To 3For j = 1 To 3b(i, j) = 2*a(i*j)If j=i Then Print b(i, j),Next jPrintNext iEnd Sub3 写出以下程序的运行，单击Form1窗体后的结果。Private Sub Form1_Click ( )Print *；Tab(9);3,Tab(18);6PrintFor I=15 to 16Print I;For j=3 To 6 Step 3Print Tab(3*j);j*I;Next jPrint Next IEnd Sub4 写出单击Command1按钮后，下列程序运行的结果。Dim x As IntegerPrivate Sub Command1_Click()x = 100Call s1: Print xCall s2: Print xEnd SubPrivate Sub s1()Dim x As Integerx = x + 200: Print xEnd SubPrivate Sub s2()x = x + 200: Print xEnd Sub四、 程序填空题（每空2分，共22分）1、下面事件过程的功能是：输入某个学生某门课程的百分制成绩，并根据成绩输出评语，若0成绩60时，评语为“差”；若60成绩70时，评语为“通过”；若70成绩80时，评语为“中等”；若80成绩90时，评语为“良好”；若90成绩100时，评语为“优秀”；在程序中填入适当的内容Private Sub Command1_Click( )Dim s！s=InputBox(“请输入学生的成绩“)If 0=s And s=90Print “优秀“Case Is =80Print “良好“Case Is 8 Print “中等“Case Is =60Print “通过“ 9 Print “差“End SelectEnd IfEnd Sub2、设计一个计时程序。该程序用户界面如图所示，由一个文本框（text 1），和两个按钮：命令按钮1（ Command1）按钮，命令按钮2（Command2）组成。程序运行后，用户按开始（Command1）按钮，则开始计时，文本框中显示秒数，按停止（Command2）按钮，则计时停止。Option ExplicitDim iPrivate Sub Commandl_Click( )i=0Timer1.Interval=1000Timer1.Enabled= 4 End SubPrivate Sub Command2_Click( ) Timer1.Enabled= 5 End subPrivate Sub Form_Load( )Timer1.Enabled=FalseText1.Text = End Sub Private Sub Timer1_Timer( )i=i+ 6 Text1.Text= i End Sub3、下列程序在屏幕上如图显示学生的各科成绩及总分，请完成程序。Private Type stu no As String * 8 name As String * 8 maths As Integer physics As Integer programming As Integer total As IntegerEnd TypePrivate Sub Command1_Click() Dim student As 10 student.no = 123 = 陈东 student.maths = 96 student.physics = 88 gramming = 83student.total= 11 Print 学号: ; student.no Print 姓名: ; Print 数学: ; student.maths Print 物理: ; student.physics Print 编程: ; gramming Print 总分: ; student.totalEnd Sub4、下面事件过程的功能是：用迭代法求的近似值。给定迭代公式为：当迭代到时，xn+1作为的近似值。在横线上填入适当的内容。Private Sub Command1_Clilck()Const eps = 0.000001Dim a!, x!, u!, v!a = Val(InputBox(Enter a)v = aDo u = v = (2 * u + a/u2)/3Loop While Print The