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

可视化程序设计（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(输入新职工编号：) zgr.name = 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（ ） X＝5 Form1.Show Form1.Print X End Sub 窗体模块 Dim y As Integer?Private Sub command1_click（）y＝X*2 Print y End Sub Private Sub command2_click（） y＝X／2 Print y?End 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. 参考答案：Toolbarl．Buttons（4）．Enabled＝False解题方案：评分标准：23. 参考答案：Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False解题方案：评分标准：24. 参考答案：ToolTipText解题方案：评分标准：25. 参考答案：定长字符串解题方案：评分标准：26. 参考答案：002.45、2.449、　24.49E-01、－2.4495解题方案：评分标