Select Case Cbo1.Text
 Case "李白"
 Lbl3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟，" & Chr(13) & Chr(13) & "遥看瀑布挂前川。" & Chr(13) & Chr(13) & "飞流直下三千尺，" & Chr(13) & Chr(13) & "疑是银河落九天。"
 
VB白例136页，一行敲不完，出现这个问题，书上敲得是个什么，我是直接点的回车，就报错了
 
 
另外展示一下 & Chr(13) & Chr(13) 与 & Chr(10) & Chr(13)的区别，回车再回车，换行回车，
 
Chr(10) & Chr(13)与Chr(10) 与 Chr(13)效果一下啊，有什么区别？
 

实验11 用循环语句打印数学乘法表
 
实验内容
 
掌握使用For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制
用循环语句打印数学乘法表
编写实验报告。
 
实验环境
 
Windows7，Office、VB开发环境。
 
实验运行结果
 
点击“打印”后的效果：
 
 点击“清屏”后的效果：
 
 
实验代码
 
Private Sub Command1_Click()
     Print
     Print
     Print
     Print
     Print
    Dim a, b As Integer
    FontSize = 12
    For a = 1 To 9
        For b = 1 To a
            'Print Str$(b) + " × "; Str$(a) + " = " + Str$(a * b);
             Print Tab(b * 12 - 12); Str$(b) + "×"; Str$(a) + "=" + Str$(a * b);
        Next b
        Print
    Next a
End Sub

Private Sub Command2_Click()
Form1.Cls
End Sub
 
关于print换行
 
print '输出空行，并换行
 print S '输出S的值，并换行
 print S; '输出S的值
 是否换行不在于print，而在于print后面的表达式最后是否有;分号，有就不换行，没有就换行
 
实验心得体会
 
学习使用了For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制，用for循环语句打印数学乘法表。为了进行格式控制，在print中使用tab与内循环数字相关联，达到了打印输出时每一列有相同缩进值的效果，这样能够使格式更加美观。
 另外在本程序中，我添加了“Form1.Cls”语句，可以在点击“清屏”按钮后清空Form1中输出的内容。

vbCrLf 
 
 
Dim strs As String
    strs = “年”+ vbCrLf +“ 月”
 
输出结果年和月在不同的行
 
在ReportingServer, msgbox和print 可以用 vbCrlf 
 

 

 
       
 
 
     有时候我们需要显示多行数据，使其更有逻辑性。下面我就说一下VB中的换行问题
 
     现在我们将换行的环境分为三种：窗体输出，文本框（Text）输出，标签（Label）输出
 
 
一、在窗体输出中
 
         换一行：Chr（13） 、Chr（10） 、 Chr（13）+Chr（10） 
 
         换两行：Chr（10）+Chr（13）、两个Chr（13）、两个Chr（10）
 
                  
 
二、在文本框输出中 
         换一行：Chr(13)+Chr(10)，其他没有了
 
         换两行：没有，除非第二行为空，即“”
 

 
 
三、在标签输出中
 
         换一行：Chr(10),Chr(13),以及所有的组合，都可以换一行，也都只能换一行
 
         换两行：没有，除非第二行为空，即“”
 
下面我们来举个例子：
 

Private Sub Command1_Click()

    '在窗体上换行
    Print "我" & Chr(10) & _
          "是" & Chr(13) & _
          "十" & Chr(13) & Chr(10) & _
          "期" & Chr(10) & Chr(13) & _
          "崔" & vbNewLine & _
          "晓" & vbCrLf & _
          "光"
          
    '在文本框中换行
    Text1.Text = "我" & Chr(10) & _
                "是" & Chr(13) & _
                "十" & Chr(13) & Chr(10) & _
                "期" & Chr(10) & Chr(13) & _
                "崔" & vbNewLine & _
                "晓" & vbCrLf & "" & vbCrLf & _
                "光"
                
    '在标签中换行
    Label1.ForeColor = vbRed
    Label1.Caption = "我" & Chr(10) & _
                     "是" & Chr(13) & _
                     "十" & Chr(13) & Chr(10) & _
                     "期" & Chr(10) & Chr(13) & _
                     "崔" & vbNewLine & _
                     "晓" & vbCrLf & "" & vbCrLf & _
                     "光"
End Sub
 

 
 其运行的效果图为

 



 

 
 
在VB中Chr(10)和Chr(13)还有如下表示，他们的用法一样，这里就不再重复了