《Visual Basic程序设计基础》课程教学资源：VB试题三

2000-200{车下掌期對算机覆序景针吼期末贰悲 班级名称: 学号: 姓名 成绩: 、语言基础题(40分) (一)判断题(每题1分,共10分) 1.所谓属性是指对象的名字、大小、位置和颜色等特性, 2.所谓属性是指对象的名字、大小、位置和颜色等特性 3.事件过程通常由事件驱动执行的,而SUB过程是通过过程调用执行的。 4.子程序调用时,如果参数按址传递并且实在参数是变量,则子程序在执行时 对形参的修改不会影响到对应传递的实参变量的内容 5.控件数组的每个元素都有相同的NAME属性值和不同的 INDEX属性值,其中最 小的 LINDEX属性值为1。 6. Caption是标签的缺省属性;text是文本框的缺省属性。 7.滚动条控件、 TEXTBOX控件、 INPUTBOX函数都可被作为输入数据用。 8.当影像框 Image控件的 stretch属性为true时, Image控件能自动调整自已的 尺寸以与显示的图片尺寸匹配。 9. CommonDialog控件的font对话框打开之后,必须设置 CommonDialog控件的 flags属性值。 10.在 drivel change过程中,语句dir1.path= drivel. drive的作用是:当选取 了不同的驱动器时,目录列表框中的目录项也随不同的驱动器作相应的改变。 (二)单选题(每题1分,共10分) 1.(1)对象能使用 print方法 A.文本框 B.图片框 C.列表框 D.框架 2.长整数的取值范围为(2) D.-215~232 3.(3)对象具有 Clear方法 A.列表框 B.图片框 C.窗体 D.框架 4.要改变控件的宽度,应修改该控件的_(4)属性 A. To B Left C width D Height 5.将命令按纽 Commandl设置为不可见,应修改该命令按纽的(5)属性 A Visible B. val C Caption D Enabled 6.单击滚动条两端的任意一个滚动箭头,将触发该滚动条的_(6)事仼 A Scrol B Keydown C Change gover 7.重新定义图片框控件的坐标系统,可采用该图片框的_(7)方法 A Scale B Scalex C. cale Y D SetFocus 8.将通用对话框 CommonDialog1的类型设置成另存为对话框,可调用该对话框的 (8)方法 A. Showopen B Show Save C. ShowColor D. s owFont 9. Timer函数的功能是:(9) A.获得系统当前的时间 B.获得系统当前的日期和时间 C.返回从午夜12点至当前时间的秒数D.触发 Timer(事件 10.(10)对象不能响应 Click事件 A.列表框 B.图片框 C.窗体 计时器 (三)填空题(每题2分,共20分)

1 2000-2001学年下学期计算机程序设计VB期末试卷 班级名称： 学号： 姓名： 成绩： 一、语言基础题（40分） （一）判断题（每题1分，共10分） 1. 所谓属性是指对象的名字、大小、位置和颜色等特性。 2. 所谓属性是指对象的名字、大小、位置和颜色等特性。 3. 事件过程通常由事件驱动执行的，而SUB过程是通过过程调用执行的。 4. 子程序调用时,如果参数按址传递并且实在参数是变量，则子程序在执行时 对形参的修改不会影响到对应传递的实参变量的内容。 5. 控件数组的每个元素都有相同的NAME属性值和不同的INDEX属性值，其中最 小的INDEX属性值为1。 6. Caption是标签的缺省属性；text是文本框的缺省属性。 7. 滚动条控件、TEXTBOX控件、INPUTBOX函数都可被作为输入数据用。 8. 当影像框image控件的stretch属性为true时，image控件能自动调整自已的 尺寸以与显示的图片尺寸匹配。 9. CommonDialog控件的font 对话框打开之后，必须设置CommonDialog控件的 flags属性值。 10. 在drive1_change过程中，语句dir1.path=drive1.drive的作用是：当选取 了不同的驱动器时，目录列表框中的目录项也随不同的驱动器作相应的改变。 （二）单选题（每题1分，共10分） 1. （1） 对象能使用print方法 A.文本框 B.图片框 C.列表框 D.框架 2. 长整数的取值范围为 （2） A．-2 15 ～2 15 B．-2 31 ～2 31 -1 C．-2 15 ～2 15 -1 D．-2 15 ～2 31 -1 3. （3） 对象具有Clear方法 A.列表框 B.图片框 C.窗体 D.框架 4. 要改变控件的宽度，应修改该控件的 （4） 属性 A.Top B.Left C.width D.Height 5. 将命令按纽Command1设置为不可见，应修改该命令按纽的 （5） 属性 A.Visible B.value C.Caption D.Enabled 6. 单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（6） 事件 A.Scroll B.Keydown C.Change D.Dragover 7. 重新定义图片框控件的坐标系统，可采用该图片框的（7）方法 A.Scale B.ScaleX C.ScaleY D.SetFocus 8. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该对话框的 （8）方法 A.Showopen B.ShowSave C. ShowColor D. S owFont 9. Timer函数的功能是：（9） A.获得系统当前的时间 B.获得系统当前的日期和时间 C.返回从午夜12点至当前时间的秒数 D.触发Timer()事件 10. （10） 对象不能响应Click事件 A.列表框 B.图片框 C.窗体 D.计时器 （三）填空题（每题2分，共20分）

1.写出 Print not(3>8),(3>9)Or(5<6)And(7>=0),(8>3)Xor (5<6)语句执行后的结果 2.写出函数INT(SQR(17)的值。 3.将数学式 写成ⅤB表达式。 4.把a和b都为正整数或同为负数写成VB关系或逻辑表达式。 5.写出表达式81\7mod2^2的值。 6.写出循环结构FORI=30T010STEP-3 next I的循环次数。 7.假设列表框具有多选功能,你采用什么方法能判别出列表框中被选中的表 项? 8.程序运行时,单击水平滚动条右边的箭头时,滚动条的 value属性值怎样娈 化? 9.pi=3.14159265: Circle(1500,1500),1000,,-pi/3,pi/2语句 画出的是什么图形? 10.执行1ine(500,500)-step(1000,0):1ine-step(0,1000):1ine tep(-1000,0):line-step(0,-1000)语句画出的是什么图形? 二、程序阅读题(每题5分,共20分) 阅读下列程序,写出运行结果 1.程序1 Dim b As Integer, k As Integer B=1 of B= b*k If b>=15 Ther Else K=k+1 End if Next k Print k, b 2.程序2 Private Sub Command 1 click() Dim x As integer, y As integer, n As integer, z As integer X=1 y For n=l to 6 Z= funcl(x, y) Print n.z Next End sub Private Function Funcl( x As integer, y As integer )As integer Dim n As integer Do While n<=4 y

2 1. 写出Print Not (3 > 8), (3 > 9) Or (5 < 6) And (7 >= 0), (8 > 3) Xor (5 < 6) 语句执行后的结果。 2. 写出函数INT(SQR(17))的值。 3. 将数学式 2 2 2 2 3 3 x y a b y + + +  写成VB表达式。 4. 把a和b都为正整数或同为负数写成VB关系或逻辑表达式。 5. 写出表达式81\7 mod 2^2的值。 6. 写出循环结构FOR I=30 TO 10 STEP –3 …next I 的循环次数。 7. 假设列表框具有多选功能，你采用什么方法能判别出列表框中被选中的表 项？ 8. 程序运行时，单击水平滚动条右边的箭头时，滚动条的value属性值怎样娈 化？ 9. pi = 3.14159265 : Circle (1500, 1500), 1000, , -pi / 3, -pi / 2语句 画出的是什么图形？ 10. 执行line(500,500)-step(1000,0) : line -step(0,1000) : line –step(-1000,0) : line –step(0,-1000) 语句画出的是什么图形？ 二、程序阅读题（每题5分，共20分） 阅读下列程序，写出运行结果 1. 程序 1 Dim b As Integer , k As Integer B = 1 For k = 1 to 5 B = b*k If b >= 15 Then Exit For Else K = k + 1 End if Next k Print k, b 2. 程序 2 Private Sub Command1_Click( ) Dim x As integer , y As integer, n As integer , z As integer X = 1 : y = 1 For n=1 to 6 Z = func1(x , y) Print n , z Next End Sub Private Function Func1( x As integer , y As integer ) As integer Dim n As integer Do While n <= 4 X = x + y

End Function 3.程序3 private sub cmd 1 click dim x as integer dim y as integer x= val(inputbox(“输入数值”) if int (sqr(x)sqr(x)then V-XX els endif txtresult text=y=+stry end sub 连击三次cmd1,且输入9,3,16时的值 4.程序4 dim a as integer, y as integer private sub form load openc: I wind hh. dat" for output as #1 close #1 end su private sub cr mdl click open‘c: windowsthh dat” for append as# print #1 clos end sub private sub aa( as integer) do until x>I x=x+3 end sub 连击cmd1三次的结果 三、程序填空题(每空2分,共20分) 1.下列程序段实现在标签中自动依次显示"中国","浙江","杭州","西湖"。 Private Sub Form Load Labell AutoSize= True: Labell Font Size =24 Timerl Interval 1000 Timer l Enabled True End sub

3 N = n +1 Loop Func1 = x End Function 3.程序3 private sub cmd1_click() dim x as integer dim y as integer x=val(inputbox(“输入数值”) if int(sqr(x))<>sqr(x) then y=x*x else y=sqr(x) endif txtresult.text=”y=”+str(y) end sub 连击三次 cmd1，且输入 9，3，16 时的值 4. 程序4 dim a as integer, y as integer private sub form_load() open “c:\ windows\hh.dat” for output as #1 close #1 end sub private sub cmd1_click() open “c:\ windows\hh.dat” for append as #1 call aa(5) y=y+a print #1, “y=”;y,”a=”;a close end sub private sub aa(I as integer) x=1 do until x>I a=a+x x=x+3 loop end sub 连击cmd1三次的结果 三、程序填空题（每空2分，共20分） 1. 下列程序段实现在标签中自动依次显示"中国"，"浙江"，"杭州"，"西湖"。 Private Sub Form_Load() Label1.AutoSize = True: Label1.FontSize = 24 Label1 = --1-- Timer1.Interval = 1000 Timer1.Enabled = True End Sub

Private Sub Timer1 Timer Select case label1 Labell "中 Labell="浙江 Labell="杭州 Case Else Labell="西湖 End Sub 2.下列程序段首先由随机函数产生10个互不相同的二位随机整数,在窗体中显 示。然后用冒泡法从大到小排序,也在窗体中显示。 Private Sub Form Click Const n=10 Dim A(I To n)As Integer, B As Boolean Dim I As Integer, J As Integer, Temp As Integer Forml, Print"原始数据" Randomize B= False Do While not b A()=In(90*Rnd+10) For j= 1 To --l-- IfA(=A() Ther Exit for End If Next j Forml Print A) Next Forml. Print For J=I+ 1 Ton IfA()> A()Then Temp=AO) A(D=Temp End If Next j I=I+1 Loop While-4 吉果" Forml. Print"排序结

4 Private Sub Timer1_Timer() Select Case Label1 Case --2-- Label1 = "中国" Case --3-- Label1 = "浙江" Case --4-- Label1 = "杭州" Case Else Label1 = "西湖" --5-- End Sub 2. 下列程序段首先由随机函数产生 10 个互不相同的二位随机整数，在窗体中显 示。然后用冒泡法从大到小排序，也在窗体中显示。 Private Sub Form_Click() Const n = 10 Dim A(1 To n) As Integer, B As Boolean Dim I As Integer, J As Integer, Temp As Integer Form1.Print "原始数据" Randomize For I = 1 To n B = False Do While Not B A(I) = Int(90 * Rnd + 10) B = True For J = 1 To --1-- If A(I) = A(J) Then --2-- Exit For End If Next J Loop Form1.Print A(I); Next I Form1.Print I = 1 Do For J = I + 1 To n If A(J) > A(I) Then Temp = A(J) --3-- A(I) = Temp End If Next J I = I + 1 Loop While --4-- Form1.Print "排序结果

For i=1 To n Forml Print A(); End Sub 四、程序设计题(每题10分,共20分) 1.用台劳级数求e的近似值,直到最后一项小于107。 1+l/1!+1/21+1/!+…… 2.创建调色板.vbp和调色板.frm文件,完成 如下功能: 回区 ◆调整[红],[绿],[蓝]三个滚动条,其值 会在右边的文本框中显示出来。值的范围 颜色范例 在0-255 ◆调整完三个滚动条中的任一个,上边的标红三 卜10 签背景色会作相应的改变 绿[G] D[53 要求: 蓝R3 (1)界面设计:列出各对象并设置有关属 性 (2)编写响应事件的程序代码

5 For I = 1 To n Form1.Print A(I); --5-- End Sub 四、程序设计题（每题10分，共20分） 1. 用台劳级数求 e 的近似值，直到最后一项小于 10-7。 e=1+1/1!+1/2!+1/3!+…… 2. 创建调色板.vbp 和调色板.frm 文件，完成 如下功能： ◆ 调整[红]，[绿]，[蓝]三个滚动条，其值 会在右边的文本框中显示出来。值的范围 在 0-255 ◆ 调整完三个滚动条中的任一个，上边的标 签背景色会作相应的改变 要求： （1）界面设计：列出各对象并设置有关属 性 （2）编写响应事件的程序代码