代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面Private Sub Command1_Click()Dim i As IntegerMe.Text1.Text = ""For i = 1 To 100If i Mod 3 = 0 ThenMe.Text1.Te...