《概率论与数理统计》(第4版)电子教案 第11章 在数理统计中应用Excel软件 11.6 宏.docVIP

以下是求解上述问题的宏： Sub Macro9( ) Dim i As Integer, j As Integer, n As Integer Dim Shu As Single, Temp As Single, Squ As Double For i=1 To 10000 For j=1 To 26 Shu=Rnd *26 If Shu =1 # Then Cells(i,j+5)=133.2: GoTo 5 ElseIf Shu =2 # Then : GoTo 5 ElseIf Shu =3 # Then Cells(i,j+5)=134.3: GoTo 5 ElseIf Shu =4 # Then Cells(i,j+5)=134.4: GoTo 5 ElseIf Shu =5 # Then Cells(i,j+5)=134.5: GoTo 5 ElseIf Shu =6 # Then Cells(i,j+5)=134.7: GoTo 5 ElseIf Shu =9 # Then Cells(i,j+5)=134.8: GoTo 5 ElseIf Shu =11 # Then C