VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
人气:159 ℃ 时间:2019-09-03 00:37:38
解答
假定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】求在1~5000范围内所有偶数中满足被11整除余5,并且被17整除余3 的数之平方和
- vb.写出1000以内能被357整除的数.并用write语句从小到大排列,并存入文件中.
- 10000以内能被3整除,但不能被5整除的数有几个?
- 在1,2,3…,10000这10000个整数中,能被2整除或能被3整除的数的个数是6667个,
- 在小于等于10000的正整数中,能被2整除或能被3整除但不能被5整除的数共有几个
- 小明请几次数学测验的分军成绩是84分,这一次要考100分才能把平均成绩提高到86分,这一次是第几次测试
- 我有两管引物,引物单上写着od260为2,是不是每管的引物的od为1
- 形容文章特别优秀的成语
猜你喜欢
- 一列快车从甲战到乙站要5小时,一列慢车从乙站到甲站要8小时.快车先行2小时后,慢车才出发,两车相遇时,离两站中点84km.求甲、乙两站间的路程.急
- 过圆:x2+y2=r2外一点P(x0,y0)引此圆的两条切线,切点为A、B,则直线AB的方程为_.
- 外圆直径是内圆直径的1.5倍,圆环面积是150平方分米,求外圆面积.
- 大肠能吸收的营养成分是 A无机盐,部分维生素和水 B葡萄糖和水 C蛋白质,淀粉,脂肪 C水,无机盐和酒精
- 若x分之一减y分之一等于3,求x减4xy减y分之5x加2xy减5y
- 若|3x+y+5|+|2x-2y-2|=0,则2x²-3xy的值是______
- 3x的平方(2x+1)=4x+2 的解方程
- 某灯工作时电流为0.5A,电阻100欧,灯的功率是多少