上海普通高校非计算机专业学生VB试题

1、2001年上海普通高校非计算机专业学生计算机等级考试试卷二级（Visual Basic程序设计）（本考试采用上机形式，考试时间为150分钟）一、单选题（15分，每小题1分）1. Visual Basic是一种面向对象的程序设计语言， 不是面向对象系统所包含的三要素。A. 变量B. 事件C. 属性D. 方法2. Visual Basic的一个应用程序至少包含一个 文件，该文件存贮窗体上使用的所有控件对象和有关的 、对象相应的 过程和 代码。A. 模块、方法、事件、程序B. 窗体、属性、事件、程序C. 窗体、程序、属性、事件D. 窗体、属性、事件、模块3. 表达式"123" &

2、amp; "100" & 200的值是 。 A. 123300B. 423C. "123100200"D. 123100200 4. 设CurrentX=200，CurrentY=400，执行指令“Line (100, 250) -(350, 500), , B”后，CurrentX = 。A. 100B. 200C. 350D. 5505. 按照Visual Basic默认规定，数组声明Dim a(2, 2, 5)共有 个元素。A. 9B. 20C. 45D. 54 6. 声明一个长度为10个字节的字符串变量mstr，应使用 。 A. Dim

3、mstr As 10B. Dim mstr(10) As String C. Dim mstr As String * 10D. Dim mstr As String(10)7. 数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它还可以包含4个特殊的数据： 和Nothing。A. Error、Object、NullB. Error、Empty、Object C. Empty、Object、TypeD. Empty、Error、Null8. 从循环体 Do WhileLoop中退出，继续执行循环体后面的命令，应使用 。A. ExitB. Exit DoC. Exit Do

4、WhileD. Exit Loop9. 下列命令中 可实现对二进制文件的读操作。 A. ReadB. GetC. Line InputD. Put10. 在Visual Basic中要将一个正在运行的窗体隐含在内存中，应该使用语句 。A. ShowB. HideC. LoadD. UnLoad11. 设置窗体上的控制菜单可通过 属性来完成。A. ControlBoxB. MaxButtonC. MinButtonD. DrowMode12. 如果组合框ComBo1中已有10项数据，应使用语句 将数据“Mydata”插入到第5项。A. ComBo1.AddItem "Mydata&qu

5、ot;, 5B. ComBo1.AddItem "Mydata", 4 C. ComBo1. Insert "Mydata", 5D. ComBo1.Insert "Mydata", 413. Timer控件可用于后台进程中，要使Timer事件每半秒钟触发一次，则需设置Interval属性为 。 A. 0.5B. 5C. 50D. 500 14. 若有一个过程定义成Public Sub W1(ByVal x As Integer, y As Integer)，调用该过程的正确形式是 。A. Call W1(x, 3)B. W1(x,

6、3) C. Call W1 3, xD. W1 3, x15. 代数式ab2 ÷(5c+d)的Visual Basic表达式是 。 A. a * b * b / 5 * c + dB. a×b×b / (5×c + d)C. a * b* b / (5 * c + d)D. a * b b / (5 c + d)二、填空题（20分，每小题2分）1. 窗体上放置了若干个文本框和复选按钮，当窗体装入后，要将焦点自动定位到复选按钮Check1上，则在设计时需要将Check1控件的 属性设置为 。2. 当单击垂直滚动条上的空白区域时，要使滑块的移动量为50，则需

7、通过 属性来控制。3. 当焦点进入文本框Text1时，要自动选定文本框内开始的5个字符，则需要通过代码Text1.SelStart = 和 来实现。4. 选择对通用对话框的 方法，可打开颜色对话框。5. 对于窗体上的菜单按钮，如果不允许进行操作，应通过 属性进行设置。6. 对于正在使用的动态数组A()，要增加一个单元，则应使用语句 。7. 格式输出函数Format(12.345, "#.#") 的显示结果 。8. 绘制圆心坐标为（1000，200），半径为500的圆，其代码为： 。9. 在Visual Basic中创建新对象的关键字是 。10. 为了使文件列表框File1和

8、目录列表框Dir1之间能产生同步效果，必须在 事件过程中加入语句 。三、程序填空（20分，每小格2分）1. 下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果图1所示。图1Private Sub Command1_Click()Dim b(30), j As Integer, k As Integer, y As Integer, x As Single, min As IntegerFor j = 1 To 30lb: x = RndIf x > 0.5 Then y = 1 Else y

9、= -1 控制正负数b( j ) = y * (1) k = 1Do While (2) If b( j ) = b( k ) Then (3) 控制无重复k = k + 1LoopPrint b( j );If j Mod (4) Then Print 控制每行10个数Next jmin = b(1) For j = 1 To 30If b( j ) < min Then (5) Next jPrint minEnd Sub2. 下面的程序用于对9位的准考证号进行校验。参数mno存放准考证号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。产生校验位的算法

10、为：取准考证号右边的8位数之和关于9的模作为校验值，准考证号最左边的一位为校验位。Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 (1) m = Mid(mno, j, 1) msum = msum + Val(m) Next j mjy = (2) If (3) Then Tag = 1 Else Tag = 0 End IfEnd SubCommand1_Click事件用于调用foe函数，对输入到文本框Text1的准考证

11、号进行校验，如果校验正确，显示“正确”，否则显示“错误”，同时显示正确的校验码。Private Sub Command1_Click() Dim nn As Integer, mtag As Integer If Len(Text1) <> 9 Or Not IsNumeric(Text1) Then MsgBox "非法数据，请重新输入！" Text1 = "" (4) Exit Sub End If Call foe (Text1, nn, mtag) If mtag Then Print "正确"Else (5) E

