求vb代码:2-100内所有素数和的编程

Answer 1

Dim n As Integer, sum As Integer, j As Integer
        TextBox1.Text = ""
        TextBox1.Text = TextBox1.Text & "所求的素数为：" & vbCrLf
        For i = 2 To 100

            For j = 2 To i - 1

                If i Mod j = 0 Then Exit For

            Next j

            If j > i - 1 Then
                n = n + 1
                sum = sum + i
                TextBox1.Text = TextBox1.Text & i & " "
                If n Mod 10 = 0 Then TextBox1.Text = TextBox1.Text & vbCrLf
            End If

        Next i

        TextBox1.Text = TextBox1.Text & vbCrLf
        TextBox1.Text = TextBox1.Text & "共有" & n & "个素数，它们的和为" & sum & vbCrLf

追问

怎么这么长

追答

加入了输出了，没有输出就很短了；

追问

又简短的吗，急需要，谢谢

追答

 Dim sum As Integer, j As Integer
        For i = 2 To 100
            For j = 2 To i - 1
                If i Mod j = 0 Then Exit For
            Next j
            If j > i - 1 Then
                sum = sum + i
            End If
        Next i
        TextBox1.Text = "素数的和为" & sum

追问

谢谢你，

Answer 2

病情分析：
造成胃痛的原因很多，最常见的就是肠胃炎及消化性溃疡
指导意见：
引起胃痛的原因多种多样，有些人胃痛，痛时就吃些止痛药，其实这是相当危险的，应该尽快找出病因去解决，否则，日后仍会发作，反复发作就可能会变成慢性萎缩性胃炎，引发严重后果，所以还是奉劝大家，胃痛时尽早去看医生，科学正规治疗。

病情分析：
那主要是和你的饮食习惯有很大的关系。
指导意见：
首先是忌食生冷的食物，尽量的少吃辛辣刺激性的食物。还有是饮食要规律，你这早餐要特别的注意，早餐 一定要吃。不要暴饮暴食，也不要饥一顿饱一顿的。刚吃晚饭最好是不要做剧烈的运动。

病情分析：
胃痛又称胃脘痛，是以胃脘近心窝处常发生疼痛为主的疾患。历代文献中所称的“心痛”、“心下痛”，多指胃痛而言.
指导意见：
导致胃痛的原因有很多，包括工作过度紧张、食无定时、吃饱后马上工作或做运动、饮酒过多、吃辣过度、经常进食难消化的食物等。胃痛可能有若干因素，但大多数是由胃酸反流引起的。

Answer 3

等下回答你，很简单的。

追问

谢谢你，要求通过哦，vb小测试

追答

dim sum as integer,TEM_i as integer,TEM_tem as integer
for TEM_i = 2 to 100 step 1 '遍历2到100
for TEM_tem = 2 to TEM_i/2 step 1

doevents '交出CPU控制权（这句话可以不写。不过写了是个好习惯）

if TEM_i mod TEM_tem =0 then

sum = sum +TEM_i

end if

next TEM_tem

next TEM_i

抗议啊！我的代码才九行，他的十行啊，为什么采纳他的啊~（我发发牢骚，不要介意哈~）