下载文档原格式
2009年春浙江省高等学校【程序说明】输入n 后，计算并显示下列表达式的值。
n 14131211+++++ 运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示(输入数若小于1则清空文本框，需重新输入)，按“计算”按钮后的界面如下图右所示。
【程序】Dim n As IntegerPrivate Sub Form_Load()Command1. Enabled=False 1End SubPrivate Sub Text1_KeyPress 2 (K As Integer)If K <> 13 Then Exit Sub n=Text1.Text 3If n > 0 ThenCommand1.Enabled = TrueText1.Enabled = FalseElseText1.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim y As Single, i As IntegerFor i = 1 To ny=y+1/i （4）Next iLabel3.Caption = yCommand1.Enabled = FalseText1.Enabled = TrueText1.Text = " "Text1.SetFocusEnd Sub【程序说明】运行时输入10个数后，输出其中较小的5个数。
【程序】Private Sub Command1_Click()Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As ByteFor i = 1 To 10a(i) = InputBox("a(" & i & ")=" （5）)Next iFor i = 1 To 9k=i （6）For j = i + 1 To 10If a(j)<a(k) （7）Then k = jNext jt = a(i): a(i) = a(k): a(k) = tNext iFor i = 1 To 5 （8）Print a(i)Next iEnd Sub【（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
计算机二级VB语言程序设计考试题及答案不管从事何种工作，如果要想做出高效、实效，务必先从自身的开始。
有了方案，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。
下面是搜索的计算机二级VB语言程序设计考及答案，供大家参考学习！1.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub FormClick( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub FormClick( )MyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Text1LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"Gong"，那么程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"gong"，那么程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮mand1，编写下面程序：Private Sub Command1Click( )Dim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusElseMsgBox "密码帐号正确!"End IfEnd Sub假设在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的选项是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为mand1的命令按钮，编写如下代码：Private Sub Command1Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Theny = zz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，那么标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，那么label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，那么label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，那么label1的标题显示结果为(C)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub FormLoad( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，那么label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1Click( )Dim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
2006年春浙江省高等学校计算机等级考试试卷(二级Visual Basic)说明：⑴考生应将所有试题的答案填写在答卷上。
其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；⑶考试时间为90分钟;试题1（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】界面设计如上图所示，程序运行时要求有以下功能：•按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且a>b，并分别在Label1、Label2中显示，此后Command1不可用；•在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；•按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。
【程序】Dim n As Integer, n_error As Integer（1）Private Sub Command1_Click()a = 10 + Rnd * 89:b = 10 + Rnd * 89If a < b Then （2）Label1.Caption = a: Label2.Caption = bn = n + 1: Text1.Text = "": Command1.Enabled = FalseEnd SubPrivate Sub Text1_ (3) (KeyAscii As Integer)If KeyAscii <> 13 Then (4) ' 回车键的ASCII码值为13 If a - b = Val(Text1.Text) ThenMsgBox ("回答正确")ElseMsgBox("回答不正确") n_error = n_error + 1 End IfCommand1.Enabled = True End SubPrivate Sub Command2_Click() MsgBox( (5) ) End End Sub 【供选择的答案】(1) A 、'小学生两位数减法训练程序 B 、a=0: b=0: c=0C 、n=0: n_error=0D 、Dim a As Byte, b As Byte, c As Byte (2) A 、b=a: a=bB 、c=a: a=b: b=cC 、a=b: b=aD 、c=a: b=a: a=c (3) A 、KeyPress B 、ChangeC 、KeyDownD 、KeyUp (4) A 、Exit SubB 、KeyAscii =13C 、KeyAscii=0D 、Exit Do(5) A 、"共" & n & "题，错" & n_error & "题"B 、"共n 题，错 n_error 题"C 、"共" + n + "题，错" + n_error + "题"D 、共 & n & "题，错" & n_error & "题"试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
浙江省计算机二级vb上机试题题库浙江省计算机二级vb上机试题题库二、编程题：1 判断一个数是否是素数。
Private sub form_click()Dim x as integer,I as integerX=text1For i=2 to sqr(x) …If x mod i=0 then exit forNext iIf i>sqr(x) thenText2=”x是素数”ElseText2=”x不是素数”EndifEndsub2、求两个任意自然数的最大公约数。
Private sub form_click()Dim m as integer,n as integer,I as integer,r as integer m=text1n=text2R=m mod nDo while r<>0M=nN=rR=m mod nLoopText2=str(n)End sub3、随机生成10个两位正整数，将其中的奇数和偶数分别显示在list1和list2中。
Private sub form_click()Dim a(1 to 10) as integer,I as integerFor i=1 to 10A(i)=int(rnd*90+10)Next iFor i=1 to 10If a(i) mod 2=1 thenList1.additem str(a(i))ElseList2.additem str(a(i))EndifNext iEnd sub4、判断一个数是否是回文数。
Private sub form_click()Dim I as integer,s as stringS=text1For i=1 to len(s)\2If mid(s,I,1)<>mid(s,len(s)-i+1,1) then exit forNext iIf i>len(s)\2 thenPrint s & ”是回文数”ElsePrint s & ”不是回文数”EndifEnd sub5求两个自然数的最小公倍数。
2008年秋浙江省计算机二级（vb）复习资料 历年试题与测试上机题库 第1页 共22页 答疑：info.zjfc.edu.cn/vbweb 2008年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic)
说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90分钟;
试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入123显示321，输入-567显示-765。 【程序】 (1) Private Sub Form_Load() (2) End Sub Private Sub Command1_Click() Text1.Text = "": n = InputBox("n=") End Sub Private Sub Command2_Click() If n < 0 Then n = -n: Text1.Text = "-" While n <> 0 Text1.Text = (3) (4) Wend End Sub 【供选择的答案】 (1) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As Byte (2) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True D、Text1.Visible = False (3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text C、Text1.Text & n/10 D、Text1.Text & n Mod 10 (4) A、n = n \ 10 B、n = n / 10 C、n = n Mod 10 D、n = n - 10
试题2（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 2008年秋浙江省计算机二级（vb）复习资料 历年试题与测试上机题库 第2页 共22页 答疑：info.zjfc.edu.cn/vbweb 运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。
Private Sub Form_Activate() P1.Height = P1.Width P1.FontSize = 10 (5) (-10, 110)-(110, -10) (6) P1.Line (-5, 0)-(100, 0) P1.Line (0, -5)-(0, 100) For i = (7) P1.Line (i, 0)-(i, 2) P1.Line (0, i)-(2, i) Next i For i = 1 To 9 P1.CurrentX = i * 10 - 2 P1.CurrentY = -2 (8) Next i End Sub 【供选择的答案】 (5) A、P1.Draw B、P1.Line C、P1.Print D、P1.Scale (6) A、P1.ForeColor = RGB(255,0,0) B、P1.FillColor = RGB(255,0,0) C、P1.FillColor = VbRed D、P1.ForeColor = Red (7) A、1 To 9 Step 1 B、10 To 90 C、10 To 90 Step 10 D、2 To 9 (8) A、PSet i B、P1.Print i C、P1.Pset i D、Print i
试题3（每小题3分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。 运行结果如下图所示。 2008年秋浙江省计算机二级（vb）复习资料 历年试题与测试上机题库 第3页 共22页 答疑：info.zjfc.edu.cn/vbweb 【程序】 Private Sub Command1_Click() '读文件 Dim s As String Open "e:\xxx.txt" For (9) As #1 While Not EOF(1) Line Input #1, s : List1.AddItem s Wend Close #1 End Sub Private Sub Command2_Click() '分解 Dim i As Integer, n As Integer, s1 As String, s2 As String For i = 1 To (10) n = Len(List1.List(i - 1)) ReDim a(n) As String * 1 For j = 1 To n a(j) = (11) Next j s1 = "": s2 = "" For j = 1 To n If (12) Then s1=s1+a(j) Else s2=s2+a(j) Next j List2.AddItem s1 List3.AddItem s2 Next i End Sub 【供选择的答案】 (9) A、Read B、Append C、Input D、Output (10) A、List1.Count B、ListCount C、ListCount-1 D、List1.ListCount (11) A、Mid(List1.List(i-1),j,1) B、Middle(List1.List(i-1),j,1) C、Mid(List1.List(i-1),j) D、Middle(List1(i-1),j,1) (12) A、a(j)>='a' And a(j)<='z' Or a(j)>='A' And a(j)<='Z' B、a(j)>="a" And a(j)<="z" Or a(j)>="A" And a(j)<="Z" C、"a"<=a(j)<="z" Or "A"<=a(j)<="Z" 2008年秋浙江省计算机二级（vb）复习资料 历年试题与测试上机题库 第4页 共22页 答疑：info.zjfc.edu.cn/vbweb D、(a(j)>='a' And a(j)<='z') Or (a(j)>='A' And a(j)<='Z') 试题4（每小题3分，共12分） 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Text1_KeyPress(K As Integer) If K < Asc("0") Or K > Asc("9") Then K = 0 Else Label1.Caption = Chr(K) + Label1.Caption End If End Sub 【供选择的答案】 (13) Text1获得输入焦点后，依次按数字键1、3、5，Label1显示： A、135 B、531 C、9 D、5 (14) Text1获得输入焦点后，依次按数字键2、7、9，Label1显示： A、972 B、279 C、297 D、18 (15) Text1获得输入焦点后，依次按 -、2、3、5键，Label1显示： A、-532 B、-235 C、532 D、235 (16) Text1获得输入焦点后，依次按 1、2、a、5键，Label1显示： A、空白 B、12a5 C、5a21 D、521
试题5（每小题3分，共12分） 阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static k As Byte Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值 Form1.Cls If k = 0 Then k = 1 Else k = 0 If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _ Form1.ForeColor = RGB(0, 0, 255) Print Time End Sub 【供选择的答案】 (17) 激活Timer1后，每间隔1秒显示一次系统时间，方式是： A、蓝、绿色交替显示 B、蓝色显示 C、绿色显示 D、红色显示 (18) 系统时间的显示位置，是在： A、窗体右上角 B、窗体左上角 C、窗体右下角 D、窗体左下角 (19) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1
