江苏省信息技术学业水平测试vb操作题带答案word精品文档16页.docx
- 文档编号:29767909
- 上传时间:2023-07-26
- 格式:DOCX
- 页数:42
- 大小:254.31KB
江苏省信息技术学业水平测试vb操作题带答案word精品文档16页.docx
《江苏省信息技术学业水平测试vb操作题带答案word精品文档16页.docx》由会员分享,可在线阅读,更多相关《江苏省信息技术学业水平测试vb操作题带答案word精品文档16页.docx(42页珍藏版)》请在冰豆网上搜索。
江苏省信息技术学业水平测试vb操作题带答案word精品文档16页
2019江苏省信息技术学业水平测试vb操作题带答案
我国古代的读书人,从上学之日起,就日诵不辍,一般在几年内就能识记几千个汉字,熟记几百篇文章,写出的诗文也是字斟句酌,琅琅上口,成为满腹经纶的文人。
为什么在现代化教学的今天,我们念了十几年书的高中毕业生甚至大学生,竟提起作文就头疼,写不出像样的文章呢?
吕叔湘先生早在1978年就尖锐地提出:
“中小学语文教学效果差,中学语文毕业生语文水平低,……十几年上课总时数是9160课时,语文是2749课时,恰好是30%,十年的时间,二千七百多课时,用来学本国语文,却是大多数不过关,岂非咄咄怪事!
”寻根究底,其主要原因就是腹中无物。
特别是写议论文,初中水平以上的学生都知道议论文的“三要素”是论点、论据、论证,也通晓议论文的基本结构:
提出问题――分析问题――解决问题,但真正动起笔来就犯难了。
知道“是这样”,就是讲不出“为什么”。
根本原因还是无“米”下“锅”。
于是便翻开作文集锦之类的书大段抄起来,抄人家的名言警句,抄人家的事例,不参考作文书就很难写出像样的文章。
所以,词汇贫乏、内容空洞、千篇一律便成了中学生作文的通病。
要解决这个问题,不能单在布局谋篇等写作技方面下功夫,必须认识到“死记硬背”的重要性,让学生积累足够的“米”。
Vb专项练习第一套
一般说来,“教师”概念之形成经历了十分漫长的历史。
杨士勋(唐初学者,四门博士)《春秋谷梁传疏》曰:
“师者教人以不及,故谓师为师资也”。
这儿的“师资”,其实就是先秦而后历代对教师的别称之一。
《韩非子》也有云:
“今有不才之子……师长教之弗为变”其“师长”当然也指教师。
这儿的“师资”和“师长”可称为“教师”概念的雏形,但仍说不上是名副其实的“教师”,因为“教师”必须要有明确的传授知识的对象和本身明确的职责。
1、打开“考生文件夹\716”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
语文课本中的文章都是精选的比较优秀的文章,还有不少名家名篇。
如果有选择循序渐进地让学生背诵一些优秀篇目、精彩段落,对提高学生的水平会大有裨益。
现在,不少语文教师在分析课文时,把文章解体的支离破碎,总在文章的技巧方面下功夫。
结果教师费劲,学生头疼。
分析完之后,学生收效甚微,没过几天便忘的一干二净。
造成这种事倍功半的尴尬局面的关键就是对文章读的不熟。
常言道“书读百遍,其义自见”,如果有目的、有计划地引导学生反复阅读课文,或细读、默读、跳读,或听读、范读、轮读、分角色朗读,学生便可以在读中自然领悟文章的思想内容和写作技巧,可以在读中自然加强语感,增强语言的感受力。
久而久之,这种思想内容、写作技巧和语感就会自然渗透到学生的语言意识之中,就会在写作中自觉不自觉地加以运用、创造和发展。
某同学欲设计一个“水电费管理系统”,其功能如下:
水按每吨4元收取,电按每度0.5元收取,输入用水量和用电量,输出应付款。
请打开工程1.vbp文件,按如下要求完成下列操作。
(1)请在窗体中添加两个控件,使程序运行时,用其输入耗水量和耗电量。
(2)请把下列代码补充完整
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle,sAsSingle
a=Val(①)
b=Val(②)
s=③
Label4.Caption=Str(④)+"元"
EndSub
2、打开“考生文件夹\723”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
中国邮政的EMS国际快递业务:
中国寄往澳大利亚的快递收费标准是:
首个0.5公斤收费210元,其余的重量按55元/千克计算,(总重不足0.5千克按210元收费)下面是自动计算寄费的程序,请完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'中国邮政的EMS国际快递业务:
中国寄往澳大利亚的快递收费标准是:
'首个0.5公斤收费210元,其余的重量按55元/每千克计算,(总重不足
'0.5千克按210元收费)下面是自动计算寄费的程序,请你完善程序。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
y=0
①=Val(Text1.Text)
Ifx>0.5Then
y=210+(x-0.5)*55
Else
y=210
③=Str(y)
EndSub
3、打开“考生文件夹\91\工程1.vbp”,完善程序并保存。
实现功能:
随机生成100个整数,统计偶数的个数。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
Dima(100)AsInteger
PrivateSubCommand1_Click()
DimtotalAsInteger
Fori=1To100
Ifa(i)Mod2=0Then
EndIf
Nexti
PrintCStr(total)
EndSub
PrivateSubForm_Load()
Randomize
Fori=1To100
③=Int(Rnd*1000)
Nexti
EndSub
4、打开文件“考生文件夹\725\工程1.vbp”,进行以下操作后保存。
这是打印九九乘法表的程序,请你完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'这是打印乘法九九表的程序,请完善程序。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubForm_click()
DimiAsInteger,jAsInteger
Fori=1To①
Forj=1To②
PrintTab((j-1)*12);
Printj;"*";i;"=";i*j;
Nextj
EndSub
5、打开“考生文件夹\4\工程1.vbp”,完善程序并保存。
实现功能:
用穷举法找出所有的3位水仙花数的程序并保存。
3位水仙花数是指一个三位数,其各个数位上的数字之立方和为该数。
例如:
153=13+53+33。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
Fori=100To999
a=i\①
b=(i-a*②)\10
c=iMod10
Ifa^3+b^3+c^3=iThenPrinti
EndSub
Vb专项练习第二套题目
1、打开“考生文件夹\96\工程1.vbp”,完善程序并保存。
实现功能:
假设有一个5位数密码。
只记得密码为67□□8,其中百位和十位的数字记不清了,但知道该密码能够被78整除,也能被67整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimxAsLong
Forx=①To67998Step10
If(xMod67=0)And(xMod78=0)Then
Print②
EndIf
EndSub
2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序,请完善程序并保存。
说明:
若一个三位数abc,满足:
abc=a3+b3+c3,则称abc为水仙花数。
如三位数153满足:
13+53+33=1+125+27=153,则153是水仙花数。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
Dimi,a,bAsInteger
Fori=100To①
a=i\100
b=(i-a*100)\10
c=②
Ifa*a*a+b*b*b+c*c*c=iThen
PrintCStr(i)
Nexti
EndSub
3、打开“考生文件夹\12\工程1.vbp”,完善程序并保存。
实现功能:
在Text1中输入一个代表秒数的整数后,单击“计算”按钮后,在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”,Label1、Label2、Label3中分别显示“1”、“1”、“12”,即1小时1分12秒。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
Dimh,m,s,ssAsInteger
ss=Val(①)
h=②
m=(ss-h*3600)\60
s=(ss-h*3600)Mod③
Label1.Caption=CStr(h)
Label2.Caption=CStr(m)
Label3.Caption=CStr(s)
EndSub
4、打开“考生文件夹\50\工程1.vbp”,完善程序并保存。
实现功能:
在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数),判断能否用它们搭成一个三角形,并把结果输出到文本框text4中。
操作要求:
(1)在窗体中加载“CommandButton”控件,命名为“Command1”并设置该控件“Caption”属性值为“判断”;
(2)完善程序,执行command1_click事件,判断出结果,如果能搭成三角形则在文本框text4中输出“OK”,否则输出“NO”。
'请不要更改源程序的结构,删除原题里的①、②。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
Dima,b,cAs①
Leta=Val(Text1.Text)
Letb=Val(Text2.Text)
Letc=Val(Text3.Text)
If(a+b>c)And(a+c>b)And(b+c>a)Then
LetText4.Text="OK"
Else
LetText4.Text="NO"
EndSub
5、打开“考生文件夹\40\工程1.vbp”,完善程序并保存。
实现功能:
将一张100元面值的人民币换成若干5元、1元、5角面值的人民币,但要求100元换成的零钱共100张,且要求每种面值不少于1张,问5元、1元、5角各多少张,请输出每种可能的组合。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimWuyuanAsInteger
DimYiyuanAsInteger
DimWujiaoAsInteger
ForWuyuan=1To20
ForYiyuan=1To①
Wujiao=100-Wuyuan-②
IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
Print"Wuyuan="&Wuyuan&",Yiyuan="&Yiyuan&",Wujiao="&Wujiao
NextYiyuan
NextWuyuan
EndSub
Vb专项练习第三套
1、打开“考生文件夹\731”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
本题是青蛙跃井问题:
井底蛙欲沿湿滑井壁上跃至地面,若井深h尺,蛙上跃3尺下滑1尺,请给出井深h值,计算蛙上跃次数n。
请你完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'本题是青蛙跃井问题:
井底蛙欲沿湿滑井壁
'上跃至地面,若井深h尺,蛙上跃3尺下滑1尺,
'请给出井深h值,计算蛙上跃次数n。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimhAsSingle,nAsInteger
h=Val(①)
Ifh>3Then
IfhMod2=0Then
n=h/2
Else
n=(h-1)/2
EndIf
Else
n=②
EndIf
Text2.Text=③
EndSub
2、打开“考生文件夹\729”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
运行程序能够显示数字金字塔,请完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'运行程序能够显示数字金字塔,请完善程序。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
Fori=1To①
PrintTab(10-i);
Forj=1To②
PrintStr(i);
Nextj
Nexti
EndSub
3、打开“考生文件夹\733”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
本题是在文本框Text1中输入一位十六进制数码(若是字母要大写),运行程序后能译出它表示的十进制数的程序。
请你完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'本题是在text1中输入一位十六进制数码(若是字母要大写),
'运行程序后能译出它表示的十进制数的程序。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimmAsString
m=①
SelectCasem
Case"A"
m="10"
Case"B"
m="11"
Case"C"
m="12"
Case"D"
m="13"
Case"E"
m="14"
Case"F"
m="15"
Text2.Text=③
EndSub
4、打开“考生文件夹\732”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
本题是从字符串中找出所有大写字母,并把找出的大写字母显示在text2中。
请你完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'本题是从一串只含有字母或数字的字符串中找出所有大写字母,
'并把找出的大写字母显示在text2中。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimxAsString,yAsString
DimiAsInteger,nAsInteger
x=①
n=Len(x)
Fori=1To②
IfAsc(Mid(x,i,1))<91AndAsc(Mid(x,i,1))>64Then
y=y+Mid(x,i,1)
EndIf
Nexti
Text2.Text=③
EndSub
5、打开“考生文件夹\730”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
运行程序能够显示数字金字塔,请完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
'运行程序能够显示数字金字塔,请完善程序。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
For①=1To5
PrintTab(10-j);
Fori=1To②
PrintStr(i);
Nexti
EndSub
Vb专项练习第4套
1、打开“考生文件夹\735”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
完善程序,使之在运行程序后,能在窗体上显示样张所示的图形。
完成后按“Ctrl+W”保存程序。
(详见样张)
'完善程序,使之在运行程序后,能在窗体上显示样张所显示的图形。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubForm_Click()
Line(600,200)-(1500,①),RGB(255,0,0)
Line(1500,200)-(1500,1000),RGB(0,0,255)
Line(1500,1000)-(600,1000),RGB(②)
Line(③,1000)-(600,200),RGB(0,0,255)
EndSub
2、打开“考生文件夹\36\工程1.vbp”,完善程序并保存。
实现功能:
给出三角形的三边边长a,b,c(输入保证能构成三角形,无需判断正确性),输出三角形面积。
三角形面积计算公式:
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimsAsSingle
DimqAsSingle
DimaAsSingle
DimbAsSingle
DimcAsSingle
①=Val(InputBox("请输入边长a的值:
"))
b=Val(InputBox("请输入边长b的值:
"))
c=Val(InputBox("请输入边长c的值:
"))
q=(a+b+c)/2
s=②(q*(q-a)*(q-b)*(q-c))
Print③
EndSub
3、打开“考生文件夹\60\工程1.vbp”,完善程序并保存。
实现功能:
从文本框t1中输入一个圆的半径,计算圆的面积,把结果输出到文本框t2中。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
Constpi=3.14
①r,sasSingle
r=Val(②)
s=pi*r*r
T2.Text=③
EndSub
4、打开“考生文件夹\32\工程1.vbp”,完善程序并保存。
实现功能:
从键盘上输入一个三位数,然后将它反向输出。
例如输入“123”,输出结果为“321”。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
DimbaiAsInteger,shiAsInteger
DimgAsInteger
a=Val(①)
bai=a\100
shi=(a-bai*100)\10
g=aMod10
②=g*100+shi*10+bai
③=CStr(b)
EndSub
5、打开“考生文件夹\736”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
该题求丢番图年龄问题:
丢番图生命的1/6是童年,又过了生命的1/12长胡子,再过了生命的1/7结婚,婚后5年生儿子,儿子活了父亲年龄的一半死亡,之后丢番图又过了4年死亡。
求丢番图年龄。
完善程序,使之在运行程序后,能在text1中显示丢番图年龄。
完成后按“Ctrl+W”保存程序。
(详见样张)
'该题是求丢番图年龄问题:
丢番图生命的1/6是童年,
'又过了1/12长胡子,再过了的1/7结婚,婚后5年生儿子,
'儿子活了父亲年龄的一半死亡,之后丢番图又过了4年死亡。
'求丢番图年龄。
'请不要更改源程序的结构,删除原题里的①、②、③。
填写正确的代码,使程序完善
PrivateSubCommand1_Click()
DimnAsInteger
n=0
Do
①=n+1
Loop②n ③=Str(n) EndSub Vb专项练习第五套 1、打开“考生文件夹\178\工程1.vbp”,完善程序并保存。 实现功能: 用递归法求3! +5! +7! 的值。 '请不要更改源程序的结构,删除原题里的①、②、③。 填写正确的代码,使程序完善 PublicFunctionFac(aAsInteger)AsInteger Ifa=1Then Fac=① Else Fac=a*②(a-1) EndIf EndFunction PrivateSubCommand1_Click() DimSAsInteger S=Fac(3)+Fac(③)+Fac(7) Print"S="&CStr(S) EndSub 2、打开“考生文件夹\122\工程1.vbp”,完善程序并保存。 王晓珊家距离学校S1公里,某天她和李明各自同时从家里步行出发上学,王晓珊步行V1公里/小时,李明步行V2公里/小时,结果他们同时到达学校。 实现功能: 输入S1,V1,V2,输出李明家与学校之间的距离S2。 '请不要更改源程序的结构,删除原题里的①、②、③。 填写正确的代码,使程序完善 1s1/v1 2v2 3s2 PrivateSubCommand1_Click() DimS1AsSingle,S2AsSingle DimV1AsSingle,V2AsSingle DimTAsSingle S1=Val(InputBox("请输入王晓珊家离学校的距离: ")) V1=Val(InputBox("请输入王晓珊步行速度: ")) V2=Val(InputBox("请输入李明步行速度: ")) T=① S2=②*T Print③ EndSub 3、打开“考生文件夹\43\工程1.vbp”,完善程序并保存。 实现功能: 用递归法求斐波那契数列1,1,2,3,5,8,…第10项的值。 '请不要更
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江苏省 信息技术 学业 水平 测试 vb 操作 答案 word 精品 文档 16