VB;编写一个判断素数的通用函数,计算1350到2460内所有素数的和 下星期要交了
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/05 10:22:01
VB;编写一个判断素数的通用函数,计算1350到2460内所有素数的和 下星期要交了
Option Explicit
'请在窗体中加入一个按钮和一个文本框
'这是判断是否为素数的函数,n为需要判断的数
'返回值为逻辑型,True表示为素数,False表示不是素数
Function IsPrime(n As Long) As Boolean
Dim i As Long
For i = 2 To Sqr(n)
If n Mod i = 0 Then
Exit Function
End If
Next
IsPrime = True
End Function
'这是按钮事件过程,计算1350到2460之间所有素数之和,结果放在Text1中
Private Sub Command1_Click()
Dim j As Long, sum As Long
For j = 1350 To 2460
If IsPrime(j) Then
sum = sum + j
End If
Next
Text1.Text = sum
End Su
'请在窗体中加入一个按钮和一个文本框
'这是判断是否为素数的函数,n为需要判断的数
'返回值为逻辑型,True表示为素数,False表示不是素数
Function IsPrime(n As Long) As Boolean
Dim i As Long
For i = 2 To Sqr(n)
If n Mod i = 0 Then
Exit Function
End If
Next
IsPrime = True
End Function
'这是按钮事件过程,计算1350到2460之间所有素数之和,结果放在Text1中
Private Sub Command1_Click()
Dim j As Long, sum As Long
For j = 1350 To 2460
If IsPrime(j) Then
sum = sum + j
End If
Next
Text1.Text = sum
End Su
VB;编写一个判断素数的通用函数,计算1350到2460内所有素数的和 下星期要交了
编写一个程序,其功能是判断某个整数是否为素数,且程序中能够调用该函数,以实现求1000内的所有素数和.
编程计算1~n之间所有素数的和,其中n的值从键盘输入,且n>50,要求编写两个函数,一个函数判断某个数是否为素数,另一个
编写判断一个正整数是否是素数的函数
打印输出1000以内的素数和,要求编写一个函数来判断某一个整数是否为素数
用vb编写函数过程IsPrim(n),对于一个给定的正整数n,判断是否是素数
编写一个函数判断一个数是否是素数,并在主函数中调用该函数求出所有三位数的素数
编写判断是否素数的函数函数prime,主函数中从键盘输入10个整数,调用该函数求所有素数的和
编写判断素数的函数,然后在主函数中调用该函数求100以内的所有素数
用C程序编写一个判断素数的函数,在主函数中调用该函数,求1000内所有素数,结果以每行5个数的格式输出
设计一程序,求出5到100之间的所有素数,要求每行输出五个素数.判断一个整数是否是为素数用一个函数来实
编写一个程序,将101至201之间的所有素数都打印输出.其中将判断一个整数是否为素数写成函数.