2022年vb经典题目及答案

1、vb 经典题目及答案 1,在考生文件夹下有工程文件 wy7, vbp 及窗体文件 wy7,frm, 该程序就是不完整, 请在有 ？号的地方填 , 的 入正确的程序代码 , 然后删除 ？及全部注释符号 即 号, 但不能修改其它部分； 修改后的程序文件都储存 存盘时不得修改文件夹与文件名； 此题描述如下 : 在窗体上有一个名为 Text1 的文本框 , 有三个命令按钮 , 名称分别就是 C1,C2 与 C3, 标题分别就是 读入 , 加密 与 存盘 ；要求程序运行后 , 点击 读入 按钮 , 将文本文件 in7 ,txt 该文件在考生文件夹下 中的文本 信息读入文本框 Text1 中; 点击 加密

2、 按钮将 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

3、 Sub Private Sub C2_Click Dim strchange As String Dim i As Integer For i = 1 To LenText1 , Text strchange = strchange + ChrAscMidText1 , 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 在考生文件夹下有工程文件

4、wy5,vbp 及窗体文件 wy5,frm, 该程序就是不完整 , 请在有？号的地方 的 填入正确内容 , 然后删除？及全部注释符 即 号 , 但不能修改其它部分；存盘时不得转变文件名与文件夹； 此题描述如下 : 在窗口中有一个 RichText 文本框控件 名称为 rtx1 与一个文本框控件 名称为 Text1, 两个命令按钮 , 名称 分别为 Command与 1Command2标 , 题分别为 加入 WY01,TXT, 统计字符个数 ；要求程序运行后 , 单击 command1将考生文件夹下的 wy01,txt 的内容显示到 rtx1 中; 单击 统计字符个数 按钮统计 Text1 中有

5、多少个字符 , 将 结果显示在 Text1 中； 第 1 页,共 11 页vb 经典题目及答案 Option Explicit Private Sub Command1_Click rtx1 , Load + wy01 , txt End Sub Private Sub Command2_Click If rtx1 , Text Then Text1, Text = Lenrtx1 , Text End If End Sub 3,在考生文件夹下有工程文件 wy7,vbp 及窗体文件 wy7,frm, 该程序就是不完整 , 请在有？号的地方填入 的 正确内容 , 然后删除？及全部注释符 即 号,

6、 但不能修改其它部分； 存盘时不得转变文件名与文件夹 , 相应 的 dat 文件也储存到考生文件夹 , 否就没有成果； 下 此题描述如下 : 在名称为 Form1 的窗体上有五个 Label 控件与两个命令按, 数据文件 prog8a , dat 存放一些字符； ; 钮 1 按 开头 按钮后 , 能从考生文件夹下的 prog8a ,dat 中读出数据并分别统计出其中数字,大写字母,小写 字母与其它类型字符的个数 , 将结果写入考生文件夹下的 prog8b , dat 文件中 以标准格式在一行中输出 2 执行完毕 , 开头 按钮变成 完成 , 且无效 变灰 Private Sub COMSTAR

7、T_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 #1Open myfile2 For Output As #2 第 2 页,共 11 页vb 经典题目及答案 While Not EOF1 Input #1, Ch$ If AscCh$ = 48 And AscC

8、h$ = 65 And AscCh$ = 97 And AscCh$ c2, 就为锐角三角形 ; 如一边具有 a2+b2c2, 就为钝角三角形； Label1, Enabled = False For i = 1 To 10 Private Sub Command6_Click ai = InputBox 请输入第 & i & 个数 ,请务必输入数值数据！ , 输入 Do While IsNumericai = False ai = InputBox 输入数据无效 ,请重新输入数值数据！ ！ & 请输入第 & i & 个 数, 输入 LoopNext i For i = 1 To 9 For

9、j = i + 1 To 10 If Valaj = 2 * 3 ,14159 Then c = c Mod 2 * 3 , 14159 End If End Sub Private Sub Timer1_Timer Picture1, Refresh 重画图片框 End Sub Dim i As Integer For i = 0 To L1 , ListCount - 1 L1 , Selectedi = True Next End Sub Private Sub C2_Click Dim i As Integer Open out7 , txt For Output As 1 For i

10、 = 0 To L1 , ListCount - 1 L1 , ListIndex = i Print #1, L1 , Text, L1 , Selectedi = False Next Close #1 End Sub Private Sub Command3_Click End End Sub Private Sub Form_Load r = 20 c = 0 st = 0,063 HScroll1 , Min = 1 设置最小值 HScroll1 , Max = 100 设置最大值 End Sub Private Sub HScroll1_ChangeTimer1 , Interva

11、l = 200 - HScroll1 ,Value 依据滚动条的数值设置时间间隔 ,速度越快 ,间隔越 小 第 10 页,共 11 页vb 经典题目及答案 End Sub Private Sub Picture1_Paint Picture1, FillColor = QBColor12 Picture1, ForeColor = QBColor12 Picture1, Circle 0, 0, 2 x = Cosc * r y = Sinc * r Picture1, FillColor = QBColor14 Picture1, ForeColor = QBColor14 Picture1

12、, Circle x, y, 0 , 5 c = c + st If c = 2 * 3 ,14159 Then c = c Mod 2 * 3 , 14159End If End Sub Private Sub Timer1_Timer Picture1, Refresh 重画图片框 End Sub Option Explicit Private Sub Command1_Click End End Sub Private Sub Form_Load Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll1_Change Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll2_Change Label4, BackColor = RGBHScroll1 End Sub Private Sub HScroll3_Change Label4, BackCo