VB程序参考.docx
- 文档编号:11133488
- 上传时间:2023-02-25
- 格式:DOCX
- 页数:14
- 大小:222.43KB
VB程序参考.docx
《VB程序参考.docx》由会员分享,可在线阅读,更多相关《VB程序参考.docx(14页珍藏版)》请在冰豆网上搜索。
VB程序参考
1.输入语文、数学、英语的成绩,点击计算求总分和平均分。
PrivateSubCommand1_Click()
DimyuAsDouble
DimshuAsDouble
DimyingAsDouble
DimzongAsDouble
yu=Val(Text1.Text)
shu=Val(Text2.Text)
ying=Val(Text3.Text)
zong=yu+shu+ying
pin=zong/3
Text4.Text=zong
Text5.Text=pin
EndSub
2.点击显示按钮在文本框中显示欢迎进入VB世界!
点击清除按钮欢迎进入VB世界!
消失。
PrivateSubCommand1_Click()
Text1.Text="欢迎进入VB世界!
"
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
EndSub
3.编写一个程序根据用户输入的两个数,然后输出较大的数。
PrivateSubCommand1_Click()
DimaAsDouble
DimbAsDouble
DimmaxAsDouble
a=Val(Text1.Text)
b=Val(Text2.Text)
Ifa>bThen
max=a
Else
max=b
EndIf
Text3.Text=max
EndSub
第二题:
编写一个程序,根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及格五个等级。
判断标准如下:
不及格(E)score<60
及格(D)60≤score<70
中等(C)70≤score<80
良好(B)80≤score<90
优(A)score≥90
PrivateSubCommand1_Click()
DimscoreAsDouble
DimdegreeAsString
score=Val(Text1.Text)
SelectCasescore
CaseIs<60
degree="成绩等级为E"
Case60To69
degree="成绩等级为D"
Case70To79
degree="成绩等级为C"
Case80To89
degree="成绩等级为B"
Case90To100
degree="成绩等级为A"
CaseElse
degree="输入成绩有错"
EndSelect
Text2.Text=degree
EndSub
1.用SelectCase语句编程为某航空公司计算票价的优惠率R。
假设优惠规定如下。
(1)在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%;20张以下,优惠5%。
(2)在旅游的淡季1~5月份、10月份和11月份,如果订票数超过20张,票价优惠30%;20张以下,优惠20%。
(3)其他情况一律优惠10%。
(注意:
设计程序时,根据月份和订票张数决定票价的优惠率。
)
建立应用程序用户界面并设置对象属性,如图所示。
DimmAsInteger
DimnAsInteger
DimrAsInteger
m=Val(Text1.Text)
n=Val(Text2.Text)
SelectCasem
Case7To9
Ifn>20Then
r=15
Else
r=5
EndIf
Case1To5,10,11
Ifn>20Then
r=30
Else
r=20
EndIf
CaseElse
r=10
EndSelect
Label4.Caption=Label4.Caption&r&"%"
EndSub
1.请设计一个如图1与图2所示的下拉菜单,各菜单的名称属性如表1所示,要求使
用菜单编辑器设置各级菜单及相应热键。
图1文件下拉菜单
图2文件下拉菜单
标题
名称
上级菜单标题
热键
快捷键
文件
Mfile
无
F
无
新建
MNew
文件
N
CtrL+N
打开
MOpen
文件
O
CtrL+O
保存
MSave
文件
S
CtrL+S
关闭
MClose
文件
C
CtrL+C
分割线
MSp1
文件
无
无
退出
MExit
文件
E
CtrL+E
格式
MChar
无
H
无
居左
MLeft
格式
L
CtrL+L
居右
MRight
格式
R
CtrL+R
居中
MCenter
格式
M
CtrL+M
分割线
MSp2
格式
无
无
字体
MFont
格式
T
CtrL+T
2,输入三个数,求其中最大数。
界面如下图所示:
PrivateSubCommand1_Click()
DimaAsInteger
DimbAsInteger
DimcAsInteger
DimmaxAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
max=a
Ifmax Ifmax Text4.Text=max EndSub 10.编写程序,求出100之内的所有勾股数。 (勾股数: a2+b2=c2,a、b、c为自然数,且a<>b) DimaAsInteger DimbAsInteger DimcAsInteger Fora=1To100 Forb=1To100 Forc=1To100 Ifa^2+b^2=c^2Anda<>bThen Printa,b,c;"是勾股数" EndIf Nextc Nextb Nexta EndSub 1.使用Rnd函数生成5个[0~100]之间的随机整数,找出这5个数中的最大数与最小数,并以升序重新排列这5个数。 窗体格式如图(9分) 参考答案: ‘*****界面设计(1分)************** OptionExplicit OptionBase1 Dima(5)AsInteger PrivateSubCommand1_Click() DimmaxAsInteger‘存储最大数 DimminAsInteger‘存储最小数 DimiAsInteger‘循环变量 DimjAsInteger‘循环变量 DimtAsInteger‘交换变量 DimsAsString‘存储排序后的5个数 ‘****求最大最小值(2分)********** max=0 min=100 Fori=1To5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 参考