'下面函数可以直接复制到题目区中，用于处理随机数生成

'您可以对函数进行简单修改，以完成更加复杂的应用

'调用方法：msgbox SuiJiShu(1,100) '表示为从1到100间随机生成一个数字

Private Function SuiJiShu(FromNum, ToNum)
suijii = 0
FromNum = Abs(FromNum)
ToNum = Abs(ToNum)
If FromNum = ToNum Then SuiJiShu = FromNum: Exit Function
If FromNum > ToNum Then
suijii = FromNum
FromNum = ToNum
ToNum = suijii
End If

suijii = 0
Randomize
On Error Resume Next
SuiJiShu = CSng((ToNum - FromNum + 1) * Rnd + 1)
SuiJiShu = FormatNumber(SuiJiShu, 2, , , 0) '保留小数点后2位
End Function