vb经典题目及答案

《vb经典题目及答案》由会员分享，可在线阅读，更多相关《vb经典题目及答案（16页珍藏版）》请在装配图网上搜索。

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

2、的字母。 例如，转换前的字母是a，则转换后的是c，转换前是E，转换后是G；点击存盘按钮， 则将转换后的文本框中的文本保存到out7.txt文件中（该文件保存到考生文件夹下）。 Private Sub C1_Click()Dim strinfo As StringOpen in7.txt For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Text1.Text)

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

4、t文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为请预览后下载！Command1和Command2，标题分别为加入WY01.TXT、统计字符个数。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击统计字符个数按钮统计Text1中有多少个字符，将结果显示在Text1中。 Option ExplicitPrivate Sub Command1_Click()rtx1.LoadFile App.Path + wy01.txtEnd SubPrivate Sub Command2_Click()If rtx1.Te

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

6、果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；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

7、 #2While Not EOF(1) Input #1, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) c2,则为锐角三角形；若一边具有a2+b2c2,则为钝角三角形。Private Sub Command6_Click()Label1.Enabled = FalseFor i = 1 To 10 a(i) = InputBox(请输入第 & i & 个数,请务必输入数值数据！, 输入) Do While IsNumeric(a(i) = False a(i) = InputBox(输入数据无效，请

8、重新输入数值数据！ & 请输入第 & i & 个数, 输入) Loop Next iFor i = 1 To 9 For j = i + 1 To 10 If Val(a(j) = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重画图片框End Sub Dim i As IntegerFor i = 0 To L1.ListCount - 1 L1.Selected(i) = TrueNextEnd SubPrivate Sub C2_Click(

9、)Dim i As IntegerOpen out7.txt For Output As 1For i = 0 To L1.ListCount - 1 L1.ListIndex = i Print #1, L1.Text, L1.Selected(i) = FalseNextClose #1End SubPrivate Sub Command3_Click()EndEnd Sub请预览后下载！Private Sub Form_Load()r = 20c = 0st = 0.063HScroll1.Min = 1 设置最小值HScroll1.Max = 100 设置最大值End SubPriva

10、te Sub HScroll1_Change()Timer1.Interval = 200 - HScroll1.Value 根据滚动条的数值设置时间间隔,速度越快,间隔越小End SubPrivate Sub Picture1_Paint()Picture1.FillColor = QBColor(12)Picture1.ForeColor = QBColor(12)Picture1.Circle (0, 0), 2x = Cos(c) * ry = Sin(c) * rPicture1.FillColor = QBColor(14)Picture1.ForeColor = QBColor(

11、14)Picture1.Circle (x, y), 0.5c = c + st If c = 2 * 3.14159 Then c = c Mod (2 * 3.14159) End IfEnd SubPrivate Sub Timer1_Timer()Picture1.Refresh 重画图片框End SubOption ExplicitPrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Val

12、ue)End SubPrivate Sub HScroll1_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)请预览后下载！End SubPrivate Sub HScroll2_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub （注：可编辑下载，若有不当之处，请指正，谢谢!） 请预览后下载！