题目
VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中
(质数是除了1和本身之外没有其他约数的数,第一个质数是2)
(质数是除了1和本身之外没有其他约数的数,第一个质数是2)
提问时间:2020-10-26
答案
Private Sub Command1_Click()
Dim a()
Dim i As Integer, k As Long
n = Val(InputBox("请输入一个正整数!"))
ReDim a(1 To n)
Do
k = k + 1
If ss(k) Then
i = i + 1
a(i) = k
End If
Loop Until i >= n
For i = 1 To n
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
Function ss(n) As Boolean
If n >= 2 Then ss = True
For i = 2 To n - 1
If n Mod i = 0 Then
ss = False
Exit For
End If
Next i
End Function
Dim a()
Dim i As Integer, k As Long
n = Val(InputBox("请输入一个正整数!"))
ReDim a(1 To n)
Do
k = k + 1
If ss(k) Then
i = i + 1
a(i) = k
End If
Loop Until i >= n
For i = 1 To n
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
Function ss(n) As Boolean
If n >= 2 Then ss = True
For i = 2 To n - 1
If n Mod i = 0 Then
ss = False
Exit For
End If
Next i
End Function
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1小明.小红.小华三人得到的压岁钱共2600元,其中小明是小红的1/3,小红和小华的钱比是6比5,小红和小华共多少
- 2英语翻译
- 3求 30分之1+42分之1+56分之1+72分之1+90分之1+110分之1
- 4如果4g氨中含有x个氨分子,那么8g硫化氢中含有的电子数是_.
- 5已知数列an是等差数列,bn是等比数列
- 6以自信为话题的作文,800字左右!
- 7求高等数学上的一道题,下面的数列和是怎么求出来的?
- 8老师要给学校买24副羽毛球拍.同样的球拍在甲乙两个商场都在促销.帮王老师拿个注意在哪家商场买合算.(提示:24里面有4个6,可以先算出6副球拍的价格)甲商场:每副球拍原价56元,现价45元.乙商场:每
- 9(填质数)8=()+()
- 10白洋潮中坐半日,颜始定在文中起什么作用