网友您好, 请在下方输入框内输入要搜索的题目:
题目内容
(请给出正确答案)
(12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%, j%, k%, t % ‘ t 为统计素数的个数
D im b As Boolean
For i = 100 To 200
b = True
k = 2
j = Int(Sqr(i))
Do While k <= j And b
If I Mod k = 0 Then
b = 【 12 】
End If
k = 【 13 】
Loop
If b = True Then
t = t + 1
Debug.Print i
End If
Next i
Debug.Print " t= " ; t
End Sub
参考答案
更多 “ (12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k = j And bIf I Mod k = 0 Thenb = 【 12 】End Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub ” 相关考题
考题
下列程序的功能是:输出10到100之间的所有回文素数。所谓回文素数是指,如果一个数是素数,则该数反序后形成的数也是素数。例如,13是素数,13反序形成得到数为31,31也是素数,则称13为回文素数。Private Sub Command1 2_Click( )Dim k As Integer,m As Integer,n AsIntegerFor k=10 T0 100If prim(k)Thenm=__________n=0Do While m0N=n*10+Im Mod l0M=m/10LoopIf prim(n)ThenMsgBox k“,”nEnd IfEnd IfNext kEnd SubPublic Function prim(n As Integer)As BooleanDim j As IntegerFor j=2 To n/2If n Mod J=0 Thenprim=__________Exit FunctionEnd IfNext jprim=TrueExit FunctionEnd Function横线处应填写的内容是( )。A.k FakeB.k TrueC.m FalseD.n True
考题
1、统计素数并求和: 本题要求统计给定整数A和B区间内素数的个数并对它们求和。 输入格式: 输入在一行中给出两个正整数A和B(1<=A<=B=500) 输出格式: 在一行中顺序输出A和B区间内的素数的个数以及他们的和,数字间以空格隔开
考题
使用函数计算素数个数并求和:输入两个正整数m和n(1<=m, n<=5000),统计并输出m和n之间的素数的个数以及这些素数的和。素数就是只能被1和自身整除的正整数,1不是素数,2是素数。要求定义并调用函数prime(m)判断m是否为素数,当m为素数是返回1,否则返回0.
考题
1. 100以内素数之和 描述 求100以内所有素数之和并输出。 素数指从大于1,且仅能被1和自己整除的整数。 提示:可以逐一判断100以内每个数是否为素数,然后求和。
热门标签
最新试卷