排序问题

Question

你想做什么呢
a = InputBox("请输入任意字母", "字母排序", "") 
b = Val(a) 
如果a为字母“k”，那么b = Val(a)有什么意义呢

Answer 1

程序可以实现的吧
Private Sub Command1_Click() 
Dim a As String 
Dim b As Integer 
a = InputBox("请输入任意字母", "字母排序", "") 
b = Val(a) 
Text1.Text = a End Sub 
把text1.text=a+text1.text
可能楼主忘记这个吧