栈的基本运算有三种：入栈、退栈和 【3】 。

软件动态测试大致可以分为 【4】 测试法和黑盒测试法

用二维表结构表示实体以及实体间联系的数据模型称为 【5】 数据模型。

为了使计时器控件Timer1每隔0.5s触发一次Timer事件，应将Timer1控件的Interva1属性设置为 【6】 。

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。 Private Sub Check1_Click（　） If Check1．Value= 【7】 Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click（　） Text1． 【8】 End Sub

[7]1 [8]FontSize=16

下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=1³+5³+3³。
Option Explicit
Private Sub Form_Click（　）
Dim x1 As Integer,x2 As Integer,x3 As Integer
【9】
For i=100 To 999
x=i
x1= 【10】 个位数字
x2=x/10 Mod 10
x3=x/100
If 【11】 Then
Print i
End If
Next i
End Sub

[I]Dim x As Integer,i As Integer [A0]x Mod A0 [AA]xA^C+xB^C+xC^C=i

下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。
Option Base 1
Private Sub Form_Click（　）
Dim a(10) As Integer，i As Integer
Dim max As Integer，max_i As Integer
Randomize
For i=1 To 10
a(i)= 【12】
Next i
max=a(1)：max_i=1
For i=1 To 10
If 【13】 Then
max=a(i)
max_i=i
End If
Next i
Print max,max_i
End Sub

[12]Int(90*Rnd)+10[13]max＜a(i)

下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。
Private Sub Form_Click（　）
Dim i As Integer
For i=3 To 97 Step 2
If 【14】 Then
Print i，i+2
End If
Next i
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim i As Integer
For i=2 To n-1
If 【15】 Then
Exit For
End If
Next i
If i=n Then
prime=True
Else
prime=False
End If

[14] prime(i) And prime(i+2) [15]n Mod i=0

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click（　）
Dim i As Integer,a As Integer
Do While i＜20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11
a=a+i
Loop
Printa
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

A:21 B:32 C:33 D:11

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。
Option Base 1
Private Sub fun (a（　）As Integer，n As Integer)
For i=1 To 2
t=a(i)：a(i)=a(5-i+1)：a(5-i+1)=t
Next i
End Sub
Private Sub Command1_Click（　）
Dim arr1(5)As Integer
For i=1 To 5
arr1(i)=i
Next i
Call fun(arr1，5)
Print arr1(1)；arr1(2)
End Sub

A:1 2 B:2 1 C:5 4 D:4 5