UC知道vb高手支招
来源：百度知道 编辑：UC知道 时间：2024/06/14 06:07:31
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
你好!
实现的方法如下:
1、新建一个表单form1；将其属性的AutoReDraw设为True；
4、第一个代码如下：
Private Sub Form_Load()
Dim I As Integer
Dim II As Integer
Dim StringView As String
For I = 1 To 7 Step 2
StringView = ""
For II = 1 To I
StringView = StringView & "*"
Next II
Print StringView
Next I
For I = 5 To 1 Step -2
StringView = ""
For II = 1 To I
StringView = StringView & "*"
Next II
Print StringView
Next I
End Sub
祝你成功!
可以说详细点不？你需要什么方法？？我这里做这个方法很多~