vb经典题目及答案.doc

《vb经典题目及答案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确的程序代码，然后删除？及所有注释符号（即'号），但不能修改其它部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。本题描述如下：在窗体上有一个名为Text1的文本框，有三个命令按钮，名称分别是C1、C2和C3，标题分别是"读入"、"加密"和"存盘"。要求程序运行后，点击"读入"按钮，将文本文件in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Text1中；点击"加密"按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该

2、字母对应字母表中后两个位置的字母。例如，转换前的字母是"a"，则转换后的是"c"，转换前是"E"，转换后是"G"；点击"存盘"按钮，则将转换后的文本框中的文本保存到out7.txt文件中（该文件保存到考生文件夹下）。PrivateSubC1_Click()DimstrinfoAsStringOpen"in7.txt"ForInputAs1Input#1,strinfoClose#1Text1.Text=strinfoEndSubPrivateSubC2_Click()DimstrchangeAsStringDimiAsIntegerFori=1ToLen(Text1.Text)str

3、change=strchange+Chr(Asc(Mid(Text1.Text,i,1))+2)NextText1.Text=strchangeEndSubPrivateSubC3_Click()Open"out7.txt"ForOutputAs1Print#1,Text1.TextClose#1EndSub2、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个RichText文本框控件（名称为rtx1）和

4、一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。OptionExplicitPrivateSubCommand1_Click()rtx1.LoadFileApp.Path+"wy01.txt"EndSubPrivateSubCommand2_Click()Ifrtx1.Text<>""ThenText1.Text

5、=Len(rtx1.Text)EndIfEndSub3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件prog8a.dat存放一些字符。1）按"开始"按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8

6、b.dat文件中（以标准格式在一行中输出）；2）执行完毕，"开始"按钮变成"完成"，且无效（变灰）PrivateSubCOMSTART_Click()DimChAsString,NumberAsInteger,CpAsInteger,LpAsInteger,OthersAsIntegermyfile1=App.Path&""&"prog8a.dat"myfile2=App.Path&""&"prog8b.dat"Openmyfile1ForInputAs#1Openmyfile2ForOutputAs#2WhileNotEOF(1)Input#1,Ch$IfAsc(Ch$)>=4

7、8AndAsc(Ch$)<=57ThenNumber=Number+1ElseIfAsc(Ch$)>=65AndAsc(Ch$)<=90ThenCp=Cp+1ElseIfAsc(Ch$)>=97AndAsc(Ch$)<=122ThenLp=Lp+1ElseOthers=Others+1EndIfWendPrint#2,Number,Cp,Lp,OthersCloseCOMSTART.Caption="完成"COMSTART.Enabled=FalseEnd