作业帮 > 综合 > 作业

利用循环语句 用VB计算1到100的奇数的和

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/29 05:11:09
利用循环语句 用VB计算1到100的奇数的和
Private Sub Command1_Click()
    Dim i As Integer
    Dim s As Integer
    For i = 1 To 100
        If i Mod 2 <> 0 Then
            s = s + i
        End If
    Next
    MsgBox s
End Sub
再问: 4、百货公司为了促销,采用购物打折扣的优惠办法:每位顾客一次购物: (1)在1000元以上者,按九折优惠; (2)在3000元以上者,按八五折优惠; (3)在5000元以上者,按八折优惠; 编写程序,输入购物款数,计算并输出优惠价(打折后的应付的价格) = =