考生文件夹下有一个工程文件sjt5.vbp,窗体界面如图所示。程序功能如下: 单击"读文件"按钮,可将考生文件夹下in5.dat文件的内容(文件中仅含有用...
单击"读文件"按钮,可将考生文件夹下in5.dat文件的内容(文件中仅含有用空格隔开的英文单词)显示在Text1文本框中。单击"转换"按钮,可以把文本框中所有单词的第一个字母转换为大写。单击"写文件"按钮则把文本框中的文本存到考生文件夹下的out5.dat文件中。
将事件过程中的注释符去掉,把 ?改为正确的内容,以实现上述功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序。程序运行结束前,必须单击"写文件"按钮保存转换后的文本内容,最后将程序按原文件名存盘,否则无成绩。
参考解析: 【考点分析】本题考点是文件的读写操作,字符串的提取,字母的大小写转换等。
【解题思路】读取数据显示在文本框中。用空格来判断是否一个单词的结束和开始。空格后面的第一个字母改成大写字母。
【操作步骤】
步骤1:打开代码编辑窗口,查看“读数据”按钮的事件代码,去掉注释符号,将问号改为正确语句。
参考答案(阴影部分是需要考生填入的内容)
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
n = LOF(1)
ch$ = Input(n, #1 )
Close #1
Text1.Text = ch
End Sub
Private Sub Command2_Click()
Dim IsSpace As Boolean
ch1$ = Text1.Text
n = Len(ch1)
IsSpace = True
For k = 1 To n
c = Mid(ch1, k, 1 )
If c = " " Then '双引号中是一个空格符
IsSpace = True
Else
If IsSpace Then
c = UCase(c)
IsSpace = False
End If
End If
ch2$ = ch2$ & c
Next k
Text1.Text = ch2
End Sub
Private Sub Command3_Click()
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
代码结束
步骤2:调试并运行程序,关闭程序后按题目要求存盘。