网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，

请填空。 Private Sub Form_Click() Dim i As Integer For i=3 To 97 Step 2 If【】Then Print i，i+2 End If Next i End Sub Public Function prime(ByVal n As Integer)As Boolean Dim i As Integer For i=2 To n-1 If【】Then Exit For End If Next i If i=n Then prime=True Else prime=False End If

答案

查看答案

发布时间：2020-09-06

更多“下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，”相关的问题

第1题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

点击查看答案

第2题

下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option

Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer 【】 For i=100 To 999 x=i x1=【】个位数字 x2=x\10 Mod 10 x3=x\100 If【】Then Print i End If Next i End Sub

点击查看答案

第3题

求出1～100之中所有的偶数之和。

点击查看答案

第4题

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_Click()Dim i

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_Click（)Dim i

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数

Private Sub Form_Click()

Dim i%, j%, k%, t% 't为统计素数的个数

Dim b As Boolean

For i = 100 To 200

b = True

k= ------ 1 -----

j = Int(Sqr(i))

Do While k ＜= j And b

If i Mod k = 0 Then

------ 2 ------

End If

------ 3 ------

Loop

if b=true then

t = t + 1

Form1.Print i

End If

Next i

Print "t="; t

End Sub

点击查看答案

第5题

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函

数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

点击查看答案

第6题

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空

。 Private Sub Command1_Click() For i=1 To 20 x=Int(【】*100+200) If【】=0 Then Print x S=S+【】 End lf Next i Print"Sum="；S End Sub

点击查看答案

第7题

下列程序可完成求1至100之间的整数的和的功能。请在划线处编写适当语句，使此程序能正确执行。

public class Sum { public static void main(string args[]) { int sum=0； or(int i＝1；i＜＝100；i++) 【】； System.out.println("sum＝"+sum)； } }

点击查看答案

第8题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的

数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

点击查看答案

第9题

下面程序的功能是求1～100之间所有整数的平方和并输出结果，请填空。 SETTALKOFF CLEAR S=0 X=1

DOWHILEX＜=100 【】【】 ENDDO ？S RETURN

点击查看答案

第10题

下列方程是否有整数解？若有整数解，试求出所有的整数解。（1)x²-x+1=0；（2)x³+x²-4x-4=0；（3)x⁴+5x³-2x²+7x+2=0；（4)2x⁴+5x³+9x=0。

点击查看答案