2005VB试题解析.ppt

1、2005VB试题解析,一、填空题（每空1分，共10分）,A=5 And A=10,1数值表达式x+1/y*Exp(a*t)+z所表示的常数式子为（ ）。,2表示条件5A10（ ）。,3数值表达式11 Mod 9 2的值为（ ）。,3,63,4若x=2, y=4和 z=6, 则逻辑表达式 Not(xy) Or x+y+z50 And 100/zy的值（ ）。,5用语句Dim a(2 To 7,6), b(-10 To 10)定义的数组a和b一共有（ ）个元素。,6要把图形文件”d:p1.jpg”装置到图片框Picture3上，使用的语句是（ ）。,Picture3.Picture=LoadPic

2、ture(“D:p1.jpg”),False,7在窗体上使用Print方法输出列表框List1中序号为5项目内容，语句为（ ）。,8当单选按钮OptionButton的Value属性为（ ）时，表示该单选按钮处于未选中状态。,Print List1.List(5),9自定义函数过程Cap的功能是求字符串X的首字符。如果首字符是字母，还要把它转换为大写字母，则该自定义函数过程为 Function Cap(ByVal X As String) As String Cap=( ) End Function,Ucase(Left(X,1),10若在标准模块中以关键字Public定义子过程，则在( )中

3、都可以调用该子过程。,整个应用程序,二、选择题（每题1.5分，共30分）,1 x=x+2 wend A)* B)* C)* D)*,D,7下列程序段执行后，i的输出值是( ) For i=1 To 3 i=i+1 Next i Print i A)3 B)4 C)5 D)6,C,8控件的( )属性不会影响控件的显示和外观。 A)Name B)Caption C)FontName D)BackColor,A,9文本框可以使用( )方法。 A)Print方法 B)SetFocus C)Print方法和Cls方法 D)Print方法、Cls方法和SetFocus方法,B,10命令按钮不能接受( )事

4、件。 A)GotFocus B)LostFocus C)Click D)DblClick,D,11拥有AutoSize属性的控件是( )。 A)图片框和标签 B)图像框和标签 C)图片框和图像框 D)图片框、图像框和标签,A,12属性( )决定控件在父对象中的位置。 A)CurrentX,CurrentY B)Height,Width C)Left,Top D)Max,Min,C,13 ( )控件没有Height和Width属性。 A)复选框 B)单选按钮 C)计时器 D)驱动器列表框,C,14删除列表框中的某一个项目，需要使用( )方法。 A)Clear B)Remove C)Move D)

5、RemoveItem,D,15 组合框控件不拥有( )属性。 A)ScrollBar B)Index C)BackColor D)Top,A,16在程序中，能否出现语句：Dim A(1 To N)？正确的回答是( )。 A)不可以 B)若在这个语句前面已经把N设置为正整数的符号常量，就可以出现这个语句 C)若在这个语句前面已经把N设置为正整数值，就可以出现这个语句 D)B和C都对,B,17设有数组说明语句： Dim c(-1 To 1,1 To 5) 则下列表示数组c的元素选项中( )是正确的。 A)c(i+j) B)c(i)(j) C)c(i+1,j-1) D)c(1,0),C,18在以下关

6、于变量作用域的描述中，不正确的是( ) A)在某过程级变量与全局变量同时，全局变量在这个过程中就会被屏蔽 B)静态变量不是模块级或工程级变量，其作用域只限于在它所定义的过程内部 C)在某一个过程中定义的变量的作用域只能是这一过程 D)在某一个过程中定义的变量的作用域只能是这一模块,D,19假设已定义子过程p,它有3个数值参数，再设a为实型变量，调用子过程p的正确语句为( ) 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),C,20当目录列表框的Path属性被修改时，会引发( )事件。 A)Change B)

7、Click C)GotFocus D)KeyPress,A,三、程序阅读题（共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 i End Sub,2写出执行下列事件过程的输出结果。,Private Sub Form_Click() Dim i%, j%,x%,y%

8、 For i=1 To 3 For j=2 To 3 x=x+j Next j y=y+I Print x,y Next i End Sub,3写出运行下列程序后窗体的输出结果。,Dim a%,x% Private Sub Form_Activate() a=25 Call Zich(a) Print a,x End Sub Sub Zich(ByRef x%) x=sqr(x)*2 Print a,x End Sub,10 10 0,4给出下面程序代码，写出执行事件过程Form_Click的输出结果。,Private Sub Form_Click() Dim i% i=1 Do While

