哪位高手帮小弟做一个vb简单图形（要代码) 送分！！

zhizlm 2004-10-27 04:43:40

附图：
http://freett.com/zhizlm/pic/321.jpg

...全文

213 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhizlm 2004-10-28

打赏
举报

谢谢，楼上四位大哥！！

northwolves 2004-10-27

打赏
举报

Private Sub Command1_Click()
Dim i As Integer, x As String
x = StrConv("★", vbWide)
For i = 1 To 7
If i = 2 Then
Me.CurrentX = 800
Print x & x
Else
Me.CurrentX = 1000 - i * 100
Print x;
Me.CurrentX = 900
Print x;
Me.CurrentX = 800 + i * 100
Print x
End If
Next
End Sub

gb2000 2004-10-27

打赏
举报

Option Explicit

Const cStar = "★"
Const cStart = 20

Private Sub Form_Load()
Dim lngI As Long
Me.Show
For lngI = 1 To InputBox("Input Rows:")
Print Space(cStart - lngI);
If lngI < 4 Then
Print String(lngI, cStar)
Else
Print cStar & Space(lngI - 3) & cStar & Space(lngI - 3) & cStar
End If
Next
End Sub

xiaoyuanzhi 2004-10-27

打赏
举报

终于做出来了，累死我了。
Dim X, Y, E(1 To 13, 1 To 7) As Integer

Private Sub Command1_Click()

For i = 1 To 13
For j = 1 To 6
E(i, j) = 0
Next
Next
X = 7: Y = 1
For k = 1 To 7
E(X, Y) = 1
X = X + 1: Y = Y + 1
Next
X = 6: Y = 2
For k = 0 To 5
E(X, Y) = 1
X = X - 1: Y = Y + 1
Next
X = 7: Y = 3
For k = 0 To 4
E(X, Y) = 1
Y = Y + 1
Next
For i = 1 To 13
For j = 1 To 7
If E(i, j) = 1 Then
Me.PaintPicture Image1.Picture, 3000 + 1 / 2 * i * Image1.Width, 3000 + j * Image1.Height, Image1.Width, Image1.Height
End If
Next
Next
End Sub

江语 2004-10-27

打赏
举报

这图形太少，虽然有点规律，如果用循环很浪费。要是多的话还是得用的！！
所以。。。。。。。。。。。。。

Option Explicit

Private Sub Command1_Click()
Print ""
Print ""
Print ""
Print ""
Print " ★"
Print " ★★"
Print " ★★★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
Print " ★ ★ ★"
End Sub

对于这题这是最好办法，楼上说的那样也可以。
哈哈!
^O^
这五角星是用智能ABC输入法打出来的！！
按V然后按1，接着翻页找就是了！