1、VB上机考试模拟试题要点VB上机考试模拟试题 VB程序设计上机考试题的题型，分为两种类型： 程序修改题 要求考生新建一个工程，在该工程中打开已有模块文件Modify.Bas，按照题意修改该模块中的函数或过程。为检测所作修改是否正确，可以在新建工程中添加一些控件或编制事件过程，用以调用模块中函数或过程的语句。 其中的程序填空题，要求考生删除已有源代码中标记“ (x) ”的部分，根据题意填入适当的代码，其它部分不得改动； 其中的程序改错题：要求考生找出注释语句“* 错误 x *”后的一个语句中的错误，并用正确的语句替换之，不允许改动其他的语句（也不得加行或减行）。 修改结束后，要保存工程，文件名一
2、般按缺省，模块文件名不得改变。 程序设计题 要求考生打开已有工程文件Design.vbp，按题意要求在对象窗口修改控件属性、删除代码窗口中中标记“ (x) ”的部分，根据题意填入适当的代码。程序修改题操作指导程序填空题： 在考生目录中，已有模块文件Modify.Bas，模块中的total过程是计算s=7+77+777+（和式中最后一项有n个7），但不完整，请在横线上填入必要的内容，使其完整。 Modify.Bas模块中的number函数是求出n个7组成的数。请建立工程将Modify.Bas模块加入工程中进行调试。操作： 新建工程，在“工程”菜单中选择“添加模块”子菜单，在所选择的如下所示的“现
3、存”对话框中，打开考生目录中的文件“modify.bas”。 模块modify.bas中的代码显示如下，考生应根据题意，对程序做修改。 Option Explicit 禁止使用缺省的数据类型（变体），即任何变量都要说明类型。 Public Sub total() Const n = 20 Dim s As Single, i As Integer For i = 1 To n s = s + 编者：需将“ ”删除后填入“number(i)” Next I Form1.Print s=; s End Sub Function number( ) As Single 编者：需将“”删除后填入“n
4、as Integer” Dim i As Integer number = 0 For i = 1 To n 编者：需将“ ”删除后填入“number=number*10+7” Next i End Function 运行调试 在本题中，为运行调试，可以在Form1的代码窗口内写入下列事件过程： Private Sub Form_Click() Call p() End Sub 在Modify.Bas模块的程序代码中，考生只能在加下划线处修改，不得加行或减行。而为运行调试所编制的代码，可以由考生决定。如：可以在窗体上添加命令按钮“Command1”、而将语句“Call p()”写在事件过程Co
5、mmand1_Click中，等等。 存盘退出程序改错题： 在考生目录中，已有模块文件Modify.Bas，其中的Calculate过程是产生100个0，99范围内的随机整数，统计并显示个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。 请建立工程将Modify.Bas模块加入工程中进行调试，请改正其中的错误。 注意：只要修改标出出错位置的下面那一条语句即可，其余代码不要改动。操作（建立工程、添加模块的方法与程序填空题的操作相类似）： 新建工程，在“工程”菜单中选择“添加模块”子菜单，在“现存”对话框中，打开考生目录中的文件“modify.bas”。 模块modify.bas中
6、的代码显示如下，考生应根据题意，对程序做修改。 Public Sub Calculate() Dim a(1 To 100) As Integer, a(1 To 10)As Integer, i As Integer, p As Integer 产生100个0，99范围内的随机整数，每行10个显示出来。 For i = 1 To 100 * 错误1 * a(i) = Rnd * 100 需改此句为“a(i) = Int(Rnd * 100)” If a(i) 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i)
7、; End If If i Mod 10 = 0 Then Form1.Print Next i 统计个位上的数字分别为1、2、3、4、5、6、7、8、9、0的数的个数 并将统计结果保存在数组元素x(1),x(2),x(10)中，将统计结果显示出来 For i = 1 To 100 * 错误2 * p = Int(a(i) / 10) 需改此句为“p = a(i) Mod 10” If p = 0 Then p = 10 * 错误3 * x(p) = x(p) - 1 需改此句为“x(p) = x(p) + 1” Next i Form1.Print 统计结果 For i = 1 To 10
8、p = i If i = 10 Then p = 0 * 错误4 * Form1.Print 个位数为 & p & 共 & x(p) & 个 Next i End Sub 倒数第三行需改为“Print 个位数为 & p & 共 & x(i) & 个” 运行调试 存盘退出程序设计题操作指导题目：完成一个画板程序的设计，可以根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图。提示：考生可以双击运行考生目录下的Design.vbp工程，打开该工程后，对象窗口如下图。完成以下具体要求： 1. 将窗体的标题文字改为“面板” 2. 将图片框picturel设置为固定边框，白色背景。 3. 添加
9、一个通用对话框控件用于显示颜色对话框，名称为cdcolor。 4. 将代码窗口中的“n”（n为1,2,3,4）部分删除后改为合适的内容。注意：代码窗口中其余代码不要做修改。操作： 打开考生目录下的工程文件Design.vbp 按照题意要求，在对象窗口添加对象、修改对象的属性 在代码窗口中，将所显示的“ （x） ”删除、用合适的代码填充 Option Explicit Private Sub Command1_Click() 编者：需将“ “删除后填入“Cdlcolor.ShowColor” 编者： 需将“ ”删除后填入“Picture1.ForeColor = CdColor.Color” E
10、nd Sub Private Sub Command2_Click() 编者： 需将“ ”删除后填入“Picture1.Cls” End Sub Private Sub Picture1_MouseMove(Button As Integer,Shift AS _ Integer, X As Single, Y As Single) 在鼠标移动事件过程中，按下鼠标左键时 Button值为1，按下鼠标右键时 Button 值为2，否则为0。 If Option1.Value = True Then Picture1.DrawWidth = 1 If Option2.Value = True Th
11、en Picture1.DrawWidth = 5 If Button = 1 Then 编者：需将“ ”删除后填入“Picture1.Pset(x,y)” End If End Sub 存盘退出VB上机考试部分模拟试题 【程序填空题1】 在考生目录中，已有模块文件Modify.Bas，其中的Summary过程用于计算并显示S=1+2+22+23+直至S超过1016为止。请在程序处划线处填入必要的内容，使其完整。 请建立工程，将Modify.Bas模块加入工程中进行调试。 Option Explicit Public Sub summary() Dim s As Single, i As In
12、teger 需在此填入“s = 1” i = 1 需在此填入“Do While s = Len2” MsgBox 完成全部搜索！ times = 0 End If End Sub Private Sub Command2_Click() 选中一段文本后，单击该按钮、执行替换操作。 Dim repstr As String repstr = InputBox(替换为，替换) If Text1.SelLength 0 Then 需在此填入“Text1.SelText = repstr” Else MsgBox 没有被替换的对象 End If End Sub Private Sub Command3
13、_Click() End End Sub Private Sub Form_Load() find1 = 0 End Sub 【程序填空题3】在考生目录中，已有模块文件Modify.Bas，模块中的PrintArray过程是输出一个右上三角元素（含对角线）为，其余元素为0的55矩阵。请填入必要的内容，使其完整。请建立工程将Modify.Bas模块加入工程中进行调试。 注意：只需将横线位置的内容删除后填入合适的内容即可，其余代码不要改动。 Public Sub PrintArray() Dim a(1 To 5,1 To 5) As Integer, i As Integer, j As Int
14、eger For i = 1 To 5 For j = 1 To 5 If Then 需在此填入“i = j” 需在此填入“a(i,j) = 1” End If Next j Next i For i = 1 To 5 For j = 1 To 5 Form1.Print ; a(i,j) Next j 需在此填入“Print” Next i End Sub 【程序设计题3】 完成一个计时器程序的设计,要求单击“开始计时”按钮后，程序根据选择的时间倒计时，并将剩余的时间显示在标签中，直到0分0秒为止。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考生目录
15、中，有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示，完成以下具体要求： 1. 将标签设置为固定边框，字体颜色设为红色，字号为16。 2. 将定时器的间隔设置为1秒。 3. 对单选钮控件数组进行合适的设置，使时间选择默认为5分钟。 编者：将 Label1.BorderStyle属性设置为1-fixed Single，Timer1.Interval属性设置为1000，Option1(1).TabIndex设置为0。 Option Explicit Dim pretime As Integer, mm As Integer, ss As Integer Private Su
16、b Command1_Click() Command1.Enabled = False Frame1.Enabled = False Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False : Pretime = 300 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Pretime = 60 Case 1 Pretime = 300 Case 2 Pretime = 600 End Sele
17、ct End Sub Private Sub Timer1_Timer() mm = 需在此填入“Pretime 60” ss = 需在此填入“Pretime Mod 60” Label1.Caption = str(mm) & 分 & Str(ss) & 秒 If Then 需在此填入“mm = 0 And ss = 0” Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True End If 需在此填入“pretime = pretime - 1” End Sub 【程序设计题4】 完成一个家电提货单管理程序的
18、设计，根据选项中选择的家电及数量，单击“确定”后，将选择的清单及总价在列表框中列出，“清除”按钮用于清空列表框中的项目。 要求在操作过程中，每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空，所有文本框只接受数字。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考目录中，已有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示，完成以下具体要求： 1. 将窗体设置为固定大小、没有最大化和最小化按钮。 2. 对文本框Text1控件数组进行合理的设置,使所有文本框的对齐方式为右对齐。 编者：将Form1.MaxBu
19、tton、MinButton属性设置为False，Form1.BorderStyle属性设置为1-fixed Single，Text1(0)Text1(4)的Alignment属性均设置为 -Right Justify。 Option Explicit Private Sub Check1_Click(Index As Integer) 需在此填入“Text1(Index).Text = ” If Check1(Index).Value = 1 Then Text1(Index).SetFocus End Sub Private Sub Command1_Click() Dim i As In
20、teger, sum As Long, title As String, price As Integer sum = 0 For i = 0 To 4 Select Case i Case 0 title = 电视机 : price = 2580 Case 1 title = 微波炉 : price = 760 Case 2 title = 电冰箱 : price = 1750 Case 3 title = DVD price = 3080 Case 4 title = 分体空调 price = 6500 End Select If Check1(i).Value = 1 And Text1(i).Text Then List1.AddItem title & Text(i).Text & 台 需在此填入“sum = sum + price * val(Text1(I).Text)” End If Next i If sum 0 Then 需在此填入“List1.AddItem Str(sum)” End Sub Private Sub Command2_Click() 需在此填入“List1.Clear” End Sub Pr
