您的第一个主题

在开始管理您的论坛之前，请先用一点时间来阅读以下的信息：


怎样进入您的管理员控制面板？
点击页面上方菜单中的登录后就会显示一个新的页面，然后在用户名中输入“admin”，并输入您在注册过程中指定的密码。如果您遗失或忘记了您的密码，请点击这里。当您成功登录后，请点击页面下方的“管理员控制面板”。

怎样更改您的论坛形象？
您可以通过选择一个风格（每个风格都包含有不同的图像，不同的图标以及不同的颜色）来改变您论坛的形象。进入“管理员控制面板”后点击“风格”菜单中的“管理”，接着根据您的喜好选择预设风格中的一种。今后您也可以任意更改或选择另一个风格。

如何管理分类和论坛？
您可以在任何时候无限制的增加、更改和删除分类和论坛。点击“管理员控制面板”中的“设置”，随后点击“论坛”和“管理”，后点击增加（主题或分类）。

老师讲的课现在还没有入门,很难学懂呀?我上课只好尽力听了,没折呀!谁叫咱们是普高来的呢?没治吃亏了!
~!~

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

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

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

开头不会写。。。太麻烦`
就会写中间的运算过程！
比如款数为X的话
过程为：IF X>1000andx<2000 THEN
1000*0.95
ELSEIF X>2000andx<3000 THEN
2000*0.09
ELSEIF X>3000andx<5000 THEN
3000*0.85
ELSEIF x>5000 THEN
5000*0.08
ENDIF

Const a = 4, b = 5, c = 6
Dim x, y, z As String
Console.WriteLine("恭喜继续")
x = Console.ReadLine()
If x = a Then
Console.WriteLine("恭喜继续")
y = Console.ReadLine()
If y = b Then
Console.WriteLine("恭喜继续")
z = Console.ReadLine()
If z = c Then
Console.WriteLine("我被破译了55555555")
End If
End If
End If
Console.WriteLine("恭喜你答错了")



Dim x As Single = Console.ReadLine

Dim y As Single

If x <= 1000 Then
y = x
ElseIf x > 1000 And x <= 2000 Then
y = x * 0.95
ElseIf x > 2000 And x <= 3000 Then
y = x * 0.9
ElseIf x > 3000 And x <= 5000 Then
y = x * 0.85
ElseIf x > 5000 Then
y = x * 0.8
End If
Console.WriteLine(y)

Dim a As Single = Console.ReadLine
Dim b As Single
If a <= 1000 Then
b = a
ElseIf a > 1000 And a<= 2000 Then
b= a * 0.95
ElseIf x > 2000 And a <= 3000 Then
b =a * 0.9
ElseIf a> 3000 And a <= 5000 Then
b = a* 0.85
ElseIf x > 5000 Then
b = a * 0.8
End If
Console.WriteLine(b)

Sub Main()

Dim a As Integer = Console.ReadLine
Dim b As Integer
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8

Console.WriteLine(b)
End If
End Sub

Sub Main()
Dim a As Integer
Dim b As Integer
a = Console.ReadLine
If a > 1000 And a < 2000 Then
b = a * 0.95
ElseIf a > 2000 And a < 3000 Then
b = a * 0.9
ElseIf a > 3000 And a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
Else
b = a
End If
Console.WriteLine(b)
End Sub

End Module

商品打折问题
Sub Main()

Dim a As Integer = Console.ReadLine
Dim b As Integer
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8

Console.WriteLine(b)
End If
End Sub

Sub Main()


Dim a As Int16 = Console.ReadLine
Dim b As String = Console.ReadLine
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a > 2000 And a < 3000 Then
b = a * 0.9
ElseIf a > 3000 And a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
End If
Console.WriteLine(b)

Sub Main()
Dim a, b As Int32
a = Console.ReadLine
If a < 1000 Then
a = b
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.80
End If
Console.WriteLine(b)

End Sub

dim a as integer
dim b as integer
a=console.readline
if a<1000 then
a=b
elseif a>=1000 and a<2000 then
b=a*0.95
elseif a>=2000 and a<3000 then
b=a*0.9
elseif a>=3000 and a<5000 then
b=a*0.85
elseif a>=5000 then
b=a*0.8
End If
Console.WriteLine(b)

Sub Main()
Dim a, b As Int32
a = Console.ReadLine
If a < 1000 Then
a= b
ElseIf a>= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a< 3000 Then
b = a * 0.9
ElseIf a>= 3000 And a< 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8

End If
Console.WriteLine(b)

End Sub

Sub Main()
Dim a As Integer = Console.ReadLine
Dim b As Integer
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8
Console.WriteLine(b)
End If
End Sub

Dim x As Single = Console.ReadLine
Dim y As Single
If x <= 1000 Then
y = x
ElseIf a > 1000 And x<= 2000 Then
y= x * 0.95
ElseIf x > 2000 And x <= 3000 Then
y=x* 0.9
ElseIf a> 3000 And x<= 5000 Then
y = x* 0.85
ElseIf x > 5000 Then
y = x * 0.8
End If
Console.WriteLine(y)



老师，这是别人帮我做的，我不太明白！

Module Module1

Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8

End If
Console.WriteLine(b)

Sub Main()
Dim x As Integer
Dim y As Integer
x= Console.ReadLine

If x < 1000 Then
y= x
ElseIf x >= 1000 And x < 2000 Then
y = x * 0.95
ElseIf x >= 2000 And x < 3000 Then
y = x * 0.9
ElseIf x >= 3000 And x < 5000 Then
y = x * 0.85
ElseIf x >= 5000 Then
y = x * 0.8
Console.WriteLine(y)
End If
End Sub

Const a = 2, b = 6, c = 8
Dim x, y, z As String
Console.WriteLine("请继续")
x = Console.ReadLine()
If x = a Then
Console.WriteLine("请继续")
y = Console.ReadLine()
If y = b Then
Console.WriteLine("请继续")
z = Console.ReadLine()
If z = c Then
Console.WriteLine("恭喜，今天可以买彩票了")
End If
End If
End If
Console.WriteLine("~~你答错了~~")

Module Module1

Sub Main()
Dim a, b As Integer
If a < 1000 Then
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8
End If
Console.WriteLine(b)

End Sub

End Module

Module Module1

Sub Main()
Dim a, b As Integer
a = Console.ReadLine
If a < 1000 Then
a = b
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8
End If
Console.WriteLine(b)
End Sub

Sub Main()



Dim y As Integer = Console.ReadLine
If y = 1 Then
Console.WriteLine("继续猜！")
Else : End
End If
Dim x As Integer = Console.ReadLine
If x = 2 Then
Console.WriteLine("再猜！")
Else : End
End If
Dim z As Integer = Console.ReadLine
If z = 3 Then
Console.WriteLine()
End If

Dim X, Y As Integer
X = Console.ReadLine
If X < 1000 Then
Y = X
Console.Write(Y)
ElseIf X >= 1000 And X < 2000 Then
Y = X * 0.95
Console.Write(Y)
ElseIf X >= 2000 And X < 3000 Then
Y = X * 0.9
Console.Write(Y)
ElseIf X >= 3000 And X < 5000 Then
Y = X * 0.85
Console.Write(Y)
Else
Y = X * 0.8
Console.Write(Y)
End If