vb经典题目及答案
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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
T ext1.T ext = strinfo
End Sub
Private Sub C2_Click()
Dim strchange As String
Dim i As Integer
For i = 1 T o Len(T ext1.T ext)
strchange = strchange + Chr(Asc(Mid(T ext1.T ext, i, 1)) + 2)
Next
T ext1.T ext = strchange
End Sub
Private Sub C3_Click()
Open "out7.txt" For Output As 1
Print #1, T ext1.T ext
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.T ext <> "" Then
T ext1.T ext = Len(rtx1.T ext)
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$) <= 57 Then
Number = Number + 1
ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then
Cp = Cp + 1
ElseIf Asc(Ch$) >= 97 And Asc(Ch$) <= 122 Then
Lp = Lp + 1
Else
Others = Others + 1
End If
Wend
Print #2, Number, Cp, Lp, Others
Close
COMSTART.Caption = "完成"
COMSTART.Enabled = False
End Sub
4、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm,该程序是不完整的,请在有?号的地方填入正确容,然后删除?及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。
本题描述如下:
在名称为Form1的窗体上有五个Label控件和两个命令按钮,数据文件grade.dat存放一些成绩。
1)按"开始"按钮后,从考生文件夹下的grade.dat中读出数据并求出它们的平均数,将结果写入考生文件夹下的average.dat文件中;
2)执行完毕,"开始"按钮变成"完成",且无效(变灰)
5、(1)在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm,该程序是不完整的,请在有?号的地方填入正确容,然后删除?及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名和文件