很简单，你用RND（X）函数产生0-8之间的数，然后让每一个数等于一组文字就行了，
用RND（X）函数产生0-8之间的数的方法：
INT(RND(X)*(9-1+1))

代码:
Private Sub Command1_Click()
Dim a
a = Int(Rnd(1) * 9)
Select Case a
Case 0
Text1.Text = "加油！"
Case 1
Text1.Text = "努力"
Case 2
Text1.Text = "好"
Case 3
Text1.Text = "差"
Case 4
Text1.Text = "及格"
Case 5
Text1.Text = "优秀"
Case 6
Text1.Text = "良"

Case 7
Text1.Text = "不及格"

Case 8
Text1.Text = "特优"
End Select

End Sub

Private Sub Command2_Click()
Unload Form1
End Sub

谢谢,但是又产年了又一个问题..............
我想用那个public function的那个东西来定义,但是我不会弄,怎么弄才行呢?

Public Function RndTxt(ShwText as Textbox)
Dim a as Integer
a = Int(Rnd(1) * 9)
Select Case a
Case 0
ShwText.Text = "加油！"
Case 1
ShwText.Text = "努力"
Case 2
ShwText.Text = "好"
Case 3
ShwText.Text = "差"
Case 4
ShwText.Text = "及格"
Case 5
ShwText.Text = "优秀"
Case 6
ShwText.Text = "良"
Case 7
ShwText.Text = "不及格"
Case 8
ShwText.Text = "特优"
End Select

End Function

我认为对于你的Text1使用Call RndTxt(Text1)就可以了

没有调试，你看看。大致思路是这个样子的吧