在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click(．
For I =1 To 4
x = 3
For j = 1 To 3
For k = 1 To 2
x = x + 3
Next k
Next j
Next I
Text1.value = Str(x．
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是