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文档 可自由复制编辑
Visual-Basic程序设计教程(第4版)实验答案
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)