二级VB上机题答案100套 经典.doc

全国计算机等级考试二级VB上机题及参考答案（100）第1套一、基本操作第1小题:新建一个名为Form1的窗体，单击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框；单击工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入操作，在名称栏中输入Op；点击下一个按钮，再点击编辑区的按钮，在标题栏中输入显示，在名称栏中输入Dis；点击下一个按钮，在标题栏中输入退出，在名称栏中输入Exit。打开代码窗口，输入如下的代码：sjt3.frmPrivate Sub Dis_Click() Text1.Text = 等级考试 单击操作菜单中的显示命令，在文本框Text1中显示等级考试End Sub-Private Sub Exit_Click() End 单击操作菜单中的退出命令，结束程序End Sub按要求保存文件即完成本题。第2小题： 新建一个窗体，点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设置其Name属性为L1，通过设置List属性为列表框添加AAAA、BBBB、CCCC和DDDD四个列表项。打开代码窗口，输入如下的代码：sjt4.frmPrivate Sub L1_Click() L1.RemoveItem ListIndex 单击列表框L1中的某一项，将此项从列表框L1中删除End Sub按要求保存文件即完成本题。二、简单应用第1小题:本题主要考查了计时器控件的属性、滚动条控件的属性和LoadPicture函数。1、计时器控件的Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数。2、滚动条控件的Value属性该属性值表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。3、LoadPicture函数用来将图形载入到窗体的Picture属性、PictureBox 控件或Image控件。其语法为：对象名.Pictuer=LoadPictuer(文件名)解题方法：本题中滚动条的HScroll1的Change事件控制当滚动框的位置改变后，计时器的时间间隔也发生变化；计时器Timer1的Timer事件控制图像框中的图片的交替变更。修改后的代码如下：按要求保存文件即完成本题。（1）wy5.frm原题答题Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub HScroll1_Change() Timer1.？ = 1000 - HScroll1.？ 计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值End SubPrivate Sub Timer1_Timer() Static i As Integer If i = 0 Then Image1.Picture = ？(2.ico) 如果i等于0，将图片2.ico加载到Image1控件 i = 1 Else Image1.Picture = ?(1.ico) 如果i不等于0，将图片1.ico加载到Image1控件 i = 0 End IfEnd SubPrivate Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub HScroll1_Change() Timer1.Interval = 1000 - HScroll1.Value 计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值End SubPrivate Sub Timer1_Timer() Static i As Integer If i = 0 Then Image1.Picture = LoadPicture(2.ico) 如果i等于0，将图片2.ico加载到Image1控件 i = 1 Else Image1.Picture = LoadPicture(1.ico) 如果i不等于0，将图片1.ico加载到Image1控件 i = 0 End IfEnd Sub第2小题： 本题主要考查了图像框控件的属性。Height属性：用来指定图像框的高度。 Width属性：用来指定图像框的宽度。解题方法：命令按钮C1（即放大按钮）的Click事件用来控制当图像框的宽和高都小于3000时，图像框的宽和高各增加500；命令按钮C2（即缩小按钮）的Click事件用来控制当图像框的宽和高都大于1000时，图像框的宽和高各减少500。修改后的代码如下：（2）wy6.frm 原题答题Private Sub C1_Click()If Image1.Height 3000 Or Image1.Width 1000 Or Image1.Width 1000 Then Image1.Height = Image1.Height - 500 Image1.Width = Image1.Width ? 500图像框的宽减少500End IfEnd SubPrivate Sub C1_Click()If Image1.Height 3000 Or Image1.Width 1000 Or Image1.Width 1000 Then Image1.Height = Image1.Height - 500 Image1.Width = Image1.Width - 500图像框的宽减少500End IfEnd Sub三、综合应用本题主要考查了文件的输入输出和列表框的属性。1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As #文件号 Len=记录长度参数说明：存取方式指文件的输入输出方式，可以是以下操作之一：Output指定顺序输出方式Input指定顺序输入方式Append指定顺序输出方式,与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。2、Input #语句用来读取顺序文件的数据。语法为：Input #文件号，变量列表3、Print #语句用来把数据写入顺序文件。语法为：Print #文件号，Spc(n)|Tab(n) 表达式列表 ;|,Spc(n)函数用来在当前的输出位置加入n个空白；Tab(n)函数用来设置在第n个位置写入数据。分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。4、Close语句 用来关闭一个被打开的文件。语法为：Close #文件号5、列表框的Selected属性在程序运行期间返回或设置在ListBox控件中的一个项的选择状态。该属性是一个与List 属性一样、有相同项数的布尔值数组。6、列表框的ListIndex属性在程序运行期间返回或设置控件中当前选择项目的索引。修改后的代码如下：原题答题Private Sub C1_Click() Dim i As Integer For i = 0 To L1.ListCount - 1 L1.? = True NextEnd 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 = ? Print #1, L1.?, L1.Selected(i) = False Next Close #1End SubPrivate Sub C1_Click() Dim i As Integer For i = 0 To L1.ListCount - 1 L1.Selected(i) = True NextEnd 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 #1End Sub按照题目要求保存文件即完成本题。第2套一、基本操作第1小题:新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框；执行工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入操作，在名称栏中输入Op；点击下一个按钮，再点击编辑区的按钮，在标题栏中输入显示，在名称栏中输入Dis；点击下一个按钮，在标题栏中输入清除，在名称栏中输入Clea。打开代码窗口，输入如下的代码：Sjt1.frmPrivate Sub Clea_Click() Text1.Text = 单击操作菜单中的清除命令，清空文本框Text1End SubPrivate Sub Dis_Click() Text1.Text = 等级考试 单击操作菜单中的显示命令，文本框Text1中显示等级考试End Sub按要求保存文件即完成本题。第2小题： 新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框，并设置其初始内容为空白；点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设置其Name属性为L1，通过设置List属性为列表框添加AAAA、BBBB、CCCC和DDDD四个列表项。打开代码窗口，输入如下的代码：Sjt2.frmPrivate Sub L1_DblClick() L1.AddItem Text1.Text 当双击列表框L1时，在列表框L1中加载文本框Text1中的内容End Sub按要求保存文件即完成本题。二、简单应用第1小题:本题主要考查了RichTextBox（多格式文本框）控件。LoadFile()函数：将rtf格式文件或标准ASCII文本文件加载到RichTextBox控件中。Len()函数：返回字符串的长度。解题方法：命令按钮Command1的Click事件控制将当前路径下的文本文件wy01.txt加载到多格式文本框rtx1中；命令按钮Command2的Click事件控制当多格式文本框rtx的内容不为空时，统计多格式文本框rtx中文本的长度。修改后的代码如下：原题答题Private Sub Command1_Click() rtx1.? App.Path + wy01.txt 将当前路径下的文本文件wy01.txt加载到多格式文本框rtx中End Sub-Private Sub Command2_Click() If rtx1.Text Then Text1.Text = ? 统计多格式文本框rtx中文本的长度，并赋给文本框Text1 End IfEnd SubPrivate Sub Command1_Click() rtx1.LoadFile App.Path + wy01.txt 将当前路径下的文本文件wy01.txt加载到多格式文本框rtx中End Sub-Private Sub Command2_Click() If rtx1.Text Then Text1.Text = Len(rtx1.Text) 统计多格式文本框rtx中文本的长度，并赋给文本框Text1 End IfEnd Sub按要求保存文件即完成本题。第2小题： 本题主要考查了鼠标的事件。MouseUp事件：当按下的鼠标释放时发生。参数Button用来标识释放的鼠标按钮，Button为1，表示鼠标左键；Button为2，表示鼠标右键；Button为4，表示鼠标中间键。解题方法：图像框Image1的MouseUp事件控制当释放按下的鼠标左键，且图像框的高和宽都小于4000时，图像宽的高和宽各增加500。当释放按下的鼠标右键，且图像框的高和宽都大于1000时，图像框的高和宽各减少500。修改后的代码如下：原题Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then If Image1.Height 4000 Or Image1.Width 1000 Or Image1.Width 1000 Then Image1.Height = Image1.Height - 500 Image1.Width = Image1.Width - 500 End IfEnd IfEnd Sub答题Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then If Image1.Height 4000 Or Image1.Width 1000 Or Image1.Width 1000 Then Image1.Height = Image1.Height - 500 Image1.Width = Image1.Width - 500 End IfEnd IfEnd Sub按要求保存文件即完成本题。三、综合应用本题主要考查了用户自定义类型和文件的打开、输入输出。1、用户自定义类型用户可以利用Type语句定义自己的数据类型，其格式如下：Type 数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 .End Type其中数据类型名是要定义的的数据类型的名字，其命名规则与变量的命名规则相同。2、文件Open 文件说明 For 方式 Access 存取类型 锁定 As #文件号 Len=记录长度Open语句的功能是：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。3、Input #语句格式：Input #文件号,变量表Input #语句从一个顺序文件中读出数据项，并把这些数据项赋给程序变量。4、Write #语句Write #文件号, 表达式表Write #语句把数据写入顺序文件中修改后的代码如下：答题Private Type stu num As Long nam As String * 10 nam是由10个字符组成的定长字符串 score As SingleEnd Type 结束用户自定义类型-Private Sub COMSTART_Click() Dim rec As stu 定义变量rec为stu类型 Dim i As Integer myfile1 = App.Path & & stud1.dat 将变量myfile1设置为考生文件夹下的stud1.dat文件的路径 myfile2 = App.Path & & stud.dat 将变量myfile2设置为考生文件夹下的stud.dat文件的路径 Open myfile1 For Input As #1 打开已经存在的文件stud1.dat，以便从文件中读出记录，并设置其文件号为1 Open myfile2 For Output As #2 建立并打开文件stud.dat，以便可以将记录写入文件中，并设置其文件号为2 For i = 1 To 8 Input #1, rec.num, rec.nam, rec.score 从文件stud1.dat中读出三个数据项，分别赋给三个变量rec.num、 rec.nam和rec.score Write #2, rec.num, rec.nam, rec.score 把变量rec.num、 rec.nam和rec.score 写入文件号为2的stud.dat文件中 Next i Close COMSTART.Caption = 完成 将命令按钮COMSTART的标题设置为完成 COMSTART.Enabled = False 将命令按钮COMSTART设置为无效End Sub按要求保存文件即完成本题。Private Type stu num As Long nam As String ?Key：* 10 score As SingleEnd ?Key：Type-Private Sub COMEXIT_Click()EndEnd Sub-Private Sub COMSTART_Click()Dim rec As ?Key：stuDim i As Integer myfile1 = App.Path & & ? Key：stud1.dat myfile2 = App.Path & & ? Key：stud.datOpen myfile1 For Input As #1Open myfile2 For Output As #2For i = 1 To 8 Input ?, rec.num, rec.nam, rec.scoreKey：#1 Write ?, rec.num, rec.nam, rec.scoreKey：#2Next iCloseCOMSTART.Caption = ? Key：完成COMSTART.Enabled = ? Key：FalseEnd Sub第3套一、基本操作第1小题:新建一个名为Form1的窗体，单击工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入操作，在名称栏中输入Op；点击下一个按钮，再点击编辑区的按钮，在标题栏中输入显示，在名称栏中输入Dis；点击下一个按钮，在标题栏中输入清除，在名称栏中输入Clea。打开代码窗口，输入如下的代码：sjt3.frmPrivate Sub Clea_Click() Cls 清除窗体Form1上的内容End Sub-Private Sub Dis_Click() Print 等级考试 在窗体Form1显示等级考试End Sub按要求保存文件即完成本题。第2小题： 新建一个名为Form1的窗体，点击工具箱中的Label控件图标，然后在窗体上拖拉出一个标签控件，通过属性窗口设置其Name属性为Lab1。点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设置其Name属性为L1，通过设置List属性为列表框添加若干列表项。打开代码窗口，输入如下的代码：Sjt4.frmPrivate Sub L1_DblClick() Lab1.Caption = L1.ListCount 在标签Lab1显示列表框中的项目数End Sub按要求保存文件即完成本题。二、简单应用第1小题:本题主要考查了通用对话框控件的属性。Filter(过滤器)属性：用于确定文件列表框中所显示文件的类型。该属性值可以由一组元素或用|符号分开的分别表示不同类型文件的多组元素组成。该属性在文件类型列表框中。FilterIndex属性：是指定默认情况下要打开或保存为的文件类型。Action属性：用于指定对话框的操作，1为显示打开对话框，2为显示另存为对话框，3为显示颜色对话框，4为显示字体对话框，5为显示打印对话框，6为显示帮助文件。Shell函数：凡是能在Windows下运行的应用程序，基本上都可以在VB中调用。这一功能通过Shell函数来实现。Shell函数的格式为Shell(命令字符串,窗口类型)其中命令字符串是要执行的应用程序的的文件名（包括路径），它必须是可执行文件，其扩展名为.COM、.EXE、.BAT或.PIF，其它文件不能用Shell函数执行。窗口类型是执行应用程序时窗口的大小，有6种选择，分别为0、1、2、3、4和6。解题方法：命令按钮Command6的Click事件控制打开默认文件类型为.exe的打开对话框，并通过Shell函数调用通用对话框CommonDialog1。修改后的命令按钮Command6的代码如下：Private Sub Command6_Click() CommonDialog1.CancelError = True On Error GoTo Cancel CommonDialog1.Filter = (可执行文件*.exe)*.exe|?|(可执行文件*.com)*.com|*.com 设置通用对话框CommonDialog1可显示的文件类型为*.exe和*.com CommonDialog1.FilterIndex = 1 设置通用对话框CommonDialog1默认的文件类型为*.exe CommonDialog1.Action = 1 设置通用对话框CommonDialog1显示为打开对话框 Shell CommonDialog1.filename, 1 用Shell函数调用通用对话框CommonDialog1，并设置窗口的显示类型为1 Cancel:End Sub按要求保存文件即完成本题。wy5.frmOption Explicit-Private Sub Command1_Click()Dim i As IntegerCommonDialog1.CancelError = TrueOn Error GoTo CancelCommonDialog1.Action = 5For i = 1 To CommonDialog1.Copies PrintFormNext iCancel:End Sub-Private Sub Command2_Click()CommonDialog1.CancelError = TrueOn Error GoTo CancelCommonDialog1.HelpCommand = &HBCommonDialog1.HelpFile = C:windowshelpwindows.hlpCommonDialog1.Action = 6Cancel:End Sub-Private Sub Command3_Click()CommonDialog1.CancelError = TrueOn Error GoTo CancelCommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.ColorCancel:End Sub-Private Sub Command4_Click()CommonDialog1.Flags = &H3& Or &H1& Or &H2&CommonDialog1.CancelError = TrueOn Error GoTo CancelCommonDialog1.Action = 4Text1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethruText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeCancel:End Sub-Private Sub Command5_Click()EndEnd Sub-Private Sub Command6_Click()CommonDialog1.CancelError = TrueOn Error GoTo CancelCommonDialog1.Filter = (可执行文件*.exe)*.exe|?|(可执行文件*.com)*.com|? Key：*.exe *.comCommonDialog1.FilterIndex = ?Key：1CommonDialog1.Action = ?Key：1Shell CommonDialog1.filename, ?Key：1Cancel:End Sub第2小题： 本题主要考查了图片框的属性和画Circle和Line的图形方法。1、图片框的FillStyle属性返回或设置用来填充PictureBox控件、以及由Circle和Line图形方法生成的圆和方框的模式。FillStyle的值为0，则生成的图形为实线模式。2、Circle方法用来在对象上画圆、椭圆或弧。语法为：对象名.Circle(x, y),radius,color,start,end,aspect参数x和y表示所画图形的中心；参数radius为所画图形的半径；参数color是所画图形的轮廓颜色；参数start和end指定所画弧的起始位置和终止位置；参数aspect是所画圆的纵横尺寸比。缺省值为1.0，此时所画出的是一个标准圆（非椭圆）。3、Line方法用来在对象上画直线和矩形。语法为：object.Line(x1,y1)-(x2,y2),color,BF参数x1、y1、x2和y2表示所画直线的起点坐标和终点坐标，或者所画矩形的对角线的起点和终点坐标。参数Color为所画直线的颜色或所画矩形的边框颜色。参数B表示要画的是矩形不是直线；F表示所画矩形的内部将用矩形的边框颜色来填充。解题方法：命令按钮C1的Click事件控制当单选按钮Op1被选中时画一个圆环，首先以以中心点坐标为(1500,1000)，半径为变量b画圆环的外圆，再以中心点坐标为(1500,1000)，半径为变量a画圆环的内圆；当单选按钮Op2被选中时画一个矩形，以起点坐标为(100,100)，终点坐标为(100+a,100+b)，画一个边框颜色和内部颜色相同的矩形。修改后的代码如下：wy6.frmPrivate Sub C1_Click()Dim a As SingleDim b As SingleDim t As SingleOn Error Resume NextIf Op1.Value = True Thena = InputBox(输入圆环的内径（输入值必须大于0且小于800）, 输入参数, 100)b = InputBox(输入圆环的外径（输入值必须大于0且小于900）, 输入参数, 200)If a b Then t = ? Key：a 如果变量a的值大于变量b的值，a和b的值交换，始终保持变量b的值大于变量a的值 a = b b = tEnd IfP1.ClsP1.FillStyle = ? Key：0 用实线模式来填充图片框P1P1.FillColor = vbBlackP1.Circle (1500, 1000), ? Key：a 以中心点坐标为(1500, 1000)，半径为变量b画圆P1.FillColor = vbButtonFaceP1.Circle (1500, 1000), aEnd IfIf Op2.Value = True Thena = InputBox(输入方框的长度（输入值必须大于0且小于3000）, 输入参数, 100)b = InputBox(输入方框的宽度（输入值必须大于0且小于1800）, 输入参数, 200)P1.ClsP1.Line (100, 100)-(100 + a, 100 + b), , ?FKey：B 画一个起点坐标为(100,100)，终点坐标为(100 + a, 100 + b)，边框颜色和内部颜色相同的矩形End IfEnd Sub三、综合应用本题主要考查了文件的打开和输入输出。1、文件Open 文件说明 For 方式 Access 存取类型 锁定 As #文件号 Len=记录长度Open语句的功能是：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。2、Input #语句格式：Input #文件号,变量表Input #语句从一个顺序文件中读出数据项，并把这些数据项赋给程序变量。3、Write #语句Write #文件号, 表达式表Write #语句把数据写入顺序文件中修改后的代码如下：Private Sub COMSTART_Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10), namstring(10), sexstring(10), wages(10) MyFile1 = App.Path & & ? Key： worker.dat 将变量myfile1设置为考生文件夹下的worker.dat文件的路径 MyFile2 = App.Path & & ? Key：worker1.dat 将变量myfile2设置为考生文件夹下的worker1.dat文件的路径 Open MyFile1 For Input As #1 打开已经存在的文件worker.dat，以便从文件中读出记录，并设置其文件号为1 Open MyFile2 For Output As #2 建立并打开文件worker1.dat，以便可以将记录写入文件中，并设置其文件号为2 For i = 1 To 10 Input ？, num(i), namstring(i), sexstring(i), wages(i) Key：#1 从文件worker.dat中读出四个数据项，分别赋给四个数组num、namstring、sexstring和wages total = total + wages(i) Next i aver = ? / 10 Key：total For i = 1 To 10 If ? Then Write #2, num(i), namstring(i), sexstring(i), wages(i) Key：wages(i) aver 如果数组wages中某个工人的体重大于平均体重，将这个工人的所有数据写入考生文件夹下的worker1.dat文件中 Next i COMSTART.Caption = ? Key：完成 将命令按钮COMSTART的标题设置为完成 COMSTART.Enabled = ? Key：False 将命令按钮COMSTART设置为无效End Sub第4套一、基本操作第1小题:新建一个名为Form1的窗体，单击工具箱中的DriveListBox控件图标，然后在窗体上拖拉出一个驱动器列表框；单击工具箱中的DirListBox控件图标，然后在窗体上拖拉出一个目录列表框；单击工具箱中的FileListBox控件图标，然后在窗体上拖拉出一个文件列表框。打开代码窗口，输入如下的代码：Private Sub Dir1_Change() File1.Path = Dir1.Path 当目录列表框Dir1的Path属性改变时，文件列表框File1的目录变为目录列表框Dir1的目录End Sub-Private Sub Drive1_Change() Dir1.Path = Drive1.Drive 当驱动器列表框Drive1的Drive属性改变时，目录列表框Dir1的目录变为驱动器Drive1的目录End Sub-Private Sub Form_Load() Dir1.Path = Drive1.Drive 窗体Form1加载时，目录列表框Dir1的目录变为驱动器Drive1的目录 File1.Path = Dir1.Path 窗体Form1加载时，文件列表框File1的目录变为目录列表框Dir1的目录End Sub-Private Sub File1_dblClick() MsgBox File1.filename 当双击文件列表框File1的文件名时，在信息框MsgBox中显示双击的文件名End Sub按要求保存文件即完成本题。第2小题： 新建一个名为Form1的窗体，单击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框；单击工具箱中的Timer控件图标，然后在窗体上拖拉出一个计时器，设置其Interval属性为1000。打开代码窗口，输入如下的代码：Private Sub Form_Load() Text1.Text = Str(Time) 窗体Form1加载时，在文本框Text1中显示当前时间End Sub-Private Sub Timer1_Timer() Text1.Text = Str(Time) 当触发计时器Timer1的Timer事件时，在文本框Text1中显示当前时间End Sub按要求保存文件即完成本题。二、简单应用第1小题:本题主要考查了文件的打开和输出。1、文件Open 文件说明 For 方式 Access 存取类型 锁定 As #文件号 Len=记录长度Open语句的功能是：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。方式：