2005VB試題解析.ppt

1、2005VB試題解析,一、填空題（每空1分，共10分）,A=5 And A=10,1數(shù)值表達(dá)式x+1/y*Exp(a*t)+z所表示的常數(shù)式子為（ ）。,2表示條件5A10（ ）。,3數(shù)值表達(dá)式11 Mod 9 2的值為（ ）。,3,63,4若x=2, y=4和 z=6, 則邏輯表達(dá)式 Not(xy) Or x+y+z50 And 100/zy的值（ ）。,5用語(yǔ)句Dim a(2 To 7,6), b(-10 To 10)定義的數(shù)組a和b一共有（ ）個(gè)元素。,6要把圖形文件”d:p1.jpg”裝置到圖片框Picture3上，使用的語(yǔ)句是（ ）。,Picture3.Picture=LoadPic

2、ture(“D:p1.jpg”),False,7在窗體上使用Print方法輸出列表框List1中序號(hào)為5項(xiàng)目?jī)?nèi)容，語(yǔ)句為（ ）。,8當(dāng)單選按鈕OptionButton的Value屬性為（ ）時(shí)，表示該單選按鈕處于未選中狀態(tài)。,Print List1.List(5),9自定義函數(shù)過(guò)程Cap的功能是求字符串X的首字符。如果首字符是字母，還要把它轉(zhuǎn)換為大寫(xiě)字母，則該自定義函數(shù)過(guò)程為 Function Cap(ByVal X As String) As String Cap=( ) End Function,Ucase(Left(X,1),10若在標(biāo)準(zhǔn)模塊中以關(guān)鍵字Public定義子過(guò)程，則在( )中

3、都可以調(diào)用該子過(guò)程。,整個(gè)應(yīng)用程序,二、選擇題（每題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控件的( )屬性不會(huì)影響控件的顯示和外觀(guān)。 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)圖片框和標(biāo)簽 B)圖像框和標(biāo)簽 C)圖片框和圖像框 D)圖片框、圖像框和標(biāo)簽,A,12屬性( )決定控件在父對(duì)象中的位置。 A)CurrentX,CurrentY B)Height,Width C)Left,Top D)Max,Min,C,13 ( )控件沒(méi)有Height和Width屬性。 A)復(fù)選框 B)單選按鈕 C)計(jì)時(shí)器 D)驅(qū)動(dòng)器列表框,C,14刪除列表框中的某一個(gè)項(xiàng)目，需要使用( )方法。 A)Clear B)Remove C)Move D)

5、RemoveItem,D,15 組合框控件不擁有( )屬性。 A)ScrollBar B)Index C)BackColor D)Top,A,16在程序中，能否出現(xiàn)語(yǔ)句：Dim A(1 To N)？正確的回答是( )。 A)不可以 B)若在這個(gè)語(yǔ)句前面已經(jīng)把N設(shè)置為正整數(shù)的符號(hào)常量，就可以出現(xiàn)這個(gè)語(yǔ)句 C)若在這個(gè)語(yǔ)句前面已經(jīng)把N設(shè)置為正整數(shù)值，就可以出現(xiàn)這個(gè)語(yǔ)句 D)B和C都對(duì),B,17設(shè)有數(shù)組說(shuō)明語(yǔ)句： Dim c(-1 To 1,1 To 5) 則下列表示數(shù)組c的元素選項(xiàng)中( )是正確的。 A)c(i+j) B)c(i)(j) C)c(i+1,j-1) D)c(1,0),C,18在以下關(guān)

6、于變量作用域的描述中，不正確的是( ) A)在某過(guò)程級(jí)變量與全局變量同時(shí)，全局變量在這個(gè)過(guò)程中就會(huì)被屏蔽 B)靜態(tài)變量不是模塊級(jí)或工程級(jí)變量，其作用域只限于在它所定義的過(guò)程內(nèi)部 C)在某一個(gè)過(guò)程中定義的變量的作用域只能是這一過(guò)程 D)在某一個(gè)過(guò)程中定義的變量的作用域只能是這一模塊,D,19假設(shè)已定義子過(guò)程p,它有3個(gè)數(shù)值參數(shù)，再設(shè)a為實(shí)型變量，調(diào)用子過(guò)程p的正確語(yǔ)句為( ) 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當(dāng)目錄列表框的Path屬性被修改時(shí)，會(huì)引發(fā)( )事件。 A)Change B)

7、Click C)GotFocus D)KeyPress,A,三、程序閱讀題（共24分）,1寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。,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寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。,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寫(xiě)出運(yùn)行下列程序后窗體的輸出結(jié)果。,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給出下面程序代碼，寫(xiě)出執(zhí)行事件過(guò)程Form_Click的輸出結(jié)果。,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假設(shè)窗體上放置了一個(gè)計(jì)時(shí)器Timer1,其Interval屬性設(shè)置為100。寫(xiě)出以下事件過(guò)程執(zhí)行后的輸出結(jié)果。,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事件過(guò)程的功能是：用隨機(jī)函數(shù)產(chǎn)生一個(gè)有10個(gè)元素的數(shù)組a，在數(shù)組a中的元素是互不相等的兩位隨機(jī)數(shù)，并在窗體上輸出該結(jié)果。,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(“輸出參賽同學(xué)人數(shù):”) Open “match.dat” for Random As #1 _(9)_ For i=1 To N With Singer .Name=InputBox(“歌手姓名”) .A=InputBox(“輸入評(píng)判A的評(píng)分”) .B=InputBox(“輸入評(píng)判A的評(píng)分”) .C=InputBox(“輸入評(píng)判A的評(píng)分”) .D=InputBox(“輸入評(píng)判A的評(píng)分”) End With _(10)_ Next I Close #1 End Sub,4某校舉行校園歌手卡拉OK大賽，參賽同學(xué)的得分分別由4位評(píng)判員給出。現(xiàn)用以下程序把每個(gè)參賽同學(xué)的姓名

14、及其得分作為記錄存放到隨機(jī)文件Match.dat中，以備后用。,Len=Len(Singer),Put #1,Singer,五、程序設(shè)計(jì)題（第1題10分，第2題6分，共16分）,1某校舉行田徑運(yùn)行會(huì)，跳高比賽共有8人參加，比賽結(jié)果如下表：,以上運(yùn)行員的姓名及成績(jī)已經(jīng)通過(guò)下面的Form_Load事件過(guò)程分別存放在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)=“徐強(qiáng)”: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)在編寫(xiě)一個(gè)Form_Click事件過(guò)程將比賽結(jié)果排出名次并按照下列格式在窗體上輸出。成績(jī)相同的并列名次。,名次姓名成績(jī) 1 陳剛1.81 2 李輝1.78 郭大偉1.78 4 王小虎1.76 5 徐強(qiáng) 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 對(duì)數(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 輸入結(jié)果 Print 名次, 姓名, 成績(jī) 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),