以下为 Console writeline方法的用法示例: Private Sub Button1 Click Static X,Y As Integer Y=1 Y=Y+5 X=5+X Console. WriteLine (X=(0):Y=(1],y End sub 3.2.4语句的书写规则 1)一行中有多条语句 在一行中可以有多条语句,语句之间用冒号(:)字符分隔。例如: Dim MyString As String ="Hello World": Msg Box(MyString 虽然这种形式的语法偶尔带来方便,但是它使代码难以阅读和维护。因 此,建议读者保持一行条语句。 2)跨多行继续一条语句 通常一行容纳一条语句,但当一行中容纳不下时,可以使用行继续符在 下一行继续一条长语句,行继续符由一个空格及一个下划线字符““组成 在下面的示例中, MsgBox可执行语句连续跨两行
以下为Console.WriteLine方法的用法示例： Private Sub Button1_Click() Static X, Y As Integer Y=1 Y=Y + 5 X=5 + X Console.WriteLine( “X={0}；Y= {1}”,X,Y) End Sub 3.2.4 语句的书写规则 1) 一行中有多条语句 在一行中可以有多条语句，语句之间用冒号（:）字符分隔。例如： Dim MyString As String = "Hello World" : MsgBox(MyString) 虽然这种形式的语法偶尔带来方便，但是它使代码难以阅读和维护。因 此，建议读者保持一行一条语句。 2) 跨多行继续一条语句 通常一行容纳一条语句，但当一行中容纳不下时，可以使用行继续符在 下一行继续一条长语句，行继续符由一个空格及一个下划线字符“_”组成。 在下面的示例中，MsgBox 可执行语句连续跨两行：
Public Sub DemoBoxo This procedure displays a message Dim my Var As String myVar ="John MsgBox( Hello"& my Var How are you? " End sub 3检查编译错误 键入一行代码后,如果该行显示有蓝色波浪下划线(也可能显示错误信 息),则该语句中有语法错误。必须找出语句中有什么错误(例如通过查 找任务列表,或通过悬停在错误上并阅读帮助文本),然后改正它。在修 复代码中的所有语法错误之前,程序无法正确地进行编译
Public Sub DemoBox() 'This procedure displays a message. Dim myVar As String myVar = "John" MsgBox("Hello " & myVar & _ ". How are you?") End Sub 3 检查编译错误 键入一行代码后，如果该行显示有蓝色波浪下划线（也可能显示错误信 息），则该语句中有语法错误。必须找出语句中有什么错误（例如通过查 找任务列表，或通过悬停在错误上并阅读帮助文本），然后改正它。在修 复代码中的所有语法错误之前，程序无法正确地进行编译
3.3数据输入与输出 个应用程序通常可分为:输入、处理和输出三部分。 Visual basic的 输入输出有着十分丰富的内容和形式,它提供了多种手段,并可通过各种 控件及方法实现输入输出操作,使输入输出更加灵活、多样、方便和形象 直观。程序通过输入操作接收数据,然后程序代码对输入的数据进行处理, 最后将处理完的数据以完整有效的方式提供给用户,也就是输岀。 3.3.1使用标签(Labe)控件输出 Label控件用于显示用户不能编辑的文本(Tex属性)及图像( Image 属性),不能接收焦点,一般用于显示描述性信息。例如,如果应用程序 需要几分钟时间处理更改,则可以在Labe中显示处理状态的消息。 TextAlign属性用于设置文本在标签内的对齐方式,可通过设置 Border style、 Back color、 Fore Color和Font等属性来改变 Label的边界、背 景颜色、字体颜色及字体。 默认前提下 Autosize为 False,即Labe的边界不变,Text的内容超出边 界时自动换行。为使控件能够自动调整宽度,必须将 Autosize属性设置为 True,这样Labe的边界可水平扩充以适应Tex属性内容。此外,还有一些 定位属性等
3.3 数据输入与输出 一个应用程序通常可分为：输入、处理和输出三部分。Visual Basic的 输入输出有着十分丰富的内容和形式，它提供了多种手段，并可通过各种 控件及方法实现输入输出操作，使输入输出更加灵活、多样、方便和形象 直观。程序通过输入操作接收数据，然后程序代码对输入的数据进行处理， 最后将处理完的数据以完整有效的方式提供给用户，也就是输出。 3.3.1使用标签（Label）控件输出 Label 控件用于显示用户不能编辑的文本（Text属性）及图像（Image 属性），不能接收焦点，一般用于显示描述性信息。例如，如果应用程序 需要几分钟时间处理更改，则可以在Label中显示处理状态的消息。 TextAlign 属性用于设置文本在标签内的对齐方式，可通过设置 BorderStyle、BackColor、ForeColor和Font等属性来改变Label的边界、背 景颜色、字体颜色及字体。 默认前提下AutoSize为False，即Label的边界不变，Text的内容超出边 界时自动换行。为使控件能够自动调整宽度，必须将AutoSize属性设置为 True，这样Label的边界可水平扩充以适应Text属性内容。此外，还有一些 定位属性等
例3-1将标签的信息“程序设计”显示在窗体与命令按钮的正中央,如 图3-1所示。图3-1输出字符串对中 Private Sub Button1_Click ( ByVal sender As system Object, ByVal e As System. EventArgs)Handles Button 1. Click Dim TextW, TextH As Single Labe1.Text="程序设计" TextW=(Me Size Width -Label1 Size Width)/2 TextH=(Button1. Top-Label 1 Size Height)/2 Label1 Left= TextW Labell.Top= TextH End sub 输出文本位置的定位点,在文本的左上角。文本左上角的X坐标值是窗 体的宽度(Me. Size Width)减去文本宽度 Label1 Size, Width的一半,即 TexW。为了使 Label 1中的文本能正好显示在 Label1框内,可将 Autosize属 性设置为True。Y坐标值是 Button1的Y轴定位坐标( Button1.Top)减去文本 高度( Label1 Size Height)的一半,即TexH,如图3-1所示
例3-1 将标签的信息“程序设计”显示在窗体与命令按钮的正中央，如 图3-1所示。图3-1 输出字符串对中 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TextW, TextH As Single Label1.Text = "程序设计" TextW =(Me.Size.Width - Label1.Size.Width) / 2 TextH =(Button1.Top - Label1.Size.Height) / 2 Label1.Left = TextW Label1.Top = TextH End Sub 输出文本位置的定位点，在文本的左上角。文本左上角的X坐标值是窗 体的宽度（Me.Size.Width）减去文本宽度Label1.Size.Width的一半，即 TextW。为了使Label1中的文本能正好显示在Label1框内，可将AutoSize属 性设置为True。Y坐标值是Button1的Y轴定位坐标（Button1.Top）减去文本 高度（Label1.Size.Height）的一半，即TextH，如图3-1所示
Forml 回回囟 Text 程序设计W Tenth Dutton 图3-1输出字符串对中 3.3.2使用文本框( TextBox)控件 TextBox控件用于获取用户输入或显示文本。 TextBox控件通常用于可 编辑文本,不过也可使其成为只读控件。 TextBox可以显示多行文本,对文 本换行使其符合控件的大小以及添加基本的格式设置。常用属性如表3-2所 示。若要显示多种类型的带格式文本,请使用 RichTextBα控件
3.3.2 使用文本框（TextBox）控件 TextBox控件用于获取用户输入或显示文本。TextBox 控件通常用于可 编辑文本，不过也可使其成为只读控件。TextBox可以显示多行文本，对文 本换行使其符合控件的大小以及添加基本的格式设置。常用属性如表3-2所 示。若要显示多种类型的带格式文本，请使用 RichTextBox 控件