非等级考试学生）期末考卷城市学院

1、年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线浙江大学城市学院2005 2006 学年第 二 学期期末考试答题卷VB程序设计基础开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2006 年 6 月 30 日8:1010:10题序一二三四总 分得分评卷人得分一单选题(本大题共 10 题，每题 1 分，共 10 分。)题号12345678910得分二程序填空题(本大题共 4 题 15 空，每空 2 分，共 30 分。)题号1112131415161718192021 22 . 23 24 . 25 .得分三程序阅读题(本大题共 5 题，前 2 题每空 2 分，共 14 分；后3

2、题分别6分、 4分、 6分。)题号26272829303132第3题:第4题: 第5题:得分四程序设计题(本大题共 3 题，每题 10 分，共 30 分。)第1题： .第2题： .第3题： .年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线浙江大学城市学院2005 2006 学年第 二 学期期末考试试卷VB程序设计基础开课单位： 计算分院 ；考试形式：闭卷；考试时间：2006 年 6 月 30 日8:1010:10课程号：一、单选题（10%）1将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件_。A、.doc与.txt B、.com与.exe C、.bat与.fr

3、m D、.vbp与.frm2判断变量x、y中有且只有一个为0的下列各表达式中，正确的是_。A、x=0 Or y=0 and x*y0 B、x+y=0 and x*y0C、x+y0 and x*y=0 D、x=0 and y03以下使用方法的VB程序代码中，正确的是_。 A、Label1.SetFocusB、Form1.Clear C、Text1.SetFocus D、Combo1.Cls4_属性可以用来设置所绘线条宽度。A、DrawStyle B、BorderStyle C、DrawWidth D、LineWidth5通用对话框的类型设置为“另存为”对话框，可在程序中使Action属性值为_。

4、A、1 B、2 C、3 D、46五个名称为Label1的控件组成了控件数组，现在将其置为空串，正确的程序是_。A、For i = 0 To 4 ：Label1.Caption(i) = ：Next i B、For i = 0 To 4 ：Label(i).Caption = ：Next i C、For i = 0 To 4 ：Label1(i).Caption = ：Next i D、For i = 0 To 4 ：Label1.Caption = ：Next i 7下列代码中，_能使驱动器列表框Drive1的盘符改变时，文件夹列表框Dir1随之作相应改变。A、 Private Sub Dri

5、ve1_Change() B、Priveate Sub Drive1_Change()Dir1.Path=Drive1.path Dir1.Path=Drive1.drive End Sub End SubC、Private Sub Dir1_Change() D、Private Sub Dir1_Change()Dir1.Path=Drive1.Drive Drive1.Drive= Dir1.PathEnd Sub End Sub8复选框被选中时，Value属性的值为_。A、True B、False C、0 D、19_方式打开的文件只能读不能写。A、append B、random C、ou

6、tput D、input10通过设置菜单项的_属性值为False，可使该菜单项失效。A、Enabled B、Visible C、Hide D、Checked二、程序填空题（30%，其中第13题为选择填空题，第4题为填空题）1 求下列表达式的值，直到最后一项的绝对值小于10-5为止。【程序】Private Sub Command1_Click()Dim s As Double, （11）Dim i As Integeri = 1 ： （12） ：t = 1Do While （13）t = - t / i （14） i = i + 1LoopPrint sEnd Sub(11) A、t As St

7、ring B、t As ByteC、t As Integer D、t As Double(12) A、s = 2 B、s = 1C、s = t D、s = 0(13) A、t = 1e-5C、t = 1e-5 D、Abs(t) Int( Sqr (m) ) Then prime = True Else prime = FalseEnd Function年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线(15) A、List1.List= B、List1.Text= C、List1.Cls D、List1.Clear(16) A、Input n,#1 B、Input Line #1,n

8、 C、Input #1,n D、Input n(17) A、prime( n As Integer) as Boolean B、prime(ByVal m As Integer) C、prime( m As Integer) as Boolean D、prime( n As Integer)3本程序运行时，无论如何调整窗体的边界，单击窗体后都以窗体的中心位置为圆心、以30毫米为半径画出一个圆饼图。【程序】Private Sub Form_Load( )FillStyle = 0 （18） End SubPrivate Sub Form_Click( ) （19） FillColor = RGB

