高校问答映泰主板电池bios设置:关于VB的问题,救急 !!!!
来源：百度文库 编辑：高校问答 时间：2024/04/28 14:45:40
编一个程序:输入一系列字符串,按递减次序排列
程序运行界面有一个文本框,一个picture和一个按钮
程序运行界面有一个文本框,一个picture和一个按钮
怎样的字符串？
字符串里的字母按 递减排列？
说的太不清楚了啊
“程序运行界面有一个文本框,一个picture和一个按钮” 这是什么啊？
排序拿图片来做什么用？
'最简单的,用冒泡法实现排序.
'把下列代码放在一个标准模块中
'设置工程启动为 sub main
Option Explicit
Option Base 1
Sub main()
'定义5个字符串
Dim a(5) As String
a(1) = "aaa"
a(2) = "eee"
a(3) = "bbb"
a(4) = "ccc"
a(5) = "ddd"
'冒泡
Dim i, j As Long
For i = 1 To 5
For j = 1 To (5 - 1)
'改变判断符
'可以控制
'由大至小或
'由小至大
If a(j) < a(j + 1) Then
Dim z As String
z = a(j)
a(j) = a(j + 1)
a(j + 1) = z
End If
Next j
Next i
'输出
For i = 1 To 5
Debug.Print a(i)
Next i
End Sub