VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 07:43:06
VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
假定10000个数在全局变量的数组a里,
Sub sort()
For i = 1 To 9999
k = i
For j = i + 1 To 10000
If a(j) < a(k) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
调用sort过程就能对10000个数排序.
调用Mycount函数就能统计前5000个数中能被3整除的数的个数
Function mycount() As Integer
Dim x As Integer
x = 0
For i = 1 To 5000
If a(i) Mod 3 = 0 Then x = x + 1
Next
mycount = x
End Function
Sub sort()
For i = 1 To 9999
k = i
For j = i + 1 To 10000
If a(j) < a(k) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
调用sort过程就能对10000个数排序.
调用Mycount函数就能统计前5000个数中能被3整除的数的个数
Function mycount() As Integer
Dim x As Integer
x = 0
For i = 1 To 5000
If a(i) Mod 3 = 0 Then x = x + 1
Next
mycount = x
End Function
VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
VB编程求1到1000中能被3整除的数的个数
有5个数 它们平均数是12.5 如将这5个数按从小到大排列 前3个数的平均数是11.6
把5个数从小到大排列,其平均数是38,前3个数的平均数是27,后3个数的平均数是48,中间一个数是多少?
把5个数从小到大排列,其平均数是38,前3个数的平均数是27,后3个数的平均数是48,中间一个数是多少?
将自然数从小到大排列,试求:1、 前10个数的和 2、前100个数的和 3、前n个数的和
VC编程:求裴波契那数列前43项中能被7整除的数的个数怎么弄?
5个数的平均数是102,若把这5个数从小到大排列,那么前3数的平均数是70,后三个数的
5个数 平均数是19,从小到大排列起来,前3数和是21,末尾和是88,问5个数中间的 数是多少哦?
5个数的平均数是40如果把5个数从小到大排列,前3个数的平均数是35,后3个数的平均数是45,中间的数是?
1.5个数的平均数是102.如果把这5个数从小到大排列,那么前3个数的平均数是70,后3个数的和是390.中间的那个数是
vb编程:求1000以内所有能被7整除的数的个数