12、nd IfEnd Sub四、编程题（45分）1. 打开软盘根目录上的a1.vbp工程，补充程序，当单击命令按钮时可在文本框显示出100200之间所有素数的个数，并将统计结果以随机文件形式存入A:a1.dat文件中。（10分）2. 编一个完整的程序，要求如下（35分）：（1）参见图2、图3，在Form1窗体上添加列表框（提供计算机品牌信息）、文本框、命令按钮和2个框架，框架内各有2个单选按钮或复选按钮，并设置相应标题。用你的姓名建立一项菜单，包含两个子菜单项：分别为“窗体2”和“结束”，之间有分隔线。在Form2窗体上放置一个时钟控件和图形框，窗体的标题设置为你的准考证号。（8分） 图2 图3（

13、2）当在Form1窗体的列表框和框架内选定了计算机的基本配置后，单击“确定”按钮，在文本框内分行显示当前所选择的信息。（7分）（3）当选择“窗体2”菜单项时，打开Form2窗体；当单击“结束”菜单项时，停止程序的运行。（5分）（4）在Form2窗体中建立可通过鼠标右键弹出的菜单（快捷菜单）。含有“装入图”、“产生圆”和“返回”三个菜单项。选择“装入图”菜单项，在图形框装入clouds.bmp图形文件；选择“产生圆”菜单项，在图形框内按每0.1秒频率随机产生色彩随机变化、半径最大为图形框宽度10%的圆；选择“返回”菜单项关闭Form2窗体，显示Form1窗体。（10分）（5）在软盘根目录下将工程

14、保存为A2.VBP、Form1窗体为A21.FRM、Form2窗体为A22.FRM，并且通过“文件|生成.exe”命令将工程生成A:A2.exe文件。（5分）2001年上海普通高校非计算机专业学生计算机等级考试试卷二级（Visual Basic程序设计）参考答案一、单选题1. A2. B 3. C 4. C 5. D 6. C 7. D 8. B9. B 10. B 11. A 12. B 13. D 14. D 15. C二、填空题1. TabIndex02. LargeChange3. 0 Text1.SelLength = 54. ShowColor5. Enabled6. ReDim

15、A( Ubound (A) + 1 )7. 12.358. Circle (1000, 200), 5009. New10. Dir1_ChangeFile1.path = Dir1.path三、程序填空1.（1）Int(Rnd * 301)（2）k <= j - 1（3）GoTo lb（4）10 = 0（5）min = b( j )2.（1）For j = 2 To 9（2）msum Mod 9（3）mjy = Val(Left(mno, 1)（4）Text1.SetFocus（5）Print "错误！", nn四、编程题1. 窗体如图4所示：图4参考答案一：（根据

16、原试卷提供的程序，补充完整。为便于对照，还增加了两个按钮过程）Private Sub Command1_Click()Dim MyRecord As Record声明变量补充程序Dim i, j, k As Integerk = 0For i = 1000 To 2000For j = 2 To i - 1If i Mod j = 0 Then GoTo nextmNext jk = k + 1nextm:Next iText1 = kMyRecord.st = Label1MyRecord.sj = kOpen App.Path + "samp.txt" For Rand

17、om As #1 Len = Len(MyRecord)Put #1, , MyRecordClose #1End Sub2. 01编程2.VBP采用的是参考答案二，比较简洁合理 参考答案一过于繁琐（用窗体变量i没有必要） 装入图的方式不同，方案一是用 LoadPicture的方式，方案二是在窗体设计时将图装入另一图片框Picture2中。（程序参考答案一：（1）Form1：Dim i As StringPrivate Sub Command1_Click() Text1.Text = i If Option1.Value = True Then Text1.Text = Text1.Text

18、 & Chr(13) & "128MB" ElseIf Option2.Value = True Then Text1.Text = Text1.Text & Chr(13) & "256MB" End If If Check1.Value = 1 Then Text1.Text = Text1.Text & Chr(13) & "音箱" End If If Check2.Value = 1 Then Text1.Text = Text1.Text & Chr(13) &

19、 "Modem" End IfEnd SubPrivate Sub List1_Click() i = List1.TextEnd SubPrivate Sub mntExit_Click() EndEnd SubPrivate Sub mntWindows2_Click() Form1.Hide Load Form2 Form2.ShowEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =

20、2 Then PopupMenu mntMain, 2 End IfEnd SubPrivate Sub mntCircle_Click() Timer1.Enabled = TrueEnd SubPrivate Sub mntLoad_Click() Picture1.Picture = LoadPicture("a:clouds.bmp")End SubPrivate Sub mntReturn_Click() Timer1.Enabled = False Unload Me Load Form1 Form1.ShowEnd SubPrivate Sub Timer1_

21、Timer() Dim Cx, Cy, Limit, Radius Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Width = Picture1.Height Cx = Rnd * Picture1.ScaleWidth Cy = Rnd * Picture1.ScaleHeight Limit = Picture1.ScaleWidth / 10 Radius = Rnd * Limit Picture1.Circle (Cx, Cy), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub参考答案二：（1）Form1：Private Sub Command1_Click()Text1 = ""Text1 = Text1 & List1.TextIf Option1 ThenText1 = Text1 & vbCrLf & "128M内存"ElseText1 = Text1 & vbCrLf & "256M内存"End IfIf Check1 Then Text1 = Text1 & vbCrLf & "音箱"If