vb 统计1000以内素数的个数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 20:19:57
vb 统计1000以内素数的个数
就是比较简单的那一种,只要统计个数就好了
可用for if等简单的语句
就是比较简单的那一种,只要统计个数就好了
可用for if等简单的语句
Option Explicit
Private Sub Form_Click()
Form1.AutoRedraw = True
Cls
Dim A As Integer,Su As Boolean,I As Integer,J As Integer
For I = 2 To 1000
Su = True
If I > 3 Then
For J = 2 To Sqr(I)
If I Mod J = 0 Then
Su = False
Exit For
End If
Next
End If
If Su Then
A = A + 1
End If
Next
Print "1——1000以内素数的个数为:"; A; "个"
End Sub
已经运行过
Private Sub Form_Click()
Form1.AutoRedraw = True
Cls
Dim A As Integer,Su As Boolean,I As Integer,J As Integer
For I = 2 To 1000
Su = True
If I > 3 Then
For J = 2 To Sqr(I)
If I Mod J = 0 Then
Su = False
Exit For
End If
Next
End If
If Su Then
A = A + 1
End If
Next
Print "1——1000以内素数的个数为:"; A; "个"
End Sub
已经运行过
vb 统计1000以内素数的个数
如何用VB统计10000以内素数的个数
找出1000以内所有的个位数为3素数,并统计其个数.
vb设计一个程序,统计1000以内能被7整除的正整数的个数.
VB编程:求1000以内素数之和
C语言 用筛选法求500以内的素数并统计个数
编写M函数统计200以内素数的个数 matlab 题 在线等急求
统计1到100素数的个数
统计1到 以内可以写为两个素数之和的偶数与奇数的个数用matlab怎么做
怎样用vb编程求1000以内回文数又是素数的自然数
VB 求1000以内素数的和 这个哪里错了 不能用for语句
用VB求1000以内的素数,水仙花,斐波那契数列.