在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序：
Private Sub Commandl Click()
Dim a(5)， b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j\2)
End Sub
程序运行后，单击命令按钮，在文本框中显示

A．For i=0 To 5-1\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
B．For i=0 To 5
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
C．For i-0 To 5\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next
D．For i=1 To 5\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
Next

A．数据库系统阶段
B．文件系统阶段
C．人工管理阶段
D．数据项管理