Private Sub Command1_Click()
          Dim i As Integer
          For i = 1 To 4
               If i Mod 2 = 0 Then
                 Print String(i, "?");
               Else
                 Print String(i, "*");
               End If
           Print
        Next i

End Sub

若i能被2整除，则输出i个？，否则输出i个*
运行结果为：
*
？？
****
？？？？

谢了