高分求VB题目解析(步骤和代码)

来源：百度知道编辑：UC知道时间：2024/05/30 12:48:40

在窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到列表框内,单击交换按钮,将列表框中最小值项目和第0项交换,将最大值项目和最后项目交换

如此怪异的题目，但愿不是你表达错误，要不然我的代码就白写了

Private Sub Command1_Click() '单击交换按钮

Dim min, min1, max, max1 '定义四个变量，min为最小值，max为最大值，min1为最小值在list1中的index，max1为max在list1中的index

min = List1.List(0) '初始的时候把list1的第一项值赋值给min和max ，即默认第一项为最小值和最大值

max = List1.List(0) '

For i = 0 To List1.ListCount - 1 '用for next语句校检list所有内容

If List1.List(i) < min Then min = List1.List(i): min1 = i '如果list1的内容比默认的min值小，就将这个list的值赋值给min，并且记录找到最小值的位置赋值给min1，下面的max同样

If List1.List(i) > max Then max = List1.List(i): max1 = i '

Next '这里结束for next过程后我们的min就是最小值，min1 为最小值在list1中的位置：max原理等同于min

List1.RemoveItem min1 '移除最小值

List1.AddItem List1.List(0), min1 &