VB中组合框列表如何交换

不知道你为什么要循环两次

你循环一次,把最大的和最小的都找出来,循环完毕直接交换不就得了么

Private Sub Command1_Click()

Dim Min%, iMin%, Max%, iMax%

Max = Combo1List(0)

iMax = 0

Min = Combo1List(0)

iMin = 0

Dim i As Integer

'一个循环分别找出最大数的index,和最小数所在的index

For i = 0 To Combo1ListCount - 1

If Val(Combo1List(i)) > Max Then Max = Val(Combo1List(i)): iMax = i

If Val(Combo1List(i)) < Min Then Min = Val(Combo1List(i)): iMin = i

Next i

'最小值和第一个交换

Dim tmp

tmp = Combo1List(0)

Combo1List(0) = Combo1List(iMin)

Combo1List(iMin) = tmp

'最大值和最后一个交换

tmp = Combo1List(Combo1ListCount - 1)

Combo1List(Combo1ListCount - 1) = Combo1List(iMax)

Combo1List(iMax) = tmp

End Sub

你要的是这种效果吧

Private Sub Command1_Click()

Dim s As String

If Command1Caption = "确定" Then

s = Label1Caption

Label1Caption = Label2Caption

Label2Caption = s

Command1Caption = "交换"

Else

Command1Caption = "确定"

End If

End Sub

Private Sub Command2_Click()

Command1Caption = "交换"

End Sub

常见的VB字符串函数？2007-03-23 15:。 571 ASC（X），CHR（X）:转换字符的字符代码

[格式]:

P =升序（X）返回字符串的字符代码

X是第一个字符P = CHR （X）返回字符码等于X的字符

[例]:

（1）P = CHR（65）

'输出字符A，因为A等于ASCII码65

（2）P =升序（“A”）

'输出65

2莱恩（X）:计算字符的字符串X

[格式的长度]:

P =莱恩（X）

[说明]:

空字符串长度为0，空格字符可以被认为是一个字符，文本，虽然占用2个字节，但也算一个字符。

[例]:

（1）令X =“”（空字符串）

莱恩（X）输出为0

（2）令X =“ABCD”

莱恩（X）的输出为4

（3）令X =“VB教程”

莱恩（X）的输出为4

3端（X）的函数:X为中心向读取字符的字符串

[格式]中部:由X的第n个字符

P = MID（X，N）

阅读，阅读所有的字符后面。由X的前n个字符

P = MID（X，N，M）

读，读取M字后面。

[例]:

（1）X =“ABCDEFG”

P = MID（X，5）

结果是:P =“EFG”

（2）X =“ABCDEFG”

P = MID（X，2,4）

结果P =“BCDE”

4更换:由其他字符串替换的字符串某些字符串

[格式]:

P =替换（X，S，R）

[说明]:X字符串替换字符串，字符串中的SR，然后返回。

[例]:

X =“VB非常好”

P =替换（X，不错，不错）

输出为:P =“VB是非常好的”

5 StrReverse:反转字符串

[格式]:

P = StrReverse（X）

[说明]:

返回反转后的字符串的字符X参数

[例]:

（1）X =“ABC”

P = StrReverse（X）

输出:P =“CBA”

6 UCASE（X）， LCASE（X）:转换英文字母案例 - [格式]:

P = LCASE（X）

'的X线大写字母转换成小写字母

P = UCASE（X）

“的X字符串小写字母为大写

[说明]:除了字母，其他字符或不受影响。

[例]:

（1）令X =“VB和VC”

的LCASE（X）的结果为“VB和VC”，UCASE（X）的结果是“VB与VC“

7 InStr函数:查找字符串

[格式]:

P = INSTR（X，Y）

从XY的第一个字符出现找出 BR> P = INSTR（N，X，Y）从出现到找出

[说明]的位置开始

X前n个字符:

（1）若X，找到Y，则返回值是Y中的第一个字符的位置出现在十

（2）INSTR（X，Y）是等效INSTR（1，x，y）。

（3）如果该字符串的长度，或X为一个空字符串，或不能在X中，Y，则返回0。

（4）若Y为空字符串，0是返回。

Private Sub Command1_Click()

ClipboardClear

ClipboardSetData Picture1

Picture1 = Picture2

Picture2Picture = ClipboardGetData

End Sub

或

Private Sub Command1_Click()

Text1Text = Text1Text & Text2Text

Text2Text = Mid(Text1Text, 1, Len(Text1Text) - Len(Text2Text))

Text1Text = Mid(Text1Text, Len(Text1Text) - Len(Text2Text), Len(Text1Text))

End Sub

扩展资料：

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量：在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源:百度百科-Visual Basic

以上就是关于VB中组合框列表如何交换全部的内容，包括:VB中组合框列表如何交换、在VB中,怎样才能使两个标签交换、vb 中怎么让字符串中的两个数交换位置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！