利用Fo循环结构显示1000以内的所有能被37整 除的自然数。 设计步骤如下 (1)窗体界面的设计与属性设置 (2)编写代码。 编写命令按钮的 Click事件代码 Form1 □区 Private Sub Command1 Click 333 开始” 407 a 按钮,可以在 For n=1 To 1000 481 女本框中显示 518 所有1000以内 Ifn mod 37=0 Then 555 592 能被37整除的 629 数 a=a str(n)& vbCrlf End If 777 开始 Next Text 1. Text =a End sub 能被37整除的自然数利用For循环结构显示1000以内的所有能被37整 除的自然数。 设计步骤如下： (1) 窗体界面的设计与属性设置。 (2) 编写代码。 编写命令按钮的Click事件代码： Private Sub Command1_Click() a = "" For n = 1 To 1000 If n Mod 37 = 0 Then a = a & Str(n) & vbCrLf End If Next Text1.Text = a End Sub 能被37整除的自然数