VB题目:输入正整数,将其中偶数放入一个数组,然后按从大到小输出,选用冒泡排序法!
答案:1 悬赏:40
解决时间 2021-02-07 20:12
- 提问者网友:猖狂醉薇
- 2021-02-06 23:08
VB题目:输入正整数,将其中偶数放入一个数组,然后按从大到小输出,选用冒泡排序法!
最佳答案
- 二级知识专家网友:24K纯糖
- 2021-02-06 23:20
作业吧,我昨天刚帮人写了一个这样的程序,说不定是你同学,呵呵。
程序如下:
Private Sub Command1_Click()
Dim s%(1 To 60), i%, j%
Randomize
Cls
Print "排序前"
For i = 1 To 60
s(i) = Int(101 * Rnd + 100)
Print s(i);
If i Mod 10 = 0 Then Print
If s(i) Mod 2 = 0 Then k = k + 1: s(k) = s(i)
Next i
Print "偶数有" & k & "个"
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i
Print
Print "排序后"
For i = k To 2 Step -1
For j = 1 To i - 1
If s(j) > s(j + 1) Then temp = s(j): s(j) = s(j + 1): s(j + 1) = temp
Next j
Next i
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
程序如下:
Private Sub Command1_Click()
Dim s%(1 To 60), i%, j%
Randomize
Cls
Print "排序前"
For i = 1 To 60
s(i) = Int(101 * Rnd + 100)
Print s(i);
If i Mod 10 = 0 Then Print
If s(i) Mod 2 = 0 Then k = k + 1: s(k) = s(i)
Next i
Print "偶数有" & k & "个"
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i
Print "排序后"
For i = k To 2 Step -1
For j = 1 To i - 1
If s(j) > s(j + 1) Then temp = s(j): s(j) = s(j + 1): s(j + 1) = temp
Next j
Next i
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