VB考前輔導(dǎo)模擬試卷四（中等）.doc

VB考前輔導(dǎo)模擬試卷四（中等）試題1（每小題2分，共8分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序說(shuō)明】運(yùn)行時(shí)先在文本框Text1中輸入n的值后回車(chē)，如果值在1,10之間，則清空文本框Text2，并使它獲得焦點(diǎn)。然后在在文本框Text2中輸入正確的a值后按回車(chē)，將以下和式的計(jì)算結(jié)果S顯示在結(jié)果文本框Text3中。【程序】Dim n As BytePrivate Sub Text1_KeyPress(KeyAscii As Integer) n = Val(Text1.Text) If KeyAscii = 13 And （1）Then Text2.Text = Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) Dim a As Byte, i As Byte Dim s As Long, tx As Long If （2）Then Exit Sub End If a = Val(Text2.Text) If a 9 Then Exit Sub End If tx = a （3） For i = 2 To n （4） s = s + tx Next i Text3.Text = Str(s)End Sub【供選擇的答案】（1）An 0 And n = 0 And n = 1 Or n 0 And n = 11（2）AKeyAscii = 13BKeyAscii 13 CKeyAscii = n DKeyAscii n（3）As = txBtx = sCs = 0Ds = a * 10 + a（4）Atx = a * 10 + aBtx = tx + aCtx = tx * a + aDtx = tx * 10 + a試題2（每小題2分，共8分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f(shuō)明】抽獎(jiǎng)程序界面如圖，先模擬生成1000個(gè)身份證號(hào)放在數(shù)組A中，運(yùn)行時(shí)標(biāo)簽框（Label1）中顯示第一個(gè)身份證號(hào)，單擊“開(kāi)始”命令按鈕（Command1）后，命令按鈕改標(biāo)題改為“停止”，標(biāo)簽框以每隔0.1秒順序變化顯示數(shù)組中的身份證號(hào)，單擊“停止”按鈕身份證號(hào)變動(dòng)停止，同時(shí)按鈕標(biāo)題改為“開(kāi)始”?！境绦颉?（5） Dim A(0 To 999) As StringPrivate Sub Command1_Click() If Command1.Caption = 開(kāi)始 Then n = 0 （6） Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 開(kāi)始 End IfEnd SubPrivate Sub Form_Load() Timer1. Interval = （7） Timer1.Enabled = False For i = 0 To 999 A(i) = For j = 1 To 18 A(i) = A(i) + Trim(Str(Int(Rnd * 10) 模擬身份證號(hào) Next j Next i Label1.Caption = A(0)End SubPrivate Sub Timer1_Timer() n = (n + 1) Mod 1000 （8） End Sub【供選擇的答案】（5）AOption Base 1BOption Base 0CDim n As IntegerDOption Explicit（6）ATimer1.Enabled = FalseBTimer1.Enabled = TrueCTimer1.Interval = 100DTimer1.Interval = 10（7）A10B100C1000D10000（8）ALabel1.Caption = Str(A(n)BPrint A(n)CPrint Str(A(n)DLabel1.Caption = A(n)試題3（每小題2分，共6分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f(shuō)明】運(yùn)行時(shí)在文本框(Text1)中輸入一個(gè)字符串后單擊“循環(huán)左移”按鈕（Command1），在列表框中顯示字符串循環(huán)左移一周的結(jié)果，注意第一個(gè)與最后一個(gè)都是原字符串?！境绦颉縋rivate Sub Command1_Click() Dim ss As String, tt As String Dim ll As Integer ss = Text1.Text ll = Len(ss) （9） Do List1.AddItem ss ss = （10） Loop While ss tt （11）End Sub【供選擇的答案】（ 9）Att = Bss = ttCtt = ssDtt = Right(ss, ll - 1)（10）ARight(ss, 1) + Left(ss, ll - 1)BLeft(ss, 1) + Right(ss, ll - 1)CMid(ss, 2, ll - 1)DRight(ss, ll - 1) + Left(ss, 1)（11）AList1.RemoveItem 0BList1.Text = ssCList1.AddItem ssDList1.List(ListCount - 1) = ss試題4（每小題2分，共8分）閱讀下列程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉緿im x As Integer, k As Integer, n As IntegerPrivate Sub Form_Click() Static k As Integer Dim m As Integer k = k + 2 m = m + 1 n = n + 1 Call proc(k , m) 第8行 Print k; m; n proc k, n Print k; m; nEnd SubPrivate Sub proc(x As Integer, y As Integer)第13行 Dim t As Integer t = x: x = y: y = tEnd Sub【供選擇的答案】（12）單擊窗體一次后在窗體上打印的結(jié)果為A1 2 1B1 2 1C2 1 1D1 2 3 1 2 3 1 2 1 2 1 1 1 1 2（13）如果再單擊窗體一次，則第二次單擊后在窗體上新打印的內(nèi)容為A1 2 2B4 1 2C2 1 2D1 3 2 2 2 1 4 1 2 2 1 2 2 3 1（14）如果將程序的第8行改為Call proc(k + 1, m)，再單擊窗體一次后在窗體上打印的結(jié)果為A2 3 1B1 3 1C2 1 2D2 1 1 1 3 2 1 3 1 1 3 2 2 3 1（15）如果將程序的第13行改為Private Sub proc(ByVal x As Integer, y As Integer)，再單擊窗體一次后在窗體上打印的結(jié)果為A2 2 1B1 2 1C1 1 1D4 4 3 2 2 2 1 2 1 1 1 1 4 4 4試題5（每小題2分，共8分）閱讀下列程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縋rivate Sub Command1_Click() Dim a As Integer, b As Integer, x As Integer a = Val(InputBox(a =) b = Val(InputBox(b =) x = a Do While Not (x Mod a = 0 And x Mod b = 0) x = x + a Loop Print xEnd Sub【供選擇的答案】（16）單擊Command1依次輸入8、6后，顯示：A2B24C14D1（17）單擊Command1依次輸入28、16后，顯示：A44B1C112D4（18）單擊Command1依次輸入3、5后，顯示：A15B1C8D125（19）單擊Command1依次輸入5、12353后，顯示：A空白B1C0D出錯(cuò)試題6（每小題2分，共8分）閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序說(shuō)明】運(yùn)行時(shí)產(chǎn)生10個(gè)在10,99之間的隨機(jī)整數(shù)后，從小到大輸出其中較小的5個(gè)。【程序】Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim t As Integer, i As Byte, j As Byte, k As Byte For i = 1 To 10 a(i) = （20） Next i Print 其中最小的5個(gè)數(shù)依次為：; For i = 1 To （21） k = i For j = i + 1 To 10 If（22）Then k = j Next j t = a(i): a(i) = a(k): a(k) = t （23） Next iEnd Sub【供選擇的答案】（20）AInt(Rnd * 90) + 9BInt(Rnd * 100) CInt(Rnd * 99) + 10DFix(Rnd * 90) + 10（21）A6B10C9D5（22）Aa(k) a(j)Ba(k) a(j)Da(i) Max Then Max = y If （34） Then Max = zEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer Dim M As Integer a = 11: b = 23: c = 98: d = 5: e = 45Print a; b; c; d; eM = （35） Print MEnd Sub【供選擇的答案】（32）AAs SigleB空白CAs Integer DAs String（33）AMax = yBMax = zCMax = xDMax = 0（34）Az MaxBz yDz y（35）ACall Max(Call Max(a, b, c), d, e)BMax(Max(a, b, c), Max(d, e,0)CMax Max(a, b, c), d, e DMax(Max(a, b, c), d, e)試題10（共10分）有一個(gè)函數(shù)：編程實(shí)現(xiàn)以下功能：?jiǎn)螕舸绑w（Form1）時(shí)，由InputBox函數(shù)輸入一個(gè)x，并由MsgBox函數(shù)同時(shí)顯示計(jì)算結(jié)果y和文字“是否結(jié)束計(jì)算？”，如果單擊“是”，則結(jié)束程序，否則可以單擊窗體繼續(xù)新的計(jì)算。試題11（共10分）編寫(xiě)一個(gè)用戶自定義函數(shù)Fatl用于計(jì)算n!的值，然后使用Ftal函數(shù)在窗體的Click事件過(guò)程中計(jì)算1!+3!+5!+7!+9!+11!的值并將結(jié)果打印在窗體中。試題12（共10分）如圖程序界面包括：一個(gè)圖片框（Picture1）用于畫(huà)圖、三個(gè)文本框分別用于輸入圓心坐標(biāo)（X, Y）和半徑值（Text1、Text2和Text3）和四個(gè)按鈕（畫(huà)圓Command1、保存Command2、加載圓Command3和結(jié)束Command4）。程序功能如下：（）Form的Load事件中已經(jīng)改變了圖片框的坐標(biāo)系。（）在文本框中輸入圓心坐標(biāo)和半徑值后，按“畫(huà)圓”按鈕，可以在圖片框畫(huà)出相應(yīng)的圓。（）在文本框中輸入圓心坐標(biāo)和半徑值后，按“保存”按鈕，可以將當(dāng)前文本框中的圓心坐標(biāo)與半徑值追加到文件“c:circles.dat”的末尾，下圖是文件中的示例數(shù)據(jù)，其中每一行是一個(gè)圓的數(shù)據(jù)，第一個(gè)是圓心的X坐標(biāo)，第二個(gè)是圓心的Y坐標(biāo)，第三個(gè)是半徑值。（）單擊“加載圓”按鈕，可以根據(jù)文件“c:circles.dat”中已有的數(shù)據(jù)，在圖片框中畫(huà)出所有的圓，例如根據(jù)上圖示例文件中的數(shù)據(jù)會(huì)畫(huà)出三個(gè)圓如程序界面圖中所示。（）單擊“結(jié)束”按鈕，退出程序。程序的部分代碼已經(jīng)給出，如下所示：Private Sub Form_Load() Picture1.Scale (-100, 100)-(100, -100)End SubPriv