大学vb求大神
2个回答
展开全部
望采纳。。。。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim n As Integer, sum As Integer, j As Integer
TextBox1.Text = ""
TextBox1.Text = TextBox1.Text & "所求的素数为：" & vbCrLf
For i = 100 To 300
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 8 = 0 Then TextBox1.Text = TextBox1.Text & vbCrLf
End If
Next i
TextBox1.Text = TextBox1.Text & vbCrLf
TextBox1.Text = TextBox1.Text & "共有" & n & "个素数，它们的和为" & sum & vbCrLf
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
