Vb歷年試題分析.doc

考點1、變量、表達式及函數歷年試題：2008年9月 （12）、（13）、（14）、（15）、（19）答案：（12）D、（13）C、（14）B、（15）D、（19）A2008年3月（12）、（13）、（15）(12) 在Visual Basic中，表達式3*25 mod 3的值是（）A）1 B) 0 C)3 D)出現錯誤提示（13）在以下選項中，不合法的Visual Basic的變量名是（）A）a5b B)_xyz c)a_b D)andif(15)現有語句：Y=IIF（X0，X mod 3,0）設X=10，則Y的值是（）A）0 B）1 C）3 D）語句錯誤 答案：（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）下面可以正確定義兩個整型變量和一個字符串變量的語句是（）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）下列表達式中不能判斷x是否為偶數的是（）。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）設a=2,b=3,c=4,下列表達式的值是（）。Not a=c OR 4*c=b2 And ba+c A)-1 B)1 C)True D)False答案：D考點及難點2、控制結構歷年試題：2008年9月2008年4月2007年9月（27）下面程序執(zhí)行時，在窗體上顯示的是 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）下面程序的輸出結果是 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）某人編寫了一個能夠返回數組a中10個數中最大數的函數過程，代碼如下： 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 程序運行時，發(fā)現函數過程的返回值是錯的，需要修改，下面的修改方案中正確的是 A）語句max = 1應改為max = a(1) B）語句For k = 2 To 10應改為For k = 1 To 10 C）If語句中的條件a(k)a(max)應改為a(k)max D）語句MaxValue = max 應改為MaxValue = a(max) （32）在窗體上畫一個名稱為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 此程序計算并輸出一個表達式的值，該表達式是 A）9！ B）10！ C）1！+2！+9！ D）1！+2！+10！（34）某人設計了下面的函數fun，功能是返回參數a中數值的位數 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 在調用該函數時發(fā)現返回的結果不正確，函數需要修改，下面的修