注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计 rtx1中有多少个字符，将结果显示在Text1中。程序运行结果如图13-4所示。 (2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5所示。
参考答案：
解析： 在窗体上建立好控件后，先设置控件属性，再编写事件过程
RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件，LoadFile方法能将 RTF文件或文本文件装入控件，其形式如：对象.LoadFile 文件标志符[，文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。
表 13-3
| 控 件 | 属 性 | 设 置 值 |
| Command1 | Caption | 加入sjt01.txt |
| Command2 | Caption | 统计字符个数 |
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
’rtx1. App.Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＜＞ "" Then
’ Text1.Text=
End If
End Sub
参考代码：
Option Explicit
Private Sub Commandl_Click()
rtx1.LoadFile App. Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＜＞ "" Then
Text1.Text=Len(rtx1.Text)
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) 在窗体上建立好控件后，先设置控件属性，再编写事件过程
图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。
MouseUp事件再释放鼠标按钮时发生。其语法格式为：
PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
Object一个对象表达式。
Index一个整数，用来惟一地标识一个在控件数组中的控件。
Button返回一个整数，用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于1，2，和4。其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，在button参数指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT，CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。
shift参数是具有相应于SHIFT键(位0)，CTRL键(位”，以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于1，2，和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置，指示这些键中的一些、全部或者一个也没有被按下。解题步骤：
第一步：建立界面并设置控件属性。
第二步：编写程序代码。
程序提供的代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then
If Image1.Height＜4000 Or Image1.Width＜4000 Then
Imagel.Height=Imagel.Height+500
’ Imagel.Width=Imagel.Width 500
End If
End If
’If Button= Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
参考代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then
If Image1.Height＜4000 Or Image1.Width＜4000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End If
If Button=2 Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。