VB编程:利用circle方法绘随机产生颜色各异的同心圆,最大圆半径不超过1000

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/06 07:17:02

Dim x As Single,y As Single,r As Integer
Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
Randomize
r = Int(Rnd * 1000) + 1
Circle (x,y),r,QBColor(Int((15 * Rnd) + 1))
End Su

编写一个VB循环程序用line方法或line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线段 VB编程,“数组问题”窗口利用随机函数随机产生两个两位数的5×5矩阵并作运算... 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 请问怎样用LINE方法怎样编写一个在屏幕上随机产生2条长度宽度和颜色各异的直线段吗?具体程序编码用vb编程：利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. 如图,各同心圆中最大圆的半径为2,那么阴影部分面积为 vb问题利用随机函数产生80个10～99之间的随机整数, VB中利用Circle 方法可以画什么? VB编程,产生20个0～350之间的随机整数有两个同心圆,小圆半径是大圆半径的50%. 右图是两个同心圆,小圆半径是大圆半径的50% VB编程随机产生50个10~200的整数,统计能被5整除的数的个数