实验一简单Visual Basic程序设计
一、实验目的
1.熟悉Visual Basic开发环境以及各种窗口的使用；
2.掌握创建一个简单的Visual Basic工程的全过程；
二．实验项目
【项目一】创建一个类似于QQ登陆界面的应用程序。
图1-1创建对象
2.属性设置
对象的相关属性设置见表1-1。
表1-1登录界面的属性设置
对象属性属性值
Form1Caption登陆
Label1Caption QQ号
Label2Caption密码
Text1Text
Text2
Text Passworchar*
Command1Caption确定
Command2Caption取消
3．代码编写
Private Sub Command2_Click()
End
End Sub
4．保存工程
5．调试运行
【项目二】编程实现内容互换的小游戏。
1．创建对象
根据案例要求在窗体中添加两个标签，两个命令按钮，并排列好位置。界面如图1-3所
示。
图1-3内容互换程序对象2．属性设置
本题的属性设置见表1-2。
表1-2各控件的属性设置
对象属性属性值
Form1Caption交换小游戏
Label1Caption欢迎您进入Borderstyle1 Autosize True
Label2Caption VB6.0 Borderstyle1 Autosize True
Command1Name cmdSwap Caption交换
Command2Name cmdExit Caption退出
3．代码编写
双击窗体，在弹出的代码窗口中，按照【案例二】中给的方法，编写如下代码: Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdSwap_Click()
Dim s As String
s=Label1.Caption
Label1.Caption=Label2.Caption
Label2.Caption=s
End Sub
4．保存
5．调试运行
实验二选择结构程序设计
一、实验目的
1．掌握单分支语句的使用；
2．掌握多分支语句的使用；
3．熟悉采用选择结构解决实际问题。
二、实验项目
【项目一】输入三角形的三边a，b，c的值，判断它们能否构成一个三角形。如果能，则计算三角形的面积，否则给出错误信息。
界面设计如下
属性设置
对象属性设定值
Form1Caption项目3-1
Text1Text
Text2Text
Text3Text
Text4Text
Command1Caption计算面积
Command2Caption重输
command3Caption退出
程序代码如下
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim s As Single
Dim l As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
If a<=0Or b<=0Or c<=0Then Text4.Text="边长必须为正数":Exit Sub
If a+b>c And a+c>b And b+c>a Then
l=(a+b+c)/2
s=Sqr(l*(l-a)*(l-b)*(l-c))
Text4.Text="面积为:"&s
Else
Text4.Text="不能构成三角形"
End If
End Sub
Private Sub Command2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
End Sub
Private Sub Command3_Click()
End
End Sub
调试运行
（1）单击“重输”命令按钮，在txtA,txtB,txtC中分别输入-1，2，1，单击“计算面积”按钮，txt1中显示“边长必须为正数”。
（2）在txtA,txtB,txtC中分别输入3，4，5，单击“计算面积”按钮，txt1中显示“面积为：6”；
（3）单击“重输”命令按钮，在txtA,txtB,txtC中分别输入1，1，4，单击“计算面积”按钮，txt1中显示“不能构成三角形”；
【项目三】计算个人所得税。
依照《中华人民共和国个人所得税法》，工资、薪金所得按以下步骤计算缴纳个人所得税：每月取得工资收入后，先减去个人承担的基本养老保险金、医疗保险金、失业保险金，以及按省级政府规定标准缴纳的住房公积金，再减去个人所得税起征点(如2012年起征点为：3500元)，为应纳税所得额，按5%至45%的分级超额累进税率计算缴纳个人所得税（如表所示）。计算公式是：
应纳个人所得税税额=应纳税所得额×适用税率-速算扣除数
例如：某公司职员在扣除三险一金后的月收入为10000元，位于上表中的第3档。对应的税率为20%，速算扣除数为525，则应纳税额为（10000元-个税起征点3500元）＝6500元，个税＝6500×20%-525元=775元。
请设计一个简单的应用程序，输入职工扣除基本养老保险金等费用之后的月工资收入，
自动计算输出当月应缴纳个人所得税总额。参考界面如图3-2-5所示。
级数扣除三险一金后月收入（元）税率（%）速算扣除数（元）
1＜4500元50
24500元－7500元1075
37500元－12000元20525
412000元－38000元25975
vb程序设计课本538000元－58000元302725
658000元－83000元355475
7＞83000元4513475
具体实现步骤如下：
1．界面设计
根据题目要求在窗体中添加两个标签，两个文本框和一个命令按钮，并排列好位置。界面如图3-2-5所示。
图3-2-5个人所税计算效果图
2．属性设置
本题的属性设置如表3-2-3所示。
表3-2-3各控件的属性设置
对象属性设定值
Form1Caption项目3-3
Label1Caption请输入月收入：
Label2Caption个人所得税为：
Text1Text
Text2Text
Command1Caption计算所得税

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。