vb上机程序3.docx
《vb上机程序3.docx》由会员分享，可在线阅读，更多相关《vb上机程序3.docx（18页珍藏版）》请在冰豆网上搜索。
vb上机程序3
1某个数组有10个元素，元素的值由键盘输入，要求将前五个元素与后五个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换，第3个元素与第8个元素互换……第5个元素与第6个元素互换。
输出数组原来各元素的值和对换后各元素的值。
2把两个按升序（即从小到大）排列的数列a
（1），a
（2），…，a（n）和b
（1），b
（2），…b（m），合并成一个仍是按照升序排列的新数列。
3计算全班学生每门课的总分，同时计算每个学生的总分，最后计算总平均分数。
假设全班有4个学生，每个学生考3门课，如表3-1所示。
表3-1学生成绩单
姓名
语文
数学
物理
总分
黎丽
78.5
96.5
75
余胜泉
85
75.5
96
章文余
99
89
88
阮次山
69
72.6
80
4将一个5×4的矩阵赋值并转置。
5某校在保送研究生的过程中，采取按照综合评分来决定候选人的综合排名。
各个候选人的排名如表3-2所示。
请设计一个程序，实现按照这种方式的排名顺序。
表3-2候选人排名
候选人姓名
成绩
候选人姓名
成绩
张贵和
263
王小平
321
李士滨
259
赵明飞
231
陈小乐
589
明亮
265
赵静
428
刘桑
398
吴大海
458
何平
289
张海
467
韩虎
455
综合题
设计制作一个科学计算器，该计算器不仅能够满足一般的算术运算，而且能够满足科学计算的功能。
⑴建立应用程序用户界面与设置对象属性
选择“新建”工程，进入窗体设计器，增加一个框架控件Frame1，选中Frame1后，其中增加一个文本框控件Text1、三个命令按钮控件数组Command1（0~10）,Command2（0~4）,Command6（0~12）,和四个命令按钮Command3,command4,Command5,Command7。
设置对象属性如表3-5所示。
表3-5对象属性表
对象
属性
值
Text1
Alignment
1－rightjustify
Text
空
Font
粗体、小四
Command1（0）~~Command1（10）
Caption
1、2、…、9、.
字体
粗体、小四
Command2（0）~~Command（4）
Caption
+、-、*、/、x（y）
字体
粗体、小四
Command3
Caption
=
字体
粗体、小四
Command4
Caption
On
字体
粗体、小四
Command5
Caption
Off
字体
粗体、小四
Command6（0）~~Command6（12）
Caption
sin、cos、tan、abs、tan-、E（x）、Ln、x（1/2）、x
（2）、x（3）、sin-、cos-、x!
字体
粗体、小四
Command7
Caption
PI
字体
粗体、小四
设计界面如图3-31所示。
图3-31设计界面
⑵设计代码
实现声明：
DimvAsBoolean
Dims1AsString
Dims2AsString
DimXAsDouble
DimYAsDouble
DimzAsInteger
DimiAsInteger
ConstPI=3.14159265'设置常数PI为圆周率
设置数字和小数点属性代码：
PrivateSubCommand1_Click（IndexAsInteger）
IfForm1.Tag="T"Then
IfIndex=10Then
Text1.Text="0."
Else
Text1.Text=Command1（Index）.Caption
EndIf
Form1.Tag=""
Else
IfText1.Text="0"Then
Text1.Text=""
EndIf
a=Text1.Text
Text1.Text=a&Command1（Index）.Caption
EndIf
EndSub
二元运算属性代码：
PrivateSubCommand2_Click（IndexAsInteger）'定义二元运算
DimnAsSingle
DimmAsSingle
Form1.Tag="T"
IfvThen
X=Text1.Text:
v=Notv
Else'用x和y分别存放二元运算的两个值
Y=Text1.Text
SelectCases1
Case0'二元加法
Text1.Text=X+Y
Case1'二元减法
Text1.Text=X-Y
Case2'二元乘法
Text1.Text=X*Y
Case3'二元除法
IfY<>0Then
Text1.Text=X/Y
Else'除数不为零
Fori=0To10
Command1（i）.Enabled=False
Nexti
Fori=0To4
Command2（i）.Enabled=False
Nexti
Fori=0To12
Command6（i）.Enabled=False
Nexti
Command3.Enabled=False
Command7.Enabled=False
Text1.Enabled=False
Text1.Text="E"
EndIf
Case4'定义x的y次幂
m=Val（X）
z=Int（Y）
Ifz>0Orz=0Then
Text1.Text=mm（m,z）'调用函数实现
Else
Text1.Text=1/mm（m,z）
EndIf
EndSelect
X=Val（Text1.Text）
s1=Index
EndIf
EndSub
等号的属性代码：
PrivateSubCommand3_Click（）'单击"="显示结果
DimmAsSingle
Form1.Tag="T"
Y=Text1.Text
SelectCases1
Case0'加法
Text1.Text=X+Y
Case1'减法
Text1.Text=X-Y
Case2'乘法
Text1.Text=X*Y
Case3'除法
IfY<>0Then
Text1.Text=X/Y
Else'除数不为零
Fori=0To10
Command1（i）.Enabled=False
Nexti
Fori=0To4
Command2（i）.Enabled=False
Nexti
Fori=0To12
Command6（i）.Enabled=False
Nexti
Command3.Enabled=False
Command7.Enabled=False
Text1.Enabled=False
Text1.Text="E"
EndIf
Case4'x的y次幂
m=Val（X）
z=Int（Y）
Ifz>0Orz=0Then
Text1.Text=mm（m,z）'调用函数实现
Else
Text1.Text=1/mm（m,z）
EndIf
EndSelect
X=Val（Text1.Text）
Y=0
s1=5
v=False
EndSub
打开命令按钮属性代码：
PrivateSubCommand4_Click（）'定义打开"on"
Fori=0To10
Command1（i）.Enabled=True
Nexti
Fori=0To4
Command2（i）.Enabled=True
Nexti
Fori=0To12
Command6（i）.Enabled=True
Nexti
Command3.Enabled=True
Command7.Enabled=True
Command5.Enabled=True
Text1.Enabled=True
Text1.Text=0
X=0
Y=0
EndSub
关闭命令按钮属性代码：
PrivateSubCommand5_Click（）'定义关闭"off"
Fori=0To10
Command1（i）.Enabled=False
Nexti
Fori=0To4
Command2（i）.Enabled=False
Nexti
Fori=0To12
Command6（i）.Enabled=False
Nexti
Command3.Enabled=False
Command7.Enabled=False
Text1.Enabled=False
Command5.Enabled=False
Text1.Text=""
X=0
Y=0
EndSub
一元运算属性代码：
PrivateSubCommand6_Click（IndexAsInteger）'定义一元运算
DimmAsSingle
Form1.Tag="T"
X=Text1.Text
s2=Index
SelectCases2
Case0'求正弦函数
Text1.Text=Sin（X）
Case1'求余弦函数
Text1.Text=Cos（X）
Case2'求正切函数
Text1.Text=Tan（X）
Case3'求绝对值函数
Text1.Text=Abs（X）
Case4'求反正切函数
Text1.Text=Atn（X）
Case5'求e的幂次函数
Text1.Text=Exp（X）
Case6'求自然对数
IfX>0Then
Text1.Text=Log（X）
Else'对数指数不小于零
Fori=0To10
Command1（i）.Enabled=False
Nexti
Fori=0To4
Command2（i）.Enabled=False
Nexti
Fori=0To12
Command6（i）.Enabled=False
Nexti
Command3.Enabled=False
Command7.Enabled=False
Text1.Enabled=False
Text1
升级会员 