错就错在那个 n=0 ！这样的话，你每次输入字符串后按回车键，n的值都会变为0，然后n=n+1=0+1=1，所以n的值就固定为1了！把n=0去掉即可。
另外你的代码还可以优化一下：
Private Sub Command1_Click()
For i = 1 To n - 1
For j = i + 1 To n
If s(j) > s(i) Then
t = s(i)
s(i) = s(j)
s(j) = t
End If
Next j
Next i
For i = 1 To n
Picture1.Print s(i)
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024