题目
VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
提问时间:2021-03-26
答案
假定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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1法兰 class…1-2什么意思
- 2商店同时卖出两台洗衣机,每台1200元,其中一台赚百分之二十,另一台赔了百分之二十.总的来看商店是赚了还
- 3MG2+和HCO3-共存吗?
- 4地下水热是不是地震的前兆
- 5第一个将组成物质的最小微粒命名为分子的科学家是( )
- 6一个数与它自己相加`相减`相除`相乘,其和`差`商相加的结果是21.4.这个数是几
- 7有的分式化简的结果是例如:13/(a+1)(a-1)
- 8焦点坐标为(-2,0)的抛物线的标准方程为( ) A.y2=4x B.y2=8x C.y2=-4x D.y2=-8x
- 9已知在平面直角坐标系中,a(0,3) b(5,2).点P在x轴上且三角形PAB=8,求P点坐标,
- 10书架上有两层书,上层册数的五分之二等于下层册数的三分之一,已知下层有书132册,上层有书多少册
热门考点
- 1the terrible noise kept me 什么 (wake) the whole
- 2if i english exam pass ,i will buy Laptop computer
- 3Tom and Mary come from China.错误在哪?
- 4One day,I will see you cry with a smile
- 5已知a的平方根是正负2,则根号a=
- 6已知二次函数y=3/4x2+bx+c,其图象对称轴为直线x=1,且经过点(2,-9/4),求此二次函数的解析式.
- 7x-3/0.2-x+4/0.1=5 文字表达:0.2 分之x-3-0.1分之x+4=5
- 8已知a为正整数,试判断a^2+a是奇数还是偶数
- 91又5分之2化成百分数
- 10“Nothing is ture,every thing is permitted” 万物皆须,万事皆允