Private Sub Command1_Click()Dim i As IntegerDim n As Integern = 0For i = 1 To 100If i Mod 3 = 0 Thenn = n + 1Print n; iEnd IfNextPrint "总共" & n & "个"End SubPrivate Sub Form_Load()Me.WindowState = 2...