Vb歷年試題分析.doc

考點(diǎn)1、變量、表達(dá)式及函數(shù)歷年試題：2008年9月 （12）、（13）、（14）、（15）、（19）答案：（12）D、（13）C、（14）B、（15）D、（19）A2008年3月（12）、（13）、（15）(12) 在Visual Basic中，表達(dá)式3*25 mod 3的值是（）A）1 B) 0 C)3 D)出現(xiàn)錯(cuò)誤提示（13）在以下選項(xiàng)中，不合法的Visual Basic的變量名是（）A）a5b B)_xyz c)a_b D)andif(15)現(xiàn)有語句：Y=IIF（X0，X mod 3,0）設(shè)X=10，則Y的值是（）A）0 B）1 C）3 D）語句錯(cuò)誤 答案：（12）A、（13）B、（15）B2007年9月（14）（14）執(zhí)行以下程序后輸出的是Private Sub Command1_Click() Ch$=”AABCDEFGH” Print Mid(Righ(ch$,6),Len(left(ch$,4),2) End Sub A)CDEFGH B)ABCD C)FG D)AB答案：（14）C2007年4月（11）、（12）（11）下面可以正確定義兩個(gè)整型變量和一個(gè)字符串變量的語句是（）A）Dim n,m As Interger, s As String B)Dim a%, b$, c As StringC) Dim a As Integer, b,c As String D)Dim x%,y As integer, z As String（12）下列表達(dá)式中不能判斷x是否為偶數(shù)的是（）。A）x/2=int(x/2) B) x mod 2=0 C)Fix(x/2)=x/2 D)x2=0答案：（11）D、（12）D2006年9月（13）、（15）、（16）（13）設(shè)a=2,b=3,c=4,下列表達(dá)式的值是（）。Not a=c OR 4*c=b2 And ba+c A)-1 B)1 C)True D)False答案：D考點(diǎn)及難點(diǎn)2、控制結(jié)構(gòu)歷年試題：2008年9月2008年4月2007年9月（27）下面程序執(zhí)行時(shí)，在窗體上顯示的是 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 k Next k Print a(a(3)a(7) Mod a(5) End Sub A）3 B）5 C）7 D)9（30）下面程序的輸出結(jié)果是 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub Private Sub proc(ch As String) S=” For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub A）ABCDEF B）FEDCBA C）A D）F （31）某人編寫了一個(gè)能夠返回?cái)?shù)組a中10個(gè)數(shù)中最大數(shù)的函數(shù)過程，代碼如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)a(max) Then max = k End If Next k MaxValue = max End Function 程序運(yùn)行時(shí)，發(fā)現(xiàn)函數(shù)過程的返回值是錯(cuò)的，需要修改，下面的修改方案中正確的是 A）語句max = 1應(yīng)改為max = a(1) B）語句For k = 2 To 10應(yīng)改為For k = 1 To 10 C）If語句中的條件a(k)a(max)應(yīng)改為a(k)max D）語句MaxValue = max 應(yīng)改為MaxValue = a(max) （32）在窗體上畫一個(gè)名稱為Command1的命令按鈕，并編寫以下程序： Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n9 Print t End Sub 此程序計(jì)算并輸出一個(gè)表達(dá)式的值，該表達(dá)式是 A）9！ B）10！ C）1！+2！+9！ D）1！+2！+10?。?4）某人設(shè)計(jì)了下面的函數(shù)fun，功能是返回參數(shù)a中數(shù)值的位數(shù) Function fun(a As Integer) As Integer Dim n% n = 1 While a 10 = 0 n = n + 1 a = a 10 Wend fun = n End Function 在調(diào)用該函數(shù)時(shí)發(fā)現(xiàn)返回的結(jié)果不正確，函數(shù)需要修改，下面的修