2023年vb经典试卷(最新版)及超详细解析超详细解析答案.pdf

《2023年vb经典试卷(最新版)及超详细解析超详细解析答案.pdf》由会员分享，可在线阅读，更多相关《2023年vb经典试卷(最新版)及超详细解析超详细解析答案.pdf（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、到 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 Sub Private Sub C2_Click()Dim strchange As String Dim

3、i As Integer For i=1 To Len(Text1、Text)strchange=strchange+Chr(Asc(Mid(Text1、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)在考生文件夹下有工程文件 wy5、vbp及窗体文件 wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分

4、。存盘时不得改变文件名与文件夹。本题描述如下:在窗口中有一个 RichText 文本框控件(名称为 rtx1)与一个文本框控件(名称为 Text1),两个命令按钮,名称分别为 Command1 与 Command2,标题分别为 加入 WY01、TXT、统计字符个数。要求程序运行后,单击 command1将考生文件夹下的 wy01、txt 的内容显示到 rtx1 中;单击 统计字符个数 按钮统计 Text1 中有多少个字符,将结果显示在 Text1 中。vb 经典题目及答案 Option Explicit Private Sub Command1_Click()rtx1、Load+wy01、tx

5、t End Sub Private Sub Command2_Click()If rtx1、Text Then Text1、Text=Len(rtx1、Text)End If End Sub 3、在考生文件夹下有工程文件 wy7、vbp及窗体文件 wy7、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹,相应的 dat 文件也保存到考生文件夹下,否则没有成绩。本题描述如下:在名称为 Form1的窗体上有五个 Label 控件与两个命令按钮,数据文件 prog8a、dat 存放一些字符。1)按 开始 按钮

6、后,能从考生文件夹下的 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 myfil

7、e1 For Input As#1 Open myfile2 For Output As#2 vb 经典题目及答案 While Not EOF(1)Input#1,Ch$If Asc(Ch$)=48 And Asc(Ch$)=65 And 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、v

8、bp及窗体文件 wy7、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹,相应的 dat 文件也保存到考生文件夹下,否则没有成绩。本题描述如下:在名称为 Form1的窗体上有五个 Label 控件与两个命令按钮,数据文件 grade、dat 存放一些成绩。1)按 开始 按钮后,从考生文件夹下的 grade、dat 中读出数据并求出它们的平均数,将结果写入考生文件夹下的 average、dat 文件中;2)执行完毕,开始 按钮变成 完成,且无效(变灰)5、(1)在考生文件夹下有工程文件 wy5、vbp及窗

9、体文件 wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:在名称为 Form1的窗体上有一个 Label 控件,4 个 Text 控件及 7个命令按钮,功能如下:1)开始启动工程时,界面上除 开始录入 及 退出 按钮之外,其它按钮均不可用(灰色显示)。2)单击 开始录入 按钮之后,利用 INPUTBOX 让用户连续且必须录入 10 个数。若录入为非数字符号,则给出警告 输入数据无效,请重新输入数值数据,请输入第 n个数。3)录入完毕后,开始录入 变灰,其它变为可用状态。4)按相应的

10、按钮可分别求出所录入数据的 升序、降序 排列及 最大数 与 最小数 并在右侧对应的文本框中显示。(注意用 A(10)存放最大数,A(1)存放最小数)5)单击 清除 按钮将所有文本框清空。vb 经典题目及答案 Private Sub COMSTART_Click()Dim g As Single,N As Integer,S As Single myfile1=App、Path&grade、DAT myfile2=App、Path&average、dat Open myfile1 For Input As#1 Open myfile2 For Output As#2 Do While Not E

11、OF(1)Input#1,g N=N+1 S=S+g Loop Close#1 S=S/N Write#2,S Close COMSTART、Caption=完成 COMSTART、Enabled=False End Sub*(2)在考生文件夹下有工程文件 wy6、vbp及窗体文件 wy6、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:在名称为 Form1,标题为 求与程序 的窗体上有三个 Label 控件,两个 Text 控件与三个命令按钮。该程序的主要功能就是求从 1到 Text1

