loading一、概念填空（每题1分共5分）
1. 封装保证了对象（类）和模块的独立性、 。
2. If语句中的 可以是任何表达式，即算术、字符、关系和逻辑表达式，按表
达式的值非0为True，0为False来判断。
3. 循环体内又出现循环结构称循环的 。
4. 在过程或函数定义中，出现在过程或函数名后的参数称为 。
5. 在过程或函数调用中，出现在过程或函数名后的参数称为 。
答案：1、可维护性2、表达式3、嵌套或多重循环4、形参5、实参
二、VB程序填空：（每题2分共10分） 1．Private Sub Command1_Click() Dim i As Integer, m As Integer
Dim n As Integer, k As Integer, sxh As Integer For i = 100 To 999 m = i \\ 100
n = (i Mod 100) \\ 10 k = i Mod 10
sxh = If i = sxh Then
Picture1.Print i; End If Next i
Picture1.Print
End Private Sub Command2_Click() End End Sub
2．Const pi = 3.14159 Dim area As Single
Private Sub Command1_Click() area = Text1.Text = area
3．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<>-1
a = InputBox(“请输入A的值”) a = Val(a)
b = InputBox(“请输入B的值”) b = Val(b)
x = InputBox(“请输入x的值”) x = Val(x) a = a+b+x Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结4．Private
4．Sub Command1_Click()
Cls End Sub
Private Sub Form_Click() Print Tab(10); \★\ Print Tab(9); \★★\
For i = 1 To 5 '
Print Tab(9 - i); （\★\）; ; \★\★\ Next i End Sub
5．Option Explicit
Private Function Cmn(n As Long, m As Long) As Long
If n = 0 Then Cmn = 1
ElseIf n = 1 Then Cmn = m
ElseIf Then Cmn = Cmn(m - n, m) Else
Cmn = Cmn(n, m - 1) + Cmn(n - 1, m - 1) End If
End Function
Private Sub Form_Click()
Text3 = Cmn(Val(Text1.Text), Val(Text2.Text)) End Sub
答案：1、（m * m * m + n * n * n + k * k * k）2、（pi * 5 * 5）3、2 4、Spc(i - 1) 5、n > m \\ 2