江苏高中信息技术学业水平测试vb操作题带答案Word文档格式.docx
- 文档编号:19469698
- 上传时间:2023-01-06
- 格式:DOCX
- 页数:78
- 大小:403.70KB
江苏高中信息技术学业水平测试vb操作题带答案Word文档格式.docx
《江苏高中信息技术学业水平测试vb操作题带答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《江苏高中信息技术学业水平测试vb操作题带答案Word文档格式.docx(78页珍藏版)》请在冰豆网上搜索。
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)
4、打开“考生文件夹\50\工程1.vbp”,完善程序并保存。
在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数),判断能否用它们搭成一个三角形,并把结果输出到文本框text4中。
操作要求:
(1)在窗体中加载“CommandButton”控件,命名为“Command1”并设置该控件“Caption”属性值为“判断”;
(2)完善程序,执行command1_click事件,判断出结果,如果能搭成三角形则在文本框text4中输出“OK”,否则输出“NO”。
请不要更改源程序的结构,删除原题里的①、②。
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
NO"
②
5、打开“考生文件夹\40\工程1.vbp”,完善程序并保存。
将一张100元面值的人民币换成若干5元、1元、5角面值的人民币,但要求100元换成的零钱共100张,且要求每种面值不少于1张,问5元、1元、5角各多少张,请输出每种可能的组合。
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、打开“考生文件夹\716”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
某同学欲设计一个“水电费管理系统”,其功能如下:
水按每吨4元收取,电按每度0.5元收取,输入用水量和用电量,输出应付款。
请打开工程1.vbp文件,按如下要求完成下列操作。
(1)请在窗体中添加两个控件,使程序运行时,用其输入耗水量和耗电量。
(2)请把下列代码补充完整
DimaAsSingle,bAsSingle,sAsSingle
a=Val(①)
b=Val(②)
s=③
Label4.Caption=Str(④)+"
元"
2、打开“考生文件夹\723”文件夹中的文件:
“工程1.vbp”进行以下操作后并保存。
中国邮政的EMS国际快递业务:
中国寄往澳大利亚的快递收费标准是:
首个0.5公斤收费210元,其余的重量按55元/千克计算,(总重不足0.5千克按210元收费)下面是自动计算寄费的程序,请完善程序。
完成后按“Ctrl+W”保存程序。
(详见样张)
首个0.5公斤收费210元,其余的重量按55元/每千克计算,(总重不足
0.5千克按210元收费)下面是自动计算寄费的程序,请你完善程序。
DimxAsSingle,yAsSingle
y=0
①=Val(Text1.Text)
Ifx>
0.5Then
y=210+(x-0.5)*55
y=210
③=Str(y)
3、打开“考生文件夹\91\工程1.vbp”,完善程序并保存。
随机生成100个整数,统计偶数的个数。
Dima(100)AsInteger
DimtotalAsInteger
①
Fori=1To100
Ifa(i)Mod2=0Then
PrintCStr(total)
PrivateSubForm_Load()
Randomize
③=Int(Rnd*1000)
4、打开文件“考生文件夹\725\工程1.vbp”,进行以下操作后保存。
这是打印九九乘法表的程序,请你完善程序。
这是打印乘法九九表的程序,请完善程序。
PrivateSubForm_click()
DimiAsInteger,jAsInteger
Fori=1To①
Forj=1To②
PrintTab((j-1)*12);
Printj;
*"
;
i;
="
i*j;
Nextj
③
5、打开“考生文件夹\4\工程1.vbp”,完善程序并保存。
用穷举法找出所有的3位水仙花数的程序并保存。
3位水仙花数是指一个三位数,其各个数位上的数字之立方和为该数。
例如:
153=13+53+33。
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
Fori=100To999
a=i\①
b=(i-a*②)\10
c=iMod10
Ifa^3+b^3+c^3=iThenPrinti
Vb专项练习第三套
1、打开“考生文件夹\731”文件夹中的文件:
本题是青蛙跃井问题:
井底蛙欲沿湿滑井壁上跃至地面,若井深h尺,蛙上跃3尺下滑1尺,请给出井深h值,计算蛙上跃次数n。
请你完善程序。
井底蛙欲沿湿滑井壁
上跃至地面,若井深h尺,蛙上跃3尺下滑1尺,
请给出井深h值,计算蛙上跃次数n。
DimhAsSingle,nAsInteger
h=Val(①)
Ifh>
3Then
IfhMod2=0Then
n=h/2
n=(h-1)/2
Else
n=②
EndIf
Text2.Text=③
2、打开“考生文件夹\729”文件夹中的文件:
运行程序能够显示数字金字塔,请完善程序。
PrivateSubForm_Click()
PrintTab(10-i);
Forj=1To②
PrintStr(i);
Nextj
Nexti
3、打开“考生文件夹\733”文件夹中的文件:
本题是在文本框Text1中输入一位十六进制数码(若是字母要大写),运行程序后能译出它表示的十进制数的程序。
本题是在text1中输入一位十六进制数码(若是字母要大写),
运行程序后能译出它表示的十进制数的程序。
DimmAsString
m=①
SelectCasem
Case"
A"
m="
10"
B"
11"
C"
12"
D"
13"
E"
14"
F"
15"
Text2.Text=③
4、打开“考生文件夹\732”文件夹中的文件:
本题是从字符串中找出所有大写字母,并把找出的大写字母显示在text2中。
本题是从一串只含有字母或数字的字符串中找出所有大写字母,
并把找出的大写字母显示在text2中。
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)
5、打开“考生文件夹\730”文件夹中的文件:
①j
②j
③nextj
For①=1To5
PrintTab(10-j);
Vb专项练习第4套
1、打开“考生文件夹\735”文件夹中的文件:
完善程序,使之在运行程序后,能在窗体上显示样张所示的图形。
完善程序,使之在运行程序后,能在窗体上显示样张所显示的图形。
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)
2、打开“考生文件夹\36\工程1.vbp”,完善程序并保存。
给出三角形的三边边长a,b,c(输入保证能构成三角形,无需判断正确性),输出三角形面积。
三角形面积计算公式:
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③
3、打开“考生文件夹\60\工程1.vbp”,完善程序并保存。
从文本框t1中输入一个圆的半径,计算圆的面积,把结果输出到文本框t2中。
1dim
2t1.text
3s
Constpi=3.14
①r,sasSingle
r=Val(②)
s=pi*r*r
T2.Text=③
4、打开“考生文件夹\32\工程1.vbp”,完善程序并保存。
从键盘上输入一个三位数,然后将它反向输出。
例如输入“123”,输出结果为“321”。
DimaAsInteger,bAsInteger
DimbaiAsInteger,shiAsInteger
DimgAsInteger
a=Val(①)
bai=a\100
shi=(a-bai*100)\10
g=aMod10
②=g*100+shi*10+bai
③=CStr(b)
5、打开“考生文件夹\736”文件夹中的文件:
该题求丢番图年龄问题:
丢番图生命的1/6是童年,又过了生命的1/12长胡子,再过了生命的1/7结婚,婚后5年生儿子,儿子活了父亲年龄的一半死亡,之后丢番图又过了4年死亡。
求丢番图年龄。
完善程序,使之在运行程序后,能在text1中显示丢番图年龄。
该题是求丢番图年龄问题:
丢番图生命的1/6是童年,
又过了1/12长胡子,再过了的1/7结婚,婚后5年生儿子,
儿子活了父亲年龄的一半死亡,之后丢番图又过了4年死亡。
DimnAsInteger
n=0
Do
①=n+1
Loop②n<
n/6+n/12+n/7+5+n/2+4
③=Str(n)
Vb专项练习第五套
1、打开“考生文件夹\178\工程1.vbp”,完善程序并保存。
用递归法求3!
+5!
+7!
的值。
PublicFunctionFac(aAsInteger)AsInteger
Ifa=1Then
11
2Fac
35
Fac=①
Fac=a*②(a-1)
EndFunction
DimSAsInteger
S=Fac(3)+Fac(③)+Fac(7)
S="
CStr(S)
2、打开“考生文件夹\122\工程1.vbp”,完善程序并保存。
王晓珊家距离学校S1公里,某天她和李明各自同时从家里步行出发上学,王晓珊步行V1公里/小时,李明步行V2公里/小时,结果他们同时到达学校。
输入S1,V1,V2,输出李明家与学校之间的距离S2。
DimS1AsSingle,S2AsSingle
DimV1AsSingle,V2AsSingle
DimTAsSingle
S1=Val(InputBox("
请输入王晓珊家离学校的距离:
V1=Val(InputBox("
请输入王晓珊步行速度:
V2=Val(InputBox("
请输入李明步行速度:
T=①
S2=②*T
3、打开“考生文件夹\43\工程1.vbp”,完善程序并保存。
用递归法求斐波那契数列1,1,2,3,5,8,…第10项的值。
PublicFunctionFib(nAsInteger)AsInteger
If(n=1)Or(n=2)Then
Fib=①
Fib=Fib(n-1)+Fib(n-2)
S=Fib(③)
4、打开“考生文件夹\175\工程1.vbp”,完善程序并保存。
用递归法求1+2+3+…+100的值。
PublicFunctionS(nAsInteger)AsInteger
Ifn=1Then
S=①
S=②+S(n-1)
DimSumAsInteger
Sum=S(③)
Sum="
CStr(Sum)
5、打开“考生文件夹\68\工程1.vbp”,完善程序并保存。
在文本框Text1和Text2中分别输入两个整数,单击“交换”按钮后,两个文本框中的数字进行交换。
请不要更改源程序的结构,删除原题里的①、②、③、④。
DimaAsInteger
DimbAsInteger
DimtAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
t=a
a=①
b=②
Text1.Text=③
Text2.Text=④
Vb专项练习第六套
1、打开"
考生文件夹\30\工程1.vbp"
,完善程序并保存。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江苏 高中 信息技术 学业 水平 测试 vb 操作 答案