摘自教科书，由 残酷的小雨贡献，QQ630674381
图文讲解

简要步骤：
打开 控制台应用程序

控制台应用程序模板

在Sub Main()过程中编写如下程序代码：

    Sub Main()
        Dim XM As String  '定义存放入姓名的变量XM
        Dim XB As String
        Console.Write("请输入您的姓名：")
        XM = Console.ReadLine() '输入人的姓名
        Console.Write("请输入您的性别：") '输出提示信息
        XB = Console.ReadLine() '读入人的性别
        If XB = "男" Then
            REM
            Console.WriteLine("欢迎您，先生！", XM)
        Else
            REM
            Console.WriteLine("欢迎您，女士", XM)
        End If
        Console.Read() REM
    End Sub

效果图：

[[it] 本帖最后由 残酷的小雨 于 2009-7-30 21:12 编辑 [/it]]

学习了一下，谢谢。