(34) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示所使用的语句是
A) Hide      
B) Show
C) Load      
D) Unload
【命题目的】考查考生对多重窗体的操作问题。
【解题要点】Load语句、Unload语句、Show方法和Hide方法的区别

(35) 在Visual Basic中按文件的访问方式不同，可将文件分为
A) ASCII文件和二进制文件
B) 文本文件和数据文件
C) 数据文件和可执行文件
D) 顺序文件和随机文件
【命题目的】考查考生对数据文件的分类掌握。
【解题要点】Visual Basic中文件的分类方式。
【错解分析】在Visual Basic中，分类方法有多种：根据数据性质，可分为程序文件和数据文件； 根据数据的存取方式和结构方式可分为顺序文件和随机文件；根据数据的编码方式，可分为ASCII文件和二进制文件。
综合上述分析，选项D）是正确的答案；选项B）中文本文件是按数据编码划分的，数据文件是按数据的性质划分的；选项C）中数据文件是按数据的性质划分的；选项A）是按数据的编码方式划分的。

二、填空题：共15空，每空2分，共30分。

(1) 栈和队列通常采用的存储结构是 【1】 。
(2) 在程序设计阶段应该采取 【2】 和逐步求精的方法，把一个模块的功能逐步分解，细化为一系列具体的步骤，进而用某种程序设计语言写成程序。
(3) 软件结构是以 【3】 为基础而组成的一种控制层次结构。
(4) 数据库系统阶段的数据具有较高独立性，数据独立性包括物理独立性和 【4】 两个含义。
(5) 数据库保护分为：安全性控制 、 【5】 、并发性控制和数据的恢复。
(6) 为了选择多个控件，可以按住 【6】 键，然后单击每个控件。
(7) 浮点数由3部分组成，即符号、 【7】 和尾数。
(8) 下面程序运行后，单击命令按钮，输出的结果是 【8】
Private Sub Command1_Click()
   Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
   For i=1 To 4
      a(i) =i
   Next i
   For i=2 To 6
      b(i) =i
   Next i
   str1=YAG(A)
   str2=YAG(b)
   Print "str1="; str1; "str2="; str2
End Sub
Function YAG(a() As Integer)
   Dim t#, i%
   t=1
   For i=LBound(A) To UBound(A)
     t=t * a(i)
   Next i
   YAG=t
End Function
(9) 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，如果能则输出该数及平方值。请填空。
Private Sub Command1_Click()
   Dim numX As Integer
   numX=Val(InputBox("请输入一个整数") )
   If 【9】 Then
      Form1.Print 【10】
   End If
End Sub
(10) 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如： a=5 ， n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
   Dim a As Integer, n As Integer, Cout As Integer
   Dim Sn As Long, Tn As Long
   Cout=1
   Sn=0
   Tn=0
   a=InputBox("请输入a的值：")
    【11】
   Do
      Tn=Tn * 10 + a
      Sn=Sn + Tn
      Cout=Cout + 1
     【12】
    Debug.Print a, n, Sn
End Sub
(11) 在窗体上有一个"背景色变换"按钮和一个"结束"按钮。单击"背景色变换"按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色……如此循环。单击"结束" 按钮，程序运行结束。请填空。
Private Sub cmdChange_Click()
   If Mark=0 Then
       【13】
      Mark=1
      ElseIf 【14】 Then
      Form1.BackColor=vbGreen
      Mark=2
      ElseIf Mark=2 Then
      Form1.BackColor=vbBlue
       【15】
   End If
End Sub
Private Sub cmdExit_Click()
   End
End Sub

填空题参考答案：

1、链式存储或顺序存储
2、自顶而下
3、模块
4、逻辑独立性
5、完整性控制
6、Shift或Ctrl
7、指数
8、strX=24  str2=720
9、numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0；numX, numX ^ 2
10、(n=InputBox("请输入n的值!"))，(Loop While Cout<=n或Loop)
11、Form1.BackColor = vbRed，Mark = 1，Mark = 0