《2015年可视化程序设计（VB）(第三次)作业》由会员分享，可在线阅读，更多相关《2015年可视化程序设计（VB）(第三次)作业（7页珍藏版）》请在金锄头文库上搜索。
1、第第 3 3 次作业次作业 一、填空题（本大题共一、填空题（本大题共 4444 分，共分，共 1111 小题，每小题小题，每小题 4 4 分）分） 1. 窗体的 Name 属性只能在 _ 设置。 2. 全局级变量的作用域为 _ 。 3. 中断模式，除了用鼠标指向要观察的变量直接显示其值外，还可以通过 _ 窗口、 _ 窗口和 _ 窗口观察有关变量的值。 4. 在用 Show 方法后显示自定义对话框时，如果 Show 方法后带 _ 参数就 将窗体作为模式对话框显示。 5. 用逻辑运算符连接两个或多个逻辑量组成的式子称为 _ 。 6. 组合框的 Style 设置为 _ 时，其风格为下拉式列表框；列表
2、框的 Style 设置为 _ 时，其风格为复选框。 7. 随机文件以 _ 为单位读写，二进制文件以 _ 为单位读写。 8. 假设 A 变量，(6+7A)SIN(2.34)的 VB 表达式是 _ 。 9. 使用通用对话框控件 C1 显示为一个标准的字体对话框，应使用语句 _ 。 10. 若要在 8 号通道上建立顺序文件“c:dir1file2.dat”，使用的语句为 _ 。 11. 某“学生成绩”表包括“学号”、“姓名”和“成绩”字段，要将学号为 “040621姓名为“张颖”、成绩为 88 的学生信息插入“学生成绩”表中，相 应的 Insert 语句为： _ 。二、问答题（本大题共二、问答题（本
3、大题共 1818 分，共分，共 3 3 小题，每小题小题，每小题 6 6 分）分） 1. InputBox 函数有何要求？ 2. 菜单名与菜单项有什么区别？ 3. 构造满足下列条件的 Open 语句。（1）建立一个新的顺序文件 Seqnew.dat，供用户写人数据，指定文件号为 1。（2）打开一个老的顺序文件 Seqold.dat，用户将从该文件读出数据，指定文件号为 2。 （3）打开一个老 的顺序文件 Seqappend.dat，用户将在该文件后面添加数据，文件号通过调用 FreeFile 函数获得。三、程序阅读题（本大题共三、程序阅读题（本大题共 1818 分，共分，共 3 3 小题，每小
4、题小题，每小题 6 6 分）分） 1. 写出下面事件过程的执行结果。Private Sub Command1_Click() Dim f(10) As Integer f(0)=1f(1)=1 For i=2 To 10 f(i)=f(i - 2)+f(i - 1) Next i For i=0 To 9 If i Mod 4=0 Then Print Print f(i)Next i End Sub 2. 下面事件过程的功能是：用随机函数产生 10 个 10 到 100 之间的随机整数存 放到一维数组 a 中，并求 a 中的最小值及最小值在数组 a 中的位置，在横线上 填上适当内容。 Pri
5、vate Sub Command1_Click() Dim a(10) As Integer, i%, mini%, index% Randomize For i=1 To 10 a(i)=Int(91*Rnd+10) Print a(i) Next i Print mini =a(1): index=1 For i=2 To 10 If （1） Then mini =a(i): （2） Next i Print “数组 a 中的最小值为：“; mini Print “最小值所在位置为：“; index End Sub 3. 下面程序的功能是什么？Dim a As Integer Dim s
6、As Integer s = 0 For a = 1 To 100 If a Mod 6 = 0 Then s = s + 1 End If Next Print s四、程序设计题（本大题共四、程序设计题（本大题共 2020 分，共分，共 2 2 小题，每小题小题，每小题 1010 分）分） 1. 用 PSet 方法在窗体上绘制一条00,3600的正弦曲线。 2. 计算 s=1+2+22+23+，直至 s 超过 1E+16。答案：答案：一、填空题（一、填空题（4444 分，共分，共 1111 题，每小题题，每小题 4 4 分）分）1. 参考答案：参考答案： 属性窗口中 解题方案：解题方案：评分
7、标准：评分标准： 2 2. 参考答案：参考答案： 整个应用程序 解题方案：解题方案：评分标准：评分标准： 2 3. 参考答案：参考答案： 立即、本地、监视 解题方案：解题方案：评分标准：评分标准： 2 4. 参考答案：参考答案： vbModal 或 1 解题方案：解题方案：评分标准：评分标准： 2 5. 参考答案：参考答案： 逻辑表达式 解题方案：解题方案：评分标准：评分标准： 2 6. 参考答案：参考答案：2；1 解题方案：解题方案：评分标准：评分标准： 2 7. 参考答案：参考答案： 记录 ；字节 解题方案：解题方案：评分标准：评分标准： 2 8. 参考答案：参考答案： (6 + 7 *
8、A) / Sin(2.34 * 3.1415) 解题方案：解题方案：评分标准：评分标准： 2 9. 参考答案：参考答案： C1.ShowFont 或 C1.Action=4 解题方案：解题方案：评分标准：评分标准： 2 10. 参考答案：参考答案： Open “c:dir1file2.dat”For Output As #8 解题方案：解题方案：评分标准：评分标准： 2 11. 参考答案：参考答案： Insert into 学生成绩 (学号，姓名，成绩) Values(040621，“张颖”，88) 解题方案：解题方案：评分标准：评分标准： 2二、问答题（二、问答题（1818 分，共分，共 3
9、 3 题，每小题题，每小题 6 6 分）分）1. 参考答案：参考答案： 各项参数次序必须一一对应，除第一项参数“提示”不能省略外，其余参数均 可省略，如果处于中间位置的参数省略，其对应的逗号不能省略。 解题方案：解题方案：评分标准：评分标准： 4 2. 参考答案：参考答案： 菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条 和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷 键，而菜单名只能有热键。 解题方案：解题方案：评分标准：评分标准： 4 3. 参考答案：参考答案： （l）Open “ Seqnew.dat “ For Output Asl （2）O
10、pen “ Seqold.dat “ For Input As2 （3）Dim No NoFreeFile Open “ Seqappend.dat“For Append AsNo 解题方案：解题方案：评分标准：评分标准： 4三、程序阅读题（三、程序阅读题（1818 分，共分，共 3 3 题，每小题题，每小题 6 6 分）分）1. 参考答案：参考答案： 1 1 2 3 5 8 13 21 34 55 解题方案：解题方案： 循环输出 评分标准：评分标准： 6 2. 参考答案：参考答案： （1）a(i)mini （2）index=i 解题方案：解题方案：使用循环和随机函数设计功能要求的过程 评分标
11、准：评分标准： 6 3. 参考答案：参考答案： 统计 100 内能被 6 整除的数的个数 解题方案：解题方案： 整除的表达 评分标准：评分标准： 6四、程序设计题（四、程序设计题（2020 分，共分，共 2 2 题，每小题题，每小题 1010 分）分）1. 参考答案：参考答案： Private Sub Form_Click() DrawWidth = 2 Scale (0, 1)-(360, -1) For x = 0 To 360 y = Sin(x * 3.1415926 / 180) PSet (x, y), vbRed Next x End Sub 解题方案：解题方案： 循环控制画点 评分标准：评分标准： 设置规格 3 分，连续画点 7 分 2. 参考答案：参考答案： Private Sub Form_Click() Dim s As Single Dim i As Integer s = 1 i = 1 Do While s = 1 E+16 s = s + 2 i i = i + 1 Loop Form1.Print “s=“; s End Sub 解题方案：解题方案： 使用循环控制设计算法评分标准：评分标准： 循环 5 分，算法 5 分
