00问答网
所有问题
当前搜索:
vb从小到大排序
怎样使用
VB
解题 1,输入三个数
从小到大
输出
答:
dim a, b, c, max if a>b then max = a else max = b end if if c>max then max=c end if
vb
程序问题
答:
For j = 1 To n '把奇数按
从小到大排序
For k = j + 1 To n + 1 If b(j) > b(k) Then t = b(j): b(j) = b(k): b(k) = t Next Picture2.Print b(j); '把奇数每行10个数输出 If j Mod 10 = 0 Then Picture2.Print Next ReDim b(0) '把上次数组的值取消...
VB
6.0里面用数组的选择
排序
法按
从小到大
排列随机生成的10个数字。求教...
答:
这里内循环,错了!For J = i + 1 To 10
...确定在输入下一个,完成十个后自动
从小到大排序
,弹
答:
如果你才开始学习
VB
编程,这个题目正好练手。实现很容易。
VB
生成随机数字
答:
For i = 1 To max '赋值到数组sum Sum(i) = i Next For j = max To 2 Step -1 '打乱sum数组里的数字
排序
rand = Int(Rnd * (j - 1)) + 1 t = Sum(j): Sum(j) = Sum(rand): Sum(rand) = t Next min = Sum(1)For i = 1 To count - 1 '以该例子为例,取前七...
vb
随机数问题
答:
'偶数由小
到大
For b = 1 To 80 For c = b To 80 If a(c) > a(b - 1) Then d = a(b - 1)a(b - 1) = a(c)a(c) = d End If Next Next Print "偶数由小到大"For b = 1 To 80 If a(b) Mod 2 = 0 Then Print a(b);f = f + 1 If f Mod 10 = 0 ...
VB
6.0 DataGrid1 如何制作
排序
效果?VB高手帮忙!!
答:
DataGrid1太烂了,改用功能强大的 itGrid 吧,你想要的功能全部都有!百度一下就找到。=== 那就不好弄了,只能在Select 查询时排好再显示了。
简单的
VB
编程
答:
d = MsgBox("第一大为" + b + "第二大为" + c + "第三大为" + a, 0, "exe")ElseIf c = a > b Then d = MsgBox("第一大为" + c + "第二大为" + a + "第三大为" + b, 0, "exe")Else d = MsgBox("无法
排序
!", 16, "exe")End If End Sub Private Sub ...
vb排序
问题
答:
For i = Min To UBound(Vimt) - 1 For j = i + 1 To UBound(Vimt)ReDim SerAim(i)If Vimt(i) > Vimt(j) Then '这个语句是以小
到大排序
,数组的第一个就是最小数 If Vimt(i) < Vimt(j) Then '这个语句是以大到小排序,数组的第一个就是最大数 '注意上面的二个...
VB排序
问题
答:
你的程序是要把A数组的值按
从小到大顺序排列
,除最后应该还有一条End Sub外,程序中还出现三处错误:1、中间的If语句没有End If语句作为结束,应该在Next j语句前加一条End If 2、语句For temp=i-1 to j 这条语句你要倒着把数据向后移动一位,循环变量是从大到小变化的,所以在语句后加上...
棣栭〉
<涓婁竴椤
9
10
11
12
14
15
16
17
18
涓嬩竴椤
灏鹃〉
13
其他人还搜