9、i=2 Print AA(i,BB(i-1,i+1),BB(AA(i-1,i+1),i) i=i+1 Loop End Sub Function AA(ByVal x, ByVal y) As Integer AA=x*x+y End Function Function BB(ByVal x, ByVal y) As Integer BB=x+y*y End Function,5假设窗体上放置了一个计时器Timer1,其Interval属性设置为100。写出以下事件过程执行后的输出结果。,Private Sub Timer1_Timer() Static m As Integer Dim n

10、As Integer If m4 Then m=m+1 : n=n+3 If m Mod 2 = 0 Then Print m,n End If End Sub,四、程序填空题（每空2分，共20分）,1在窗体上显示如右图所示的图形。,Private Sub Form_Click() Dim a, b For a=1 To 5 Print Tab(6-a); For b=1 To _ Print “*”; Next b _ Next a End Sub,2*a-1,Print,2求值。,Private Sub Form_Click() Dim N%，S！，C%，T%，I% N=InputBox(

11、“N=“) _(3)_ For I=1 To N C=C+I T=_(4)_ S=_(5)_ Next I Print S End Sub,T=1,T*I,S+C/T,3下面Form_Click事件过程的功能是：用随机函数产生一个有10个元素的数组a，在数组a中的元素是互不相等的两位随机数，并在窗体上输出该结果。,Private Sub Form_Click() Dim _(6)_ As Integer Dim i%, j%, x% Randomize For i=1 To 10 If i=1 Then a(i)=Int(Rnd*90+10) Else Do x=Int(Rnd*90+10)

12、For j=1 To i-1 If _(7)_ Then Exit For Next j If _(8)_ Then a(i)=x Loop Until j=I End If Print a(i); Next i End Sub,a(1 To 10),x=a(j),j=i,Privaet Type KaraOK Name as String*8 A As Single B As Single C As Single D As Single End Type Private Sub Form_Load() Dim Singer As KaraOK,I As Integer,N As Intege

13、r N=InputBox(“输出参赛同学人数:”) Open “match.dat” for Random As #1 _(9)_ For i=1 To N With Singer .Name=InputBox(“歌手姓名”) .A=InputBox(“输入评判A的评分”) .B=InputBox(“输入评判A的评分”) .C=InputBox(“输入评判A的评分”) .D=InputBox(“输入评判A的评分”) End With _(10)_ Next I Close #1 End Sub,4某校举行校园歌手卡拉OK大赛，参赛同学的得分分别由4位评判员给出。现用以下程序把每个参赛同学的姓名

14、及其得分作为记录存放到随机文件Match.dat中，以备后用。,Len=Len(Singer),Put #1,Singer,五、程序设计题（第1题10分，第2题6分，共16分）,1某校举行田径运行会，跳高比赛共有8人参加，比赛结果如下表：,以上运行员的姓名及成绩已经通过下面的Form_Load事件过程分别存放在Player数组和H数组中：,Dim Player(1 To 8) As String, H(1 To 8) As Single Private Sub Form_Load() Player(1)=“王小虎”:Player(2)=“赵铁军”:Player(3)=“康健民”:Player(

15、4)=“李辉” Player(5)=“陈刚”:Player(6)=“刘文山”:Player(7)=“徐强”:Player(8)=“郭大伟” H(1)=1.76: H(2)=1.65: H(3)=1.70: H(4)=1.78 H(5)=1.81: H(6)=1.60: H(7)=1.72: H(8)=1.78 End Sub,现在编写一个Form_Click事件过程将比赛结果排出名次并按照下列格式在窗体上输出。成绩相同的并列名次。,名次姓名成绩 1 陈刚1.81 2 李辉1.78 郭大伟1.78 4 王小虎1.76 5 徐强 1.72 6 康健民1.70 7 赵铁军1.65 8 刘文山1.60

16、,Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer Dim x As Single, s As String 对数组H排序 For i = 1 To 7 t = i For j = i + 1 To 8 If H(j) H(t) Then t = j Next j 交换H(i)与H(t) x = H(i) H(i) = H(t) H(t) = x 交换Player(i)与Player(t) s = Player(i) Player(i) = Player(t) Player(t) = s Next i 输入结果 Print 名次, 姓名, 成绩 Print 1, Player(1), H(1) For i = 2 To 8 If H(i) = H(i - 1) Then Print , Player(i), H(i) Else Print i, Player(i),