• 所有问题

    • vb 求1~100之间偶数的和 哪里错了 只输出0 求大神助攻

    如题所述

    举报该问题
    推荐答案   2014-05-08
    我去，这么明显的错误
    sum = sum = i

    sum 得到的将永远是sum = i 的值
    sum = i 是以个逻辑表达式，这程序中总是等于False 也就是0

    怎么改我想你清楚
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2014-05-08
    sum=sum+i
    相似回答
    用VB求1到100间所有偶数和答：启动VB新建一个EXE工程双击窗体FORM1在打开的代码窗口输入以下代码：Private Sub Form_Load()Dim i, s As Integers = 0For i = 2 To 100 Step 2s = s + iNext iForm1.Caption = Str(s)End Sub之后按下F5键即可在程序...
    用VB求1到100间所有偶数和答：启动VB 新建一个EXE工程 双击窗体FORM1 在打开的代码窗口输入以下代码：Private Sub Form_Load()Dim i, s As Integer s = 0 For i = 2 To 100 Step 2 s = s + i Next i Form1.Caption = Str(s)End Sub 之后按下F5键即可在程序默认窗体的标题栏中看到1到100间所有偶数和 ...
    VB控制台,怎么做1到200 所有偶数的和,我这样做哪里错 了答：sum = sum + i End If Next 去掉If里面的 i = i + 1，这样就完全正确了。ps: vb.net
    用VB写出1-100的所有奇数和偶数和答：Private Sub Command1_Click()Dim i, sum1, sum2 As Integer sum1 = 0 sum2 = 0 For i = 1 To 100 If i Mod 2 = 1 Then sum1 = sum1 + i Else sum2 = sum2 + i End If Next i Print "奇数和为" & sum1 Print "偶数和为" & sum2 End Sub ...
    VB编写程序,在窗体的加栽事件中,计算1到100之间所有偶数的和答：Private Sub Form_Load()Dim i As Byte Dim n As Integer n = 0 For i = 2 To 100 Step 2 '不包刮100，就改成99 n = n + i Next msgbox "1到100之间所有偶数的和为：” & n End Sub 还是这样效率要高一点点，循环次数少了一半，循环内还不用判断 ...
    大家正在搜
    求1到100偶数的和奇数的个数求100以内的偶数之和vb求1～10之间的偶数和求1到100之间所有偶数和是多少求1到100之间的偶数积求100以内的偶数之和是多少vb计算1到100的偶数和求1到50之间所有偶数之vb求50以内5偶数的和