如何用vb 打印出心形图案 用“*”打印 在线等 急！
答案:1 悬赏:0 手机版
解决时间 2021-02-27 22:14
- 提问者网友：太高姿态
- 2021-02-27 10:48
如何用vb 打印出心形图案 用“*”打印 在线等 急！
最佳答案
- 五星知识达人网友：你哪知我潦倒为你
- 2021-02-27 11:24
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 5000
Me.Height = 5500
Me.ForeColor = vbRed
Me.FontSize = 12
Me.Scale (-10, 10)-(10, -10)
For i = 0 To 3.1415926 Step 0.2
CurrentX = -Cos(i) * 4 - 4
CurrentY = Sin(i) * 4 + 3
Print "*"
CurrentX = Cos(i) * 4 + 4
CurrentY = Sin(i) * 4 + 3
Print "*"
Next i
For i = 0 To 8 Step 0.5
CurrentX = 8 - i
CurrentY = -i + 2
Print "*"
CurrentX = i - 8
CurrentY = -i + 2
Print "*"
Next i
End Sub
Me.AutoRedraw = True
Me.Width = 5000
Me.Height = 5500
Me.ForeColor = vbRed
Me.FontSize = 12
Me.Scale (-10, 10)-(10, -10)
For i = 0 To 3.1415926 Step 0.2
CurrentX = -Cos(i) * 4 - 4
CurrentY = Sin(i) * 4 + 3
Print "*"
CurrentX = Cos(i) * 4 + 4
CurrentY = Sin(i) * 4 + 3
Print "*"
Next i
For i = 0 To 8 Step 0.5
CurrentX = 8 - i
CurrentY = -i + 2
Print "*"
CurrentX = i - 8
CurrentY = -i + 2
Print "*"
Next i
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