Visual-Basic程序设计教程(第4版)实验答案

For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, \★\String(10 - (2 * i - 1), \☆\★\Next i End Sub

Private Sub Command2_Click() Cls End Sub

实验2-7

用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。

Private Sub command1_Click()

x = Val(InputBox(\输入一个正实数\计算\pf = Format(x * x, \pfg = Format(Sqr(x), \lf = Format(x * x * x, \lfg = Format(x ^ (1 / 3), \

word文档 可自由复制编辑

Print \平方为:\平方根为:\Space(3); \立方为:\立方根为:\End Sub

实验3-1

在购买某物品时，若所标明的价钱x在下述范围内，所付钱

y按对应折扣支付：

提示:

此例用多分支结构实现,注意计算公式和条件表达式的正确书写。

Private Sub Form_Click() Dim x!, y!

x = Val(InputBox(\输入x的值\If x < 1000 Then

word文档 可自由复制编辑

y = x

ElseIf x < 2000 Then y = 0.9 * x

ElseIf x < 3000 Then y = 0.8 * x Else y = 0.7 * x End If Print y End Sub

实验3-2

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

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

提示：

首先利用多分支If语句根据3个时间段算出费用，然后再用单分支If语句对超过150元的费用设置为150元。

word文档 可自由复制编辑

Private Sub Form_Click() Dim x!, y!

x = Val(InputBox(\输入上网时间\If x < 10 Then y = 30

ElseIf x < 50 Then y = 30 + 2.5 * (x - 10) Else

y = 30 + 2.5 * 40 + 2 * (x - 50) End If

If y > 150 Then y = 150 End If Print y End Sub

实验3-3

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

word文档 可自由复制编辑

2.3.1所

图2.3.1 实验3.3运行界面 提示：

①利用InputBox函数输入3个数，存放到数值型变量中，然后对其进行比较；若放在字符串变量中，有时会得到不正确的结果（因为字符串是从左到右的规则比较，例如会出现“34”>“2345”>“126789”的情况）。

②对三个数进行排序，只能通过两两比较，一般可用三条单分支if语句来实现。方法如下：

先将x与y比较，使得x>y；然后将x与z比较，使得x>z，此时x最大；最后将y与z比较，使得y>z。

③要显示多个数据，可以用“;”逐一显示，也可利用“&”字符串连接符将多个变量连接显示。例如要输出x、y、z： Print ”排序后”;x;” ”;y;” ”;z ‘用分号将多个变

word文档 可自由复制编辑