Question

在窗体添加一个shape控件和定时控件,每隔1秒钟修改shape控件的相关属性,使其填充模式和外观随机发生改变

vb课后题，怎么做完整程序

Answer 1

 Private Sub Form_Load()
   Timer1.Interval = 1000
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Randomize
    Shape1.Shape = Int(Rnd * 6)
    Shape1.FillStyle = Int(Rnd * 8)
End Sub

Answer 2

设置timer.interval =1000
在时钟事件中用随机函数生成属性值，关键是怎么让随机函数返回属性的值域，计算公式是：Int((最大值 - 最小值 + 1) * 随机数 + 最小值)。
别老惦记着给你段现成的代码，自己去编，有利于提高成绩。