两道题的代码

实训项目1：某商场为了促销，采用购物打折的优惠办法，每位顾客一次购物
（1）1000元以上，按九五折优惠
（2）2000元以上，按九折优惠
（3）3000元以上，按八五折优惠
（4）5000元以上，按八折优惠
编写程序，输入购物款数，计算并输出优惠价

Module Module1

Sub Main()
Dim a, b As Integer
a = Console.ReadLine()
If a >= 1000 Then
If a <= 2000 Then
b = a * 0.95
End If
If a <= 3000 Then
b = a * 0.9
End If
If a <= 4000 Then
b = a * 0.85
Else
b = a * 0.8
End If
Console.WriteLine(b)
Else
Console.WriteLine("您的够物金额不够优惠条件" & a)
End If

End Sub

End Module



实训项目2：猜数字游戏：
我们设定一组数字（仿效密码设定），由别人来进行猜测，如果第一个数字猜对了，那我们让它继续第二个数字的猜测，如果第一个数字猜错了，那我们结束，不允许其继续猜测。（即只有按顺序猜对了，才能进行）

算法 介绍 ：
①判断第一个数是否为设定的第一个数? 是的话执行第② 步，否则跳到第④步
②判断第二个数是否为设定的第二个数?是的话执行第③ 步，否则跳到第④步
③判断第三个数是否为设定的第三个数?是的话执行第③ 步，否则跳到第④步
④结束



Module Module1

Sub Main()
Const a As Integer = 123
Const b As Integer = 456
Const c As Integer = 789
Dim d As Integer
d = Console.ReadLine()
If d = a Then
Console.WriteLine("恭喜您猜对了")
d = Console.ReadLine()
If d = b Then
Console.WriteLine("恭喜您猜对了")
d = Console.ReadLine()
If d = c Then
Console.WriteLine("恭喜您全部猜对")
Else
Console.WriteLine("对不起，您猜错了")
End If
Else
Console.WriteLine("对不起，您猜错了")
End If
Else
Console.WriteLine("对不起，您猜错了")


End If








End Sub

End Module




判断闰年

Module Module1

Sub Main()
Dim a As Integer
a = Console.ReadLine()
If a Mod 4 = 0 And a Mod 100 <> 0 Then
Console.WriteLine(a & "年是闰年")
Else
Console.WriteLine(a & "年不是闰年")
End If
End Sub

End Module