程序运行时的窗体界面如下图所示。 试题源程序: 1 Private Sub Command1 Click( ) 2 Me. Timer1. Enabied =True 3 End Sub 4 Private Sub Form_Load( ) 5 Form1. Caption="掷骰子概率" 6 Me. Timer1. Interval=100 7 Me. Timer1. Enabled=False 8 End Sub 9 Private Sub Timer1_Timer( ) 10 Randomize 11 Static n As Integer 12 Static n1 As Integer 13 Static n2 As Integer 14 Static n3 As Integer 15 Static n4 As Integer 16 Static n5 As Integer 17 Static n6 As Integer 18 Dim temp As Integer 19 n=n+1 20 temp=Int(Rnd*6+1) 21 Select Case temp 22 ’ 23 End Select 24 End Sub