End Sub
实验2-1
随机生成3个正整数，其中一个1位数，1个2位数，1个3位数，计算它们的平均值，保留两位小数，运行界面如图2.2.1所示。 图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
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公式为： 其中：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位数，然后利用乘法和加法运算将3个1位数连接成一个逆序的3位数。 图2.2.2 实验2.3运行界面 图2.2.3 出错信息 Private Sub Command1_Click()
Dim x%, x1%, x2%, x3%
x = Val(Text1)
x1 = x Mod 10
x2 = (x Mod 100) \\ 10
x3 = x \\ 100
Label2 = x1 * 100 + x2 * 10 + x3
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text1.Text) Then
Text1.Text = \
End If
End If
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox \输入非数值数据，请重新输入\数据检验\
Text1.Text = \
Text1.SetFocus
End If
End Sub
实验2-4
输入一个字符串，分别调用UCase、Len、Mid、Left、Right函数，显示如图2.2.4所示的效果。 图2.2.4 实验2.4运行界面 提示： 事件过程可以在Form_Click中编码，输出控件可以使用标签控件。
Visual Basic绋嬪簭璁捐鏁欑▼(绗?鐗?瀹為獙绛旀 - 鐧惧害鏂囧簱
