VB上机考试模拟试题

1、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 编者：需将“

4、 ”删除后填入“n 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(

5、)”写在事件过程Command1_Click中，等等。 存盘退出程序改错题： 在考生目录中，已有模块文件Modify.Bas，其中的Calculate过程是产生100个0，99范围内的随机整数，统计并显示个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。 请建立工程将Modify.Bas模块加入工程中进行调试，请改正其中的错误。 注意：只要修改标出出错位置的下面那一条语句即可，其余代码不要改动。操作（建立工程、添加模块的方法与程序填空题的操作相类似）： 新建工程，在“工程”菜单中选择“添加模块”子菜单，在“现存”对话框中，打开考生目录中的文件“modify.bas”。 模块m

6、odify.bas中的代码显示如下，考生应根据题意，对程序做修改。 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

7、.Print Space(1); a(i); 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) +

8、1” Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 '* 错误4 * Form1.Print "个位数为" & p & "共" & x(p) & "个" Next i End Sub 倒数第三行需改为“Print "个位数为" & p & "共" & x(i) & "个"” 运行调试 存盘退出程

9、序设计题操作指导题目：完成一个画板程序的设计，可以根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图。提示：考生可以双击运行考生目录下的Design.vbp工程，打开该工程后，对象窗口如下图。完成以下具体要求： 1. 将窗体的标题文字改为“面板” 2. 将图片框picturel设置为固定边框，白色背景。 3. 添加一个通用对话框控件用于显示颜色对话框，名称为cdcolor。 4. 将代码窗口中的“n”（n为1,2,3,4）部分删除后改为合适的内容。注意：代码窗口中其余代码不要做修改。操作： 打开考生目录下的工程文件Design.vbp 按照题意要求，在对象窗口添加对象、修改对象的属

10、性 在代码窗口中，将所显示的“ （x） ”删除、用合适的代码填充 Option Explicit Private Sub Command1_Click() 编者：需将“ “删除后填入“Cdlcolor.ShowColor” 编者： 需将“ ”删除后填入“Picture1.ForeColor = CdColor.Color” End Sub Private Sub Command2_Click() 编者： 需将“ ”删除后填入“Picture1.Cls” End Sub Private Sub Picture1_MouseMove(Button As Integer,Shift AS _ Int

11、eger, X As Single, Y As Single) ' 在鼠标移动事件过程中，按下鼠标左键时 Button值为1，按下鼠标右键时 Button ' 值为2，否则为0。 If Option1.Value = True Then Picture1.DrawWidth = 1 If Option2.Value = True Then Picture1.DrawWidth = 5 If Button = 1 Then 编者：需将“ ”删除后填入“Picture1.Pset(x,y)” End If End Sub 存盘退出VB上机考试部分模拟试题 【程序填空题1】 在考生目

12、录中，已有模块文件Modify.Bas，其中的Summary过程用于计算并显示S=1+2+22+23+直至S超过1016为止。请在程序处划线处填入必要的内容，使其完整。 请建立工程，将Modify.Bas模块加入工程中进行调试。 Option Explicit Public Sub summary() Dim s As Single, i As Integer 需在此填入“s = 1” i = 1 需在此填入“Do While s <= 1e16” s = s + 2i 需在此填入“i = i +1” Loop Form1.Print "s=" s End Sub 【

13、程序设计题1】 完成一个正弦曲线程序的设计,在图片框中画出-,区间的正弦波形。要求将图片框的坐标系重新定义为左上角坐标（-,1），右下角坐标为（,-1），并在图片框中画出坐标的X轴和Y轴。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考生目录中，已经有一个未完成的Design.vbp工程，打开该工程后的对象窗口如下图所示。完成以下具体要求： 1. 将窗体的标题文字改为“正弦曲线”。 2. 将图片框Picture1设置为固定边框，白色背景。 注意：代码窗口中其余代码不要做修改。 Option Explicit Private Sub Command1_Cl

14、ick() Const PI = 3.1415926 Dim i As Single '定义图片框的坐标系 需在此填入“Picture1.Scale(-PI,1)-(PI,-1)” '画出X轴直线 需在此填入“Picture1.Line(-PI,0)-(PI,0)” '画出Y轴直线 需在此填入“Picture1.Line(0,-1)-(0,1)” ' 以下语句对坐标轴进行曲标注 Picture1.CurrentX = -pi : Picture1.CurrentY = -0.1 Picture1.Print "" : Picture1.Cur

