猜字..................
猜字..................
陈海水(07网4） 周二 三月 18, 2008 8:32 pm
Module Module1
Sub Main()
Dim x, y, z As Integer
x = 1
y = 2
z = 3
Dim a, s, d As Integer
a = Console.ReadLine
If a = x Then
Console.WriteLine("下一步")
s = Console.ReadLine
If s = y Then
Console.WriteLine("下一步")
d = Console.ReadLine
If d = z Then
Console.WriteLine("下一步")
End If
End If
End If
End Sub
End Module
Sub Main()
Dim x, y, z As Integer
x = 1
y = 2
z = 3
Dim a, s, d As Integer
a = Console.ReadLine
If a = x Then
Console.WriteLine("下一步")
s = Console.ReadLine
If s = y Then
Console.WriteLine("下一步")
d = Console.ReadLine
If d = z Then
Console.WriteLine("下一步")
End If
End If
End If
End Sub
End Module
陈海水(07网4）- 帖子数 : 3
注册日期 : 08-03-18
您在这个论坛的权限：
您不能在这个论坛回复主题