• 所有问题

    • 求VB编程1~100的偶数和

    如题所述

    举报该问题
    推荐答案   2015-04-17
    Private Sub Form_Click()
    Dim i, sum As Integer
    For i = 1 To 100
    If i Mod 2 = 0 Then sum = sum + i
    Next
    Print "1~100的偶数和="; sum
    End Sub

    追问

    谢谢谢谢！😭

    温馨提示：答案为网友推荐，仅供参考
    相似回答
    VB做 计算1-100间所有奇数(偶数)的和。答：=(2-1)+(4-3)+(6-5)+...+(100-99)=50 设奇数和为x，偶数和为y 所以 x+y=5050 y-x=50 所以 偶数和y=2550 奇数和x=2500
    用VB编写:循环语句的应用,计算1~100的偶数和?答：用VB编写：循环语句的应用，计算1~100的偶数和，最简单的方法是采用计数循环来实现。dim i as integer,s as integer s=0 for i = 2 to 100 step 2 s = s + i next i print "Sum ="; s
    求VB编程1~100的偶数和答：Private Sub Form_Click()Dim i, sum As IntegerFor i = 1 To 100If i Mod 2 = 0 Then sum = sum + iNextPrint "1~100的偶数和="; sumEnd 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 还是这样效率要高一点点，循环次数少了一半，循环内还不用判断 ...
    VB中关于给定范围内的奇数,偶数, 求和~答：s As Integer s = 0 For i = 1 To 100 If i Mod 2 = 0 Then s = s + i Next i Text2.Text = s End Sub Private Sub Form_Load()Command1.Caption = "1—100 所有的奇数和 "Command2.Caption = "1-100 所有的偶数和"Text1.Text = ""Text2.Text = ""End Sub ...
    大家正在搜
    编程求1到100偶数的和编程求1到100之间所有偶数的和求1到100之间的偶数和的程序编写程序求100以内偶数的和编程求1到100之间的奇数之和编程求1000以内的奇数和vb编程求1到100的奇数和程序求1～100的偶数和数据库求1到100的偶数和
    相关问题
    Java编程计算1-100之间所有偶数的和。
    用VB求1到100间所有偶数和
    VB编程实现1~100偶数求和
    跪求用VB编程计算1~100的奇数.偶数.整数和??
    vb程序设计：求100之内的所有偶数和。编程
    跪求用VB编写程序计算1~100之间的奇数和、偶数和。要源码...
    vb中1到100的偶数和是多少
    以下vb程序用来输出1到100之间所有偶数的和,请将该程序补...