15、rentX = pi - 0.3 Picture1.Print "" : Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.1 : Picture1.Print "0" Picture1.CurrentX = 0.2 : Picture1.CurrentY = 1 - 0.1 Picture1.Print "1" : Picture1.CurrentX = 0.2 Picture1.CurrentY = -1 + 0.1 : Picture1.Print "-1" 

16、9; 以下语句画出-,区间的正弦波形 For i = -PI To PI Step 0.0001 需在此填入“Picture1.Pset(i,sin(i)” Next i End Sub 【程序填空题2】 在考生目录中，已有模块文件Modify.Bas,请完成下列题目要求。 Modify.Bas模块中的Transpose过程用于产生一个转置矩阵（所谓转置是指将二维数组中所有行和对应列的元素进行交换），但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas模块中的Swap过程用于交换两个变量的值。 请建立工程将Modify.Bas模块加入工程中进行调试。 注意：只需将横线位置的内容删

17、除后填入合适的内容即可，其余代码不要改动。 Public Sub Transpose() '产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换 Dim a(1 To 6,1 To 6) As Integer, i As Integer, j As Integer Form1.Print "原始数据" For i = 1 To 6 For j = 1 To 6 a(i,j) = Int(Rnd * 10) Form1.Print a(i,j); Next j Form1.Print Next i For i = 2 To 6 For j =

18、1 To 需在此填入“i - 1” 需在此填入“Call Swap(a(i,j),a(j,i)” Next j Next i Form1.Print "转置后数据" For i = 1 To 6 For j =1 To 6 需在此填入“Print a(i,j);” Next j Form1.Print Next i End Sub Public Sub Swap(a AS Integer,b As Integer) Dim temp As Integer Temp = a a = b b = temp End Sub 【程序设计题2】 完成一个文本编辑器程序的（部分）设计，

19、要求设计一个带有垂直滚动条的文本框，可以对文本框中选中的文本进行查找和替换操作。 第一次单击“查找”按钮后，出现输入框用于输入查找内容，并开始在文本框中查找第一个匹配的字符串并选中，再单击“查找”按钮则继续定位下一个匹配的字符串，直到没有匹配的字符串为止，这时可以开始其他内容的查找。 “替换为”按钮用于将文本框中选中的内容替换成指定的字符串，未选中内容则不做替换。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考生目录中，已经有一个未完成的Design.vbp工程，打开该工程后，对象窗口如下图。完成以下具体要求： 1. 将窗体设置为固定大小，没有最大化和最

20、小化按钮。 2. 对文本框Text1进行合理的设置，使其带有垂直滚动条。 编者：将Form1.MaxButton、MinButton属性设置为False，Form1.BorderStyle属性设置为1-fixed Single，Text1.ScrollBars设置为 2-Vertical。 Option Explicit Dim find1 As Integer, i As Integer Dim Len1 As Integer, Len2 As Integer, findstr As String Private Sub Command1_Click() Static times As In

21、teger If times = 0 Then findstr = InputBox(“查找？","查找") Len1 = Len(findstr) : Len2 = Len(Text1.Text) End If 需在此填入“times = times + 1” For i = find1 + 1 To Len2 If Then 需在此填入“findstr = Mid(Text1.Text,i,Len1)” find1 = i Text1.SetFocus Text1.SelStart = i - 1 需在此填入“Text1.SelLength = Len1” E

22、xit Sub End If Next i If Then 需在此填入“i >= 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 M

23、sgBox "没有被替换的对象" End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() find1 = 0 End Sub 【程序填空题3】在考生目录中，已有模块文件Modify.Bas，模块中的PrintArray过程是输出一个右上三角元素（含对角线）为，其余元素为0的5×5矩阵。请填入必要的内容，使其完整。请建立工程将Modify.Bas模块加入工程中进行调试。 注意：只需将横线位置的内容删除后填入合适的内容即可，其余代码不要改动。 Public Sub

24、PrintArray() Dim a(1 To 5,1 To 5) As Integer, i As Integer, j As Integer 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】 完成一个计时器程序的设计,要求单击“开始计时”按钮后

25、，程序根据选择的时间倒计时，并将剩余的时间显示在标签中，直到0分0秒为止。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考生目录中，有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示，完成以下具体要求： 1. 将标签设置为固定边框，字体颜色设为红色，字号为16。 2. 将定时器的间隔设置为1秒。 3. 对单选钮控件数组进行合适的设置，使时间选择默认为5分钟。 编者：将 Label1.BorderStyle属性设置为1-fixed Single，Timer1.Interval属性设置为1000，Option1(1).TabIndex设

26、置为0。 Option Explicit Dim pretime As Integer, mm As Integer, ss As Integer Private Sub 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) Sele

27、ct Case Index Case 0 Pretime = 60 Case 1 Pretime = 300 Case 2 Pretime = 600 End Select 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 =

28、 False Command1.Enabled = True Frame1.Enabled = True End If 需在此填入“pretime = pretime - 1” End Sub 【程序设计题4】 完成一个家电提货单管理程序的设计，根据选项中选择的家电及数量，单击“确定”后，将选择的清单及总价在列表框中列出，“清除”按钮用于清空列表框中的项目。 要求在操作过程中，每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空，所有文本框只接受数字。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考目录中，已有一个未完成的Des

29、ign.Vbp工程，打开该工程后的对象窗口如下图所示，完成以下具体要求： 1. 将窗体设置为固定大小、没有最大化和最小化按钮。 2. 对文本框Text1控件数组进行合理的设置,使所有文本框的对齐方式为右对齐。 编者：将Form1.MaxButton、MinButton属性设置为False，Form1.BorderStyle属性设置为1-fixed Single，Text1(0)Text1(4)的Alignment属性均设置为 -Right Justify。 Option Explicit Private Sub Check1_Click(Index As Integer) 需在此填入“Text

30、1(Index).Text = ""” If Check1(Index).Value = 1 Then Text1(Index).SetFocus End Sub Private Sub Command1_Click() Dim i As Integer, 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 = "微波炉"

31、: 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 = s

32、um + 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 Private Sub Text1_Keypress(Index As Integer,KeyAscii As Integer) If Chr(KeyAscii) > "9" Or Chr(keyAscii) < "0" Then 需在此

33、填入“KeyAscii = 0” End if End Sub 【程序填空题4】 在考生目录中，已有模块文件Modify.Bas，模块中的Uppersen过程是将一个英文句子的每个单词的首字母变成大写。 例如：输入“i am a good student.”，输出为“I Am A Good Student.”。请在横线上填入必要的内容，使其完整。请建立工程将Modify.Bas模块加入工程中进行调试。 注意：只需将横线位置的内容删除后填入合适的内容即可，其余代码不要改动。 Option Explicit Public Sub Uppersen() ' 从键盘上任意输入一条英文句子，将句

34、子中的每个单词的首字母都变成大写 Dim oldsen As String, newsen As String, char As String Dim lastchar As String, L As Integer, i As Integer Oldsen = InputBox("请输入英文句子：") L = 需在此填入“Len(oldsen)” ' 以空格作为单词的界定符，空格后的字母转换为大写字母。 lastchar = 需在此填入“""” For i = 1 To L char = 需在此填入“Mid(oldsen,i,1)” If la

35、stchar = " " Then char = 需在此填入“ Ucase(char)” newsen = newsen & char lastchar = char Next i Print "input:" oldsen Print "output:" newsen End Sub 【程序设计题5】 完成一个密码检验程序的设计，要求当在文本框中输入密码“1234567”并按回车后，显示（标签Label2）“欢迎光临！”；如果输入的密码与“1234567”不吻合，显示“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再

36、输入一遍；如果输入的密码仍然与“1234567”不吻合，显示“非法用户，请退出程序！”、文本框不能使用。 提示：考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。 在考生目录中，已有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示，完成以下具体要求； 1. 对文本框控件Text1进行设置，使得在文本框控件中输入的字符显示为*，并且最多可以接受8个字符，请对文本框控件Text1的相应属性进行设置。 2. 将标签控件Label2的对齐方式设置为居中对齐，大小随字体自动调整，不可见。 编者：将Text1.PasswordChar设置为"*&qu

37、ot;、Maxlength属性设置为8，Label2.Alignment属性设置为2-Center、AutoSize属性设置为True、Visible属性设置为False。 Private Sub Command1_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static times As Integer ' 统计第几次输入密码 ' 按回车键后进行密码检验 If Then 需在此填入“KeyAscii = 13” If Then 需在此填入“Text1.Text = "1234

38、567"” Label2.Caption = "欢迎光临!" 需在此填入“Label2.Visible = True” Else If Then 需在此填入“times = 0” Label2.Caption = "密码不符，请再输入一遍！" Label2.Visible = True Text1.Text = "" Else Label2.Caption = "非法用户，请退出程序!" Text1.Text = "" 需在此填入“Text1.Enabled = False” End

39、If End If times = times + 1 End If End Sub 【程序设计题6】 完成一个文本编辑器程序的（部分）设计，要求设计一个带有垂直滚动条的文本框，可以对文本框中选中的文本进行剪切、复制、粘贴和删除的操作。 提示：考生可以双击运行考生目录下的Design.exe文件查看程序的最终效果。 在考生目录中，已经有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示。完成以下具体要求； 1. 将窗体设置为固定大小，没有最大化和最小化按钮。 2. 将文本框Text1进行合理的设置，使其带有垂直滚动条。 Private Sub Command1_Click(

40、) ' 剪切 需在此填入“Clipboard.SetText(Text1.SelText)” 需在此填入“Text1.SelText = ""” End Sub Private Sub Command2_Click() ' 复制 需在此填入“Clipboard.SetText(Text1.SelText)” End Sub Private Sub Command3_Click() ' 粘贴 需在此填入“Text1.SelText = Clipboard.GetText” End Sub Private Sub Command4_Click() 

41、9; 删除 需在此填入“Text1.SelText = ""” End Sub Private Sub Command5_Click() End End Sub 【程序填空题5】在考生目录中，已有模块文件Modify.Bas。模块中even过程是找出一个大于4的偶数的所有不重复的素数分解式，模块中的Isprime函数过程是判断一个数是否素数。请在横线上填入必要的内容，使其完整。请建立工程将Modify.Bas模块加入工程中进行调试。 Option Explicit Public Sub even() '从键盘输入一个必须大于4的偶数，将它所有的不重复的分解式求出 D

42、im x As Integer, i As Integer 需在此填入“Do Until x>4 and x Mod 2 = 0” x = Val(InputBox("x=") Loop For i = 3 To x / 2 Step 2 需在此填入“If Isprime(x) Then” Print x; "=" i; "+" x - i End If Next i End Sub Public Function Isprime(x As Integer) As Boolean Dim i As Integer 需在此填入“I

43、sprime = True” For i = 2 To x - 1 需在此填入“If x Mod i = 0 Then” Isprime = False Exit For End If Next i End Function 【程序填空题6】 在考生目录中，已有模块文件Modify.Bas，模块中的Fabonia过程是对以下数列进行运算：该数列的前三个数是0、1、2，从第四个数起，每个数都是它前面的两个数之和。求该数列的第17项，并求出从第几项起每项都超过108。请在横线上填入必要的内容，使其完整。请建立工程将Modify.Bas模块加入工程中进行调试。 Option Explicit Pub

44、lic Sub Fabonia() Dim last_one As Long, last_two As Long Dim this_one As Long, i As Integer last_one = 1 last_two = 2 i = 4 '从数列的第四个数求起 Do this_one = last_one + last_two 需在此填入“last_one = last_two” 需在此填入“last_two = this_one” If i = 17 Then Print "No:17=" this_one 需在此填入“i = i + 1” Loop W

45、hile this_one <= 100000000# Print "No" ; "is>1E8" 需在此填入“i” End Sub 【程序设计题7】 完成一个改变图形形状大小的程序的设计，要求可以用滚动条改变圆的大小，同时把圆的直径在标签Label2上显示出来。 考生可以双击运行考生目录下的Design1.exe文件查看程序的最终效果。在考生目录中，已有一个未完成的Design.Vbp工程，打开该工程后的对象窗口如下图所示。完成以下具体要求： 1. 将形状控件Shape1设置为圆形，并且显示出填充色为红色。 2. 将标签控件Label2的对齐属性设置为居中对齐。 编者：将Shape1.shape设置为3-Circle、FillColor属性设置为红色、FillStyle属性设置为0-Solid。 Private Sub Form_Load() Hscroll1.Max = 3400 Hscroll1.Min = 10 Hscroll1.LargeChange = 100 Hscroll1.Sma