输出100以内的所有孪生素数.
人气:354 ℃ 时间:2020-05-24 18:52:58
解答
Private Sub Command1_Click()
Dim a()
For i = 100 To 1 Step -1
For j = i - 1 To 1 Step -1
If i Mod j = 0 Then n = n + 1
Next
If n = 1 Then
m = m + 1
ReDim Preserve a(m)
a(m) = i
If a(m - 1) - a(m) = 2 Then Print a(m) & Space(1) & a(m - 1) & vbCrLf
End If
n = 0
Next
End Sub
推荐
猜你喜欢
- 一般将来时态
- ∫(x∧-2)(ln²x)dx等于多少,求步骤
- 1氧气,2水,3碳酸钙,4双氧水,5铁,6氯化钠中 属于单质(),化合物(),氧化物() 【序号】
- These are our basketballs 改特殊疑问 对our提问
- 初中地理问题,望解答.!
- 根据上下文将文章补充完整 This is our classroom. This is M_________Zhang. She is our English teacher
- 时新服装厂生产一批西服,原计划每天生产150套,24天可以完成任务.实际每天生产180套,实际生产了多少天?(用
- 有人这样说:(It is strange that he (should) have made a mistake.他居然犯了一个错误,真令人奇怪.