在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.tim。窗体外观如图3.5(a)所示。三个命令按钮的名称分别为Command1、Command2和Command3,标题分别为“读取数据”、“首字母大写”和“存盘”。程序运行后,如果单

admin2020-02-27  38

问题 在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.tim。窗体外观如图3.5(a)所示。三个命令按钮的名称分别为Command1、Command2和Command3,标题分别为“读取数据”、“首字母大写”和“存盘”。程序运行后,如果单击“读取数据”命令按钮,则读取考生文件夹下in5.txt中的全部文本(文本中的单词与单词之间或标点符号与单词之间均用一个空格分开),并在文本框中显示出来。文本内容如下:
    Tuckeddeepwithinthepromisesandpoliciesofhi sStateoftheUnionaddress,Presiden’LtBushu.tteredthre ewordsthatspeakvolumesaboutWashington’sparalysisinaddressingtheplightofthefortymiUionAmericans wholackhealthinsurance.Inbetweenhisdiscourseon Medicareandhissupportforalow-incomehealthcareta xcredit,Bushcalledforsomethingcalledassociationhealthplans.
    如果单击“首字母大写”命令按钮,则将文本框中每个单词的第一个字母变为大写字母(如果原来已是大写字母则不改变),并在文本框中显示出来,如图3.97(b)所示;如果单击“存盘"命令按钮,则把文本框中的内容(首字母大写后)保存到考生文件夹下的文件out5.txt中。、窗体文件中己给出了部分程序,请把它补充完整,使其实现上述功能。

    要求:
    1)编写“读取数据”命令按钮的Click事件过程。
    2)去掉“首字母大写”命令按钮和“存盘”命令按钮事件过程中的注释符,把程序中的“?”改为正确的内容,使其能正确运行。
    3)用原来的文件名保存工程文件和窗体文件。

选项

答案步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: ch=Mid(oldSen, i, 1) newSen=newSen & ch Write #1,Text1.Text 步骤2:编写“读取数据”命令按钮的单击事件。 参考代码: Private Sub Command1_Click() Dim s As String Open"in5.txt"For Input As 1 Line Input #1,S Close #1 Text1.Text=s End Sub 步骤3:按键运行程序,先单击“读取数据”按钮,接着单击“首字母大写”按钮,最后单击“存盘”按钮。 步骤4:按要求将文件保存至考生文件夹中。

解析 分析题目可知,本题中“读取数据”命令按钮中首先使用For Input方式打开文件,然后通过Line Input#语句将打开文件中的数据读出到变量s中并且赋给文本框。
    在“首字母大写”按钮的单击事件中,首先依次取出文本框中的每一个字符,然后判断这个字符的上一个字符是否是空格,如果是空格则将该字符使用L/Case函数转换为大写;判断完毕后无论是否转换均将其连接到新的字符串中,同时令这个字符成为新的“上一个字符”。这样,循环结束后每个单词的首字母就转换成了大写字母。
    在“存盘”按钮的单击事件中,首先以Output方式打开文件,然后利用Write#语句将文本框中的内容写回到文件中,最后关闭文件。
转载请注明原文地址:https://kaotiyun.com/show/6FTp777K
0

最新回复(0)