VB编程数据文件里的前10000个数从小到大排列,前5000个数中能被3整除的数的个数
题目
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 小刚在铁路边沿铁路方向的公路上散步,他散步的速度是每秒2米,这时迎面开来一列火车
- 请写出下列单词的过去式
- 二价铁与碱反应是否生成Fe(OH)2,怎样才会生成FeOH,Fe(OH)2与FeOH是什么颜色,
- 读读下面句子,体会带点词对表现人物形象好处
- 泰坦尼克号的简介!一定要超级简单!20个词左右!英语翻译!在线等!
- 低声细语,瓮声瓮气,引吭高歌是用来描述声音的哪些特征
- 逐个结点插入构成平衡二叉树,插入结点的数据顺序为:12,4,1,7,8,10,9,2,11,6,5
- 角的度量" 度" "分"" 秒"换算:175°16分30秒?47°30秒÷6+4°12分50秒×3=
- 四月英语怎么读
- 梁的某一段内作用有均匀分布力时,则该段内的内力图为( ).(A) Q水平
热门考点