浙江省高校计算机等级考试复习资料二级VB语言答案.docx
- 文档编号:3987406
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:29
- 大小:39.20KB
浙江省高校计算机等级考试复习资料二级VB语言答案.docx
《浙江省高校计算机等级考试复习资料二级VB语言答案.docx》由会员分享,可在线阅读,更多相关《浙江省高校计算机等级考试复习资料二级VB语言答案.docx(29页珍藏版)》请在冰豆网上搜索。
浙江省高校计算机等级考试复习资料二级VB语言答案
《浙江省高校计算机等级考试复习资料——二级VB语言》答案
目录
2009年春浙江省高等学校计算机等级考试二级VB参考答案2
2008年秋浙江省高等学校计算机等级考试二级VB参考答案3
2008年春浙江省高等学校计算机等级考试参考答案(二级VB)4
2007年秋浙江省高等学校计算机等级考试参考答案(二级VB)5
2007年春浙江省高等学校计算机等级考试参考答案(二级VB)7
VB上机考试程序调试题样题(填空)参考答案7
VB上机考试程序调试题样题(改错)参考答案7
VB上机考试程序设计题样题参考答案9
2009年春浙江省高等学校计算机等级考试二级VB参考答案
试题1~试题6请在各小题正确选项的对应位置处填“√”(每小题3分,共72分)
A
B
C
D
A
B
C
D
(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分)
Dima()AsDouble,aveAsDouble,nAsInteger,seitAsDouble
PrivateSubCommand1_Click()'输入数据n以及n个数。
小计10分
DimiAsInteger'1分
n=Inputbox("n=")'2分
Redima(n)'3分
Fori=1Ton'4分
a(i)=InputBox("a("&i&")=")
Nexti
EndSub
PrivateSubCommand2_Click()'计算、显示平均值。
小计7分
DimiAsInteger'1分
Fori=1Ton'4分
ave=ave+a(i)/n
Nexti
Text1.Text=ave'2分
EndSub
PrivateSubCommand3_Click()'计算、显示标准差。
小计11分
DimiAsInteger'1分
Fori=1Ton'5分
seit=seit+(a(i)-ave)^2
Nexti
seit=sqr(seit)/(n-1)'3分
Tetx2.Text=seit'2分
EndSub
2008年秋浙江省高等学校计算机等级考试二级VB参考答案
试题1~试题6请在各小题正确选项的对应位置处填“√”(每小题3分,共72分)
A
B
C
D
A
B
C
D
(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
......
PrivateSubCommand1_Click()
'声明变量
DimnameAsString,k1AsInteger,k2AsInteger,k3AsInteger(2分)
'用控件CommonDialog1选择文件
CommonDialog1.Action=1(2分)
'打开所选文件用于读数据,打开文件e:
\score.txt用于写数据
OpenCommonDialog1.FileNameForInputAs#1(2分)
Open"e:
\score.txt"ForOutPutAs#2(2分)
'读文件中数据并处理
DoWhileNotEof
(1)(18分)
Input#1,name,k1,k2,k3循环结构6分
Ifk1>=60Andk2>=60Andk3>=60Then_Input4分
Write#1,name,k1,k2,k3条件4分
LoopWrite#4分(Print#扣2分
Close#1:
Close#2(2分)
EndSub
2008年春浙江省高等学校计算机等级考试参考答案(二级VB)
试题1~试题6请在各小题正确选项的对应位置处填“√”(每小题3分,共72分)
A
B
C
D
A
B
C
D
(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补充完整。
PrivateFunctionf(b()AsSingle,nAsInteger)AsSingle'2分
DimiAsInteger'1分
Fori=1Ton'5分
f=f+b(i)
Nexti
f=f/n'2分
EndFunction
PrivateSubCommand1_Click()
Dima(10)AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle
'输入数据(3分)
Fori=1To10
a(i)=InputBox("a("&i&")=")
Nexti
'计算平均值v(3分)
v=f(a,10)
'将与v之差的绝对值为最小的那个数组元素赋值给x。
x=a
(1):
d=Abs(a
(1)-v)'2分
Fori=2To10
IfAbs(a(i)-v) d=Abs(a(i)-v)'绝对值2分,其他6分 x=a(i) EndIf Nexti Printx'2分 EndSub 2007年秋浙江省高等学校计算机等级考试参考答案(二级VB) 试题1~试题6请在各小题正确选项的对应位置处填“√”(每小题3分,共72分) A B C D A B C D (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分) Dima()AsSingle,nAsInteger PrivateSubForm_Load() Command1.Caption="数据输入"(2分) Command2.Caption="计算"(2分) EndSub PrivateSubCommand1_Click()'数据输入 DimiAsInteger(2分) n=Text1.Text(2分) ReDima(n)(3分) Fori=1Ton a(i)=InputBox("")(5分) Nexti EndSub PrivateSubCommand2_Click() DimyAsSingle,iAsInteger,xAsSingle(1分) x=Text2.Text(1分) y=a (1)(1分) Fori=2Ton y=y+a(i)*x^(i-1)(7分) Nexti Label3.Caption=y(2分) EndSub 2007年春浙江省高等学校计算机等级考试参考答案(二级VB) 试题1~6(每小题3分) B A D C D C B A A B B D A A D B D C C B(21)C(22)A(23)A(24)D 试题7(28分) PrivateFunctionsum(ByvalnAsInteger)AsInteger sum=0: n=Abs(n) whilen>0 sum=sum+nmod10: n=n\10 Wend EndFunction PrivateSubCommand1_Click() Dima(10)AsInteger,b(10)AsInteger,iAsInteger Fori=1To10 a(i)=InputBox("a("&i&")="): b(i)=sum(a(i)) Nexti Fori=1To8: Printfa(i);"";: Nexti Print Fori=1To8: Printfb(i);"";: Nexti EndSub VB上机考试程序调试题样题(填空)参考答案 [题1] 1.dalt>02.dalt=03.Sqr(-dalt) [题2] 1.start=Space(21-i)2.Count=19-2*i3.Form1.Printstart;4.Form1.Print [题3] 1.52.num3.Trim(i); [题4] 1.number(i)2.nasinteger3.number=number*10+7 [题5] 1.12.-13.x=(x+1)*2 [题6] 1.22.b=False3.k=k+14.b或b=True [题7] 1.dowhilex<4orxmod2<>02.ifisprime(i)andisprime(x-i)then 3.isprime=true4.ifxmodI=0then [题8] 1.n+12.nMod3=1andnMod5=1andnMod7=13.WhilecountN<5 [题9] 1.NotisLeapYear(year)2.yMod4<>03.yMod100=04.yMod400<>0 [题10] 1.trim(str(i))2.trim(str(i^2))3.x1=right(x2,len(x1)) [题11] 1.i\1002.imod103.i=hundred^3+ten^3+one^3 [题12] 1.i,n2.ifi=sthen3.forI=2tox-1或fori=2tox\24.a(k)=i [题13] 1.s=12.DoWhiles<1E+163.i=i+1 [题14] 1.s<10002.x3.n+14.n-2 [题15] 1.sign=-12.193.sign=-sign [题16] 1.temp=12.temp3.nfactor(i)4.sum [题17] 1.1ToLen(a)2.n+fact(p)3.fact=y [题18] 1.len(oldsen)2.lastchar=""3.mid(oldsen,i,1)4.ucase(char) [题19] 1.salary(i)2.temp-hundred*1003.temp4.totalsalary+salary(i) [题20] 1.Len(str1)2.length-13.mid(str1,I,2)4.sum=0 VB上机考试程序调试题样题(改错)参考答案 [题1] 1.fori=9to1step–12.Form1.PrintTrim(Str(i));3.EndSub [题2] 1.fortwo=1ton-one2.ifone+two*2+five*5=60then3.nexttwo4.nextone [题3] 1.dimkassingle2.fori=1to100step23.k=-1/(i+1) [题4] 1.cmn=nfactor(m)/(nfactor(n)*nfactor(m-n)) 2.nfactor=temp3.Endfunction [题5] 1.length=len(str1)2.strright=mid(str1,k,1) 3.strleft=mid(str1,length-k+1,1)4.Ifstrleft<>strrightThen [题6] 1.caseis>r2.Loopuntiltimes>5或LoopWhiletimes<=5 3.Form1.print“正确答案为”&str(r) [题7] 1.n=len(Hex)2.temp=Mid(Hex,n-i,1) 3.Form1.printHex+“转换为十进制数为”+str(Dec) 或Form1.printHex&“转换为十进制数为”&Dec 或Form1.printHex;“转换为十进制数为”;Dec [题8] 1.Fori=0To92.n=Int(Rnd*90)+10 3.MsgBox"偶数个数: "&count [题9] 1.a(i)=int(Rnd*100)2.p=a(i)mod103.x(p)=x(p)+1 4.Form1.print“个位数为”+str(p)+”共”+str(x(i))+"个" [题10] 1.Swapa(j),a(i)2.Loopwhilei 4.PublicSubSwap(aasinteger,basinteger) [题11] 1.Ifave(Line_no) [题12] 1.Ifi<>jandi<>6-jthen2.Form1.printa(I,j);space(3); 3.form1.print: form1.print VB上机考试程序设计题样题参考答案 1.新建一个工程,完成“加法器”程序的设计。 参考答案: PrivateSubCommand1_Click() Text3.Text=Str(Val(Text1.Text)+Val(Text2.Text)) EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text1.SetFocus EndSub PrivateSubForm_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="清空" EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) If(KeyAscii<48)Or(KeyAscii>57)Then KeyAscii=0 EndIf EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) If(KeyAscii<48)Or(KeyAscii>57)Then KeyAscii=0 EndIf EndSub 2.新建一个工程,完成“健康称”程序的设计。 具体要求如下: 参考答案: PrivateSubCommand1_Click() DimbzhAsSingle bzh=Val(Text1.Text)-105 IfVal(Text2.Text)>bzh*1.1Then Label5.Caption="偏胖,注意饮食" ElseIfVal(Text2.Text) Label5.Caption="偏瘦,增加营养" Else Label5.Caption="正常,继续保持" EndIf EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii<48OrKeyAscii>57Then'输入非数字 KeyAscii=0 EndIf EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) IfKeyAscii<48OrKeyAscii>57Then'输入非数字 KeyAscii=0 EndIf EndSub 3.新建一个工程,完成应用程序的设计,具体要求如下: 参考答案: PrivateSubCommand1_Click() IfForm1.WindowState=0Then Command1.Caption="最小化(&B)" Form1.WindowState=2 Command1.Left=(Form1.Width-Command1.Width)/2 Command1.Top=(Form1.ScaleHeight-Command1.Height)/2 Else Form1.WindowState=0 Command1.Caption="最大化(&L)" Command1.Left=(Form1.Width-Command1.Width)/2 Command1.Top=(Form1.ScaleHeight-Command1.Height)/2 EndIf EndSub 4.新建一个工程,完成“判断质数”应用程序的设计。 具体要求如下: 参考答案: PrivateSubCommand1_Click() DimnAsInteger,iAsInteger n=Text1.Text Fori=2ToSqr(n) IfnModi=0ThenExitFor Nexti Ifi>Sqr(n)Then Label2.Caption=Label2.Caption+"是质数" Else Label2.Caption=Label2.Caption+"不是质数" EndIf EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii<48OrKeyAscii>57Then KeyAscii=0 MsgBox("输入的不是数字,无法计算") EndIf EndSub 5.新建一个工程,完成“计算平均成绩”
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江省 高校 计算机等级考试 复习资料 二级 VB 语言 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)