Question

窗体上建立一个简单的组合框，在组合框的文本框的文本框输入数字字符，按回车键后加入到组合框的列表框内

Answer 1

一楼回答不错，但我想这个应用一般是要去掉重复数据的。因为我这台电脑没有装VB，去重复你的那个For循环可能有点错误，具体需要您在VB环境下调试下。

Private Sub Combo1_KeyPress(KeyAscii As Integer)
dim K as long
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
for k=0 to combo1.listcount -1
if clng(combo1.list(k))=clng(combo1.text) then exit for
next
if k>= combo1.lsitcount then Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub

Answer 2

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub

追问

窗体上建立一个简单的组合框，在组合框的文本框的文本框输入数字字符，按回车键后加入到组合框的列表框内；单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值项目与最后项目交换。能把这个也写一下么？

追答

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then Exit For '判断是否在combo1中已存在
Next
If i = Combo1.ListCount Then '如果i=combo1.listcount，则在combo1中不存在，需要添加
Combo1.AddItem Combo1.Text
Combo1.Text = ""
End If
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub

Private Sub Command2_Click()
Dim i As Integer, min As Double, max As Double, oo As String, j As Integer, k As Integer
min = 999999 '因不知道输入到combo1中的数字能不能为小数或负数，所以取min和max都是double型
max = -999999 'min初始取可能的最大值，max初始取可能的最小值。
For i = 0 To Combo1.ListCount - 1
If Val(Combo1.List(i)) max Then max = Val(Combo1.List(i)): k = i
Next
oo = Combo1.List(0) '以下三行为最小值和第0行交换
Combo1.List(0) = min
Combo1.List(j) = oo
If k = 0 Then k = j '若最大值在第0行，经最小值和第0行交换后，最大值已到第j行
oo = Combo1.List(Combo1.ListCount - 1) '以下三行为最大值和最后一行交换
Combo1.List(Combo1.ListCount - 1) = max
Combo1.List(k) = oo
End Sub