vb高手请进来看看哪里错了

你的Case 0 ,1 ,2 ....是索引号则 str = Index 就行 ,不能str = Command1(Index)

很负责任地说:你这段程序,我自己改了一数据输入,测试通过.没有问题
因为commmand1(index)这里,没有看到你的sub段.
不知道怎么回事了.
如果达不到你的目标,请检查清楚command1()的功能代码是否正确.

Dim str As String
str = Text1
Select Case str
Case 0
s = "鼠"
Case 1
s = "牛"

Case 2
s = "虎"
Case 3
s = "兔"
Case 4
s = "龙"
Case 5
s = "蛇"
Case 6
s = "马"
Case 7
s = "羊"
Case 8
s = "猴"
Case 9
s = "鸡"
Case 10
s = "狗"
Case 11
s = "猪"
End Select
Text1.Text = s

Private Sub Command1_Click(Index As Integer)
Dim str As String
str = Index
Print str
Select Case str
Case 0
s = "鼠"
Case 1
s = "牛"
Case 2
s = "虎"
Case 3
s = "兔"
Case 4
s = "龙"
Case 5
s = "蛇"
Case 6
s = "马"
Case 7
s = "羊"
Case 8
s = "猴"
Case 9
s = "鸡"
Case 10
s = "狗"
Case 11
s = "猪"
End Select
Text1.Text = s
End Sub

把 str = Command1(Index)改成
str = Index就好了
因为为str = Command1(Index)是一个判断句，他返回的不是true就是FALSE
所以程序不会进入select语句里，就不会输出
str = Index返回str的值是数字，可以进入select语句中

CASE1、CASE2空了一行