问答题
在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个Text文本框控件，名称为Text1，一个Label标签，名称为Label1，两个命令按钮，名称为Command1，标题为“读入文件”。要求程序运行后，单击Command1将in.txt的内容显示到Text1中，并统计Text1中有多少个字符，将结果显示在Label1中。程序运行界面如左下图所示。
本题描述如下：
在窗口中有一个Text文本框控件，名称为Text1，一个Label标签，名称为Label1，两个命令按钮，名称为Command1，标题为“读入文件”。要求程序运行后，单击Command1将in.txt的内容显示到Text1中，并统计Text1中有多少个字符，将结果显示在Label1中。程序运行界面如左下图所示。
【正确答案】根据题意，将一个Text控件、一个Labell控件和一个Command控件添加到窗体上，Text的名称为Text1，Text属性为空，MultiLine属性为True，ScrollBar属性为2，Labell的名称为Label1，Caption属性为空，Command的名称为Command1，Caption属性为“读入文件”，设置完成后双击Command1命令按钮，编写如下代码：
Private Sub Command1_Click()
Dim str AS String
Dim temp As String
Str=" "
Open"./in.txt" For Input As#1 '打开文件准备读取
While EOF(1)=False '判断是否读到文件尾
Input # 1,temp '读取字符串
str=str+temp '将读取的字符串放入输出字符串中
Wend
Close # 1 '关闭文件
Text1.Text=str '在Text1中显示输出字符串
Label1.Caption=Len(str) '将字符串长度在Label1中显示出来
End Sub
单击
Private Sub Command1_Click()
Dim str AS String
Dim temp As String
Str=" "
Open"./in.txt" For Input As#1 '打开文件准备读取
While EOF(1)=False '判断是否读到文件尾
Input # 1,temp '读取字符串
str=str+temp '将读取的字符串放入输出字符串中
Wend
Close # 1 '关闭文件
Text1.Text=str '在Text1中显示输出字符串
Label1.Caption=Len(str) '将字符串长度在Label1中显示出来
End Sub
单击
【答案解析】