*
？？
***
？？？？

怎样把他给编出来！

简单！
程序语句：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

即可，祝你顺利！

谢了

 那里用那么麻烦
 直接

 Print "*"
 Print "??"
 Print "***"
 Print "????"

 哈哈哈.

晕!

4楼办法很好哦

崇拜 本来简单的就不必要搞那么复杂嘛

好象是哦