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

位数，然后利用乘法和加法运算将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

word文档 可自由复制编辑

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所示的效果。

word文档 可自由复制编辑

图2.2.4 实验2.4运行界面 提示：

事件过程可以在Form_Click中编码，输出控件可以使用标签控件。

Private Sub Form_click() Label1 = UCase(Text1.Text) Label2 = Len(Text1.Text) Label3 = Left(Text1, 11) Label4 = Mid(Text1, 12, 6) Label5 = Right(Text1, 5) End Sub

实验2-5

效仿实验2.4，验证转换函数的使用，Text1文本框输入字符串，Text2文本框显示调用所选函数的结果，4个命令按钮为转换函数，Label2显示对应的函数名，运行效果如图2.2.5所示。

word文档 可自由复制编辑

图2.2.5 实验2.5运行界面

Private Sub Command1_Click() Label2 = \函数的结果\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 = \函数的结果\

word文档 可自由复制编辑

Text2 = Asc(Text1.Text) End Sub

实验2-6

Print方法练习，显示字符图形。参考教学篇例4.4输出简单图形，如图2.2.6所示。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。 提示：

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

进一步要求：若要显示如图2.2.7所示的图形，程序要如何修改？

图2.2.6 实验2.6运行界面 图2.2.7 进一步要求运行界面

Private Sub Command1_Click() Print

word文档 可自由复制编辑