7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
楠爵 2004-09-19
- 打赏
- 举报
试试这个链接
http://www.3699.cn/1.png
http://www.3699.cn/1.png
haiz_2001 2004-09-19
- 打赏
- 举报
打不开啊
wwqna 2004-09-19
- 打赏
- 举报
Private Function drawText(row As Integer)
Dim i As Integer
Dim cx As Single
Dim cy As Single
cx = Form1.TextWidth("*")
cy = Form1.TextHeight("*")
For i = 0 To row - 1
Form1.CurrentY = i * cy
Form1.CurrentX = (cx * row - cx * i) / 2
Form1.Print String(i + 1, "*")
Next i
End Function
Private Sub Command1_Click()
drawText 5
End Sub
Dim i As Integer
Dim cx As Single
Dim cy As Single
cx = Form1.TextWidth("*")
cy = Form1.TextHeight("*")
For i = 0 To row - 1
Form1.CurrentY = i * cy
Form1.CurrentX = (cx * row - cx * i) / 2
Form1.Print String(i + 1, "*")
Next i
End Function
Private Sub Command1_Click()
drawText 5
End Sub
northwolves 2004-09-19
- 打赏
- 举报
easy:
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print Space(10 - i); String(i, StrConv("*", vbWide))
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print Space(10 - i); String(i, StrConv("*", vbWide))
Next
End Sub
guxizhw 2004-09-19
- 打赏
- 举报
你要输出到什么地方？
这种东西很简单的，用循环控制一下空格和*就行了
这种东西很简单的，用循环控制一下空格和*就行了
haiz_2001 2004-09-19
- 打赏
- 举报
可能是我的网络问题
haiz_2001 2004-09-19
- 打赏
- 举报
还是不行
