在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click(.Di
在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click(.Dim i, j, xFor i = 1 To 20 Step 2x = 0For j = i To 20 Step 3x = x + 1Next jNext iText1.Value = Str(x.End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果