浙江省高校计算机等级考试复习资料——二级VB语言(答案).doc

浙江省高校计算机等级考试复习资料二级VB语言答案目 录2009年春浙江省高等学校计算机等级考试二级VB参考答案22008年秋浙江省高等学校计算机等级考试二级VB参考答案32008年春浙江省高等学校计算机等级考试参考答案（二级 VB）42007年秋浙江省高等学校计算机等级考试参考答案（二级 VB）52007年春浙江省高等学校计算机等级考试参考答案（二级 VB）7VB上机考试程序调试题样题(填空)参考答案7VB上机考试程序调试题样题(改错)参考答案7VB上机考试程序设计题样题参考答案92009年春浙江省高等学校计算机等级考试二级VB参考答案试题1试题6 请在各小题正确选项的对应位置处填“”（每小题3分，共72分）ABCDABCD(1)(13)(2)(14)(3)(15)(4)(16)(5)(17)(6)(18)(7)(19)(8)(20)(9)(21)(10)(22)(11)(23)(12)(24)试题7（28分）Dim a() As Double, ave As Double, n As Integer, seit As DoublePrivate Sub Command1_Click() 输入数据n以及n个数。 小计 10分 Dim i As Integer 1 分 n = Inputbox(n=) 2 分 Redim a(n) 3 分 For i = 1 To n 4 分 a(i) = InputBox(a( & i & )=) Next iEnd SubPrivate Sub Command2_Click() 计算、显示平均值。 小计 7分 Dim i As Integer 1 分 For i = 1 To n 4 分 ave = ave + a(i)/n Next i Text1.Text = ave 2 分End SubPrivate Sub Command3_Click() 计算、显示标准差。 小计 11分 Dim i As Integer 1 分 For i = 1 To n 5 分 seit = seit + (a(i) - ave) 2 Next i seit = sqr(seit) / (n - 1) 3 分 Tetx2.Text = seit 2 分End Sub2008年秋浙江省高等学校计算机等级考试二级VB参考答案试题1试题6 请在各小题正确选项的对应位置处填“”（每小题3分，共72分）ABCDABCD(1)(13)(2)(14)(3)(15)(4)(16)(5)(17)(6)(18)(7)(19)(8)(20)(9)(21)(10)(22)(11)(23)(12)(24)试题7（28分）编程，按Command1后用通用对话框确定待输入的文件（格式如下，各行中四个数据分别表示学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件e:score.txt。张三,77,86,93李四,77,86,93 .Private Sub Command1_Click() 声明变量 Dim name As String,k1 As Integer, k2 As Integer, k3 As Integer （2分） 用控件CommonDialog1选择文件 CommonDialog1.Action =1 （2分） 打开所选文件用于读数据，打开文件e:score.txt用于写数据 Open CommonDialog1.FileName For Input As #1 （2分） Open e:score.txt For OutPut As #2 （2分） 读文件中数据并处理 Do While Not Eof(1) （18分） Input #1, name,k1,k2,k3 循环结构6分 If k1=60 And k2=60 And k3=60 Then _ Input 4分 Write #1,name,k1,k2,k3 条件 4分 Loop Write# 4分（Print#扣2分 Close #1: Close #2 （2分）End Sub2008年春浙江省高等学校计算机等级考试参考答案（二级 VB）试题1试题6 请在各小题正确选项的对应位置处填“”（每小题3分，共72分）ABCDABCD(1)(13)(2)(14)(3)(15)(4)(16)(5)(17)(6)(18)(7)(19)(8)(20)(9)(21)(10)(22)(11)(23)(12)(24)试题7(28分)编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。Private Function f( b() As Single, n As Integer ) As Single 2分 Dim i As Integer 1分 For i = 1 To n 5分 f = f + b(i) Next i f = f / n 2分End FunctionPrivate Sub Command1_Click() Dim a(10) As Single, i As Integer, v As Single, x As Single, d As Single 输入数据(3分) For i = 1 To 10 a(i) = InputBox(a( & i & )=) Next i 计算平均值v(3分) v = f(a, 10) 将与v之差的绝对值为最小的那个数组元素赋值给x。 x = a(1): d = Abs(a(1) - v) 2分 For i = 2 To 10 If Abs(a(i) - v) 0 sum = sum + n mod 10: n=n10 WendEnd FunctionPrivate Sub Command1_Click() Dim a(10) As Integer, b(10) As Integer, i As Integer For i = 1 To 10 a(i) = InputBox(a( & i & )= ): b(i) = sum(a(i) Next i For i=1 To 8: Printf a(i); ; :Next i Print For i=1 To 8: Printf b(i); ; :Next iEnd SubVB上机考试程序调试题样题(填空)参考答案题11. dalt0 2. dalt=0 3. Sqr(-dalt)题21. start = Space(21 - i) 2. Count = 19 - 2 * i 3. Form1.Print start; 4. Form1.Print题31. 5 2. num 3. Trim(i);题41.number(i) 2.n as integer 3.number=number*10+7题51. 1 2. -1 3. x=(x+1)*2题61. 2 2. b = False 3. k = k + 1 4. b 或 b = True题71.do while x4 or x mod 20 2.if isprime(i) and isprime(x-i) then3.isprime=true 4.if x mod I=0 then题81. n+1 2. n Mod 3=1 and n Mod 5=1 and n Mod 7=1 3. While countN5题91. Not isLeapYear(year) 2. y Mod 4 0 3. y Mod 100 = 0 4. y Mod 400 0题101.trim(str(i) 2.trim(str(i2) 3.x1=right(x2,len(x1)题111. i100 2. i mod 10 3.i=hundred3+ten3+one3题121. i,n 2.if i=s then 3.for I=2 to x-1或for i=2 to x2 4.a(k)=i题131. s = 1 2. Do While s 1E+16 3. i = i + 1题141. s 1000 2. x 3. n + 1 4. n - 2题151.sign=-1 2.19 3.sign=-sign题161.temp=1 2.temp 3.nfactor(i) 4.sum题171. 1 To Len(a) 2. n + fact(p) 3. fact = y题181.len(oldsen) 2.lastchar= 3.mid(oldsen,i,1) 4.ucase(char)题191. salary(i) 2. temp - hundred * 100 3. temp 4. totalsalary + salary(i)题201.Len(str1) 2.length-1 3.mid(str1,I,2) 4.sum=0VB上机考试程序调试题样题(改错)参考答案题11.for i=9 to 1 step 1 2. Form1.Print Trim(Str(i); 3. End Sub题21.for two=1 to n-one 2.if one+two*2+five*5=60 then 3.next two 4.next one题31.dim k as single 2.for i=1 to 100 step2 3.k=-1/(i+1)题41.cmn=nfactor(m)/(nfactor(n)*nfactor(m-n)2.nfactor=temp 3.End function题51.length=len(str1) 2. strright=mid(str1,k,1)3. strleft=mid(str1,length-k+1,1) 4. If strleft strright Then题61.case isr 2.Loop until times5 或 Loop While times = 53.Form1.print “正确答案为”& str(r)题71.n=len(Hex) 2.temp=Mid(Hex,n-i,1) 3.Form1.print Hex + “转换为十进制数为” + str(Dec) 或 Form1.print Hex & “转换为十进制数为” & Dec或Form1.print Hex ;“转换为十进制数为” ; Dec 题81. For i = 0 To 9 2. n = Int(Rnd * 90) + 10 3. MsgBox 偶数个数： & count题91.a(i)=int(Rnd*100) 2.p=a(i) mod 10 3.x(p)=x(p)+14.Form1.print “个位数为”+str(p)+”共”+str(x(i) + 个题101.Swap a(j),a(i) 2.Loop while in 3.for j=1 to i-14.Public Sub Swap(a as integer,b as integer)题111.If ave(Line_no)ave(i) then 2.Line_no=i 3.a(1,j)=a(Line_no,j) 4.sum=sum+a(i,j)题121.If ij and i6-j then 2.Form1.print a(I,j);space(3);3.form1.print :form1.printVB上机考试程序设计题样题参考答案1. 新建一个工程，完成“加法器”程序的设计。参考答案：Private Sub Command1_Click() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Form1.Caption = 加法器 文本框清空 Text1.Text = Text2.Text = Text3.Text = 设置文本框右对齐 Text1.Alignment = 1 Text2.Alignment = 1 Text3.Alignment = 1 屏蔽对Text3的编辑 Text3.Locked = True Label1.Caption = + Command1.Caption = Command2.Caption = 清空 End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii 57) Then KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii 57) Then KeyAscii = 0 End IfEnd Sub2. 新建一个工程，完成“健康称”程序的设计。具体要求如下：参考答案：Private Sub Command1_Click() Dim bzh As Single bzh = Val(Text1.Text) - 105 If Val(Text2.Text) bzh * 1.1 Then Label5.Caption = 偏胖，注意饮食 ElseIf Val(Text2.Text) bzh * 0.9 Then Label5.Caption = 偏瘦，增加营养 Else Label5.Caption = 正常，继续保持 End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then 输入非数字 KeyAscii=0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then 输入非数字 KeyAscii=0 End IfEnd Sub3. 新建一个工程，完成应用程序的设计，具体要求如下：参考答案：Private Sub Command1_Click()If Form1.WindowState = 0 ThenCommand1.Caption = 最小化(&B)Form1.WindowState = 2Command1.Left = (Form1.Width - Command1.Width) / 2Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2ElseForm1.WindowState = 0Command1.Caption = 最大化(&L)Command1.Left = (Form1.Width - Command1.Width) / 2Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2End If End Sub4. 新建一个工程，完成“判断质数”应用程序的设计。具体要求如下：参考答案：Private Sub Command1_Click() Dim n As Integer, i As Integern = Text1.TextFor i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Next i If i Sqr(n) Then Label2.Caption = Label2.Caption + 是质数 Else Label2.Caption = Label2.Caption + 不是质数 End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 MsgBox(输入的不是数字, 无法计算) End IfEnd Sub5. 新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：参考答案：Private Sub Text1_Change()Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 n = MsgBox(输入的不是数字, 无法计算) End IfEnd SubPrivate Sub Text2_Change()Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3)End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 n = MsgBox(输入的不是数字, 无法计算) End IfEnd SubPrivate Sub Text3_Change()Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3)End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 n = MsgBox(输入的不是数字, 无法计算) End IfEnd SubPrivate Sub Text4_Change()Text4.Locked = TrueEnd Sub6. 新建一个工程，完成“收款计算”程序的设计。具体要求如下：参考答案：Private Sub Command1_Click()Text1.Text = Text2.Text = Text3.Text = Text1.setfocusEnd SubPrivate Sub Command2_Click()Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text)End Sub7. 新建一个工程，完成“编辑”程序的设计。具体要求如下：参考答案：Private Sub Command1_Click() 将文本框选中的内容复制到剪粘板中 Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click() Clipboard.SetText Text1.SelText Text1.SelText = End SubPrivate Sub Command3_Click() Text1.SelText = Clipboard.GetText() 将要粘贴的内容复制到光标所在处End SubPrivate Sub Command4_Click() 删除Text1.seltext=”End SubPrivate Sub Form_Load() Form1.Caption = 编辑 Form1.BorderStyle = 1 Command1.Caption = 复制 Command2.Caption = 剪切 Command3.Caption = 粘贴 Command4.Caption = 删除End Sub8. 新建一个工程，完成“密码检验”程序的设计。具体要求如下：参考答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Form_Load() Label2.Visible = False Label2.AutoSize = True Text1.PasswordChar = *End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Static times As Integer 统计第几次输入密码 按回车键后进行密码检验 If KeyAscii = 13 Then If Text1.Text = 1234567 Then Label2.Caption = 欢迎光临！ Label2.Visible = True Else If times 2 Then Label2.Caption = 密码不符，请再输入一遍！ Label2.Visible = True Text1.Text = Else Label2.Caption = 非法用户，请退出程序！ Text1.Text = Text1.Enabled = False End If End If times = times + 1 End IfEnd Sub9. 新建一个工程，完成应用程序的设计。具体要求如下：参考答案：Private Sub Command1_Click()If Text1.Text = Text2.Text And Text1.Text = admin ThenIf Text3.Text = Text4.Text And Text3.Text ThenMsgBox (密码修改成功)ElseMsgBox (请重新输入新密码)End IfElseMsgBox (请重新输入用户名或密码)End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.TabIndex = 0Text2.TabIndex = 1Text3.TabIndex = 2Text4.TabIndex = 3Command1.TabIndex = 4Command2.TabIndex = 5End Sub10. 新建一个工程，完成应用程序的设计。具体要求如下：参考答案：Private Sub Command1_Click()Dim ss As StringFor i = 1 To Len(aa(Text1.Text)ss = aa(Text1.Text)Print Mid(ss, i, 1)Next iCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubFunction aa(ss As String) As String Dim x() As Integer Dim temp As Integer ReDim x(Len(ss) For i = 1 To Len(ss) x(i) = Asc(Mid(ss, i, 1) Next