VB各种图形设计Word格式文档下载.docx

1、Circle （x - 1.5 * r, y - 1.5 * r）, 1.6 * rCircle （x - 1.5 * r, y + 1.5 * r）, 1.6 * rCircle （x + 1.5 * r, y - 1.5 * r）, 1.6 * rCircle （x + 1.5 * r, y + 1.5 * r）, 1.6 * rr = Rnd * 500 + 100FillStyle = 0Circle （x, y）, rEnd SubPrivate Sub Command2_Click（）BackColor = RGB（Rnd * 255, Rnd * 255, Rnd * 255）D

2、im r%, i%, y%, x%, j%, k%, n%, t%r = Rnd * 700DrawWidth = Int（Rnd * 20 + 1）x = Rnd * 13000: y = Rnd * 6000: i = Rnd * 5000: j = Rnd * 5000: k = Rnd * 4000: n = Rnd * 300: t = Rnd * 300Circle （x - 2 * （r + n） + k, y - 2 * （r + n） + i）, 2 * （r + n）Circle （x - 1.5 * （r + n） + k, y + 1.5 * （r + n） + i）,

3、 1.6 * （r + n）Circle （x + 2 * （r + n） + k, y - 2 * （r + n） + i）, 2 * （r + n）Circle （x + 1.5 * （r + n） + k, y + 1.5 * （r + n） + i）, 1.6 * （r + n）Circle （x + k, y + i）, rFillColor = QBColor（Rnd * 15）Circle （x - 1.5 * （r + n） + k, y - 1.5 * （r + n） + i）, rCircle （x + 1.5 * （r + n） + k, y - 1.5 * （r + n

4、） + i）, rFillStyle = 1Circle （x - 1.5 * （r + n） + k, y - 1.5 * （r + n） + i）, r / 2Circle （x + 1.5 * （r + n） + k, y - 1.5 * （r + n） + i）, r / 2FillColor = QBColor（Rnd * 10）FillStyle = 6Circle （x - 1.5 * （r + t） - i, y - 1.5 * （r + t） + j）, 1.6 * （r + t）Circle （x - 1.5 * （r + t） - i, y + 1.5 * （r + t）

5、 + j）, 1.6 * （r + t）Circle （x + 1.5 * （r + t） - i, y - 1.5 * （r + t） + j）, 1.6 * （r + t）Circle （x + 1.5 * （r + t） - i, y + 1.5 * （r + t） + j）, 1.6 * （r + t）Circle （x - i, y + j）, r + 2 * tCircle （x - i, y + j）, r + t / 2Circle （x - 1.5 * r + j, y - 1.5 * r + k）, 1.6 * rFillStyle = 2Circle （x - 1.5 *

6、 r + j, y + 1.5 * r + k）, 1.6 * rCircle （x + 1.5 * r + j, y - 1.5 * r + k）, 1.6 * rCircle （x + 1.5 * r + j, y + 1.5 * r + k）, 1.6 * rCircle （x + j, y + k）, rr = Rnd * 500DrawWidth = 2Circle （x - 1.5 * （r + n） + k, y - 1.5 * （r + n） + i）, 1.6 * （r + n）Circle （x + 1.5 * （r + n） + k, y - 1.5 * （r + n）

7、+ i）, 1.6 * （r + n）Circle （x + k, y + i）, r + n / 4DrawWidth = Int（Rnd * 10 + 1）FillStyle = 7Circle （x - i, y + j）, r + tDrawWidth = Int（Rnd * 12 + 1）Circle （x - 1.5 * （r + n + t） + i, y - 1.5 * （r + n + t）, 1.6 * （r + n + t）Circle （x - 1.5 * （r + n + t） + i, y + 1.5 * （r + n + t）, 1.6 * （r + n + t）

8、Circle （x + 1.5 * （r + n + t） + i, y - 1.5 * （r + n + t）, 1.6 * （r + n + t）Circle （x + 1.5 * （r + n + t） + i, y + 1.5 * （r + n + t）, 1.6 * （r + n + t）Circle （x + i, y）, r + n + tPrivate Sub Command3_Click（）FillColor = &H80000005r = Rnd * 2000DrawWidth = 1 + 0.02 * rx = Int（Rnd * 14000）: y = Int（Rnd

9、* 10000）Circle （x, y）, r, QBColor（Rnd * 10）Private Sub Command4_Click（）Dim i%, j%, r%, x%, t%r = Rnd * 1500DrawWidth = 1 + 0.01 * rx = Int（Rnd * 10000）: y = Int（Rnd * 10000）: i = Rnd * 3000: j = Rnd * 3000: t = Rnd * 4000Circle （x + i, y + j）, Rnd * 3 * r, QBColor（Rnd * 15）DrawWidth = 1 + 0.005 * rP

10、rivate Sub Command5_Click（）Dim x As Integer, y As Integer, r As Integer, l As Integer DrawWidth = 20 Randomize x = Rnd * 10000: y = Rnd * 10000: r = Rnd * 500 DrawMode = 14ForeColor = RGB（Int（Rnd * 255）, Int（Rnd * 255）, Int（Rnd * 255）Line （x, y）-（x + r * 6, y） Line （x, y）-（x, y + r * 6） Line （x + r

11、* 6, y）-（x + r * 6, y + r * 6） Line （x, y + r * 6）-（x + r * 6, y + r * 6） Line （x, y）-（x + r * 1.5 * 1.7, y - r * 3） Line （x + r * 1.5 * 1.7, y - r * 3）-（x + r * 1.5 * 1.7 + r * 6, y - r * 3） Line （x + r * 6, y）-（x + r * 1.5 * 1.7 + r * 6, y - r * 3） Line （x + r * 1.5 * 1.7 + r * 6, y - r * 3）-（x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6） Line （x + r * 6, y + r * 6）-（x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6） DrawWidth = 12 DrawWidth = 11 DrawWidth = 10 DrawWidth = 9 Line （x + r * 1.5 * 1.7, y