第一题和第二题

第一题：
Dim a As Integer
a = Console.ReadLine
Dim b As Integer
If a > 5000 Then
b = a * 0.8
ElseIf 5000 > a And a > 3000 Then
b = a * 0.85
ElseIf 3000 > a And a > 2000 Then
b = a * 0.9
ElseIf 2000 > a And a > 1000 Then
b = a * 0.95
End If
Console.Write(b)
第二题：
Sub Main()
Dim a, b, c As Integer
a = Console.ReadLine
If a = 6 Then
b = Console.ReadLine
Else
Console.WriteLine("第一个数字错误")
End If
If b = 8 Then
c = Console.ReadLine
Else : Console.WriteLine("第二个数字错误")
End If
If c = 0 Then Console.WriteLine("密码正确,你快赶上我聪明啦= =~")