我是初中的,剛學VB.我需要一個最簡單的程序,包含與圓形有關的內容!弄些好看的圓形(會動的更好啦)

熱心網友

隨機畫圓,相當會動!注意窗體上還需添加Command和 Picture控件Private Sub Form_Load()Command1。Caption = "隨機畫圓"Form1。ScaleMode = 1Picture1。ScaleMode = 1End SubPrivate Sub Command1_Click()Dim XPos, YPos Picture1。Cls Do nn = Int(100 * Rnd) If nn 0 Then Picture1。DrawWidth = nn End If XPos = Rnd * Picture1。ScaleWidth YPos = Rnd * Picture1。ScaleHeightPicture1。PSet (XPos, YPos), RGB(Rnd * 256, Rnd * 256, Rnd * 256) DoEvents LoopEnd Sub有問題聯系我! 。

熱心網友

你想干什么呀，在窗體上繪制一個Shape空間，從里面選擇形狀為圓形，最簡單了吧？