自考网络教育可视化程序设计（VB）作业题及解析.docVIP

2013年9月份考试可视化程序设计（VB）第三次作业一、填空题（本大题共40分，共 10 小题，每小题 4 分）1. 若在标准模块中以关键字public定义子过程，则在 ______ 中都可以调用 该过程。2. 计时器每经过一个由Interval属性指定的时间间隔就会触发一次 ______ 事件。3. VB中三种文件访问类型是 ______ 、 ______ 、 ______ 4. 不论任何控件，共同具有的是 ______ 属性。5. 假定有一个通用对话框控件CommonDialogl，除了用CommonDialogl．Action＝3显示颜色对话框之外，还可以用 ______ 方法显示。6. 每一个过程都有一个使用范围，过程的使用范围称为 ______ 。7. 按数据的组织方式不同，数据库可以分为3种类型，即 ______ 数据库、 ______ 数据库和 ______ 数据库。8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 ______ 属性设为False，然后在程序中用 ______ 语句加载。9. 随机文件以 ______ 为单位读写，二进制文件以 ______ 为单位读写。10. 当单选按钮的Value属性为 ______ 时表示该单选按钮处于未选中状态。二、程序阅读题（本大题共30分，共 5 小题，每小题 6 分）1. 下面程序的功能是什么？ Private Sub Command1_Click()Dim a%, s%, n% a = Val(InputBox(Please input a number:)) Do While (a 0) s = a Mod 10 a = a / 10 n = n + func(s)?Loop Print n End Sub Private Function func(x%) As Integer func = x * x End Function2. 下面程序的功能是什么？ Private Sub Command1_Click() Dim s%, n% Dim a As String n = 0 a = InputBox(Please input a number:) For s = 1 To Len(a) If (func(Val(Mid(a, s, 1)))) Thenn = n + 1?NextPrint n End Sub Private Function func(x%) As Boolean If (x Mod 2 = 0) Then func = True Elsefunc = False End If End Function3. 写出下列事件过程的执行结果。?Private Sub Command1_Click() Dim s% s=f(5) Print s=; s End Sub Private Function f(ByVal n As Integer) If n=1 Then f=1 Else f=n+f(n - 1) End If?End Function4. 完成一个时钟定时的程序，要求按下Command1按钮后开始计时，每半个小时调用一次PrintTime()子过程，在窗体上打印当前的日期和时间。要求每空只能写一个执行语句，不允许用“:”将多个语句写在一起。?Private Sub Command1_Click() ____1_______ ____2_______?End Sub Private Sub Timer1_Timer() Static n As Integer_____3_____If (n = 60) Then Call?Print Time _____4____ End If End Sub?Private Sub PrintTime() Form1.FontSize = 30 Form1.ForeColor = RGB(0, 255, 0) Form1.BackColor = RGB(0, 0, 0) Print ____5_____ End Sub5. 写出下列事件过程的执行结果。 Public x As Integer Private Sub Command1_Click() x=10 Print x Call s1Print x?Call s2 Print x End Sub?Private Sub s1() x=x+20 Print x?End Sub