题干

只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数,程序运行界面如下图所示。

请根据算法将下列程序补充完整。

Function prime(a As Integer) As Boolean

    Dim j As Integer

    prime = True

    j = 2

    Do While prime And j <= a \ 2

       If a Mod j = 0 Then

           prime = False

         Exit Do

       End If

             ____

         Loop

End Function

Private Sub Command1_Click( )

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

        For i = a To b

           If ____ = True Then

               List1.AddItem Str(i)

               count = count + 1

           End If

Next i

Label1.Caption = "素数共有" + Str(count) + "个!"

End Sub

上一题 下一题 0.0难度 选择题 更新时间:2019-07-16 04:20:42

答案(点此获取答案解析)

j = j + 1,prime(i)

同类题3

20世纪80年代以来,考古工作者在广州等地陆续发现了南越王墓等重要历史遗迹。这些发现对研究岭南历史有重要的价值。

材料一:秦始皇兼并六国后,开凿灵渠,攻打百越,设置南海、桂林、象郡三郡。秦汉之际,中原战乱,秦南海郡龙川县令赵佗举兵兼并三郡,自称南越武王,定都番禺(今广州市),于通向内地的各关口屯兵,“绝道聚兵自守”。

刘邦称帝之后,民生凋敝,无力南征,遂封赵佗为南越王,“与剖符通使”,命其“和集百越,毋为南边患害”,开通关市。南越国乘机发展,广泛使用铁器工具,海内外贸易也相当活跃。吕后执政,汉朝“禁南越国关市铁器”,赵佗遂自称南越武帝,举兵北犯,战争持续了一年多。吕后去世后,双方罢兵休战。赵佗又以财物收买附属于汉朝的闽越等部族,势力所及,“东西万余里”,“以兵威边”。赵佗以皇帝自居,“与中国侔(对等)”。汉文帝实行休养生息政策,遣使对赵佗“自立为帝”的行为予以谴责。赵佗迫于压力,表示“去帝制”,继续“为藩臣,奉贡职”。但在内部,“窃如故号名”。

汉武帝决心彻底解决南越国问题,要求南越王赵兴入朝,“用汉法,比内诸侯”。南越国相吕嘉等杀汉朝使者及主张“内属”的南越王、王太后,“发兵守要害处”。公元前111年,汉军十万分数路越岭,平定南越并将其地分设为九郡,实行与内地统一的制度法令。

——据《史记》等