高校问答xboxone 下载用的dns:求:VB小程序实例(高中教学用)
来源：百度文库 编辑：高校问答 时间：2024/04/19 02:07:29
我帮你做两个小题目吧，比较好的
1。是百钱买百鸡
一百无买公鸡5元一只，母鸡3元一只，小鸡一元3只.x代表公鸡，Y代表母鸡。z代表小鸡
PRIVATE SUB form1_click()l
dim x,y,z as long
for x = 1 to 20
for y = 1 to 33
z= 100-x-y
if 5*x+3*y+1/3z= 100 then
print x,y,z
end if
nexty
nextx
end sub
2.是画50个不同大小的圆，色彩也不同
private sub from1_click()
for i = 1 to 50
randomize
a= int(255*rnd+1)
b = int(255*rnd +1)
c= int(255*rnd+1)
form1.forecolor= rgb(a,b,c)
circle(3000,3000)i*100
next i
end sub
小弟真是献臭了。如果不足，请指教