UC知道求人做一份冒泡算法流程图！！递交后追加200分！！
来源：百度知道 编辑：UC知道 时间：2024/06/24 05:58:30
本人是一名高一年级的学生 现在老师让我们做一份考试作业 要求如下：
以一百个单词为例，编排一份单词表，该表类似于英文词典，以字母为序编排，现假设词组以存放在艺术组中，要求设计一个算法完成该任务。
请大家帮忙画一份这样的流程图TAT 因为马上就要交请大家发发慈悲帮小女子这个忙……否则明天我们这一组会尽死的啊……
恩不知道要不要提供100个单词呢还是用什么来代替？我是连题目都看不懂得计算机小白……
反正这里先附上一百个单词吧……？啊哈哈……
abjure
abrogate
abstemious
acumen
antebellum
auspicious
belie
bellicose
bowdlerize
chicanery
chromosome
churlish
circumlocution
circumnavigate
deciduous
deleterious
diffident
enervate
enfranchise
epiphany
equinox
euro
evanescent
expurgate
facetious
fatuous
feckless
fiduciary
filibuster
gamete
gauche
gerrymander
hegemony
hemoglobin
homogeneous
hubris
hypotenuse
impeach
incognito
incontrovertible
inculcate
infrastructure
interpolate
irony
jejune
kinetic
kowtow
laissez faire
lexico
以一百个单词为例，编排一份单词表，该表类似于英文词典，以字母为序编排，现假设词组以存放在艺术组中，要求设计一个算法完成该任务。
请大家帮忙画一份这样的流程图TAT 因为马上就要交请大家发发慈悲帮小女子这个忙……否则明天我们这一组会尽死的啊……
恩不知道要不要提供100个单词呢还是用什么来代替？我是连题目都看不懂得计算机小白……
反正这里先附上一百个单词吧……？啊哈哈……
abjure
abrogate
abstemious
acumen
antebellum
auspicious
belie
bellicose
bowdlerize
chicanery
chromosome
churlish
circumlocution
circumnavigate
deciduous
deleterious
diffident
enervate
enfranchise
epiphany
equinox
euro
evanescent
expurgate
facetious
fatuous
feckless
fiduciary
filibuster
gamete
gauche
gerrymander
hegemony
hemoglobin
homogeneous
hubris
hypotenuse
impeach
incognito
incontrovertible
inculcate
infrastructure
interpolate
irony
jejune
kinetic
kowtow
laissez faire
lexico
冒泡排序法流程图如下。程序代码很简单，要的话说一声
Dim a(0 To 99) As String
Private Sub Command1_Click()
Dim i As Integer, j As Integer, str1 As String
For i = 0 To 98
For j = i + 1 To 99
If a(j) > a(i) Then '字符串比较,逆序。反之用<
str1 = a(i): a(i) = a(j): a(j) = str1 '后面的大就交换
End If
Next j
Next i
For i = 0 To 99
Debug.Print a(i),
Next i
End Sub
Private Sub Form_Load()