s=0
for i=m to n
if i mod 2=1 then
s=s+i*i
end if
next i
print “m到n区间的平方和是：”，s
m和n的取值自己在for i=m to n这里改。
Dim Cnt As Integer
For Cnt = m To n
if Cnt % 2 !=0 then
debug.print Cnt*Cnt
end if
Next Cnt
n=100
for i=m to n
if i mod 2<>0 then sum=sum + i^2
next
VB怎么编写【m,n】之间奇数平方和语句
print “m到n区间的平方和是：”，s m和n的取值自己在for i=m to n这里改。
VB编程求1—50的偶数平方和与奇数平方差
以下代码可以实现1到N的偶数平方和与奇数平方和之差 '按钮1代码:Private Sub Command1_Click()dim min ,max as integer min=1 '设定参与计算的最小值 max=50 '设定参与计算的最大值 Text1.Text = josc(min,max)End Sub '按钮2代码:Private Sub Command2_Click()end End Sub 'josc函数代...
求1000以内奇数的算术平方跟之和 vb编程枚举算法
m As Double, iSum As Double Me.Cls For i = 1 To 1000 Step 2 m = i ^ (1 \/ 2) iSum = iSum + m Next Print "1000以内奇数的算术平方根之和为：" & iSumEnd SubPrivate Sub Command2_Click() '完全数 Dim i As Integer, m As Integer, n As ...
VB1到N的平方求和怎么写.程序
Private Sub Form_Load()Dim sum As LongDim i As Integer, n As Integersum = 0n = Int(InpubBox("请输入n的值"))For i = 1 To n sum = sum + i ^ 2NextMsgBox "平方累加和为" & sumEnd Sub
vb代码怎么求数字N的各位数字的平方和,N的位数不确定。
Dim str As String = "", n, sum, temp As Integer n = InputBox("请输入要计算的整数") sum = 0 Do Until n <= 0 temp = n Mod 10 sum = sum + temp ^ 2 n = n \\ 10 LoopTextBox1.Text = sum ...
VB程序 求1到100之间的自然数的平方和
If InStr(1, s, m) = 0 Then i = i + 1 s = s & m & " "b(i - 1) = m End If Loop Until i = 15 End Sub '排序 Public Sub SoftArray(a() As Integer)Dim n As Integer, s As String n = UBound(a)For i = 0 To n For j = i To n If a(i) > a(j)...
VB 1到N的平方求和怎么写。。。程序
Dim sum As Long Dim i As Integer Dim n As Long n = InputBox("n=", "输入")For i = 1 To n sum = sum + i ^ 2 Next i Debug.Print sum
vb编写程序,从1开始计算奇数的平方倒数之和,要求最后一项刚好小于0.0001...
Sub a()'vb编写程序，从1开始计算奇数的平方倒数之和，要求最后一项刚好小于0.0001。Dim i As Long Dim s s = 0 For i = 1 To Int(Sqr(1 \/ 0.0001))s = s + 1 \/ (i * i)Next i End Sub
用VB如何编写1的平方加2的平方加3的平方加到N的平方程序
n=Val(inputbox("请输入N"))For i=1 to n s=s+i^2 Next Msgbox "计算结果为" & s
求1到100之间的奇数的平方和
for i=1 to 99 step 2 n=n+i*i 大概就是这意思了！~~不过说实话，要不是初学了，用楼上的算法吧。因为这样省时间，算法还是要时间优先的
