vb新操作题含答案上课讲义.docx
- 文档编号:3793764
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:13
- 大小:70.67KB
vb新操作题含答案上课讲义.docx
《vb新操作题含答案上课讲义.docx》由会员分享,可在线阅读,更多相关《vb新操作题含答案上课讲义.docx(13页珍藏版)》请在冰豆网上搜索。
vb新操作题含答案上课讲义
vb新操作题(含答案)
一、操作题,每题10分,6题共60分
【第4题】
打开文件“考生文件夹\175\工程1.vbp”,完善Command1_Click事件及s函数代码并保存。
实现功能:
用递归法求1+2+3+…+100的值,结果输出在窗体上。
PublicFunctionS(nAsInteger)AsInteger
Ifn=1Then
S=①
Else
S=②+S(n-1)
①1
②n
③100
EndIf
EndFunction
PrivateSubCommand1_Click()
DimSumAsInteger
Sum=S(③)
Print"Sum="&CStr(Sum)
EndSub
【第5题】
打开文件“考生文件夹\851\工程1.vbp”,完善程序实现如下功能并保存:
花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。
正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35!
Functions(nAsInteger)AsLong
Ifn=1Orn=2Then
s=①
Else
①1
②text1.text
③s(n)
Ifn=3Then
s=2
Else
s=s(n-1)+s(n-3)
EndIf
EndIf
EndFunction
PrivateSubCommand1_Click()
DimnAsInteger
n=Val(②)
Label1.Caption=Str(③)
EndSub
【第6题】
打开文件“考生文件夹\861\年龄问题.vbp”,完善程序实现如下功能并保存:
有5个人坐在一起,第5个人说他比第4个人小3岁;第4个人说他比第3个人小3岁;第3个人说他比第2个人小3岁;第2个人又说他比第1个人小3岁;第1个人说他是38岁。
编写程序,计算出第5个人的年龄并显示。
PrivateSubcmdDisplay_Click()
Print"第5人的年龄:
";age(①)
EndSub
①n
②38
③EndIf
Functionage(nAsInteger)AsInteger
Ifn=1Then
age=②
Else
age=age(n-1)-3
③
EndFunction
【第3题】
打开文件“考生文件夹\89\工程1.vbp”,完善Command1_Click事件代码并保存。
乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1.5%计算。
实现功能:
输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。
PrivateSubCommand1_Click()
DimwAsInteger'行李重量
DimpjAsInteger'机票价格
DimfyAsSingle'托运费用
w=Val(Text1.Text)
pj=Val(Text2.Text)
①fy=0
②EndIf
③fy
Ifw<=20Then
①
Else
fy=(w-20)*pj*0.015
②
Text3.Text=③
EndSub
【第4题】
打开文件“考生文件夹\122\工程1.vbp”,完善Command1_Click事件代码并保存。
王晓珊家距离学校s1(千米),某天她和李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果他们同时到达学校。
实现功能:
输入s1、v1、v2,在窗体上输出李明家与学校之间的距离s2。
PrivateSubCommand1_Click()
①s1/v1
②v2
③s2
Dims1AsSingle
Dims2AsSingle
Dimv1AsSingle
Dimv2AsSingle
DimtAsSingle
s1=Val(InputBox("请输入王晓珊家离学校的距离:
"))
v1=Val(InputBox("请输入王晓珊步行速度:
"))
v2=Val(InputBox("请输入李明步行速度:
"))
t=①
s2=②*t
Print③
EndSub
【第6题】
打开“考生文件夹\772”中的文件“工程1.vbp”,完善Command1_Click事件代码并保存。
实现功能:
某商场正在搞促销活动,买300元送200元,例如:
某顾客购买商品449元,返还顾客200元,不满300元的零头不送。
在文本框中输入一个正整数,计算返还的金额并显示在标签上,如样张所示。
①text
②a\300
③caption
④s
PrivateSubCommand1_Click()
DimaAsInteger
DimsAsInteger
a=Val(Text1.①)
s=(②)*200
Label1.③=Str(④)
EndSub
【第1题】
打开文件“考生文件夹\373\操作2.vbp”,完善程序实现以下功能并保存。
找出100以内的质数对(若两个质数的差为2则称为质数对),并成对显示结果。
其中,函数IsP(m)判断参数m是否为质数。
PublicFunctionIsP(m)AsBoolean
DimiAsInteger
__________
(1)____________
Fori=2ToInt(Sqr(m))
If________
(2)__________ThenIsP=False
1Isp=true
2Mmod2=0
3I-2
Nexti
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger,p1AsBoolean,p2AsBoolean
p1=IsP(3)
Fori=5To100Step2
p2=IsP(i)
Ifp1andp2ThenPrint_________(3)_________,i
p1=p2
Nexti
EndSub
【第8题】
打开文件“考生文件夹\859\玫瑰花数.vbp”,完善程序实现如下功能并保存:
如果一个4位数等于它的各位数字的4次方和,则这个4位数称为“玫瑰花”数,例如1634就是一个玫瑰花数。
试编程求出所有的玫瑰花数,结果如下图所示。
PrivateSubcmdDemoRose_Click()
①1
②m^4
③nexti
DimiAsInteger
DimsAsInteger
DimmAsInteger
Fori=1000To9999
s=0
Forj=①To4
m=Mid(i,j,1)
s=s+②
Nextj
Ifi=sThenPrinti
③
EndSub
【第8题】
打开文件“考生文件夹\863\细胞分裂.vbp”,完善程序实现如下功能并保存:
有一种细胞每3分钟分裂一次,每次分裂时每个细胞分裂成2个,30分钟后有2048个细胞。
问开始时有多少个细胞?
PrivateSubcmdDivision_Click()
①x>=0
②y+x
③y/z
①2048
②step-1
③f(0)
Dimf(10)AsInteger'30分钟共分裂10次
DimiAsInteger
f(10)=①
Fori=9To0Step②
f(i)=f(i+1)/2
Nexti
Print③
EndSub
【第1题】
打开文件“考生文件夹\375\操作4.vbp”,完善程序实现以下功能并保存。
从键盘输入若干个数直到输入负数为止,统计所有非负数的平均值并输出。
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
DimzAsInteger
x=InputBox("输入一个数:
")
Dowhile_____
(1)________
y=_____
(2)_________
z=z+1
x=InputBox("输入一个数:
")
Loop
Ifz=0Then
z=1
EndIf
y=______(3)___________
Print"平均值为:
";y
EndSub
【第1题】
打开文件“考生文件夹\372\操作1.vbp”,完善程序实现以下功能并保存。
PrivateSubCommand1_Click()
DimsAsSingle
DimaAsInteger,bAsInteger,cAsInteger,kAsInteger
①1
②a
③b
s=0
a=______
(1)_________
b=1
Fork=1To20
s=s+a/b
c=______
(2)_________
a=______(3)_________
b=c+a
Nextk
Prints
EndSub
【第7题】
打开文件“Z:
\114\工程1.vbp”,完善Form_Click事件代码并保存。
完善程序,求1/1+1/2+2/3+…+21/34+…前20项的值。
PrivateSubCommand1_Click()
DimsAsInteger
DimaAsInteger
DimbAsInteger
DimkAsInteger
s=0
a=1
b=1
①a+b
②s+b/a
③a+b
Fork=1To10
s=s+a/b
a=①
s=②
b=③
Nextk
Prints
EndSub
【第3题】
打开文件“考生文件夹\374\操作3.vbp”,完善程序实现以下功能并保存。
输出数组的最大值。
PrivateSubCommand1_Click()
Dimarr1,MaxAsInteger
arr1=Array(12,435,76,24,78,54,866,43)
①max
②0
③max=arr1(i)
______
(1)________=-32768
Fori=_____
(2)______To7
Ifarr1(i)>MaxThen_____(3)__________
Nexti
Print"最大值是:
";Max
EndSub
【第4题】
打开文件“考生文件夹\376\操作5.vbp”,完善程序实现如下功能并保存:
在所有的两位整数中,输出个位数字和十位数字不相同的整数及个数。
PrivateSubCommand1_Click()
DimnAsInteger,aAsInteger,bAsInteger,xAsInteger
n=0
Fora=______
(1)____________
Forb=0To9
①1to9
②a*10+b
③n
Ifa<>bThen
x=______
(2)________
Printx;
n=n+1
EndIf
Nextb
Nexta
Print"总个数:
";______(3)__________
EndSub
【第9题】
打开文件“考生文件夹\850\工程1.vbp”,完善程序实现如下功能并保存:
在文本框text1中输入一段含有数字的短文(如样张),编写程序查找统计非数字字符的个数,并在label1中显示。
PrivateSubCommand1_Click()
DimxAsString,yAsString
DimsAsInteger,iAsInteger
①0
②y
③s
x=Text1.Text
s=①
Fori=1ToLen(x)
②=Mid(x,i,1)
IfAsc(y)<48OrAsc(y)>57Then
s=s+1
EndIf
Nexti
Label1.Caption=Str(③)
EndSub
【第10题】
打开文件“考生文件夹\857\恺撒密码.vbp”,完善程序实现如下功能并保存:
公元前60年,古罗马统帅“朱利叶斯·恺撒”(Caesar)第一个用当时发明的“恺撒密码”书写军事文书,进行战时通信。
恺撒加密法简而言之,就是字母替换加密,每一个字母用字母表中该字母后的第三个字母代替。
即
明文:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文:
DEFGHIJKLMNOPQRSTUVWXYZABC
编写程序,将明文加密输出。
例如:
输入:
Howareyou!
输出:
Krzduhbrx!
PrivateSubcmdCode_Click()
DimptAsString'明文
DimctAsString'密文
DimnAsInteger'字母在字母表中的序号
DimchAsString
DimiAsInteger
pt=txtPt.Text
①ch
②asc(ch)-asc("A")
③ct+ch
ct=""
Fori=1ToLen(pt)
ch=Mid(pt,i,1)
SelectCase①
Case"A"To"Z"
n=Asc(ch)-Asc("A")
n=(n+3)Mod26
ch=Chr(n+65)
Case"a"To"z"
n=②
n=(n+3)Mod26
ch=Chr(n+97)
EndSelect
ct=③
Nexti
txtCt.Text=ct
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 操作 答案 上课 讲义
![提示](https://static.bdocx.com/images/bang_tan.gif)