作业帮 > 综合 > 作业

vb 统计1000以内素数的个数

来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/04/29 04:46:12
vb 统计1000以内素数的个数
就是比较简单的那一种,只要统计个数就好了
可用for if等简单的语句
vb 统计1000以内素数的个数
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
已经运行过
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以内的素数,水仙花,斐波那契数列.