☆☆实训项目☆☆

商店打折问题

Module Module1
Sub Main()
Console.Write("您的购物金额：")
Dim a As Int64 = Console.ReadLine
Dim b As Int64 '定义两个变量，读入a

If a = a And a > 1000 Then
b = a * 0.95
ElseIf 3000 >= a And a > 2000 Then
b = a * 0.9
ElseIf 5000 >= a And a > 3000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
End If '定义a的取值范围，以及b的计算公式

Console.Write("您的优惠价是：") '计算优惠价
Console.WriteLine(b) '输出b
End Sub

End Module


猜数字
Module Module1

Sub Main()
Const a As Int16 = 9
Const b As Int16 = 7
Const c As Int16 = 2 '定义三个常量
Console.WriteLine("请输入数字（0~10）：")

Dim q As Int16
Dim w As Int16
Dim e As Int16 '定义三个变量
q = Console.ReadLine() '输入第一个数字

If q = a Then
Console.WriteLine("猜对了！")
w = Console.ReadLine() '猜对第一个数字，进行下一步
If w = b Then
Console.WriteLine("猜对了！")

e = Console.ReadLine() '猜对第二个数字，进行下一步
If e = c Then
Console.WriteLine("你太有才了！！") '猜对第三个数字，完成
Else : Console.WriteLine("Game Over！") '第三个数字猜错，结束
End If
Else : Console.WriteLine("Game Over！") '第二个数字猜错，结束
End If
Else : Console.WriteLine("Game Over！") '第一个数字猜错，结束
End If


End Sub

End Module