vb上机程序3Word下载.docx
《vb上机程序3Word下载.docx》由会员分享，可在线阅读，更多相关《vb上机程序3Word下载.docx（18页珍藏版）》请在冰豆网上搜索。
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）
+、-、*、/、x（y）
Command3
=
Command4
On
Command5
Off
Command6（0）~~Command6（12）
sin、cos、tan、abs、tan-、E（x）、Ln、x（1/2）、x
（2）、x（3）、sin-、cos-、x!
Command7
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="
"
IfText1.Text="
0"
a=Text1.Text
Text1.Text=a&
Command1（Index）.Caption
EndSub
二元运算属性代码：
PrivateSubCommand2_Click（IndexAsInteger）'
定义二元运算
DimnAsSingle
DimmAsSingle
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
除数不为零
Fori=0To10
Command1（i）.Enabled=False
Nexti
Fori=0To4
Command2（i）.Enabled=False
Fori=0To12
Command6（i）.Enabled=False
Command3.Enabled=False
Command7.Enabled=False
Text1.Enabled=False
E"
Case4'
定义x的y次幂
m=Val（X）
z=Int（Y）
Ifz>
0Orz=0Then
Text1.Text=mm（m,z）'
调用函数实现
Text1.Text=1/mm（m,z）
EndSelect
X=Val（Text1.Text）
s1=Index
等号的属性代码：
PrivateSubCommand3_Click（）'
单击"
="
显示结果
加法
减法
乘法
除法
x的y次幂
Y=0
s1=5
v=False
打开命令按钮属性代码：
PrivateSubCommand4_Click（）'
定义打开"
on"
Command1（i）.Enabled=True
Command2（i）.Enabled=True
Command6（i）.Enabled=True
Command3.Enabled=True
Command7.Enabled=True
Command5.Enabled=True
Text1.Enabled=True
Text1.Text=0
X=0
关闭命令按钮属性代码：
PrivateSubCommand5_Click（）'
定义关闭"
off"
Command5.Enabled=False
一元运算属性代码：
PrivateSubCommand6_Click（IndexAsInteger）'
定义一元运算
X=Text1.Text
s2=Index
SelectCases2
求正弦函数
Text1.Text=Sin（X）
求余弦函数
Text1.Text=Cos（X）
求正切函数
Text1.Text=Tan（X）
求绝对值函数
Text1.Text=Abs（X）
求反正切函数
Text1.Text=Atn（X）
Case5'
求e的幂次函数
Text1.Text=Exp（X）
Case6'
求自然对数
IfX>
Text1.Text=Log（X）
对数指数不小于零
Text1
升级会员 