VB实验指导例题要点

Form1.Cls End Sub

8． 用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和

立方根，每个数保留三位小数，其间有间隔。 (1)运行界面

(2)参考代码：

Private Sub Command1_Click()

x = Val(InputBox(\输入一个正实数\

Form1.Print Format(x * x, \Spc(5); Format(Sqr(x), \Spc(5); Format(x * x * x, \End Sub

实验C 选择结构 一、实验目的

1 掌握逻辑表达式的正确书写形式

2 掌握单分支与双分支条件语句的使用。 3 掌握多分支条件语句的使用。

4 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验内容

1、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应所扣支付：

y=x,x＜10000.9x, 1000≤x＜20000.8x,2000≤x＜30000.7x,x≥3000 提示：

此题用多分支结构实现，注意计算公式和条件表达式的正确书写。 实验目的：掌握多边if语句的正确使用 实验步骤： 1 新建新工程

2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y 代码如下：

Private Sub Form_Click()

Dim x As Single, y As Single

x = Val(InputBox(\请输入物品价钱：\ If x < 1000 Then y = x

ElseIf x >= 1000 And x < 2000 Then y = 0.9 * x

ElseIf x >= 2000 And x < 3000 Then y = 0.8 * x

ElseIf x >= 3000 Then y = 0.7 * x End If

Print \所付钱为：\End Sub

2、编一程序输入上网的时间并计算上网费用，计算的方法如下：

费用=基数30元，上网时间＜10小时每小时2.5元，上网时间10~50小时每小时2元，上网时间≥50小时

同时为了鼓励多上网，每月收费最多不超过150元。

提示：首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。 略：提示和第一题类似

3、输入x,y,z三个数，按从大到小的次序显示。

实验目的：掌握单边或嵌套if语句的使用 实验步骤： 1 新建工程 2 代码如下：

Private Sub Form_click()

Dim x As Integer, b As Integer, z As Integer, d As Integer dim x!,y!,z!

x = InputBox(\请输入第一个数\ y = InputBox(\请输入第二个数\ z = InputBox(\请输入第三个数\ Print \排序前\ If x < y Then

d = x: x = y: y = d End If

If y < z Then

d = y: y = z: z = d End If

If x < y Then

d = x: x = y: y = d End If

Print \排序后\End Sub

4、利用实验c的思想，随机产生3个整数，按从小到大的顺序显示。 Private Sub Form_click()

Dim x As Integer, y As Integer, z As Integer, d As Integer Randomize

x = Int(Rnd * 101): y = Int(Rnd * 101): z = Int(Rnd * 101) Print \排序前\ If x > y Then

d = x: x = y: y = d End If

If y > z Then

d = y: y = z: z = d End If

If x > y Then

d = x: x = y: y = d End If

Print \排序后\End Sub

5、利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？

实验目的：掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。 实验步骤：

1 创建新工程界面如上 2 代码如下：

Private Sub Form_Load()

Label1.Caption = \输入总只数\ Label2.Caption = \输入总脚数\ Label3.Caption = \求得鸡数\ Label4.Caption = \求得兔数\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \End Sub

Private Sub Form_Load()

Label1.Caption = \输入总只数\ Label2.Caption = \输入总脚数\ Label3.Caption = \求得鸡数\ Label4.Caption = \求得兔数\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \End Sub

Private Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2)

If n Mod 2 <> 0 Then

MsgBox (\脚数必定为偶数\ Text2 = \