9、(255, 0, 0)Circle (0, 0), 30, ,-3.14159 * 2, -3.14159 * 2 / 3FillColor = RGB(0, 255, 0)Circle (0, 0), 30, ,-3.14159 * 2 / 3, -3.14159 * 4 / 3FillColor = RGB(0, 0, 255) （20） End Sub（18） A、ScaleMode = 6B、Scale (-ScaleWidth/2, ScaleHeight/2) (ScaleWidth/2, -ScaleHeight/2)C、Form1.Scale (-Width/2, -Heigh

10、t/2) (Width/2, Height/2)D、Form1.Scale (-ScaleWidth, ScaleHeight) (ScaleWidth, -ScaleHeight)（19） A、ScaleMode = 6B、Scale (-ScaleWidth/2, ScaleHeight/2) (ScaleWidth/2, -ScaleHeight/2)C、Form1.Scale (-Width/2, -Height/2) (Width/2, Height/2)D、Form1.Scale (-ScaleWidth, ScaleHeight) (ScaleWidth, -ScaleHeigh

11、t)（20） A、Circle (0, 0), 30, , -3.14159 * 2, -3.14159 * 4 / 3B、Circle (0, 0), 30, , -PI * 4 / 3, -PI * 2C、Circle (0, 0), 30, , -3.14159 * 4 / 3, 0D、Circle (0, 0), 30, , -3.14159 * 4 / 3, -3.14159 * 24界面设计如下图所示，程序运行时要求完成以下功能：(1) 按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且ab，并分别在Label1、Label2中显示，此后Command1不可用

12、；(2) 在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；(3) 按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。【程序】Dim n As Integer, n_error As Integer（21） Private Sub Command1_Click()Dim c as Integera = 10 + Rnd * 90b = 10 + Rnd * 90If a List1.List(j) Thent = List1.List(i)List1.List(i) = List1.List(j)List

13、1.List(j) = tEnd IfNext j, iEnd SubPrivate Sub command1_Click()Call sortFor i = List1.ListCount - 1 To 0 Step -1If List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem iEnd IfNext iEnd Sub (26) 过程Sort的功能是A、用选择分类法对List1中的表项按值从小到大排序 B、用选择分类法对List1中的表项按值从大到小排序C、用冒泡法对List1中的表项按值从小到大

14、排序 D、用冒泡法对List1中的表项按值从大到小排序(27) 单击Command1命令按钮后，List2中的表项从上至下依次为 A、16 14 12B、12 14 16 C、11 33 45 D、14 16 12(28) 如果将语句“List2.AddItem List1.List(i)”后增加“, 0”， 单击Command1命令按钮后，List2中的表项从上至下依次为A、16 14 12B、12 14 16 C、11 33 45 D、12 16 14(29) 如果将语句“For i = List1.ListCount - 1 To 0 Step -1”改为“For i = 0 To Li

15、st1.ListCount - 1”， 单击Command1命令按钮后，List2中的表项从上至下依次为A、16 14 12B、12 14 16 C、11 33 45 D、程序出错2程序运行时连续单击2次控件HScroll1右侧箭头后，窗体上输出结果第一行为 (30) ，第二行为 (31) ；假如把语句“Static y As String”改为“Dim y As String”程序重新启动运行，在第2次单击控件HScroll1右侧箭头后，窗体上输出结果为 (32) 。【程序】Const s = abcdefghPrivate Sub Form_Load()HScroll1.SmallChan

16、ge = 1HScroll1.LargeChange = 2HScroll1.Min = 1HScroll1.Max = 10 HScroll1.Value = 3End SubPrivate Sub HScroll1_Change()Static y As StringIf HScroll1.Value Mod 2 = 0 Theny = Mid(s, HScroll1.Value, 2)End IfPrint yEnd Sub(30) A、d B、cd C、de D、y值是空串，窗体上显示不出(31) A、e B、ef C、de D、y值是空串，窗体上显示不出(32) A、e B、ef C

17、、de D、y值是空串，窗体上显示不出3在窗体上有名为Command1的命令按钮。程序运行后，单击命令按钮，在窗体上输出的什么结果。【程序】Private Sub Command1_Click()Dim a (5, 5) As Integer , s1 As Integer ,s2 As Integer Dim i As Integer, j As Integer ,sum As IntegerFor i = 1 To 3For j = 2 To 4a (i, j) = i + jsum = sum + 1Next jNext is1 = a (2, 3) + a (3, 4)For i =1

18、 To 5s2 = s2 + a (i, i)Next iPrint s1, s2, sumEnd Sub4执行下列过程时,单击窗体后图片框控件Pic1上图案是怎样的。【程序】Private Sub Form_Click()Pic1.Width = Pic1.HeightPic1.Scale (-8, 8)-(8, -8)Pic1.FillStyle = 1年级：_ 专业：_ 班级：_ 学号：_ 姓名：_.装.订.线Pic1.Line (-6, -6)-(6, 6)Pic1.Line (-6, 6)-(6, -6)Pic1.FillStyle = 0Pic1.Line (-4, -4)-(4, 4), , BEnd Sub 5窗体上有一个定时器，写出程序运行后，在窗体上出现的结果。【程序】Dim x As IntegerPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Ena