VB中组合框列表如何交换?

提问网友发布时间：2025-01-09 18:11

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共3个回答

热心网友回答时间：2025-01-10 12:34

不知道你为什么要循环两次..
你循环一次,把最大的和最小的都找出来,循环完毕直接交换不就得了么

Private Sub Command1_Click()
Dim Min%, iMin%, Max%, iMax%
Max = Combo1.List(0)
iMax = 0
Min = Combo1.List(0)
iMin = 0

Dim i As Integer
'一个循环分别找出最大数的index,和最小数所在的index
For i = 0 To Combo1.ListCount - 1

If Val(Combo1.List(i)) > Max Then Max = Val(Combo1.List(i)): iMax = i

If Val(Combo1.List(i)) < Min Then Min = Val(Combo1.List(i)): iMin = i
Next i

'最小值和第一个交换
Dim tmp
tmp = Combo1.List(0)
Combo1.List(0) = Combo1.List(iMin)
Combo1.List(iMin) = tmp

'最大值和最后一个交换
tmp = Combo1.List(Combo1.ListCount - 1)
Combo1.List(Combo1.ListCount - 1) = Combo1.List(iMax)
Combo1.List(iMax) = tmp
End Sub

热心网友回答时间：2025-01-10 12:32

我汗，你写的本来就时只找出了最大，和最小，然后把最大放最后，最小放最前。你是不是想从小到大排序，想排序就要有算法哦，冒泡法，快速排序都可以考虑，去书上找找，这是基本哦

热心网友回答时间：2025-01-10 12:30

①private
sub
combo1_keypress
'keypress指的是当键盘键按下时
keyascii
= 13
'当keyascii为13,就是按回车时,回车的编号是13
②请翻译下这两句什么意思。
for
i
=
o
to
combo1.listcount
-
1
从第一个下拉内容到最后一个,
combo1.text
=
combo1.list(i)
把下拉内容显示到组合框的文件框部分.

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

VB中组合框列表如何交换?