Question

如何用VB6.0画多个同心圆和多个环绕的圆？

问题如上了，老大出手啦

Answer 1

为窗体添加如下代码：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize Timer
For i = 0 To 2344 Step 2344 \ 10
Circle (X, Y), i, RGB(Rnd(1) * 256, Rnd(2) * 256, Rnd(3) * 256)
Next
Print X, Y
End Sub
'以上添加到窗体的代码中
'这是一个独立的过程，应放在任何过程的外面

Answer 2

你自己在纸上怎么画用VB就怎么画嘛。你自己确定加以半径就可以有那么麻烦嘛！！！
我这边没装VB 在公司上班也没法帮你做。
这个没有什么的嘛就是定点嘛。C和VB我都画过。不过东西全丢 了。

Answer 3

e ffsgdfs