您的位置:首页 > 编程语言 > VB

随机生成随机数

2012-03-26 19:23 155 查看
现画一个command命令按钮,进行粘贴。

Private Sub Command1_Click()

Show

Me Scale (0, 0)-(18, 8)

Me. Auto redraw =True

Me. Draw Mode =2

Circle (3, 4), 3, VB Red

Me. Auto Redraw =false

Line (7, 1) –step (4, 6) .VBGreen .B

Line (13, 7) –step (4, 0).VBBlue

Line step (0, 0)  –step (-2, -6). VB Blue

Line step (0, 0)  –step (-2, 6). VB Blue

End sub 
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  command vb