VisualBasic程序设计教程第版实验答案

由天下分享时间：2024/11/16 14:38:45 加入收藏我要投稿点赞

Text2 = Val(Text1.Text) End Sub

Private Sub Command2_Click() Label2 = \函数的结果\ Text2 = Str(Text1.Text) End Sub

Private Sub Command3_Click() Label2 = \函数的结果\ Text2 = Chr(Text1.Text) End Sub

Private Sub Command4_Click() Label2 = \函数的结果\ Text2 = Asc(Text1.Text) End Sub

实验2-6

“清屏”按钮后，清除窗体所显示的图形。

提示：

利用循环语句和String函数。读者也可以发挥自己的想像力，设计更美观的图形。

图2.2.6 实验2.6运行界面图2.2.7 进一步要求运行界面 Private Sub Command1_Click() Print For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, \★\☆\String(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), \

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

实验3-1

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

此例用多分支结构实现,注意计算公式和条件表达式的正确书写。 Private Sub Form_Click() Dim x!, y!

x = Val(InputBox(\输入x的值\

If x < 1000 Then 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元。 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