2015年12月份考试作业可视化程序第3次作业满分答案

2015年12月份考试作业可视化程序第3次作业满分答案
（答案在后面）
一、填空题（本大题共44分，共 11 小题，每小题 4 分）
1. 窗体的Name属性只能在 ______ 设置。

2. 全局级变量的作用域为 ______ 。

3. 中断模式，除了用鼠标指向要观察的变量直接显示其值外，还可以通过 ______ 窗口、 ______ 窗口和 ______ 窗口观察有关变量的值。

4. 在用Show方法后显示自定义对话框时，如果Show方法后带 ______
参数就将窗体作为模式对话框显示。

5. 用逻辑运算符连接两个或多个逻辑量组成的式子称为 ______ 。

6. 组合框的Style设置为 ______
时，其风格为下拉式列表框；列表框的Style设置为 ______ 时，其风格为复选框。

7. 随机文件以 ______ 为单位读写，二进制文件以 ______ 为单位读写。

8. 假设A变量，(6+7A)÷SIN(2.34π)的VB表达式是 ______ 。

9. 使用通用对话框控件C1显示为一个标准的字体对话框，应使用语句 ______ 。

10. 若要在8号通道上建立顺序文件“c:\dir1\file2.dat”，使用的语句为 ______ 。

11.
某“学生成绩”表包括“学号”、“姓名”和“成绩”字段，要将学号为“040621’姓名为“张颖”、成绩为88的学生信息插入“学生成绩”表中，相应的Insert语句为： ______ 。

二、问答题（本大题共18分，共 3 小题，每小题 6 分）
1. InputBox函数有何要求？
2. 菜单名与菜单项有什么区别？
3.
构造满足下列条件的Open语句。

（1）建立一个新的顺序文件Seqnew.dat，供用户写人数据，指定文件号为1。

（2）打开一个老的顺序文件Seqold.dat，用户将从该文件读出数据，指定文件号为2。

（3）打开一个老的顺序文件Seqappend.dat，用户将在该文件后面添加数据，文件号通过调用FreeFile函数获得。

三、程序阅读题（本大题共18分，共 3 小题，每小题 6 分）
1. 写出下面事件过程的执行结果。

Private Sub Command1_Click()
Dim f(10) As Integer
f(0)=1
f(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中的位置，在横线上填上适当内容。

Private 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 As Integer
s = 0
For a = 1 To 100
If a Mod 6 = 0 Then
s = s + 1
End If
Next
Print s
四、程序设计题（本大题共20分，共 2 小题，每小题 10 分）
1. 用PSet方法在窗体上绘制一条[00,3600]的正弦曲线。

2. 计算s=1+2+2^2+2^3+……，直至s超过1E+16。

答案：
一、填空题（44分，共 11 题，每小题 4 分）
1.
参考答案：
属性窗口中
解题方案：
评分标准：
2
2.
参考答案：
整个应用程序
解题方案：
评分标准：
2
3.
参考答案：
立即、本地、监视
解题方案：
评分标准：
2
4.
参考答案：vbModal或1解题方案：
评分标准：2
5.
参考答案：逻辑表达式解题方案：
评分标准：2
6.
参考答案：2；1
解题方案：
评分标准：2
7.
参考答案：
记录；字节
解题方案：
评分标准：
2
8.
参考答案：
(6 + 7 * A) / Sin(2.34 * 3.1415)解题方案：
评分标准：
2
9.
参考答案：
C1.ShowFont或C1.Action=4解题方案：
评分标准：
2
10.
参考答案：
Open “c:\dir1\file2.dat”
For Output As #8
解题方案：
评分标准：
2
11.
参考答案：
Insert into 学生成绩 (学号，姓名，成绩) Values(040621，“张颖”，88)
解题方案：
评分标准：
2
二、问答题（18分，共 3 题，每小题 6 分）
1.
参考答案：
各项参数次序必须一一对应，除第一项参数“提示”不能省略外，其余参数均可省略，如果处于中间位置的参数省略，其对应的逗号不能省略。

解题方案：
评分标准：
4
2.
参考答案：
菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。

每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。

解题方案：
评分标准：
4
3.
参考答案：
（l）Open " Seqnew.dat "
For Output As＃l
（2）Open " Seqold.dat "
For Input As＃2
（3）Dim No％ No＝FreeFile
Open " Seqappend.dat"
For Append As＃No
解题方案：
评分标准：
4
三、程序阅读题（18分，共 3 题，每小题 6 分）
1.
参考答案：
1 1
2
3 5 8 13 21 3
4 55
解题方案：
循环输出
评分标准：
6
2.
参考答案：
（1）a(i)<mini （2）index=i
解题方案：
使用循环和随机函数设计功能要求的过程
评分标准：
6
3.
参考答案：
统计100内能被6整除的数的个数
解题方案：
整除的表达
评分标准：
6
四、程序设计题（20分，共 2 题，每小题 10 分）
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分。