题目
用VB语言求1000内的质数之和
提问时间：2021-01-07
答案
Private Sub Form_Click()
For i = 2 To 1000
s1 = 0
For i1 = 1 To i
If i Mod i1 = 0 Then s1 = s1 + 1
Next
If s1 = 2 Then s = s + i
Next
Print s
End Sub
For i = 2 To 1000
s1 = 0
For i1 = 1 To i
If i Mod i1 = 0 Then s1 = s1 + 1
Next
If s1 = 2 Then s = s + i
Next
Print s
End Sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1曹刿论战 邹忌讽齐王纳谏 比较阅读
- 2若 {x=1 和 { x=-2 都表示某二元一次方程的解,则这个二元一次方程是（ ） y=2 y=-4
- 3辨析题：公有制与市场经济不能结合
- 4已知碳12原子的质量为m,而一个铁原子的质量为n,则铁的相对原子质量为
- 5holding your hands,gettiing old together和Hold your hand,till death do we part
- 6I have a rubber in my pencil-box.(同义句)
- 7多走一步的作文素材、急
- 8明朝的诗词有哪些?最出名的那一首?急用,
- 9一般酒精灯火焰的温度为多少度?
- 10NH4Cl的溶液结晶