12、 中用户输入的任意自然数 n的累加与:1)刚启动工程时,显示结果 与 清除 按钮均为灰色 2)可以在输入框内输入任意自然数(n 值太大时,运算时间将很长,建议不 超过 9位)。在输入数的同时 显示结果 变为可用。当输入为非数值时,累加结果为 0 3)单击 显示结果 可以在 Text2 中显示累加与,且该框内的文字不可修改;同时 显示结果 变灰,清除 变为可用 4)单击 清除,输入框与显示框均显示 0 5)单击 关闭 按钮结束程序的运行 vb 经典题目及答案 Option Explicit Private Sub Command1_Click()Dim i As Double Dim sum A

13、s Double Dim n As Double sum=0 n=Val(Text1、Text)For i=1 To n sum=sum+i Next i Text2、Text=sum Command1、Enabled=False Command2、Enabled=True End Sub Private Sub Command2_Click()Text1、Text=0 Text2、Text=0 Command1、Enabled=True Command2、Enabled=False End Sub Private Sub Command3_Click()End End Sub Private

14、 Sub Form_Load()Command1、Enabled=False Command2、Enabled=False End Sub Private Sub Text1_Change()Command1、Enabled=True End Sub 6、(1)在考生文件夹下有工程文件 wy5、vbp及窗体文件 wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:在窗体上有一个标签数组,名为 Label1,该数组有 4个控件元素,标题分别就是 程序运行、文本编辑、双向箭头 与 移动窗

15、体。在程序运行后,将鼠标移动到各控件元素上,则鼠标的形状将变成各控件元素的vb 经典题目及答案 标题所代表的鼠标形状,离开控件元素,则又变成正常情况下的箭头形状。Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Form1、MousePointer=0 End Sub Private Sub Label1_MouseMove(Index As Integer,Button As Integer,Shift As Integer,X As Single,Y As Single

16、)Select Case Index Case 0 Form1、MousePointer=11 Case 1 Form1、MousePointer=3 Case 2 Form1、MousePointer=7 Case 3 Form1、MousePointer=5 End Select End Sub 7、(1)在考生文件夹下有工程文件 wy5、vbp及窗体文件 wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:在窗体中有两个命令按钮,名称分别就是 C1与 C2,标题分别就是 修改窗

17、体图标 与 修改窗体标题。要求程序运行后,点击 C1命令按钮,则将窗体标题栏中的图标换为图标文件 1、ico(该文件在考生文件夹下);点击 C2命令按钮,则将窗体标题修改为 窗体。Private Sub C1_Click()Form1、Icon=LoadPicture(1、ico)End Sub Private Sub C2_Click()Form1、Caption=窗体 End Sub 8(2)在考生文件夹下有工程文件 wy6、vbp及窗体文件 wy6、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹

18、。vb 经典题目及答案 本题描述如下:在窗口中有一个名称为 COMMAND1,标题为 读取字型 的命令按钮,一个名称为 COMBO1 的下拉组合框与一个提示标签 Label1。要求程序运行后,单击 读取字型 按钮读取系统的字型,在 COMBOX1 中显示。Private Sub Command1_Click()Dim I As Long For I=0 To Screen、FontCount-1 Combo1、AddItem Screen、Fonts(I)Next End Sub 9(2)在考生文件夹下有工程文件 wy6、vbp及窗体文件 wy6、frm,该程序就是不完整的,请在有？号的地方填

19、入正确内容,然后删除？及所有注释符(即 号)但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:该程序的功能就是:根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出为何种三角形,及三角形的周长与面积。要求完成 判断并计算 按钮的如下功能:1)判断输入的条件就是否为三角形,若就是三角形则在 Text1 中显示 就是三角形;在 Text2 中显示就是何种三角形。2)单击 清除再来 按钮可以将所有显示框清空,且按钮本身变为不可选取状态。当单击 判断并计算 之后重新恢复为可选状态。附:1)三角形存在的条件为任一边不为 0且任两边之与大于第三边。2)若一边具有 a2+b2=c

