85问答库 > VB编程：随机产生100个100至200之间的整数，判断其是否为素数，并按每行5个且求所有数字之和。

VB编程：随机产生100个100至200之间的整数，判断其是否为素数，并按每行5个且求所有数字之和。

2025-03-09 22:11:51

推荐回答（2个）

回答1：

病情分析：
你好，这种情况容易引起妇科病。
指导意见：
建议你口服消炎药，注意休息，有不适及时就诊。

病情分析：
你好,产后要禁止同房和盆浴至少一个月的.
指导意见：
主要是这个时候子宫还没有恢复正常，如果同房容易感染妇科疾病

病情分析：
你好，人流后至少是一个月内不能同房的
指导意见：
你这样得月子病的可能是不大，但不排除出现感染等原因，增加出现妇科疾病的概率，需要谨慎

病情分析：
你好，一般来说流产后一个月内性生活，很容易感染炎症。一般也不会留下月子病的，请不要担心。
指导意见：
建议人流后，多吃鱼类、肉类、豆类制品蛋白质丰富的食品和富含维生素的新鲜蔬菜水果，不要吃生冷辛辣等刺激性食物，以加快身体的恢复。

回答2：

Public Function IsSushu(ByVal pa As Integer) As Boolean
        Dim pb As Integer = pa - 1
        Dim res As Boolean = True
        For i = 2 To pb
            If pa Mod i = 0 Then
                res = False
                Exit For
            End If
        Next i
        Return res
    End Function

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       Dim a(100) As Integer
        Dim sum As Integer = 0
        Dim str As String = "生成的数组为:" & vbCrLf
        For i = 1 To 100
            a(i) = Int(Rnd() * 100 + 100)
            str = str & a(i) & " "
            If i Mod 5 = 0 Then
                str = str & vbCrLf
            End If
        Next
        str = str & vbCrLf & "这100个整数中，素数有" & vbCrLf
        For i = 1 To 100
            If IsSushu(a(i)) Then
                str = str & a(i) & " "
                sum = sum + a(i)
            End If
        Next
        str = str & vbCrLf & "以上整数中所有素数的和是" & sum
        TextBox6.Text = str
    End Sub

运行结果：

生成的数组为:
170 153 157 128 130
177 101 176 181 170
104 141 186 179 137
196 187 105 194 136
152 176 105 159 146
129 162 164 126 127
182 182 158 198 191
122 169 198 124 153
110 199 167 101 157
110 110 179 128 104
129 138 130 194 197
140 127 116 116 164
141 141 171 132 163
120 118 158 108 145
190 126 178 137 128
191 163 162 142 109
156 169 191 183 102
154 191 143 167 150
151 146 135 140 126
105 124 197 106 139

这100个整数中，素数有
157 101 181 179 137 127 191 199 167 101 157 179 197 127 163 137 191 163 109 191 191 167 151 197 139
以上整数中所有素数的和是3999

最新问答

刚买不到一个月的天梭机械表（T41.1.423.33）快的太离谱了

从西安北郊八府庄骑摩托到泾阳县全程低速怎么走求大神指点

各个品牌平板电视，各个尺寸背后的孔距分别是多少？

看图猜成语,一个鸡头,一只飞机,一片炸弹,一把捶子,猜一个成语.

本人想开一家家纺店，请问大家家纺店在各个季节卖什么产品啊？