VB考前辅导模拟试卷四（中等）.doc

VB考前辅导模拟试卷四（中等）试题1（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时先在文本框Text1中输入n的值后回车，如果值在1,10之间，则清空文本框Text2，并使它获得焦点。然后在在文本框Text2中输入正确的a值后按回车，将以下和式的计算结果S显示在结果文本框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分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】抽奖程序界面如图，先模拟生成1000个身份证号放在数组A中，运行时标签框（Label1）中显示第一个身份证号，单击“开始”命令按钮（Command1）后，命令按钮改标题改为“停止”，标签框以每隔0.1秒顺序变化显示数组中的身份证号，单击“停止”按钮身份证号变动停止，同时按钮标题改为“开始”。【程序】 （5） Dim A(0 To 999) As StringPrivate Sub Command1_Click() If Command1.Caption = 开始 Then n = 0 （6） Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 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) 模拟身份证号 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分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时在文本框(Text1)中输入一个字符串后单击“循环左移”按钮（Command1），在列表框中显示字符串循环左移一周的结果，注意第一个与最后一个都是原字符串。【程序】Private 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分）阅读下列程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Dim 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）单击窗体一次后在窗体上打印的结果为A1 2 1B1 2 1C2 1 1D1 2 3 1 2 3 1 2 1 2 1 1 1 1 2（13）如果再单击窗体一次，则第二次单击后在窗体上新打印的内容为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)，再单击窗体一次后在窗体上打印的结果为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)，再单击窗体一次后在窗体上打印的结果为A2 2 1B1 2 1C1 1 1D4 4 3 2 2 2 1 2 1 1 1 1 4 4 4试题5（每小题2分，共8分）阅读下列程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Private 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出错试题6（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时产生10个在10,99之间的随机整数后，从小到大输出其中较小的5个。【程序】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个数依次为：; 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分）有一个函数：编程实现以下功能：单击窗体（Form1）时，由InputBox函数输入一个x，并由MsgBox函数同时显示计算结果y和文字“是否结束计算？”，如果单击“是”，则结束程序，否则可以单击窗体继续新的计算。试题11（共10分）编写一个用户自定义函数Fatl用于计算n!的值，然后使用Ftal函数在窗体的Click事件过程中计算1!+3!+5!+7!+9!+11!的值并将结果打印在窗体中。试题12（共10分）如图程序界面包括：一个图片框（Picture1）用于画图、三个文本框分别用于输入圆心坐标（X, Y）和半径值（Text1、Text2和Text3）和四个按钮（画圆Command1、保存Command2、加载圆Command3和结束Command4）。程序功能如下：（）Form的Load事件中已经改变了图片框的坐标系。（）在文本框中输入圆心坐标和半径值后，按“画圆”按钮，可以在图片框画出相应的圆。（）在文本框中输入圆心坐标和半径值后，按“保存”按钮，可以将当前文本框中的圆心坐标与半径值追加到文件“c:circles.dat”的末尾，下图是文件中的示例数据，其中每一行是一个圆的数据，第一个是圆心的X坐标，第二个是圆心的Y坐标，第三个是半径值。（）单击“加载圆”按钮，可以根据文件“c:circles.dat”中已有的数据，在图片框中画出所有的圆，例如根据上图示例文件中的数据会画出三个圆如程序界面图中所示。（）单击“结束”按钮，退出程序。程序的部分代码已经给出，如下所示：Private Sub Form_Load() Picture1.Scale (-100, 100)-(100, -100)End SubPriv