20、2,则为直角三角形;若所有边具有 a2+b2c2,则为锐角三角形;若一边具有a2+b2c2,则为钝角三角形。Private Sub Command6_Click()Label1、Enabled=False For i=1 To 10 a(i)=InputBox(请输入第&i&个数,请务必输入数值数据！,输入)Do While IsNumeric(a(i)=False a(i)=InputBox(输入数据无效,请重新输入数值数据！&请输入第&i&个数,输入)Loop Next i For i=1 To 9 For j=i+1 To 10 If Val(a(j)Val(a(i)Then vb 经典

21、题目及答案 m=a(j)a(j)=a(i)a(i)=m End If Next j Next i Command6、Enabled=False Command1、Enabled=True Command2、Enabled=True Command3、Enabled=True Command4、Enabled=True Command5、Enabled=True Command7、Enabled=False End Sub Private Sub Command7_Click()Text1、Text=Text2、Text=Text3、Text=Text4、Text=Label1、Enabled=

22、True Command6、Enabled=True Command4、Enabled=False Command3、Enabled=False Command2、Enabled=False Command1、Enabled=False Command7、Enabled=False End Sub Private Sub Form_Load()Command1、Enabled=False Command2、Enabled=False Command3、Enabled=False Command4、Enabled=False Command7、Enabled=False End Sub vb 经

23、典题目及答案 10、在考生文件夹下有工程文件 wy7、vbp及窗体文件 wy7、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即 号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下:在窗体上有一个名为 L1的列表框,列表框中有若干的列表项(见下图),通过属性窗口设置列表框的MultiSelect 属性为 1。还有两个命令按钮,名称分别就是 C1与 C2,标题分别就是 全选 与 存盘。要求在程序运行时,点击 C1按钮则将 L1中的全部列表项选中,然后点击 C2按钮,将 L1中的全部列表项写入文本文件 out7、txt 中,并将 out7、tx

24、t 保存在考生文件夹下。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_Change()Timer1、Interval=200-HScroll1、Value 根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub Picture1_Paint()Picture1、FillColor=QBColor(12)

25、Picture1、ForeColor=QBColor(12)Picture1、Circle(0,0),2 x=Cos(c)*r y=Sin(c)*r Picture1、FillColor=QBColor(14)Picture1、ForeColor=QBColor(14)Picture1、Circle(x,y),0、5 c=c+st vb 经典题目及答案 If c=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 Int

26、eger For i=0 To L1、ListCount-1 L1、Selected(i)=True Next End Sub Private Sub C2_Click()Dim i As Integer Open out7、txt For Output As 1 For i=0 To L1、ListCount-1 L1、ListIndex=i Print#1,L1、Text,L1、Selected(i)=False Next Close#1 End Sub Private Sub Command3_Click()End End Sub Private Sub Form_Load()r=20

27、c=0 st=0、063 HScroll1、Min=1 设置最小值 HScroll1、Max=100 设置最大值 End Sub Private Sub HScroll1_Change()Timer1、Interval=200-HScroll1、Value 根据滚动条的数值设置时间间隔,速度越快,间隔越小 vb 经典题目及答案 End Sub Private Sub Picture1_Paint()Picture1、FillColor=QBColor(12)Picture1、ForeColor=QBColor(12)Picture1、Circle(0,0),2 x=Cos(c)*r y=Sin

28、(c)*r Picture1、FillColor=QBColor(14)Picture1、ForeColor=QBColor(14)Picture1、Circle(x,y),0、5 c=c+st If c=2*3、14159 Then c=c Mod(2*3、14159)End 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、BackCo

29、lor=RGB(HScroll1、Value,HScroll2、Value,HScroll3、Value)End Sub Private Sub HScroll1_Change()Label4、BackColor=RGB(HScroll1、Value,HScroll2、Value,HScroll3、Value)End Sub Private Sub HScroll2_Change()Label4、BackColor=RGB(HScroll1、Value,HScroll2、Value,HScroll3、Value)End Sub Private Sub HScroll3_Change()Label4、BackColor=RGB(HScroll1、Value,HScroll2、Value,HScroll3、Value)End Sub