《浙江省计算机二级VB上机题目》由会员分享，可在线阅读，更多相关《浙江省计算机二级VB上机题目（47页珍藏版）》请在金锄头文库上搜索。
1、3第二部分 VB上机考试模拟试题第二部分 VB上机考试模拟试题一、程序调试题(改错或填空)（一）说明等级考试上机测试的程序调试题常常是在考生目录中给出一个标准模块程序Modify.BAS，要求根据题意修改该模块中的函数或过程，为检测所作修改是否正确，可以按照以下操作步骤进行调试：1要求学生建立一工程，将这一模块添加到工程中。如果你是通过双击标准模块程序Modify.BAS进入Visual Basic程序设计系统的，则首先需要添加一个窗体模块。2将该标准模块程序Modify.BAS代码中用-n-（n为1，2，3，4，5）部分删除后改为合适的内容或将用*错误n*标示的下一语句中的错误改正，并在窗体
2、模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的sub过程或自定义函数（如果在标准模块程序中有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。3按试题要求保存工程。（二）程序调试题题1 Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。Option ExplicitPublic Sub getanswer() 该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox(输入系数a) b = InputBox(输入系数b) c
3、 = InputBox(输入系数c) dalt = b * b - 4 * a * c If dalt0 then dalt = Sqr(dalt) MsgBox Format(-b + dalt) / 2 / a), 0.00 + Chr(13) + Chr(10) + Format(-b - dalt) / 2 / a, 0.00) Elseif dalt=0 then MsgBox Format(-b / 2 / a, 0.00) + Chr(13) + Chr(10) + Format(-b / 2 / a, 0.00) Else dalt= sqr(-dalt) MsgBox For
4、mat(-b + dalt) / 2 / a, 0.00) + +i + Chr(13) + Chr(10) + Format(-b - dalt) / 2 / a, 0.00) + -i End IfEnd Sub题2 打印输出一菱形图案。Public Sub prt() 打印由#组成的菱形图案 # # # # # # # # # Dim i As Integer, j As Integer Dim start As String 每行起始空格数 Dim count As Integer 每行#个数 For i = 1 To 9 If i = 5 Then start = Space(21
5、- i) count = 2 * i - 1 Else start = Space(11 + i) count = 19 - 2 * i End If Form1.Print start; For j = 1 To count Form1.Print #; Next j Form1.Print Next iEnd Sub题3 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。Option ExplicitPublic Sub pyramid() 打印数字金字塔 1 222 33333 4444444 555555555 6666666
6、 77777 888 9 Dim i As Integer Dim j As Integer Dim start As String 每行起始空格数 Dim num As Integer 每行数字个数 For i = 1 To 9 If i = 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= space(10+i) num= 19-2*i End If Form1.Print start; For j = 1 To num Form1.print cstr(i); Next j Form1.print Next iEnd Sub
7、题4 改错。Option ExplicitPublic Sub prt() 打印由数字组成的如下所示金字塔图案 9 888 77777 6666666 555555555 44444444444 3333333333333 222222222222222 11111111111111111 Dim i As Integer, j As Integer * 错误1 * For i = 9 To 1 Step -1 Form1.Print Space(i); * 错误2 * For j = 1 To 2 * (10 - i) - 1 * 错误3 * Form1.Print CStr(i); Nex
8、t j Form1.Print Next iEnd Sub题5 计算s=7+77+777+（n个7组成的数）。Public Sub total() 计算s=7+77+777+（n个7组成的数） Const n = 20 Dim s As Single Dim i As Integer For i = 1 To n s=s+ number(i) Next i Form1.Print s=; sEnd SubPublic Function number( n As Integer ) As Single Dim i As Integer number = 0 For i = 1 To n Numb
9、er=number*10+7 Next iEnd Function题6 Modify.bas模块中的过程eat用于计算猴子共摘了多少个桃子。Option ExplicitPublic Sub eat() 该过程是用于计算猴子共摘了多少个桃子。 （小猴在一天摘了若干个桃子，当天吃掉了一半多一个； 第二天吃了剩下的一半多一个； 以后每天都吃尚存的一半零一个，到第7天早上要吃时只剩下一个了）， 并将结果输出来。 Dim n%, i%, x% x = 1 for i=6 to 1 step -1 x = 2 * (x + 1) Next i Form1.Print 共有; x; 个桃子End Sub题
10、7 Modify.bas模块中的Prime过程是求出100到200之间所有的素数，并打印出来。Public Sub prime() 打印出100到200之间所有的素数，并统计素数的个数 Dim i As Integer Dim j As Integer Dim k As Integer Dim t As Integer 统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True k = 2 j = Int(Sqr(i) Do While k = j And b If i Mod k = 0 Then b = False End If k = k +
11、 1 Loop if b then 或b=True t = t + 1 Form1.Print i End If Next iForm1.Print t=; tEnd sub 题8 过程even用以验证一个偶数可以分解为两个素数之和；Isprime用以判断x是否是素数。请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。Public Sub even() 从键盘输入一个大于4的偶数，将它所有的不重复的分解式求出 Dim x As Integer Dim i As Integer Do While x 4 and x mod 2=0 x = Val(InputBox(x=) Lo
12、op For i = 3 To x / 2 Step 2 在不大于x的奇数中找素数 If Isprime(i) And Isprime(x - i) then 或Isprime(i)=True And Isprime(x - i)=True Form1.Print x; =; i; +; x - i End If Next iEnd SubPublic Function Isprime(x As Integer) As Boolean Dim i As Integer Isprime = True For i = 2 To x - 1 If x Mod i = 0 Then Isprime = False Exit For End If Next iEnd Function题9 Modify.bas模块中的find过程是用于找出被3、5、7除，余数为1的最小的5个整数，并将结果输出来。Option ExplicitPublic Sub
