c#ovalshape_在名称为form1的窗体上添加一个名称为shape1的形状

公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。

话题：在名称为form1的窗体上添加一个名称为shape1的形状控件,通过设置回答：添加3个控件后，以下码：Option ExplicitPrivate Sub Form_Load()Label1.Caption = ＂参数：＂Label1.AutoSize = TrueText1.MaxLength = 5Text1.Text = ＂圆形＂End SubPrivate Sub Text1_Change()Select Case Text1.TextCase ＂矩形＂Shape1.Shape = 0Case ＂正方形＂Shape1.Shape = 1Case ＂椭圆形＂Shape1.Shape = 2Case ＂圆形＂Shape1.Shape = 3Case ＂圆角矩形＂Shape1.Shape = 4Case ＂圆角正方形＂Shape1.Shape = 5End SelectEnd Sub说明：改变Shape控件的Shape属，可以使得Shape绘制不同图形：Opject.Shape = 常数Shape属的常数与图形形状对应如下：常数 设置值 形状描述 VbShapeRectangle 0(缺省值) 矩形 VbShapeSquare 1 正方形 VbShapeOval 2 椭圆形 VbShapeOval 3 圆形 VbShapeRoundedRectangle 4 圆角矩形 VbShapeRoundedSquare 5 圆角正方形

话题：在窗体添加一个shape控件和定时控件,每隔1秒钟修改shape控件的回答：Private Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()RandomizeShape1.Shape = Int(Rnd * 6)Shape1.FillStyle = Int(Rnd * 8)End Sub

参考回答：设置timer.interval =1000在时钟中用随机函数生成属值，关键是怎么让随机函数返回属的值域，计算公式是：Int((最大值 - 最小值 + 1) * 随机数 + 最小值)。别老惦记着给你段现成的码，自己去编，有利于提高成绩。话题：“在shape1中添加7个shape控件,设置名称为shape2的控件数组”是回答：好久没做过了，大概是