可视化程序设计(VB)模拟试题.doc

可视化程序设计（VB）一、填空题（32分，共 8 题，每小题 4 分）1. 要使用通用对话框控件，必须首先在“部件”对话框中选择 _ ，将其添加到工具箱中。2. 运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： _ 。3. 运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： _ 。4. 在用手工方式设计工具栏时，可以设置工具按钮的 _ 属性为其添加功能提示。5. 用户自定义类型中的元素类型可以是字符串，但该字符串必须是 _ 。6. 设a=sqr（2）*sqr（3），下列语句的输出结果分别是 。 print format$（a，000.00） print format$（a，#.#00）print format$（a，00.00E+00）print format$（a，#.#）7. 如果需要将窗体载入内存却不显示，需要将该窗体的 _ 属性设置为False，再用 _ 语句装载。8. 随机产生一个范围是(100，300）的整数，表达式为 _ 。二、程序阅读题（24分，共 3 题，每小题 8 分）1. 写出下列事件过程的执行结果。 Private Sub Command1_Click()s3 (1) s3 (1) End Sub Private Sub s3(ByVal a As Integer) Dim x As Integer Static y As Integerx=x+ay=y+a Print x=; x, y=; y End Sub2. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。标准模块： Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20 End Type窗体模块： Private Sub Command1_Click() Dim n%, zgr As txr Open d:txrf1.dat For Random As #1 Len = Len(zgr) zgr.num = InputBox(输入新职工编号：) = InputBox(输入新职工姓名：) zgr.tel = InputBox(输入新职工电话号码：)zgr.addr = InputBox(输入新职工住址：) n = (1) (2) Close #1 End Sub3. 本程序有一个标准模块和一个窗体模块。Sub main过程是本程序的启动过程，其他过程是窗体模块的事件过程。执行本程序，写出依次单击命令按钮commandl和command2，在窗体上分别输出的3行结果。 标准模块： Public X As Integer Sub main（ ） X5 Form1.Show Form1.Print X End Sub 窗体模块 Dim y As IntegerPrivate Sub command1_click（）yX*2 Print y End Sub Private Sub command2_click（） yX2 Print yEnd Sub三、问答题（24分，共 3 题，每小题 8 分）1. VB坐标系中旋转什么方向是正向2. 什么是“内外循环交叉”？3. Now函数和Date函数有何区别？四、程序设计题（20分，共 1 题，每小题 20 分）利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？答案：一、填空题（32分，共 8 题，每小题 4 分）1. 参考答案：Microsoft Common Dialog Controls 6.0解题方案：评分标准：22. 参考答案：ToolbarlButtons（4）EnabledFalse解题方案：评分标准：23. 参考答案：ToolbarlButtons（2）ButtonMenus（3）EnabledFalse解题方案：评分标准：24. 参考答案：ToolTipText解题方案：评分标准：25. 参考答案：定长字符串解题方案：评分标准：26. 参考答案：002.45、2.449、24.49E-01、2.4495解题方案：评分标准：27. 参考答案：Visable；Load解题方案：评分标准：28. 参考答案：100 + Rnd * 200解题方案：评分标准：2二、程序阅读题（24分，共 3 题，每小题 8 分）1. 参考答案：执行结果为： x=1 y=1 x=1 y=2解题方案：过程调用评分标准：62. 参考答案：(1) LOF(1) / Len(zgr) + 1 (2) Put #1, n, zgr解题方案：标准模块和窗体模块应用评分标准：63. 参考答案：执行结果为： 5 10 2解题方案：区别标准模块与窗体模块评分标准：6三、问答题（24分，共 3 题，每小题 8 分）1. 参考答案：在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。解题方案：评分标准：42. 参考答案：循环嵌套时，内外循环交叉。 For i1 ito 4 For j= 1 to 5 Next i Next j 上述循环的交叉，运行时显示“无效的Next控制变量引用”。外循环必须完全包含内循环，不得交叉。解题方案：评分标准：43. 参考答案：Now函数和Date函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。解题方案：时间函数评分标准：4四、程序设计题（20分，共 1 题，每小题 20 分）0. 参考答案：Private Sub Form_Click() Randomize TimerDim a(1, 1) For i=1 To 100n1=Int(Rnd*2)n1=Int(Rnd*2) a(n1, n2)=a(n1, n2)+1 Next iPrint 投币