假定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
VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
其他人气:666 ℃时间:2019-09-03 00:37:38
优质解答
我来回答
类似推荐
猜你喜欢
- 1一列快车从甲战到乙站要5小时,一列慢车从乙站到甲站要8小时.快车先行2小时后,慢车才出发,两车相遇时,离两站中点84km.求甲、乙两站间的路程.急
- 2过圆:x2+y2=r2外一点P(x0,y0)引此圆的两条切线,切点为A、B,则直线AB的方程为_.
- 3外圆直径是内圆直径的1.5倍,圆环面积是150平方分米,求外圆面积.
- 4大肠能吸收的营养成分是 A无机盐,部分维生素和水 B葡萄糖和水 C蛋白质,淀粉,脂肪 C水,无机盐和酒精
- 5若x分之一减y分之一等于3,求x减4xy减y分之5x加2xy减5y
- 6若|3x+y+5|+|2x-2y-2|=0,则2x²-3xy的值是______
- 73x的平方(2x+1)=4x+2 的解方程
- 8某灯工作时电流为0.5A,电阻100欧,灯的功率是多少
- 9某班共有56人,他们在一次考试中数学成绩符合学校要求的及格率不低于百分之87,问及格的同学至少有多少人?
- 10我国首次完成太空行走任务的是“神州”几号?