利用循环语句 用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元以上者，按八折优惠； 编写程序，输入购物款数，计算并输出优惠价（打折后的应付的价格） = =