itgle.com
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别为C1、C2和C3，标题分别为“输入”、“转换”和“存盘”，如图26-5所示。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5.txt文件(文件中只有字母和空格)，放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则
题目
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。
在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别为C1、C2和C3，标题分别为“输入”、“转换”和“存盘”，如图26-5所示。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5.txt文件(文件中只有字母和空格)，放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。
注意：去掉程序中的注释符，把程序中的?改为正确的内容，考生必须把转换后的内容用“存盘”按钮存入out5.txt文件，否则无成绩。考生的工程文件以文件名sjt5.vbp存盘，窗体文件以文件名sjt5.frm存盘。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为C:\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别”相关问题
-
第1题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：使用Open方法和Close方法打开和关闭文件使用循环语句把整数赋给数组。在计算输出时先定义一个变量用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1 Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
'? #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第2题：
在考生文件夹下有一个工程文件sj5．vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读取文本”、“大写”和“保存”，运行界面如图28-5所示。请编写适当的事件过程，使得在运行时，单击“读取文本”按钮，则从考生文件夹中读入sjin．txt文件（文件中只有字母和空格），放入Text1中；单击“大写”按钮，则把Text1中的所有小写字母转换为大写字母；单击“保存”按钮，则把Text1中的内容存入sjout．txt文件中。
注意：去掉程序中的注释符““’，把程序中的“?”改为正确的内容，考生必须把转换后的内容用“保存”按钮存入sjout．txt文件，否则无成绩。考生的工程文件以文件名sj5．vbp存盘，窗体文件以文件名sj5．frm存盘。
正确答案：文本框的MuhiLine属性设置其是否能多行显示，为True表示能多行显示，为False表示不能多行显示。ScrollBars属性设置其是否有滚动条，值为0时表示没有滚动条，值为1时表示有水平滚动条，值为2时表示有垂直滚动条，值为3时表示水平、垂直滚动条都有。
对文件的操作一般包括以下步骤：打开或建立文件；进行读／写操作；关闭文件。
要将字符串的小写字母转换成大写字母，可以通过UCase函数实现。UCase函数将小写字母转换成大写字母，而大写或非字母字符均保持不变。其语法格式为：UCase(string)。省string为任何有效的字符串表达式。
根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Text1、MuhiLine属性为True、ScrollBar属性为2，命令按钮的名称分别为Command1、Command2和Command3，Caption分别为“读取文本”、“大写”和“保存”，设置完成后双击Command1进入代码编写窗口，其中Mid（ ）函数是将字符串中的字符提取出来，以判断字符是不是小写字母，EOF（ ）函数判断文件是否读取完成，补充后的具体代码如下：
-
第3题：
在考生文件夹下有文件in15.txt，文件中有几行汉字。请在Form1的窗体上绘制一个文本框，名称为Text1；能显示多行；再绘制一个命令按钮，名称为Cmd1，标题为Save。编写适当的事件过程，使得在加载窗体时，把in15.txt文件的内容显示在文本框中，然后在文本的最后面手工插入一行字：“计算机等级考试Visual Basic。”如下图所示。最后单击．Save按钮，可以把文本框中修改过的内容存到文件out15.txt中。
注意：
只能在最后面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以 execise15.vbp为文件名存储工程文件，以execise15.frm为文件名存储窗体文件。
正确答案：
-
第4题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即'号)，但不能修改其他部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：
在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中；点击“加密”按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。程序设计界面如图12-8所示。
正确答案：文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件命令按钮的标题由Caption属性设置。 题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数是一个用来识别某字符的Long。 Asc函数返回一个Integer代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String '? "in7.txt" For Input As 1 Input #1 strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ' strchange=strchange+?(Asc(Mid(Text1.Text i 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 'Print #1 ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1 strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text i 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1 Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件，命令按钮的标题由Caption属性设置。 题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符，然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String，其中包含有与指定的字符代码相关的字符。其语法格式为： Chr(charcode) charcode必要参数，是一个用来识别某字符的Long。 Asc函数返回一个Integer，代表字符串中首字母的字符代码。其语法格式为： Asc(string) string必要的参数，可以是任何有效的字符串表达式。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim strinfo As String '? "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ' strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 'Print #1, ? Close #1 End Sub 参考代码： Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘 -
第5题：
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
正确答案：【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text＆"，现年"＆
Text2．Text＆"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
