vb经典题目及答案.docVIP

1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有 ？号的地方填入正确的程序代码，然后删除 ？及所有注释符号（即 号），但不能修改其它部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。 本题描述如下： 在窗体上有一个名为Text1的文本框，有三个命令按钮，名称分别是C1、C2和C3，标题分别是读入、加密和存盘。要求程序运行后，点击读入按钮，将文本文件in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Text1中；点击加密按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。 例如，转换前的字母是a，则转换后的是c，转换前是E，转换后是G；点击存盘按钮， 则将转换后的文本框中的文本保存到out7.txt文件中（该文件保存到考生文件夹下）。 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 2、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为加入WY01.TXT、统计字符个数。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击统计字符个数按钮统计Text1中有多少个字符，将结果显示在Text1中。 Option Explicit Private Sub Command1_Click() rtx1.LoadFile App.Path + \wy01.txt End Sub Private Sub Command2_Click() If rtx1.Text Then Text1.Text = Len(rtx1.Text) End If End Sub \ 3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。 本题描述如下： 在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件prog8a.dat存放一些字符。 1）按开始按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）； 2）执行完毕，开始按钮变成完成，且无效（变灰） Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfile1 = App.Path \ prog8a.dat myfile2 = App.Path \ prog8b.dat Open myfile1 For Input As #1 Open myfile2 For Output As #2 While Not EOF(1) Input #1, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) =