int（rnd*100）

集合又该怎样弄

Select Case Val(Text1.text)
    case 1 To 100
         Text2.text = a
    case default
         Text2.text = b
End Select