VB试题及其答案(20057).doc

高级语言程序设计（VB）试卷及答案 2005.7院（系）： 班级： 学号： 姓名： 注意事项: 1本试卷共五大题，满分100分，考试时间120分钟。 2所有答案请写在答卷上，答在其它地方无效； 3试卷作草稿纸，与答卷同时提交，答卷才有效。一、填空题（每题1分，共10分）1.数值表达式 x+1/y*Exp(a*t)+z 所表示的数学式子是（ ）。2数值表达式 11 Mod 9 2 的值为（ 3 ）。3表示条件 5A10 的逻辑表达式是（ 5=a And ay) Or x+y+z50 And 100/z=5, Is=5 And Is=10那么，在这3个Case子句中，正确的有（ B ）个。A） 0 B）1 C）2 D）36执行下列程序段输出结果是（ D ）。x%=2while x10Print “*”；x=x+2wendA)* B) * C) * D) *7下列程序段执行后，i 的输出值是（ C ）。For i=1 To 3i=i+1Next iPrint iA）3 B）4 C）5 D）68控件的( A )属性不会影响控件的显示和外观。A）Name B）Caption C）FontName D）BackColor9文本框可以使用（ B ）方法。A）Print方法 B）SetFocus方法 C）Print方法和Cls方法 D）Print方法、Cls方法和SetFocus方法10命令按钮不能接受( D )事件。A)GotFocusB)LostFocusC)ClickD)DblClick11拥有 Autosize 属性的控件是（ A ）。A）图片框和标签 （控件去适应内容） B）图像框和标签 C）图片框和图像框 D）图片框、图像框和标签12属性（ C ）决定控件在父对象中的位置。A）CurrentX、CurrentY B）Height、Width C）Left、Top D）Max、Min13（ C ）控件没有 Height 和 Width 属性。A）复选框 B）单选按钮 C）计时器 D）驱动器列表框14删除列表框中的某一个项目，需要使用（ D ）方法。 A) Clear B) Remove C) MoveD) RemoveItem15组合框控件不拥有( A )属性。A）ScrollBar B）Index C）BackColor D）Top16在程序中，能否出现语句：Dim A(1 to N)? 正确的回答是（ B ）。 A) 不可以 B) 若在这个语句前面已经把N设置为正整数的符号常量，就可以出现这个语句 C) 若在这个语句前面已经对N赋了正整数值，就可以出现这个语句 D) B) 和 C)都对17设有数组说明语句：Dimc（-To，To ），则下列表示数组c的元素选项中（ C ）是正确的。A) c(i+j) B) c(i)(j) C) c(i+1,j-1) D) c(1,0)18在以下关于变量作用域的描述中，不正确的是（ D ）。 A) 当某过程级变量与全局变量同名，全局变量在这个过程中就会被屏蔽 B) 静态变量不是模块级或工程级变量，其作用域只限于在它所定义的过程内部 C) 在某一个过程中定义的变量的作用域只能是这一过程 D) 在某一个模块中定义的变量的作用域只能是这一模块19假设已定义子过程p，它有3个数值参数；再设a为实型变量，调用子过程p的正确语句为（ C ）。A) p B) call p 0.5, a, 100 C) call p ( 0.5, cos(0.1), a+10 ) D) p ( 0.5, 1.2, 100 )20当目录列表框的 Path属性被修改时，会引发( A )事件。A）Change B）Click C）GotFocus D）KeyPress三、程序阅读题(第1,2题各6分，其余题各4分，共24分)1写出执行下列事件过程的输出结果。Private Sub Form_Click() Dim i, x, y For i = 1 To 3 x = (-2) i + 2 Select Case x Case 6, Is = -3 y = x / 4 + 6 Case 10 To 50 y = x * x / 2 Case Else y = 0 End Select Print x=; x, y=; y Next iEnd Subx= 0 y= 0 x= 6 y= 7.5 x= -6 y= 4.5 2写出执行下列事件过程的输出结果。Private Sub Command1_Click() Dim i%, j%, x%, y% x = 0: y = 1 For i = 1 To 3 For j = 2 To 3 x = x + j Next j y = y + i Print x, y Next iEnd Sub5 210 415 73. 写出运行程序后下列窗体模块的输出结果。Dim a%, x%Private Sub Form_Activate() a = 25 Call Zich(a) Print a, x End SubSub Zich(ByRef x%) x = Sqr(x) * 2 Print a, xEnd Sub10 1010 04给出下面程序代码，写出执行事件过程Form_Click的输出结果。Private Sub Form_Click() Dim i% i=1Do While i=2 Print AA(i, BB(i - 1, i + 1), BB(AA(i - 1, i + 1), i) i=i+1LoopEnd SubFunction AA(ByVal x, ByVal y) As Integer AA = x * x + yEnd FunctionFunction BB(ByVal x, ByVal y) As Integer BB = x + y * yEnd Function5 314 85假设窗体上放置了一个计时器Timer1，其Interval属性设置为100。写出以下事件过程执行后的输出结果。Private Sub Timer1_Timer() Static m As Integer Dim n As Integer If m H(k) Then k = j Next j If k i Then x = H(i): H(i) = H(k): H(k) = x s = Player(i): Player(i) = Player(k): Player(k) = s End If Next i Print 名次, 姓名, 成绩Print 1, Player(1), Format(H(1), .00) For i = 2 To 8 If H(i) H(i - 1) Then Print i, Else Print , Print Player(i), Format(H(i), .00) Next iEnd Sub2已知函数 ，其中为双曲正弦函数。使用子过程编写程序，输入x的值，求的值。 Private Sub sh(ByVal t As Double, s As Double) s = (Exp(t) - Exp(-t) / 2End SubPrivate Sub Command1_Click() Dim x As Do