问题标题
设计三个类:几何形状类(Shape)、圆类(Circle)、矩形类(.,请编写 Java程序,设计一个“形状&rdquo
2019-5-10来自ip:17.175.174.80的网友咨询
浏览量:417 手机版
问题补充:
设计三个类:几何形状类(Shape)、圆类(Circle)、矩形类(...,请编写 Java程序,设计一个“形状”基类,经由“形状”继承出3个子...
网友答案
用VB程序设计做的随机画十个圆的编程代码 抱歉:就知道这些Dim r(10) As Integer,i As Integer '半径Dim x(10) As Integer,n As Integer '半径坐标Dim y(10) As Integer,m As Integer '半径坐标Dim mr As IntegerPrivate Sub Command1_Click()Clsi = 1Text1 = " "Text2 = " "Timer1.Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Dim a As Integer,b As Integera = r(1)b = r(1)For i = 2 To 10If a r(i) Thenb = r(i)End IfNext iText1 = aText2 = bEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()i = 1n = 1m = 1End SubPrivate Sub Timer1_Timer()Randomizex(n) = Int(Rnd * (Frame1.Left - 99) + 100)y(m) = Int(Rnd * (Form1.ScaleHeight - 99) + 100)mr = x(n)If mr > y(m) Then mr = y(m)If mr > Frame1.Left - x(n) Then mr = Frame1.Left - x(n)If mr > Form1.ScaleHeight - y(m) Then mr = Form1.ScaleHeight - y(m)r(i) = Int((Rnd * mr - 51) + 100)Circle (x(n),y(m)),r(i),QBColor(Int(Rnd * 16)) &