编程输出1—1000中所有个位数是7的素数,统计其个数,并求满足该条件数的和,输出结果
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/19 14:27:38
编程输出1—1000中所有个位数是7的素数,统计其个数,并求满足该条件数的和,输出结果
Private Sub Command1_Click()
Dim i,j,a,b,s
For i = 7 To 997
a = False
For j = 1 To i - 1
If i Mod j = 0 And j > 1 Then
a = True
Exit For
End If
Next j
If a = False And Right(CStr(i),1) = "7" Then
s = s + i
b = b + 1
Print i,
If b Mod 6 = 0 Then Print
End If
Next i
Print
Print "1000以内个位数是7的素数共有" & b & "个"
Print "1000以内个位数是7的素数之和=" & s
End Sub
7 17 37 47 67 97
107 127 137 157 167 197
227 257 277 307 317 337
347 367 397 457 467 487
547 557 577 587 607 617
647 677 727 757 787 797
827 857 877 887 907 937
947 967 977 997
1000以内个位数是7的素数共有46个
1000以内个位数是7的素数之和=22472
Dim i,j,a,b,s
For i = 7 To 997
a = False
For j = 1 To i - 1
If i Mod j = 0 And j > 1 Then
a = True
Exit For
End If
Next j
If a = False And Right(CStr(i),1) = "7" Then
s = s + i
b = b + 1
Print i,
If b Mod 6 = 0 Then Print
End If
Next i
Print "1000以内个位数是7的素数共有" & b & "个"
Print "1000以内个位数是7的素数之和=" & s
End Sub
7 17 37 47 67 97
107 127 137 157 167 197
227 257 277 307 317 337
347 367 397 457 467 487
547 557 577 587 607 617
647 677 727 757 787 797
827 857 877 887 907 937
947 967 977 997
1000以内个位数是7的素数共有46个
1000以内个位数是7的素数之和=22472
编程输出1—1000中所有个位数是7的素数,统计其个数,并求满足该条件数的和,输出结果
输出7~1000中个位数为7的素数,统计其个数并求出它们的和
大学VB编程题:输出两位正整数中个位数是3的素数,并求这些素数的个数.
输出7到1000中个数位为7的所有素数,统计其个数并求出它们的和 C语言.
用C编程 求输出1000到2000内的素数,每行输出5个数;并计算所有素数之和
统计并输出3-100之间所有素数的个数
找出1000以内所有的个位数为3素数,并统计其个数.
大学VB编程题:将两位正整数中所有的素数以每行4个进行输出,统计并输出素数之和.
c语言:编程统计数组a中的正数,0,负数的个数,并输出统计结果?
自定义函数,求100~500之间能够满足各位数字之和等于5的数,并将其输出,计算一共有多少个数满足该条件,
输出由123456这六个数组成的所有可能两位数 并统计个数 VF编程
编程:输出100至1000之间能同时被5和7整除的数,每行输出10个数,统计十个数,并求出这些数之和