VB：建立一个简单组合框，输入数字加入到组合框的列表框内，并将列表框中最小值项目和第0个项目交换以及最大值与最后项目交换

末蓝、 2022-05-27 12:36 140阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验5-8  
作者：Caleb Sung

# 题目要求 #

窗体上建立一个简单组合框，在组合框的文本框输入数字字符，按回车键后加入到组合框的列表框内，如图E.8所示；单击“交换”按钮，将列表框中最小值项目和第0个项目交换；最大值与最后项目交换，如图所示：  
![这里写图片描述][70]

# 提示 #

1.  只能输入数字，Combo1\_KeyPress事件通过如下代码实现：

Select Case KeyAscii
    Case 48 to 57,13 '0～9数字和回车键为合法数据
    Case Else '否则为非法数据，去除非法字符
    KeyAscii=0
    End Select

1.  求最大值和最小值必须声明4个变量：如Min、iMin、Max、iMax分别存放最小值、最小值下标、最大值和最大值下标，并将列表框中低0个项目作为上述4个变量的初值。
2.  按照求最大值和最小值的方法，在组合框中找最小值和最大值，并获得最小值和最大值下标；注意比较时要用**Val**函数，否则作为字符串比较。
3.  将组合框的第0项与最小值交换、最大值与最后项交换。例，最大值与最后项交换的代码如下：

t=Combo1.List(Combo1.ListCount-1)
    Combo1.List(Combo1.ListCount-1)= Combo1.List(iMax)
    Combo1.List(iMax)= t

# 参考解答 #

首先画一个高度较高的ComboBox，它的按钮长这个样子：  
![这里写图片描述][70 1]  
随后选中画好的ComboBox，在属性面板里找到Style属性，设置为“1 - Simple Combo”：  
![这里写图片描述][70 2]  
接下来画一个Button，就可以愉快的Coding了 (>^ω^<)

Private Sub Combo1_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
        Case 48 To 57, 13
        Case Else
        KeyAscii = 0
        End Select
        If KeyAscii = 13 Then
            Combo1.AddItem Combo1.Text
            Combo1.Text = ""
        End If
    End Sub
    
    Private Sub Command1_Click()
        Max = Val(Combo1.List(0))
        iMax = 0
        Min = Val(Combo1.List(0))
        iMin = 0
        For i = 1 To Combo1.ListCount - 1
            If Val(Combo1.List(i)) > Max Then
                Max = Val(Combo1.List(i))
                iMax = i
            ElseIf Val(Combo1.List(i)) < Min Then
                Min = Val(Combo1.List(i))
                iMin = i
            End If
        Next i
        t = Combo1.List(Combo1.ListCount - 1)
        Combo1.List(Combo1.ListCount - 1) = Combo1.List(iMax)
        Combo1.List(iMax) = t
        t = Combo1.List(0)
        Combo1.List(0) = Combo1.List(iMin)
        Combo1.List(iMin) = t
    End Sub

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220527/b41a32c71f114b63805ab328354e3ea5.png
[70 1]: /images/20220527/54914cbc83f1499396fcd6f74c245f12.png
[70 2]: /images/20220527/8c57f0df6b074c438995e19d0504d205.png