如何用vb编写"礼花绽放",并写出它的代码
答案:1 悬赏:40
解决时间 2021-02-28 20:40
- 提问者网友：送舟行
- 2021-02-27 20:58
如何用vb编写"礼花绽放",并写出它的代码
最佳答案
- 二级知识专家网友：底特律间谍
- 2021-02-27 22:28
先建立一个图片框，一个时钟控件，Interval属性设为100，代码如下：
Private Sub Form_Click()
Picture1.ScaleMode = 3
Picture1.Scale (-3, 3)-(3, -3)
Picture1.Line (-0.3, -2)-(0.3, -3), , BF
End Sub
Private Sub Timer1_Timer()
Dim i As Single
Picture1.DrawWidth = 2
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), RGB(255, 0, 1)
Next
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), Form1.BackColor
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), RGB(255, 0, 1)
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), Form1.BackColor
Next
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), RGB(255, 0, 0)
Next i
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), Form1.BackColor
Next i
End Sub
Private Sub Form_Click()
Picture1.ScaleMode = 3
Picture1.Scale (-3, 3)-(3, -3)
Picture1.Line (-0.3, -2)-(0.3, -3), , BF
End Sub
Private Sub Timer1_Timer()
Dim i As Single
Picture1.DrawWidth = 2
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), RGB(255, 0, 1)
Next
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), Form1.BackColor
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), RGB(255, 0, 1)
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), Form1.BackColor
Next
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), RGB(255, 0, 0)
Next i
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), Form1.BackColor
Next i
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