vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 16:48:53
vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序
Randomize初始化随机数发生器
Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了
然后挑选出来 Mod 3 = 0的数据排序就是了
再问: 就是mod 3=0后不会排序啊
再答: 假定已经挑选出来到数组中了,然后直接使用最简单的冒泡法排序就是了 仅仅做一个示例阿,细节自己再debug看看吧 For i = 0 To UBound(DataArray) For j = 0 To i If DataArray(j) > DataArray(j + 1) Then tmp = DataArray(j) DataArray(j) = DataArray(j + 1) DataArray(j + 1) = tmp End If Next Next
再问: 这个错哪了啊
再答: 1、这个算法不正确,前面说过了,首先要把Mod 3的数据挑选出来形成新的数组后再排序,你没做 2、a(i)的数据类型是什么?需要整数Integer才可以做Mod的阿
再问: 我的vb很烂,能具体写出来吗
再答: 假定你的随机数组已经出来了,是A(),接下来我们挑选mod3的到B() jsq = 0 For i = 0 To UBound(A) IF A(i) Mod 3 = 0 Then B(jsq) = A(i) jsq = jsq + 1 End IF Next 这样子就完事了,剩下的就可以Bubble sort来完成排序了。 当然,可以优化一下的,将上述过程的挑选与排序合一,使用Insert sort算法来完成也可以,更简洁些。
Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了
然后挑选出来 Mod 3 = 0的数据排序就是了
再问: 就是mod 3=0后不会排序啊
再答: 假定已经挑选出来到数组中了,然后直接使用最简单的冒泡法排序就是了 仅仅做一个示例阿,细节自己再debug看看吧 For i = 0 To UBound(DataArray) For j = 0 To i If DataArray(j) > DataArray(j + 1) Then tmp = DataArray(j) DataArray(j) = DataArray(j + 1) DataArray(j + 1) = tmp End If Next Next
再问: 这个错哪了啊
再答: 1、这个算法不正确,前面说过了,首先要把Mod 3的数据挑选出来形成新的数组后再排序,你没做 2、a(i)的数据类型是什么?需要整数Integer才可以做Mod的阿
再问: 我的vb很烂,能具体写出来吗
再答: 假定你的随机数组已经出来了,是A(),接下来我们挑选mod3的到B() jsq = 0 For i = 0 To UBound(A) IF A(i) Mod 3 = 0 Then B(jsq) = A(i) jsq = jsq + 1 End IF Next 这样子就完事了,剩下的就可以Bubble sort来完成排序了。 当然,可以优化一下的,将上述过程的挑选与排序合一,使用Insert sort算法来完成也可以,更简洁些。
vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序
vb 生成15个随机数,被7整除的降序排序在combobox中,
使用选择排序法对随机输入的10个整数按从小到大进行排序
VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数
利用随机函数生成并输出8个1—10之间的随机整数,然后对这一组数从小到大进行排序,
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
生成10个0~100之间的随机整数,按从小到大的顺序输出这些数
VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现
使用随机函数产生50个10—99的随机整数放入数组a中,再按从小到大的顺序排序,并以每行10个数据输出.
VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.
vb中如何生成20个互不相同的两位随机整数?