1、2001年上海普通高校非计算机专业学生计算机等级考试试卷二级（Visual Basic 程序设计）（本考试采用上机形式，考试时间为 150分钟）一、单选题（15 分，每小题 1分）1. Visual Basic 是 一 种 面 向 对 象 的 程 序 设 计 语 言 ， 不 是 面 向 对 象 系 统 所 包含 的 三 要 素 。A. 变量 B. 事件 C. 属性 D. 方法2. Visual Basic的一个应用程序至少包含一个 文件，该文件存贮窗体上使用的所有控件对象和有关的 、对象相应的 过程和 代码。A. 模块、方法、事件、程序 B. 窗体、属性、事件、程序C. 窗体、程序、属性、事件
2、 D. 窗体、属性、事件、模块3. 表达式“123“ If j Mod (4) Then Print 控制每行 10个数Next jmin = b(1) For j = 1 To 30If b( j ) 9 Or Not IsNumeric(Text1) ThenMsgBox “非法数据，请重新输入！“Text1 = “(4) Exit SubEnd IfCall foe (Text1, nn, mtag)If mtag ThenPrint “正确“Else(5) End IfEnd Sub四、编程题（45 分）1. 打开软盘根目录上的 a1.vbp工程，补充程序，当单击命令按钮时可在文本框显
3、示出 100200 之间所有素数的个数，并将统计结果以随机文件形式存入 A:a1.dat文件中。（10 分）2. 编一个完整的程序，要求如下（35 分）：（1）参见图 2、图 3，在 Form1窗体上添加列表框（提供计算机品牌信息） 、文本框、命令按钮和 2个框架，框架内各有 2个单选按钮或复选按钮，并设置相应标题。用你的姓名建立一项菜单，包含两个子菜单项：分别为“窗体 2”和“结束” ，之间有分隔线。在 Form2窗体上放置一个时钟控件和图形框，窗体的标题设置为你的准考证号。 （8 分）图 2 图 3（2）当在 Form1窗体的列表框和框架内选定了计算机的基本配置后，单击“确定”按钮，在文本
4、框内分行显示当前所选择的信息。 （7 分）（3）当选择“窗体 2”菜单项时，打开 Form2窗体；当单击“结束”菜单项时，停止程序的运行。 （5 分）（4）在 Form2窗体中建立可通过鼠标右键弹出的菜单（快捷菜单） 。含有“装入图” 、“产生圆”和“返回”三个菜单项。选择“装入图”菜单项，在图形框装入clouds.bmp图形文件；选择“产生圆”菜单项，在图形框内按每 0.1秒频率随机产生色彩随机变化、半径最大为图形框宽度 10%的圆；选择“返回”菜单项关闭 Form2窗体，显示 Form1窗体。 （10 分）（5）在软盘根目录下将工程保存为 A2.VBP、Form1 窗体为 A21.FRM、
5、Form2 窗体为A22.FRM，并且通过“文件|生成.exe”命令将工程生成 A:A2.exe 文件。 （5分）2001年上海普通高校非计算机专业学生计算机等级考试试卷二级（Visual Basic 程序设计）参考答案一、单选题1. A 2. 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. TabIndex 02. LargeChange3. 0 Text1.SelLength = 54. ShowColor5. Enabled6. ReDim A( Ubound (A) + 1 )
6、7. 12.358. Circle (1000, 200), 5009. New10. Dir1_Change File1.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参考答案一：（根据原试卷提供的程序，补充完整。为便于对照，还增加了两个按钮过程
7、）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 Random As #1 Len = Len(MyRecord)Put #1, , M
8、yRecordClose #1End Sub2. 01编程 2.VBP采用的是参考答案二，比较简洁合理参考答案一过于繁琐（用窗体变量 i没有必要）装入图的方式不同，方案一是用 LoadPicture的方式，方案二是在窗体设计时将图装入另一图片框 Picture2中。（程序参考答案一：（1）Form1：Dim i As StringPrivate Sub Command1_Click()Text1.Text = iIf Option1.Value = True ThenText1.Text = Text1.Text & Chr(13) & “128MB“ElseIf Option2.Value
9、= True ThenText1.Text = Text1.Text & Chr(13) & “256MB“End IfIf Check1.Value = 1 ThenText1.Text = Text1.Text & Chr(13) & “音箱“End IfIf Check2.Value = 1 ThenText1.Text = Text1.Text & Chr(13) & “Modem“End IfEnd SubPrivate Sub List1_Click()i = List1.TextEnd SubPrivate Sub mntExit_Click()EndEnd SubPrivate
10、 Sub mntWindows2_Click()Form1.HideLoad Form2Form2.ShowEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mntMain, 2End IfEnd SubPrivate Sub mntCircle_Click()Timer1.Enabled = TrueEnd SubPrivate Sub mntLoad_Click()Pictu
11、re1.Picture = LoadPicture(“a:clouds.bmp“)End SubPrivate Sub mntReturn_Click()Timer1.Enabled = FalseUnload MeLoad Form1Form1.ShowEnd SubPrivate Sub Timer1_Timer()Dim Cx, Cy, Limit, RadiusPicture1.ScaleMode = 3Picture1.AutoRedraw = TruePicture1.Width = Picture1.HeightCx = Rnd * Picture1.ScaleWidthCy =
12、 Rnd * Picture1.ScaleHeightLimit = Picture1.ScaleWidth / 10Radius = Rnd * LimitPicture1.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
13、& vbCrLf & “256M内存“End IfIf Check1 Then Text1 = Text1 & vbCrLf & “音箱“If Check2 Then Text1 = Text1 & vbCrLf & “Mouse“End SubPrivate Sub menu11_Click()Form2.ShowEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu menu1E
14、nd SubPrivate Sub menu11_Click()Picture1 = Picture2End SubPrivate Sub menu12_Click()Timer1.Interval = 100End SubPrivate Sub menu13_Click()Unload MeEnd SubPrivate Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu menu1End SubPrivate Sub Timer1_Timer()X = Rnd * Picture1.WidthY = Rnd * Picture1.Heightr = Rnd * Picture1.Width * 0.1c = Int(Rnd * 16)Picture1.ForeColor = QBColor(c)Picture1.Circle (X, Y), rEnd Sub
