可视化程序设计（VB） 第3次 .docVIP

第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)=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 Sub2. 下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，并求a中的最小值及最小值在数组a中的位置，在横线上填上适当内容。Private Sub Command1_Click() Dim a(10) As Integer, i%, mini%, index% Randomize For i=1 To 10a(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中的最小值为：; miniPrint 最小值所在位置为：; index End Sub3. 下面程序的功能是什么？?Dim a As Integer Dim s As Integer??s = 0 For a = 1 To 100If a Mod 6 = 0 Then s = s + 1End If NextPrint s四、程序设计题（本大题共20分，共 2 小题，每小题 10 分）1. 用PSet方法在窗体上绘制一条[00,3600]的正弦曲线。2. 计算s=1+2+2^2+2^3+……，直至s超过1E+16。答案：一、填空题（44分，共 11 题，每小题 4 分）1. 参考答案：属性窗口中解题方案：评分标准：22. 参考答案：整个应用程序解题方案：评分标准：23. 参考答案：立即、本地、监视解题方案：评分标准：24. 参考答案：vbModal或1解题方案：评分标准：25. 参考答案：逻辑表达式解题方案：评分标准：26. 参考答案：2；1解题方案：评分标准：27. 参考答案：记录 ；字节解题方案：评分标准：28. 参考答案：(6 + 7 * A) / Sin(2.34 * 3.1415)解题方案：评分标准：29. 参考答案：C1.ShowFont