1. 有如下 12 个国家（Thailand,Singapore,Laos,Burma,China,India,Nepal,Japan,Korea,Mongolia,Egypt, Indonesia），在我国参加某项体育比赛，依规定入场式除东道主走在最后面，其它国家依国名的英语字母顺序排序，用 VB 编写一个能实现入场顺序自动排名的程序。操作要求：1) 新建一个名称为“VB 测试 3”的文件夹；将工程文件保存为“国家入场排序.vbp”。2) 将窗体名称改为“国家入场排序”；将窗体文件保存为“国家入场排序.frm”。3) 创建如图 3-1 所示的程序界面，在窗体上添加两个标签，两个列表框，三个命令按钮，设置相应属性。 4) 单击添加按钮 Command1，通过键盘输入国家名，显示在 List1 中，单击排序按钮 Command2，按照题目要求排序后显示在 List2 中，如图 3-3 所示。5) 单击退出按钮Command3，结束程序。
Private Sub Command1_Click()
MyValue = InputBox("请输入第" & List1.ListCount + 1 & "个国家名")
List1.AddItem MyValue
End Sub
Private Sub Command2_Click()
ReDim a(0 To List1.ListCount - 1) As String
For i = 0 To List1.ListCount - 1
a(i) = List1.List(i)
Next
Sort a
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem a(i)
Next
For i = 0 To List2.ListCount - 1
If List2.List(i) = "China" Then
List2.RemoveItem i
Exit For
End If
Next
List2.AddItem "China"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Sort(a() As String)
For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
End Sub
MyValue = InputBox("请输入第" & List1.ListCount + 1 & "个国家名")
List1.AddItem MyValue
End Sub
Private Sub Command2_Click()
ReDim a(0 To List1.ListCount - 1) As String
For i = 0 To List1.ListCount - 1
a(i) = List1.List(i)
Next
Sort a
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem a(i)
Next
For i = 0 To List2.ListCount - 1
If List2.List(i) = "China" Then
List2.RemoveItem i
Exit For
End If
Next
List2.AddItem "China"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Sort(a() As String)
For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-08-03
排序，可以取首字母，取其ascii码。按ascii排序，依次显示出来追问
我需要的是编程。。
