Private Sub Command2_Click() End End Sub Private Sub Form_Load() Command1.Enabled = True Command2.Enabled = False End Sub

Private Sub command1_click()Command2.Enabled = TrueCommand1.Enabled = FalseDim xx(200) As String, length%Dim x$, I%, j%, p%x = Trim(Str(Text1.Text))length = Len(x)For I = 1 To length xx(I) = Mid(Text1.Text, I, 1)Next IFor I = 1 To length - 1 p = I For j = I + 1 To length If Asc(xx(I)) > Asc(xx(j)) Then t = xx(I): xx(I) = xx(j): xx(j) = t End If Next jNext IFor I = 1 To length Print xx(I);Next IEnd Sub错误当输入较长的数字,显示为数字格式的长数字串当输入字母,错误

正确如下：：Private Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub command1_click()Dim n As Integer, I As Integer, p As IntegerDim a(200) As String, st As String, t As Stringst = Text1.Textn = Len(Trim(Text1.Text))For I = 1 To n a(I) = Mid(Text1.Text, I, 1)Next IFor I = 1 To n - 1 p = I For j = I + 1 To n If Asc(a(p)) > Asc(a(j)) Then p = j Next j t = a(I): a(I) = a(p): a(p) = tNext IFor I = 1 To n Print a(I);Next IEnd Sub