《vb经典题目及答案》由会员分享，可在线阅读，更多相关《vb经典题目及答案（10页珍藏版）》请在金锄头文库上搜索。
1、-1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确的程序代码，然后删除？及所有注释符号即 号，但不能修改其它局部。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。此题描述如下：在窗体上有一个名为Te*t1的文本框，有三个命令按钮，名称分别是C1、C2和C3，标题分别是读入、加密和存盘。要求程序运行后，点击读入按钮，将文本文件in7.t*t该文件在考生文件夹下中的文本信息读入文本框Te*t1中；点击加密按钮将Te*t1中的英文字母加密转换，并将转换后的结果显示到Te*t1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例
2、如，转换前的字母是a，则转换后的是c，转换前是E，转换后是G；点击存盘按钮，则将转换后的文本框中的文本保存到out7.t*t文件中该文件保存到考生文件夹下。Private Sub C1_Click()Dim strinfo As StringOpen in7.t*t For Input As 1Input #1, strinfoClose #1Te*t1.Te*t = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Te*t1.Te*t) strchange
3、= strchange + Chr(Asc(Mid(Te*t1.Te*t, i, 1) + 2)Ne*tTe*t1.Te*t = strchangeEnd SubPrivate Sub C3_Click()Open out7.t*t For Output As 1Print #1, Te*t1.Te*tClose #1End Sub2、1在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符即号，但不能修改其它局部。存盘时不得改变文件名和文件夹。此题描述如下：在窗口中有一个RichTe*t文本框控件名称为rt*1和一
4、个文本框控件名称为Te*t1，两个命令按钮，名称分别为Command1和Command2，标题分别为参加WY01.T*T、统计字符个数。要求程序运行后，单击command1将考生文件夹下的wy01.t*t的容显示到rt*1中；单击统计字符个数按钮统计Te*t1中有多少个字符，将结果显示在Te*t1中。Option E*plicitPrivate Sub Command1_Click()rt*1.LoadFile App.Path + wy01.t*tEnd SubPrivate Sub Command2_Click()If rt*1.Te*t Then Te*t1.Te*t = Len(rt*
5、1.Te*t)End IfEnd Sub3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符即 号，但不能修改其它局部。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。此题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件prog8a.dat存放一些字符。1按开场按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中以标准格式在一行中输
6、出；2执行完毕，开场按钮变成完成，且无效变灰Private Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1 = App.Path & & prog8a.datmyfile2 = App.Path & & prog8b.datOpen myfile1 For Input As #1Open myfile2 For Output As #2While Not EOF(1) Input #1, Ch$ If Asc(Ch$)
7、= 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 122 Then Lp = Lp + 1 Else Others = Others + 1 End IfWendPrint #2, Number, Cp, Lp, OthersCloseCOMSTART.Caption = 完成COMSTART.Enabled = FalseEnd Sub4、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符即 号，但不能修改其它局部。存盘时不得改变文件名和文件夹，相应
8、的dat文件也保存到考生文件夹下，否则没有成绩。此题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件grade.dat存放一些成绩。1按开场按钮后，从考生文件夹下的grade.dat中读出数据并求出它们的平均数，将结果写入考生文件夹下的average.dat文件中；2执行完毕，开场按钮变成完成，且无效变灰5、1在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符即 号，但不能修改其它局部。存盘时不得改变文件名和文件夹。此题描述如下：在名称为Form1的窗体上有一个Label控件，4个
9、Te*t控件及7个命令按钮，功能如下：1开场启开工程时，界面上除开场录入及退出按钮之外,其它按钮均不可用灰色显示。2单击开场录入按钮之后，利用INPUTBO*让用户连续且必须录入 10个数。假设录入为非数字符号，则给出警告输入数据无效，请重新输入数值数据，请输入第n个数。3录入完毕后，开场录入变灰，其它变为可用状态。4按相应的按钮可分别求出所录入数据的升序、降序排列及最大数和最小数并在右侧对应的文本框中显示。注意用A(10)存放最大数，A(1)存放最小数5单击去除按钮将所有文本框清空。Private Sub COMSTART_Click()Dim g As Single, N As Integ
10、er, S As Singlemyfile1 = App.Path & & grade.DATmyfile2 = App.Path & & average.datOpen myfile1 For Input As #1Open myfile2 For Output As #2Do While Not EOF(1) Input #1, g N = N + 1 S = S + gLoopClose #1S = S / NWrite #2, SCloseCOMSTART.Caption = 完成COMSTART.Enabled = FalseEnd Sub*2在考生文件夹下有工程文件wy6.vbp及
11、窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符即 号，但不能修改其它局部。存盘时不得改变文件名和文件夹。此题描述如下：在名称为Form1，标题为求和程序的窗体上有三个Label控件，两个Te*t控件和三个命令按钮。该程序的主要功能是求从1到Te*t1中用户输入的任意自然数n的累加和：1刚启开工程时，显示结果和去除按钮均为灰色2可以在输入框输入任意自然数n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时显示结果变为可用。当输入为非数值时，累加结果为03单击显示结果可以在Te*t2中显示累加和，且该框的文字不可修改；同时显示结果变灰，去除变为
12、可用4单击去除，输入框和显示框均显示05单击关闭按钮完毕程序的运行Option E*plicitPrivate Sub Command1_Click()Dim i As DoubleDim sum As DoubleDim n As Doublesum = 0n = Val(Te*t1.Te*t)For i = 1 To n sum = sum + iNe*t iTe*t2.Te*t = sumCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Te*t1.Te*t = 0Te*t2
13、.Te*t = 0Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Te*t1_Change()Command1.Enabled = TrueEnd Sub6、1在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所
14、有注释符即号，但不能修改其它局部。存盘时不得改变文件名和文件夹。此题描述如下：在窗体上有一个标签数组，名为Label1，该数组有4个控件元素，标题分别是程序运行、文本编辑、双向箭头 和移动窗体。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控件元素，则又变成正常情况下的箭头形状。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, * As Single, Y As Single)Form1.MousePointer = 0End SubPrivate Sub Label1_MouseMove(Inde* As Integer, Button As Integer, Shift As Integer, * As Single, Y As Si
