2005VB試題解析.ppt

1、2005VB試題解析,一、填空題（每空1分，共10分）,A=5 And A=10,1數(shù)值表達式x+1/y*Exp(a*t)+z所表示的常數(shù)式子為（ ）。,2表示條件5A10（ ）。,3數(shù)值表達式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)定義的數(shù)組a和b一共有（ ）個元素。,6要把圖形文件”d:p1.jpg”裝置到圖片框Picture3上，使用的語句是（ ）。,Picture3.Picture=LoadPic

2、ture(“D:p1.jpg”),False,7在窗體上使用Print方法輸出列表框List1中序號為5項目內(nèi)容，語句為（ ）。,8當單選按鈕OptionButton的Value屬性為（ ）時，表示該單選按鈕處于未選中狀態(tài)。,Print List1.List(5),9自定義函數(shù)過程Cap的功能是求字符串X的首字符。如果首字符是字母，還要把它轉換為大寫字母，則該自定義函數(shù)過程為 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下列程序段執(zhí)行后，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在程序中，能否出現(xiàn)語句：Dim A(1 To N)？正確的回答是( )。 A)不可以 B)若在這個語句前面已經(jīng)把N設置為正整數(shù)的符號常量，就可以出現(xiàn)這個語句 C)若在這個語句前面已經(jīng)把N設置為正整數(shù)值，就可以出現(xiàn)這個語句 D)B和C都對,B,17設有數(shù)組說明語句： Dim c(-1 To 1,1 To 5) 則下列表示數(shù)組c的元素選項中( )是正確的。 A)c(i+j) B)c(i)(j) C)c(i+1,j-1) D)c(1,0),C,18在以下關

6、于變量作用域的描述中，不正確的是( ) A)在某過程級變量與全局變量同時，全局變量在這個過程中就會被屏蔽 B)靜態(tài)變量不是模塊級或工程級變量，其作用域只限于在它所定義的過程內(nèi)部 C)在某一個過程中定義的變量的作用域只能是這一過程 D)在某一個過程中定義的變量的作用域只能是這一模塊,D,19假設已定義子過程p,它有3個數(shù)值參數(shù)，再設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屬性被修改時，會引發(fā)( )事件。 A)Change B)

7、Click C)GotFocus D)KeyPress,A,三、程序閱讀題（共24分）,1寫出執(zhí)行下列事件過程的輸出結果。,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寫出執(zhí)行下列事件過程的輸出結果。,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給出下面程序代碼，寫出執(zhí)行事件過程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。寫出以下事件過程執(zhí)行后的輸出結果。,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事件過程的功能是：用隨機函數(shù)產(chǎn)生一個有10個元素的數(shù)組a，在數(shù)組a中的元素是互不相等的兩位隨機數(shù)，并在窗體上輸出該結果。,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(“輸出參賽同學人數(shù):”) 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位評判員給出?，F(xiàn)用以下程序把每個參賽同學的姓名

14、及其得分作為記錄存放到隨機文件Match.dat中，以備后用。,Len=Len(Singer),Put #1,Singer,五、程序設計題（第1題10分，第2題6分，共16分）,1某校舉行田徑運行會，跳高比賽共有8人參加，比賽結果如下表：,以上運行員的姓名及成績已經(jīng)通過下面的Form_Load事件過程分別存放在Player數(shù)組和H數(shù)組中：,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,現(xiàn)在編寫一個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 對數(shù)組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),