Question

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

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

Answer 1

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

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 '先在list1中找到最小值的位置上添加list1的第一行的内容

List1.RemoveItem 0 '移除第一行

List1.AddItem min, 0 '在第一行添加找到的最小值

'——————max的原理等同于min

List1.RemoveItem max1 '

List1.AddItem List1.List(List1.ListCount - 1), max1 '

List1.RemoveItem List1.ListCount - 1 '

List1.AddItem max '

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 'text1的键盘按下事件

If KeyCode = 13 And Text1.Text <> "" Then List1.AddItem Text1.Text: Text1.Text = "" '当按下回车键的时候，并且text1不为空，在list1中添加text1内容，默认添加在最后面，同时清空text1

End Sub