二、填空题：共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
上一页 [1] [2] [3] [4] [5] [6]
责任编辑：小草
