UC知道一下几题需要用VB语言编写，先谢谢各位电脑达人了
来源：百度知道 编辑：UC知道 时间：2024/06/06 12:44:18
练习题8。 计算 S = 1 + 2 + 3 + 4 + ……+ n + （n+1）+（n+2）+ ……
在累加过程中，求当S的值首次大于3000时候的n值是多少。
练习题9。 计算 S = 1 + 2 + 3 + 4 + ……+ n + （n+1）+（n+2）+ ……
在累加过程中，求当S的值不大于1000时候的最大n值是多少。
练习题10。 计算 S = 1 + 2 + 3 + 4 + ……+ 98 + 99+100
要求打印显示每次循环得到的S值，并按每行6个数打印输出。
练习题11。 任意输入一个正整数，判断该数是否为素数。一个数为素数的条件是：
该数只能被1和它自身整除。
在累加过程中，求当S的值首次大于3000时候的n值是多少。
练习题9。 计算 S = 1 + 2 + 3 + 4 + ……+ n + （n+1）+（n+2）+ ……
在累加过程中，求当S的值不大于1000时候的最大n值是多少。
练习题10。 计算 S = 1 + 2 + 3 + 4 + ……+ 98 + 99+100
要求打印显示每次循环得到的S值，并按每行6个数打印输出。
练习题11。 任意输入一个正整数，判断该数是否为素数。一个数为素数的条件是：
该数只能被1和它自身整除。
先建立三个按钮，分别是Command1,Command2,Command3,Command4,每个按钮代码如下：
8.Private Sub Command1_Click()
Dim n As Integer
Dim S As Integer
n = 1
S = 0
Do While S <= 3000
S = S + n
n = n + 1
Loop
Print n
End Sub
9.Private Sub Command2_Click()
Dim n As Integer
Dim S As Integer
n = 1
S = 0
Do While S <= 1000
S = S + n
n = n + 1
Loop
Print n-1
End Sub
10.我不会，主要是不知道怎么编写才能实现每行6个数打印输出，抱歉。
11.Private Sub Command4_Click()
Dim n As Integer
Dim m As Integer
n = InputBox("请输入一个正整数：")
m = Int(Sqr(n))
For i = 2 To m
If n Mod i = 0 Then Exit For
Next i
If i > m Then
Print "这是一个素数！"
Else
Print "这不是一个素数！"
End If
End Sub
8 ' 9 ' 相似 10 简单你自己找
dim s , n
s = 0
n = 1
for do while s <= 3000
s = s + n
n = n + 1
loo