您的第一个主题
+24
网2-曹磊
张改娣(07网2)
韩博周-07网2
闫乐乐(07网二)
网一郑小龙
付路路-07网络2
刘兴兴
杨晓丹
王斌(网一)
网二。王旭
张雅祚
董山-07网1
张焕（网—）
一班王浩
马龙（网一）
卢颖--网一
杨雲龙（网一）
网络一班王宇龙
***07网一
张东-07网络一班
李洋-网3
陈旭-网五
zhangxiangan
Admin
28 posters
商场折扣问题
网一郑小龙 周五 三月 21, 2008 9:29 am
Sub Main()
Dim a As Integer
Dim 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)
End Sub
Dim a As Integer
Dim 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)
End Sub
网一郑小龙- 帖子数 : 1
注册日期 : 08-03-21
商品打折问题
闫乐乐(07网二) 周五 三月 21, 2008 9:31 am
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 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)
闫乐乐(07网二)- 帖子数 : 1
注册日期 : 08-03-21
商品打折问题！！
韩博周-07网2 周五 三月 21, 2008 9:32 am
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 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
韩博周-07网2- 帖子数 : 1
注册日期 : 08-03-21
商品打折问题
张改娣(07网2) 周五 三月 21, 2008 9:35 am
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)
End Sub
End Module
注释：
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)
End Sub
End Module
注释：
张改娣(07网2)- 帖子数 : 1
注册日期 : 08-03-21
商品打折问题
网2-曹磊 周五 三月 21, 2008 9:39 am
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)
End Sub
End Module
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)
End Sub
End Module
网2-曹磊- 帖子数 : 1
注册日期 : 08-03-21
商品打折问题
鲁伟-07网络2班 周五 三月 21, 2008 9:41 am
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
End Sub
End Module
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
End Sub
End Module
鲁伟-07网络2班- 帖子数 : 1
注册日期 : 08-03-21
回复： 您的第一个主题
piyanran 周五 三月 21, 2008 9:42 am
Sub Main()
Dim a, b As Int16
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
Console.WriteLine(b)
End If
End Sub
Dim a, b As Int16
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
Console.WriteLine(b)
End If
End Sub
piyanran- 帖子数 : 1
注册日期 : 08-03-21
陈皓作业
网1-陈皓 周五 三月 21, 2008 9:47 am
Sub Main()
Dim x, y As Int32
x = Console.ReadLine
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = 0.95 * x
ElseIf x < 3000 Then
y = 0.9 * x
ElseIf x < 5000 Then
y = 0.85 * x
Else
y = 0.8 * x
End If
Console.WriteLine(y)
End Sub
Dim x, y As Int32
x = Console.ReadLine
If x < 1000 Then
y = x
ElseIf x < 2000 Then
y = 0.95 * x
ElseIf x < 3000 Then
y = 0.9 * x
ElseIf x < 5000 Then
y = 0.85 * x
Else
y = 0.8 * x
End If
Console.WriteLine(y)
End Sub
网1-陈皓- 帖子数 : 1
注册日期 : 08-03-21
回复： 您的第一个主题
李亚冬（网2） 周五 三月 21, 2008 9:48 am
商品打折：
Module Module1
Sub Main()
Dim a As integer = Console.ReadLine
Dim y As integer '设置两个整形变量，A为购买物品总价格，B为打折后价格'
If a < 1000 Then '如果购买小于1000元，则没有打折'
y = a
ElseIf 1000 <= a And a < 2000 Then'如果购买1000到2000，则打95折'
y = a * 0.95
ElseIf 2000 <= a And a < 3000 Then'如果购买2000到3000，则打9折'
y = a * 0.9
ElseIf 3000 <= a And a < 5000 Then'如果购买3000到5000，则打85折'
y = a * 0.85
ElseIf 5000 <= a Then‘如果购买超过5000，则打8折’
y = a * 0.8
End If
Console.WriteLine(y)‘最后输出打折后的价格’
End Sub
End Module
猜数字
Module Module1
Sub Main()
Const a = 1, b = 2, c = 3
Dim x, y, z, i As Short
Console.WriteLine("欢迎您来猜数字")
x = Console.ReadLine
If x = a Then
Console.WriteLine("恭喜您猜对了")
Else : End
y = Console.ReadLine
If y = b Then
Console.WriteLine("恭喜您又猜对了，加油继续")
Else : End
z = Console.ReadLine
If z = c Then
Console.WriteLine("恭喜您完全猜对，你太有才了")
Else : End
i = Console.ReadLine
End If
End If
End If
End Sub
End Module
Module Module1
Sub Main()
Dim a As integer = Console.ReadLine
Dim y As integer '设置两个整形变量，A为购买物品总价格，B为打折后价格'
If a < 1000 Then '如果购买小于1000元，则没有打折'
y = a
ElseIf 1000 <= a And a < 2000 Then'如果购买1000到2000，则打95折'
y = a * 0.95
ElseIf 2000 <= a And a < 3000 Then'如果购买2000到3000，则打9折'
y = a * 0.9
ElseIf 3000 <= a And a < 5000 Then'如果购买3000到5000，则打85折'
y = a * 0.85
ElseIf 5000 <= a Then‘如果购买超过5000，则打8折’
y = a * 0.8
End If
Console.WriteLine(y)‘最后输出打折后的价格’
End Sub
End Module
猜数字
Module Module1
Sub Main()
Const a = 1, b = 2, c = 3
Dim x, y, z, i As Short
Console.WriteLine("欢迎您来猜数字")
x = Console.ReadLine
If x = a Then
Console.WriteLine("恭喜您猜对了")
Else : End
y = Console.ReadLine
If y = b Then
Console.WriteLine("恭喜您又猜对了，加油继续")
Else : End
z = Console.ReadLine
If z = c Then
Console.WriteLine("恭喜您完全猜对，你太有才了")
Else : End
i = Console.ReadLine
End If
End If
End If
End Sub
End Module
李亚冬（网2）- 帖子数 : 1
注册日期 : 08-03-21
猜数游戏
网络一班王宇龙 周五 三月 21, 2008 9:48 am
Sub Main()
Const a = 9, b = 4, c = 8
Dim AA, BB, CC As Int32
AA = Console.ReadLine()
If AA = a Then
Console.WriteLine("GO ON")
BB = Console.ReadLine()
If BB = b Then
Console.WriteLine("GO ON")
CC = Console.ReadLine()
If CC = c Then
Console.WriteLine("游戏结束")
End If
Else
Console.WriteLine("GAME OVER")
End If
Else
Console.WriteLine("GAME OVER")
End If
End Sub
Const a = 9, b = 4, c = 8
Dim AA, BB, CC As Int32
AA = Console.ReadLine()
If AA = a Then
Console.WriteLine("GO ON")
BB = Console.ReadLine()
If BB = b Then
Console.WriteLine("GO ON")
CC = Console.ReadLine()
If CC = c Then
Console.WriteLine("游戏结束")
End If
Else
Console.WriteLine("GAME OVER")
End If
Else
Console.WriteLine("GAME OVER")
End If
End Sub
网络一班王宇龙- 帖子数 : 2
注册日期 : 08-03-21
猜数游戏
张焕（网—） 周五 三月 21, 2008 9:49 am
Sub Main()
Const a = 3, b = 6, c = 8
Dim x, y, z As String
x = Console.ReadLine
If x = a Then
Console.WriteLine("GO")
ElseIf x <> a Then
Console.WriteLine("GO OUT")
If y = b Then
Console.WriteLine("GO")
ElseIf y <> b Then
Console.WriteLine("GO OUT")
If z = c Then
Console.WriteLine("恭喜恭喜")
ElseIf z <> c Then
Console.WriteLine("Oh Sorry")
End If
End If
Const a = 3, b = 6, c = 8
Dim x, y, z As String
x = Console.ReadLine
If x = a Then
Console.WriteLine("GO")
ElseIf x <> a Then
Console.WriteLine("GO OUT")
If y = b Then
Console.WriteLine("GO")
ElseIf y <> b Then
Console.WriteLine("GO OUT")
If z = c Then
Console.WriteLine("恭喜恭喜")
ElseIf z <> c Then
Console.WriteLine("Oh Sorry")
End If
End If
张焕（网—）- 帖子数 : 2
注册日期 : 08-03-21
您在这个论坛的权限：
您不能在这个论坛回复主题