Dim Sum As Integer,i As Integer
For i=1 to 100
Sum=Sum+i
Next i
Print "Sum=";Sum
End Sub本回答被提问者和网友采纳
VB程序 求1到100之间的自然数的平方和
Next j check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是素数,返回true End Function Private Sub Command1_Click()Dim a(15) As Integer, i As Integer, MaxNum As Integer List1.Clear GetRndStr 10, 100, a()MaxNum = 0 For i = 0 To 14 If...
用VB编一个程序,求从1至100的自然数的和
i = i + 1 loop while i < 100
怎样计算自然数1到100的倒数和?
Sn＝1 + 1\/2 + 1\/3 + 1\/4 + ……＋1／100 Sn＝1＋（1－1／2）＋（1－2／3）＋（1－3／4）＋……＋（1－ 99／100）所有的1相加为100，剩下的数列通项公式为an＝n\/(n+1),就能裂项消元了
vb中求N1到N2自然数的和
Private Sub Command1_Click()Dim n1, n2, buf, mid, result As Integer n1 = Val(Text1.Text)n2 = Val(Text2.Text)buf = 0 result = 0 '先判断要累加多少次 For i = n1 To n2 buf = buf + 1 Next i MsgBox buf mid = Int(buf \/ 2)'判断个数是否偶数 If (buf Mod 2 = ...
...并在文本框中输出结果,请编程 (要求用VB程序写)
3,6,9,12...96,99共有（3+99）÷3+1=35个 （3+99）×35÷2=1785即求出1到100的自然数系列中能被3整除的所有数之和1785
...数对是指两个不同的自然数的和与差都是平方数。VB代码详细
Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 0 To 99 For j = i + 1 To 100 If issq(i + j) And issq(j - i) Then Print i; j, k = k + 1 If k Mod 5 = 0 Then Print End If Next j Next iEnd SubFunction ...
用VB做"求某自然数的所有约数的和"怎么做啊
对不起，约数是什么我不太清楚，（解释一下，我是班上的数学精英，只是小学没学好，而不是一个白痴为你解题）但我建议你利用数列的通项公式 求Sn 设：Sn=a1+a2+a3+a4+...+an Sn=(a1+an)n\/2 能理解吗？
vb题:输出1~100自然数中被3整除的数据的个数几它们的和。
Private Sub Command1_Click()Dim i As Integer, n As Integer, s As Integer For i = 1 To 100 If i Mod 3 = 0 Then n = n + 1 s = s + i End If Next i Print "1~100自然数中能被3整除的数据的个数为：" & n Print "以及它们的和为：" & s End Sub ...
VB中求自然数之和的代码
要在vb的form中建个文本框和一个按钮才能用的
vb语言程序设计 输入一个正整数n,求前n个自然数的和
n=val(inputbox(""))for i = 1 to n s=s+i next msgbox s
