在窗體上畫兩個(gè)名稱分別為Text1、Texte2的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click（）
Dim x As Integer，n As Integer
x=1
n=0
DoWhilex＜20
x=x*3
n=n+1
Loop
Text1.Text=Str（x）
Text2.Text=Str（n）
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是（）