vb，给文本框中的内容按ASCII码排列的程序

窗体中放置一个文本框text1 一个按钮 command1
代码如下
Option Explicit
Private Sub Command1_Click()
Text1 = Paixu(Text1)
End Sub
Private Function Paixu(ByVal Str As String) As String
Dim AscCode() As Integer
Dim tCode As Integer
Dim n As Integer
Dim i As Integer, j As Integer
n = Len(Str)
ReDim AscCode(n)
For i = 1 To n
AscCode(i) = Asc(Mid(Str, i, 1))
Next i
For i = 1 To n - 1
For j = i + 1 To n
'小于号按从大到小排，大于号按从小到大排
If AscCode(i) < AscCode(j) Then
tCode = AscCode(i)
AscCode(i) = AscCode(j)
AscCode(j) = tCode
End If
Next j
Next i
For i = 1 To n
Paixu = Paixu & Chr(AscCode(i))
Next i
End Function
使用的时候直接调用后面的函数paixu就可以了 汉语也是按拼音顺序排（多音字有异）

可以用VB的 IIf 函数：虽然方便，但是比较抽象，难以理解：
不如要得到a,b,c中的最小值：
Print IIf(IIf(a < b, a, b) < IIf(b < c, b, c), IIf(a < b, a, b), IIf(b < c, b, c))
把其中的小于号改为大于号。就可以得到三个数中的最大值。

第一，上机运行可以发现上述代码没有问题，四个答案风马牛不相及。所考内容实际上是一个脑筋急转弯问题，考察学生对基础知识的掌握。
第二，正确答案是D。
我们来分析一下：
（A）标签Label3对象不拥有Caption属性，错误。因为Label3对象拥有Caption属性。
（B）cp不能作为VB变量名，错误。因为cp符合VB变量命名规则，也不是保留字。
（C）Str(x)不是VB的标准函数，错误。Str(x)当然是VB的标准函数。
（D）函数Str(x)要求参数x的数据类型为数值型，而变量cp的数据类型是字符串型。正确，cp As String。

1、在网页、文本文档等界面的空白处，可以使用该方法，将光标定位在空白处，注意，有的word中不能使用该方法。

2、按住alt键不放，然后依次按下  41437，再松开alt键，即可出现  ≥。

3、方法2：word法

打开一个word文件，进入到编辑界面中，

4、依次点击 插入----符号---特殊符号。

5、在该界面，依次选择  普通文本、数字运算符、≥。最后点击   插入。

6、然后就完成了，效果如下。

Private Sub Command1_Click()
a = InputBox("输入第一个数!")
x = InputBox("输入第二个数!")
If a <= x Then
y = a
Else
y = x
x = a
End If
Print x & "|" & y
End Sub

---