编写VB程序，用Pset方法在窗体上画1000个随机点，点的大小在单位1-4之间变化，点的颜色也是随机变化。

有谁可以帮忙把正确代码写下... 有谁可以帮忙把正确代码写下展开

 我来答

2个回答

#热议# 为什么有人显老，有人显年轻？

科技程序迷
2011-06-07 · TA获得超过2822个赞

知道大有可为答主

回答量：2240

采纳率：0%

帮助的人：1845万

我也去答题访问个人页

关注

展开全部

For i = 1 to 1000
  Pset(Rnd*me.Width,Rnd*me.Height),RGB(Rnd*255,Rnd*255,Rnd*255)
  Me.DrawWidth=Rnd*4+1
  Doevents
  Doevents
Next

本回答被提问者和网友采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

wingwf2000
2011-06-07 · TA获得超过1万个赞

知道大有可为答主

回答量：5889

采纳率：33%

帮助的人：1706万

我也去答题访问个人页

关注

展开全部

关键是使用DrawWidth和ForeColor这两个属性

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

编写VB程序，用Pset方法在窗体上画1000个随机点，点的大小在单位1-4之间变化，点的颜色也是随机变化。

为你推荐：