谁能解释一下这个程序的具体逻辑,有急用,GraphicsWindow.BackgroundColor = "Black"x = 100y = 100For i = 1 To 100000r = Math.GetRandomNumber(3)ux = 150uy = 30If (r = 1) thenux = 30uy = 1000EndIfIf (r = 2) Thenux = 1000uy = 1000EndIfx = (
来源:学生作业学帮网 编辑:学帮网 时间:2024/06/20 21:40:52
谁能解释一下这个程序的具体逻辑,有急用,
GraphicsWindow.BackgroundColor = "Black"
x = 100
y = 100
For i = 1 To 100000
r = Math.GetRandomNumber(3)
ux = 150
uy = 30
If (r = 1) then
ux = 30
uy = 1000
EndIf
If (r = 2) Then
ux = 1000
uy = 1000
EndIf
x = (x + ux) / 2
y = (y + uy) / 2
color = GraphicsWindow.GetRandomColor()
GraphicsWindow.SetPixel(x,y,color)
EndFor
简单解释下:这个程序是设置窗体背景颜色的程序.x,y是一个初始值.后面,使用getrandomnumber函数来生成r变量,通过这个变量来确定像素的位置.最后,通过一个gerrandomcolor函数来产生一个随机的颜色,然后再同setpixel函数来把这个颜色设置到计算出的x,y位置.这个程序中有一点需要结合整体程序来理解,就是for循环的使用,意思是产生10000个不同的设置点,但是,其中的位置却没有相应的进行改变;
谁能解释一下这个程序的具体逻辑,有急用,GraphicsWindow.BackgroundColor = Blackx = 100y = 100For i = 1 To 100000r = Math.GetRandomNumber(3)ux = 150uy = 30If (r = 1) thenux = 30uy = 1000EndIfIf (r = 2) Thenux = 1000uy = 1000EndIfx = (
谁能解释一下这个程序的含义
交通产业 汽车产业 谁能具体解释一下上述两个名词?急用.是有关辩论的,急用!
谁能解释一下什么是中文.tel 有什么具体的
哪位大侠能解释一下逻辑图中各逻辑符号的含义,
谁能给解释一下下面程序的解释是什么意思
求具体的企业宗旨.最好能解释一下这个宗旨
谁能具体解释一下现代、当代、近代的区别,最好有具体的时间划分
谁能解释一下“范式字巨卿.尽欢而别”(中间有内容省略)的意思,急用~有急用,谢谢了~
数学的逻辑魅力我要写一篇数学论文,有关于逻辑魅力的,谁能提供我一点材料,参考书目,我急用
谁能具体解释一下CEO?
谁能解释一下这个公式的意思.
谁能解释一下这个字的含义?
谁能解释一下这个的原理
谁能具体解释一下佛家的无常的意思啊?
谁能解释一下嘻哈的具体含义?
谁能具体解释一下《两个人的荒岛》 歌曲意思?
暖味是什么意思.谁能给我具体的解释一下.