问答题
在考生文件夹中有一个工程文件sjt4. vbp。该程序的功能是将文件in4. txt中的文本读出并在文本框Text1中显示。输入一个英文字母到文本框Text2中，然后单击“统计”命令按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果在标签Label3中显示。
给出的窗体文件中已经有了全部控件，如图所示。程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
给出的窗体文件中已经有了全部控件，如图所示。程序不完整，要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
【正确答案】[解题思路] 通过文件操作和“&”连接符将文件in4. txt中的文本读出并显示在文本框Text1中，在Command1 Click事件过程中，在文本框Text2中输入一个英文字母，然后单击“统计”命令按钮，统计该字母(大小写被认为是不同的字母)在文本中出现的次数，统计结果显示在标签Label3中。
[操作步骤]
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub Form_Load()
Open App. Path & " /in4. txt" For Input As #1
Line Input #1, s
' Text1. Text = ?
Close #1
End Sub
Private Sub Command1_Click()
Dim n As Integer
s = Text1. Text
s1 = RTrim (Text2. Text)
Do
'p = InStr(?)
If p ＜ ＞ 0 Then n=n+1
s = Mid(s, p+1)
' Loop While p ? 0
' Label3. Caption = ?
End Sub
程序结束
参考答案
第1个?处填入：s
第2个?处填入：s，s1
第3个?处填入：＜ ＞
第4个?处填入：n
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
[操作步骤]
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub Form_Load()
Open App. Path & " /in4. txt" For Input As #1
Line Input #1, s
' Text1. Text = ?
Close #1
End Sub
Private Sub Command1_Click()
Dim n As Integer
s = Text1. Text
s1 = RTrim (Text2. Text)
Do
'p = InStr(?)
If p ＜ ＞ 0 Then n=n+1
s = Mid(s, p+1)
' Loop While p ? 0
' Label3. Caption = ?
End Sub
程序结束
参考答案
第1个?处填入：s
第2个?处填入：s，s1
第3个?处填入：＜ ＞
第4个?处填入：n
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】