VB操作题.docx
- 文档编号:12571162
- 上传时间:2023-04-20
- 格式:DOCX
- 页数:46
- 大小:33.23KB
VB操作题.docx
《VB操作题.docx》由会员分享,可在线阅读,更多相关《VB操作题.docx(46页珍藏版)》请在冰豆网上搜索。
VB操作题
VB操作题
4.给定年份和月份,判断该年是否是闰年。
并根据给出的月份判断是什么季节、该月有多少天。
(闰年的条件是:
年份能被4整除但不能被100整除或能被400整除)
6.编写程序,输入学生的姓名、学号和成绩(高数、英语和专业课),判断该学生能获得几等奖学金,并输出结果。
获奖条件是:
一等奖学金要求所有成绩在95分以上;二等奖学金要求所有成绩在90分以上;三等奖学金要求所有成绩在88分以上。
8.已知:
。
。
当任意输入x值时求f(x)的值。
请编制程序完成。
9.编写一个程序输入某人的身高(cm)和体重(kg),按下式确定其体重是否为标准、过胖或过瘦:
(1)标准体重=身高-110;
(2)超过标准体重5kg为过胖;(3)低于标准体重5kg为瘦。
10.征兵的条件是:
男性(sex)年龄(age)在18~20之间,身高(size)在1.65米以上;或者女性(sex)年龄(age)在16~18之间,身高(size)在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息,根据这些信息判断是否符合征兵条件,用标签控件输出结果。
11.夏季到了,超市对水果进行促销,具体活动如下:
早市9:
00~12:
00所有水果打九折;
午市12:
00~16:
00所有水果打8折;
晚市16:
00~21:
00所有水果打7折;
小明今天要去超市买些荔枝,请根据他去的时间段,编程输入荔枝的价格并计算总价。
(请注意,他买的水果可能不止1斤)
12.为某航空公司设计一售机票程序,能根据月份和订票数决定优惠率,计算票
价。
假设优惠折扣规定如下:
①在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%;20张以下,票价优惠5%。
②在旅游的淡季1~5月份、10月份和11月份,如果订票数超过20张,票价优惠30%,20张以下,票价优惠20%。
③其他情况,一律优惠20%。
13.输入4个大小不同的数,将它们从大到小排序。
14.利用if语句求三个数x,y,z中的最大值,并将其放入Max变量中显示输出。
15.编一段程序,从键盘输入3个整数,找出其中绝对值最小的数。
16.税务部门征收所得税,规定如下:
(1)收入在1000内的,免征。
(2)收入在1000~1500元内,超过1000元的部分征税2%。
(3)收入超过1500元的部分,纳税3%。
(4)当收入达到或者超过5000元时,将3%税金改为4%。
编程实现上述条件的税金,利用InputBox函数进行输入某人的收入,然后根据条件计算所交税金及交税金之后的实际收入,将所交税金及实际收入通过文本框输出
17.求一个一元二次方程ax^2+...的根
18.任意输入5个学生的成绩,当成绩大于等于60小于等于100时,输出该生成绩“合格”,当成绩大于等于0小于60时,输出该生成绩“不合格”,其他情况输出“成绩不合法”,并统计这5个人的平均分。
19.用两种循环结构输出101~500之间的所有奇数并输出它们的和。
20.输入两个正整数m和n,求其最大公约数a
21.
求:
要求:
用InputBox或文本框进行n值的输入,用MsgBox函数输出结果
22.利用下述公式计算的值(直到最后一项小于为止)。
23.百鸡问题
公鸡每只5元,母鸡每只3元,小鸡3只1元。
现有100元,要求买100只鸡,问:
公鸡、母鸡、小鸡各多少只?
(所有可能的结果均放在列表框中显示出来)
24.设计程序,求s=1*(1+2)*(1+2+3)*….*(1+2+3+4+…+n)的值,编程求s不大于20000时最大的n值。
25.求300~400之间(包括300和400)所有能被3整除的数之和s,并在窗体上打印出s的值。
26.已知编程实现:
任意输入n的值,求S的值
27.编程求1到100自然数中被7整除的数据的个数及它们的和。
28.求S=1!
/2+2!
/3+3!
/4+...+n!
/(n+1),n是从键盘输入的正整数n。
29.求s,直到最后一项的值小于10^(-6)
30.s=....r任意输入一个n值,求S
31.某单位制定生产计划,未来五年的生产量年递增率为5%,从第六年起年递
增率调整到8%,试计算产量翻一翻(基数的2倍)所需的最少年数。
32.编写一个求4个数中最大数的Sub过程,并调用以验证其正确性。
33.编写一个求4个数的最小值的函数,在窗体上设计4个文本框输入数据,一个命令按钮“求最小值“,点击该按钮既可调用函数求出4个文本框中的数值的最小值。
34.编写一个计算圆的面积的函数过程或子过程。
要求输入一个半径值,就能够
通过该子过程或函数过程求得以该值为半径的圆的面积
35.S=1/1+1....,编写一个求的Function过程。
36.编写的Function函数,用该函数实现以下表达式求和,n为任意输入的数值。
37.在列表框中输入100~200之间不能被3整除的数。
窗体上有两个命令按钮和一个列表框,一个命令按钮的标题为“开始”,一个命令按钮的标题为“清除“;点击”开始“按钮后在列表框中列出所有满足条件的数据,点击”清除“按钮后清除列表框中的数据。
38.已知数组A=array(7,9,5,12,24,32,45),编写一程序,删除数组中值为x(例如为9)的第一个元素。
要求用户可以输入x。
39.随机产生n个(n由用户输入)[10,20]范围内的无序整数,存放到数组中,
显示结果,并将数组中相同的数只保留一个,其余的删除,最后输出删除后的结果。
40.利用一维数组统计一班15个学生0~9、10~19、20~29、……、90~99及100
各分数段的人数,并将统计结果在列表框中显示出来
41.有10个数据,请用冒泡法排序将其按照由小到大的顺排列出来
42.把两个按升序(即从小到大)排序的数列a
(1),a
(2),a(3),……,a(10)和b(15)
合并成一个仍为升序排列的新数列
43.利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和
平均值。
44.编写一个在数组中查找最大值的函数过程。
要求给定或由机器产生一系列随机数构
成一个一维数组,然后调用该过程,就可以找到并显示数组中的最大值。
45.(96)任意输入n值,编程求n!
46.(80)已知铁路货运的费用与路程s的关系如下表所示:
设计窗体界面如下图所示,程序运行后,用户输入路程和货物重量,单击命令按钮,显示总共需要的费用。
47.在“神州号”程序中,需要判断飞船飞行状况。
当飞船速度继续加大时,飞船将达到第二宇宙、第三宇宙速度(见下表)试编写程序,输入不同的飞船速度V,判断它的各种飞行状况,显示出来。
飞船速度(V)单位(km/s)飞行状况
7.91<=V<11.19飞船绕地球做匀速圆周运动
11.19<=V<16.67飞船离开地球的控制,围绕太阳转
V>16.67飞船挣脱太阳引力飞出太阳系
48.?
,编写一个求的Sub过程,对于任意给定的n值,调用该过程求出相应的s值
——————————————————答案———————————————————
4.给定年份和月份,判断该年是否是闰年。
并根据给出的月份判断是什么季节、该月有多少天。
(闰年的条件是:
年份能被4整除但不能被100整除或能被400整除)
4
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
Text1.Text=InputBox("请输入年份")
x=Val(Text1.Text)
Text3.Text=(xMod4)=0And(xMod100<>0)_
Or(xMod4)=0And(xMod400=0)
EndSub
PrivateSubCommand2_Click()
DimxAsInteger,yAsInteger
Text2.Text=InputBox("请输入月份")
y=Val(Text2.Text)
SelectCasey
Case3To5
Text4.Text="春季"
Case6To8
Text4.Text="夏季"
Case9To11
Text4.Text="秋季"
Case1,2,12
Text4.Text="冬季"
EndSelect
EndSub
PrivateSubCommand3_Click()
DimxAsInteger,yAsInteger
Text1.Text=InputBox("请输入年份")
x=Val(Text1.Text)
Text3.Text=(xMod4)=0And(xMod100<>0)_
Or(xMod4)=0And(xMod400=0)
Text2.Text=InputBox("请输入月份")
y=Val(Text2.Text)
SelectCasey
Case1,3,5,7,8,10,11
Text5.Text="31天"
Case4,6,9,12
Text5.Text="30天"
Case2
IfText1.Text=0Then
Text5.Text="29天"
Else
Text5.Text="28天"
EndIf
EndSelect
EndSub
6.编写程序,输入学生的姓名、学号和成绩(高数、英语和专业课),判断该学生能获得几等奖学金,并输出结果。
获奖条件是:
一等奖学金要求所有成绩在95分以上;二等奖学金要求所有成绩在90分以上;三等奖学金要求所有成绩在88分以上。
6
PrivateSubCommand1_Click()
Dimm%,n%,d%,sun%,no$,name$
no=InputBox("输入学号")
name=InputBox("输入姓名")
m=Val(Text1.Text)
n=Val(Text2.Text)
d=Val(Text3.Text)
sun=m+n+d
Ifm>95Andn>95Andd>95Then
Label5.Caption=name&"获一等奖学金"
ElseIfm>=90Andn>=90Andd>=90Then
Label5.Caption=name&"获二等奖学金"
ElseIfm>=88Andn>=88Andd>=88Then
Label5.Caption=name&"获三等奖学金"
Else
Label5.Caption=name&"没有奖学金"""
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label5.Caption=""
EndSub
8 当任意输入x值时求f(x)的值。
请编制程序完成。
8
PrivateSubCommand1_Click()
Dimx!
f!
x=Val(InputBox("请输入x的值"))
If(x<0Andx<>-3)Then
f=x^2+x-6
ElseIf(x>=0Andx<10Andx<>2Andx<>3)Then
f=x^2-5*x+6
Else
f=x^2-x-1
EndIf
MsgBox"f(x)的值是"&f
EndSub
9.编写一个程序输入某人的身高(cm)和体重(kg),按下式确定其体重是否为标准、过胖或过瘦:
(1)标准体重=身高-110;
(2)超过标准体重5kg为过胖;(3)低于标准体重5kg为瘦。
9
PrivateSubCommand1_Click()
Dimm!
n%,d!
m=Val(Text1.Text)
n=Val(Text2.Text)
d=n-110
Label5.Caption="按你的身高,标准体重为:
"&d&"公斤"
Ifm-d>5Then
Label6.Caption="你比较胖,请注意瘦身"
ElseIfm=dThen
Label6.Caption="你是标准体重"
Else
Label6.Caption="你比较瘦,请注意锻炼"
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Label5.Caption=""
Label6.Caption=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
10.征兵的条件是:
男性(sex)年龄(age)在18~20之间,身高(size)在1.65米以上;或者女性(sex)年龄(age)在16~18之间,身高(size)在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息,根据这些信息判断是否符合征兵条件,用标签控件输出结果。
10
PrivateSubCommand1_Click()
Dimm$,n%,d!
m=Text1.Text
n=Val(Text2.Text)
d=Val(Text3.Text)
Ifm="男"Andn>=18Andn<=20Andd>1.63Then
Label5.Caption="符合征兵条件"
ElseIfm="女"Andn>=16Andn<=18Andd>1.6Then
Label5.Caption="符合征兵条件"
Else
Label5.Caption="不符合征兵条件"
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
11.夏季到了,超市对水果进行促销,具体活动如下:
早市9:
00~12:
00所有水果打九折;
午市12:
00~16:
00所有水果打8折;
晚市16:
00~21:
00所有水果打7折;
小明今天要去超市买些荔枝,请根据他去的时间段,编程输入荔枝的价格并计算总价。
(请注意,他买的水果可能不止1斤)
11
PrivateSubCommand1_Click()
Dimm!
n,r%,dj!
m=Val(Text1.Text)
n=Val(Text2.Text)
dj=Val(Text3.Text)
SelectCasem
Case9To12
r=90
Case12To16
r=80
Case16To21
r=70
EndSelect
Label5.Caption="打折率为:
"&Str(r)&"%"
Label6.Caption="共收款"&r*dj*n/100&"元"
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Text1.Text=Time()
EndSub
12.为某航空公司设计一售机票程序,能根据月份和订票数决定优惠率,计算票
价。
假设优惠折扣规定如下:
①在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%;20张以下,票价优惠5%。
②在旅游的淡季1~5月份、10月份和11月份,如果订票数超过20张,票价优惠30%,20张以下,票价优惠20%。
③其他情况,一律优惠20%。
12
PrivateSubCommand1_Click()
Dimm%,n%,r%,dj!
m=Val(Text1.Text)
n=Val(Text2.Text)
dj=Val(Text3.Text)
SelectCasem
Case1To5
Ifn<=20Thenr=20Elser=30
Case7To9
Ifn<=20Thenr=5Elser=15
CaseElse
r=20
EndSelect
Label4.Caption="所订机票的优惠率为:
"&Str(r)&"%"
Label6.Caption="单张票价为"&(100-r)*dj/100&"元"&",共收款"&(100-r)*dj*n/100&"元"
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Text1.Text=Month(Date)
EndSub
13.输入4个大小不同的数,将它们从大到小排序。
13
PrivateSubCommand1_Click()
i=Val(Text1.Text)
j=Val(Text2.Text)
k=Val(Text3.Text)
m=Val(Text4.Text)
If(i i=j: j=c If(i i=k: k=c If(i i=m: m=c If(j j=k: k=c If(j j=m: m=c If(k k=m: m=c Text5.Text=i Text6.Text=j Text7.Text=k Text8.Text=m EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" Text7.Text="" Text8.Text="" EndSub PrivateSubCommand3_Click() End EndSub 14.利用if语句求三个数x,y,z中的最大值,并将其放入Max变量中显示输出。 14 PrivateSubCommand1_Click() i=Val(Text1.Text) j=Val(Text2.Text) k=Val(Text3.Text) m=i If(i If(m Text4.Text=m EndSub PrivateSubCommand3_Click() End EndSub 15.编一段程序,从键盘输入3个整数,找出其中绝对值最小的数。 15 PrivateSubCommand1_Click() i=Val(Text1.Text) j=Val(Text2.Text) k=Val(Text3.Text) m=Abs(i) If(m If(m Text4.Text=m EndSub PrivateSubCommand3_Click() End EndSub 16.税务部门征收所得税,规定如下: (1)收入在1000内的,免征。 (2)收入在1000~1500元内,超过1000元的部分征税2%。 (3)收入超过1500元的部分,纳税3%。 (4)当收入达到或者超过5000元时,将3%税金改为4%。 编程实现上述条件的税金,利用InputBox函数进行输入某人的收入,然后根据条件计算所交税金及交税金之后的实际收入,将所交税金及实际收入通过文本框输出 16 PrivateSubCommand1_Click() Dimm! n! r%,dj! Text1.Text=InputBox("请输入你的收入") m=Val(Text1.Text) SelectCasem Case1000To1500 r=2: n=(m-1000)*r/100: dj=m-n Case1501To5000 r=3: n=(m-1500)*r/100: dj=m-n CaseIs>5000 r=4: n=(m-1500)*r/100: dj=m-n CaseElse r=0: n=0: dj=m EndSelect Text2.Text=n&"元" Text3.Text=dj&"元" EndSub PrivateSubCommand2_Click() End EndSub 17.求一个一元二次方程ax^2+bx+c=0的根 17 PrivateSubCommand1_Click() EndSub PrivateSubForm_Click() DimaAsSingle,bAsSingle,cAsSingle DimDAsSingle,x1AsSingle,x2AsSingle a=Val(InputBox("请输入一元二次方程的系数a")) b=Val(InputBox("请输入一元二次方程的系数b")) c=Val(InputBox("请输入一元二次方程的系数c")) Ifa=0Then a=InputBox("请重新输入系数a") EndIf D=b*b-4*a*c IfD>=0Then x1=(-b+Sqr(D))/(2*a) x2=(-b-Sqr(D))/(2*a) Print"x1=";Format(x1,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 操作
![提示](https://static.bdocx.com/images/bang_tan.gif)