编写一个函数,能判断给定的数据是否为素数.调用该函数,计算区间[100,1000]之间的素数之和.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 12:37:04
![编写一个函数,能判断给定的数据是否为素数.调用该函数,计算区间[100,1000]之间的素数之和.](/uploads/image/z/3504055-31-5.jpg?t=%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%2C%E8%83%BD%E5%88%A4%E6%96%AD%E7%BB%99%E5%AE%9A%E7%9A%84%E6%95%B0%E6%8D%AE%E6%98%AF%E5%90%A6%E4%B8%BA%E7%B4%A0%E6%95%B0.%E8%B0%83%E7%94%A8%E8%AF%A5%E5%87%BD%E6%95%B0%2C%E8%AE%A1%E7%AE%97%E5%8C%BA%E9%97%B4%5B100%2C1000%5D%E4%B9%8B%E9%97%B4%E7%9A%84%E7%B4%A0%E6%95%B0%E4%B9%8B%E5%92%8C.)
编写一个函数,能判断给定的数据是否为素数.调用该函数,计算区间[100,1000]之间的素数之和.
编写一个函数,能判断给定的数据是否为素数.调用该函数,计算区间[100,1000]之间的素数之和.
编写一个函数,能判断给定的数据是否为素数.调用该函数,计算区间[100,1000]之间的素数之和.
Option Explicit Private Sub Command1_Click() Dim i As Long, j As Long Dim s As String For i = 1000 To 9999 s = Trim(Str(i)) If pd(s) Then Text1 = Text1 & s & "=" For j = 1 To Len(s) Text1 = Text1 & Mid(s, j, 1) & "^4" If j < Len(s) Then Text1 = Text1 & "+" Next j Text1 = Text1 & vbCrLf End If Next i End Sub Private Sub Command2_Click() Text1 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Function pd(ByVal x As String) As Boolean Dim i As Long Dim m As Long m = 0 For i = 1 To Len(x) m = m + Val(Mid(x, i, 1) ^ 4) Next i If m = Val(x) Then pd = True Else pd = False End If End Function