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

图2.1.4 实验1.6运行界面 要求：

（1）单击“缩小一半”按钮，图片纵、横均缩小一半。 （2）单击“还原”按钮，图片与初始装入时同大。 提示：为了实现还原效果，要做以下3件事。

（1）必须在事件过程外，即程序代码最上方声明窗体级变量：

Dim h%,w% ‘用户输入的变量声明语句

（2）在Form1_Load事件中保存图像控件的初始值： w=Image1.Width h=Image1.Height

（3）在Command2_Click事件中还原为初始值： Image1.Width=w Image1.Height=h

缩小一半Command1_Click事件请读者自行完成。 思考：若要设置图片放大效果，如何修改代码？

Dim h%, w%

Private Sub Command1_Click() Image1.Width = Image1.Width * 0.5 Image1.Height = Image1.Height * 0.5 End Sub

word文档 可自由复制编辑

Private Sub Command2_Click() Image1.Width = w Image1.Height = h End Sub

Private Sub Form_Load() w = Image1.Width h = Image1.Height End Sub

实验2-1

随机生成3个正整数，其中一个1位数，1个2位数，1个3位数，计算它们的平均值，保留两位小数，运行界面如图2.2.1所示。

word文档 可自由复制编辑

图2.2.1 实验2.1运行界面 提示：

（1）随机数生成某范围内的正整数公式为 Int(Rnd*范围+基数)

其中范围=数的上限-下限+1，基数=数的下限。 例如，要生成2位数，语句为

Int(Rnd*(99-10+1)+10)=Int(Rnd*90+10)

（2）保留两位小数，利用Format函数，形式为Format(要显示的数值, \。

Private Sub Command1_Click() Text1.Text = Int(Rnd * 9 + 1) Text2.Text = Int(Rnd * 90 + 10) Text3.Text = Int(Rnd * 900 + 100) End Sub

word文档 可自由复制编辑

Private Sub Command2_Click()

Text4.Text = Format((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3, \End Sub

Private Sub Command3_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

实验2-2

我国有13亿人口，假定按人口年增长0.8%计算，多少年后我国人口超过26亿。 提示：

（1）已知年增长率r=0.8%，求人数超过26亿的年数n公式为：

word文档 可自由复制编辑

其中：Log(x)为对数函数，Log（2）缘由Log（13/26）,0.8%需写成0.008

（2）该题目的界面设计 由读者自行设计。

Private Sub Command1_Click()

n = Int(Log(2) / Log(1 + 0.008) + 1) Text1 = n & \年后人口超过26亿\End Sub

实验2-3

输入一个合法的3位正整数，测试其数值合法性后，逆序输出并显示。例如，输入“734”，输出是“437”，如图2.2.2所示。 提示：

（1）利用Text1_LostFocus事件，输入数据合法性检查调用IsNumeric函数，参阅教学篇例2.5；若有错利用MsgBox显示出错信息，如图2.2.3所示；清除文本框内输入的非法数据，通过SetFocus定位于文本框处，重新输入。 （2）利用“MOD”和“\\”运算符将一个3位数分离出3个1

word文档 可自由复制编辑