1. 打开文件(Open)
 Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度] 
        说明：
 (1)文件名；
 (2) 模式用于指定文件访问的方式，包括：
            Append——从文件末尾添加             Binary——二进制文件
            Input——顺序输入（输入给自己，从txt中取出）                            Output——顺序输出（输出到txt中）
            Random——随机存取方式
 (3)文件号(或称文件缓冲区) 
 (4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、Read Write(读写) 
 (5)锁定：限制其他用户或其他进程对文件进行读写操作
                        Shared(共享)、LockRead(禁止读)、Lock Write(禁止写)、
                           Lock Read Write(禁止读写) 
 (6)Len：用来指定每个记录的长度(字节数)
       示例：    Open"d:\cj1.dat" For  Output As  #1
 2. 关闭文件(Close)
          打开的文件使用完后必须关闭。
          关闭文件的语句格式：
            Close[#] 文件号1[,[#] 文件号2…] ]
 
         示例：
            Close#1
  1. Write语句 
    格式：Write#文件号 [，表达式表]
     功能：将表达式的值写到与文件号相关的顺序文件中
     每个Write语句向顺序文件写入一个记录(不定长)，它会自动地用逗号分开每个表达式的值。给字符串加上双引号
          在最后一个字符写入后，插入一个回车换行符(Chr(13) + Chr(10))，以此作为记录结束的标记。
 
         示例：Write#1, "Good Afternoon", 1998
 

 
 
[vb] view plain copy print?Private Sub CommandButton1_Click()      Dim num As String * 6, name As String * 8, score As Integer      num = TextBox1.Text      name = TextBox2.Text      score = Val(TextBox3.Text)      Write #1, num, name, score      TextBox1.Text = ""      TextBox2.Text = ""      TextBox3.Text = ""      TextBox1.SetFocus  End Sub    Private Sub CommandButton2_Click()      Close #1      End  End Sub    Private Sub UserForm_Initialize()      Open ThisWorkbook.Path & "\1.txt" For Output As #1  End Sub  Private Sub CommandButton1_Click()
     Dim num As String * 6, name As String * 8, score As Integer
     num = TextBox1.Text
     name = TextBox2.Text
     score = Val(TextBox3.Text)
     Write #1, num, name, score
     TextBox1.Text = ""
     TextBox2.Text = ""
     TextBox3.Text = ""
     TextBox1.SetFocus
 End Sub
 
Private Sub CommandButton2_Click()
     Close #1
     End
 End Sub
 
Private Sub UserForm_Initialize()
     Open ThisWorkbook.Path & "\1.txt" For Output As #1
 End Sub
 运行结果~
 

 读取数据，用For...Next 语句
 

 [vb] view plain copy print?Sub 的开发商的()      Dim n As String, m As String, s As Integer      Open ThisWorkbook.Path & "\1.txt" For Input As #1      For i = 1 To 5          Input #1, n, m, s          Cells(i, 1) = n          Cells(i, 2) = m          Cells(i, 3) = s      Next      Close #1  End Sub  Sub 的开发商的()
     Dim n As String, m As String, s As Integer
     Open ThisWorkbook.Path & "\1.txt" For Input As #1
     For i = 1 To 5
         Input #1, n, m, s
         Cells(i, 1) = n
         Cells(i, 2) = m
         Cells(i, 3) = s
     Next
     Close #1
 End Sub
 
 2. Print语句 
 
格式：Print  #文件号[，表达式表]
         作用与Write一样。将一个或多个表达式的值写到与文件号相关的顺序文件中。其输出数据格式与Print方法在窗体上输出格式相似。
            示例：
             Print  #1, num, name, score              ‘对应按区格式
             Print  #1, num；name；score          ‘对应紧凑格式
 

 先用Input方式打开文件，然后采用Input或LineInput语句从文件中读出数据。通常，Input用来读出Write写入的记录内容，而Line Input用来读出Print写入的记录内容
 1.Input语句 
     一般格式：Input#文件号，变量名表
       功能：从指定文件中读出一个记录。变量个数和类型应该与要读取的记录所存储的数据一致。
        打开文件时，文件指针指向文件中的第1个记录，以后每读取一个记录，指针就向前推进一次。如果要重新从文件的开头读数据，则先关闭文件后打开
 距离：
 

 [vb] view plain copy print?Sub sj()      Open ThisWorkbook.Path & "\data1.txt" For Output As #1      a = 123: b$ = "ABCD"    '在同一行赋值，用“:”      Write #1, a, b$      Close #1      Open ThisWorkbook.Path & "\data1.txt" For Input As #1      Input #1, c, d$      Close #1      Debug.Print c, d$  End Sub  Sub sj()
     Open ThisWorkbook.Path & "\data1.txt" For Output As #1
     a = 123: b$ = "ABCD"    '在同一行赋值，用“:”
     Write #1, a, b$
     Close #1
     Open ThisWorkbook.Path & "\data1.txt" For Input As #1
     Input #1, c, d$
     Close #1
     Debug.Print c, d$
 End Sub
 

 
 

 [vb] view plain copy print?Sub dfjslkdf()      Open ThisWorkbook.Path & "\num2.txt" For Append As #1      For i = 51 To 200          If i Mod 7 = 0 Then Write #1, i      Next      Close #1  End Sub    Sub dfhdfdffdfdfdk()      k = 0      Open ThisWorkbook.Path & "\num2.txt" For Input As #1      Do While Not EOF(1)          Input #1, x          Debug.Print x,          k = k + 1          If k Mod 4 = 0 Then Debug.Print      Loop  End Sub  Sub dfjslkdf()
     Open ThisWorkbook.Path & "\num2.txt" For Append As #1
     For i = 51 To 200
         If i Mod 7 = 0 Then Write #1, i
     Next
     Close #1
 End Sub
 
Sub dfhdfdffdfdfdk()
     k = 0
     Open ThisWorkbook.Path & "\num2.txt" For Input As #1
     Do While Not EOF(1)
         Input #1, x
         Debug.Print x,
         k = k + 1
         If k Mod 4 = 0 Then Debug.Print
     Loop
 End Sub
 Debug.Print i    一行一行的输出
 
Debug.Print i,    在一行输出，中间空很多的空格，具有一定的格式
 
Debug.Print i;    在一行输出，中间空很少的空格，具有一定的格式
 
可以加入If i Mod 2 = 0 Then Debug.Print    可以进行换行
 

 Print也有相似的用法：
 
从TXT中读取数据，数据中间可以是空格、半角逗号
 
[vb] view plain copy print?Sub dhfkd()      k = 0      Dim arr(1 To 1100) As Variant      Open ThisWorkbook.Path & "\num2.txt" For Input As #1      Do While Not EOF(1)        'EOF(1)用来判断#1是否读到头了，到头返回TRUE          Input #1, x           '读取一个数据          k = k + 1          arr(k) = x            '将读取的数据存在一个数组中      Loop      k = 0      For i = 1 To 10          For j = 1 To 110              k = k + 1              Cells(j, i) = arr(k)          Next      Next      Close #1  End Sub  Sub dhfkd()
     k = 0
     Dim arr(1 To 1100) As Variant
     Open ThisWorkbook.Path & "\num2.txt" For Input As #1
     Do While Not EOF(1)        'EOF(1)用来判断#1是否读到头了，到头返回TRUE
         Input #1, x           '读取一个数据
         k = k + 1
         arr(k) = x            '将读取的数据存在一个数组中
     Loop
     k = 0
     For i = 1 To 10
         For j = 1 To 110
             k = k + 1
             Cells(j, i) = arr(k)
         Next
     Next
     Close #1
 End Sub
 
2.Line Input语句 
 
格式：LineInput  #文件号，字符型变量
 功能：从打开的顺序文件中读出一个记录，即一行信息   
 用Line input来读取由Print写入的数据，Line Input读取一整行的数据~
 
[vb] view plain copy print?Sub djhfdljf()      Open ThisWorkbook.Path & "\mytxt.txt" For Output As #1      a = 123: b$ = "SBCD"      Print #1, a, b$      Print #1, a; b$      Close #1      Open ThisWorkbook.Path & "\mytxt.txt" For Input As #1      Line Input #1, x$      Debug.Print x$      Line Input #1, x$      Debug.Print x$      Close #1  End Sub  Sub djhfdljf()
     Open ThisWorkbook.Path & "\mytxt.txt" For Output As #1
     a = 123: b$ = "SBCD"
     Print #1, a, b$
     Print #1, a; b$
     Close #1
     Open ThisWorkbook.Path & "\mytxt.txt" For Input As #1
     Line Input #1, x$
     Debug.Print x$
     Line Input #1, x$
     Debug.Print x$
     Close #1
 End Sub
 

 
 
3.Input函数           
 

 格式：Input(字符数，#文件号)
     功能：从文件中读取指定字符数的字符
     示例：A$=Input(20, #1)
         顺序文件的缺点是不能快速地存取所需的数据，也不容易进行数据的插入、删除和修改等工作，因此对于经常要修改数据或取出文件中个别数据，均不适合使用，但对于数据变化不大，每次使用时又需要从头往后顺序地进行读写，它还是不失为一种好的文件结构

VB中的数据输出： 
 
    1,使用标签控件(label),
 
            例子：labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"
 
    2，使用print方法，
 
            print方法用于在窗体（form）,立即窗口（Debug）,图片框(picturebox)或打印机（printer）等对象中显示或打印输出字符串或表达式的值。
 
          语法格式：
 
                     [<对象名称>.]print[<表达式列表>][，/；]
 
      注意事项：  1，print方法具有计算和输出的双重功能，先计算表达式的值后输出。
 
                            2，当输出多个表达式时，个表达式之间用逗号“，”或分号“；”隔开。前者按标准格式输出，既每隔14列为一   个输出区；后者是紧跟着前一项输出。
 
                            3，为了使上下两个print语句输出内容显示在同一行上，则需要再上一个print语句的最后加上逗号或者分号。
 
           例子：
 
                                       对应输出的结果：
 
                      
 
                             4，与print方法有关的函数：
 
                                            <1>,tab函数。在print方法中，可以使用Tab函数对输出的结果进行定位。格式：Tab(n),它用来指定表式输出的起始列号。
 
                                           <2>,spc函数，在print方法中，用spc函数跳过n列。格式：spc（n）,其中n是在显示或打印下一个表达式之前插入的空格数。  例子：
 
                                  对应输出的结果：
 
              
 
    3，使用信息框函数（msgbox）
 
         msgbox函数的使用格式：
 
                           <变量名>=msgbox(<提示信息>[,<对话框类型>[，,<对话框标题>]])
 
     对应属性的使用：
 
                          
 
 
 
 
 
 
 
常量值
 
 
说明
 
 
vbOKOnly
 
 
0
 
 
只显示“确定”按钮（缺省值）
 
 
VbOKCancel
 
 
1
 
 
显示“确定”和“取消”按钮
 
 
VbAbortRetryIgnore
 
 
2
 
 
显示“终止”、“重试”和“忽略”按钮
 
 
VbYesNoCancel
 
 
3
 
 
 显示“是”、“否”和“取消”按钮
 
 
VbYesNo
 
 
4
 
 
 显示“是”和“否”按钮
 
 
VbRetryCancel
 
 
5
 
 
显示“重试”和“取消”按钮
 
 
VbCritical
 
 
16
 
 
显示“关键信息”图标
 
 
VbQuestion
 
 
32
 
 
显示“问号”图标
 
 
VbExclamation
 
 
48
 
 
显示“警告消息”图标
 
 
VbInformation
 
 
64
 
 
显示“通知消息”图标
 
 
vbDefaultButton1
 
 
0
 
 
第一个按钮是缺省值（缺省设置）
 
 
vbDefaultButton2
 
 
256
 
 
第二个按钮是缺省值
 
 
vbDefaultButton3
 
 
512
 
 
第三个按钮是缺省值
 
 
vbDefaultButton4
 
 
768
 
 
第四个按钮是缺省值
 
 
vbApplicationModal
 
 
0
 
 
应用程序强制返回；应用程序一直被挂起，直到用户对消息框
 
 作出响应才继续工作
 
 
vbSystemModal
 
 
4096
 
 
系统模式：在用户响应消息框前，所有应用程序都被挂起。
 
 
vbMsgBoxHelpButton
 
 
16384
 
 
将Help按钮添加到消息框
 
 
VbMsgBoxSetForeground
 
 
65536
 
 
指定消息框窗口作为前景窗口
 
 
vbMsgBoxRight
 
 
524288
 
 
文本为右对齐
 
 
vbMsgBoxRtlReading
 
 
1048576
 
 
指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
 
 
 
对应输出的结果：
 
 
 
 
 
VB中的数据输入
 
               1，使用文本框控件（textbox）输入数据；
 
               2，使用输入框函数（inputbox），语法格式：
 
                   变量名=inputbox（<提示内容>，[<对话框标题>]，[<默认值>]）
 
例子：
 
          对应输出的结果：
 
               这些是VB中一些和输入输出有关的控件，函数，也是我们学习VB最需要掌握的基础知识。
 
 
 
 
 
 

1、输入语句
 
变量名 = InputBox(“请输入变量的值”)
 
2、输出语句
 
Print 表达式
 
3、声明语句
 
Dim 变量名 As 数据类型
 
Dim 变量名1 As 数据类型，变量名2 As 数据类型，…
 
Dim 数组名（1 To n） As 数据类型
 
4、赋值语句
 
变量名 = 表达式
 
5、注释语句
 
‘注释文字
 
6、分支语句
 
①单分支语句
 
If 条件 Then
 
语句组
 
EndIf
 
②双分支语句
 
If 条件 Then
 
语句组A
 
Else
 
语句组B
 
EndIf
 
7、循环语句
 
①Do循环语句
 
Do While 循环条件
 
语句组
 
Loop
 
②For循环语句
 
For 循环变量 = 初值 to 终值 Step 步长
 
语句组
 
Next 循环变量

 
一.杂谈
 
      其实这部分就是用来发发牢骚，随便乱扯，跟vb6.0的学习完全没有半毛钱的关系
 
      vb6.0按道理上来说已经是一个老古董了，可以说已经是个过时的语言。现在也没有听说有用vb6.0开发的商业软件。所以说如果以学一门语言来充实就业的技能树为目的可以说是一个大失误。
 
      在我的心目中vb6.0就是一个自娱自乐的东西，编出来的东西不太好但是可以满足自己的一些需要，是一个让自己方便的工具，毕竟可以十分简单的构建出一个桌面程序。可以大大的方便自己，让自己实现自己的想法而不用过多的注意桌面程序构建的细节。
 
      另一个原因是它很小，精简版才5.9M，就算是什么企业版的也才100多M。
 
二. vb6.0编程的准备工作
 
      首先肯定是安装软件了，可以是精简版也可以是企业版什么的，不过精简版里面在”工程”->”部件”中有些东西不能用。对于vb6.0的安装包网上有，安装教程也不少所以这里就不多说了。
 
      其次是给代码窗口添加鼠标滚动的功能，这个网上也有教程，百度”vb6.0鼠标滚轮”或者看我的收藏。
 
      到目前为止已经可以开始编程了，虽然这里讲的很快，不过自己操作的话还是要花些时间的。而且前面都是去网上搜，不是因为懒，实在是网上很详细如果抄过来的话就没意思了，跑题了。
 
      
 
三.输入与输出
 
      个人认为，既然是一个程序它肯定得有输入输出。当然也可以没有输入只有输出比如”hello world”，或者没有输入输出就执行一个运算（不过没想到有什么意义）。但是这不能否认输入输出是十分重要的一个方面。下面是一些简单输入输出的汇总。
 
输入：
 
文字输入：可以说是说到”输入”第一个蹦到我脑子里的东西。对于输入文字当属文本框控件(Textbox)和InputBox函数了，这里先以这两个为例。
 
 
 
 
  
 
   
文本框输入：
 
  
 
 
 
 
 
  
 
   
 
  
 
 
 
 
Private Sub Command1_Click()
    Text2.Text = Text1.Text
End Sub
 
 
 
 
  

   
</pre></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="font-size:18px"><span style="white-space:pre"></span><img src="https://img-blog.csdn.net/20150829102257126?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast" alt="" /></span></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="white-space:pre"></span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 21pt"><span style="font-size:18px">在输入标签后的文本框中输入文本单击确认则在下面的文本框中显示输出。</span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 21pt"><span style="font-size:18px"></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="font-size:18px">InputBox函数：</span></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><pre name="code" class="vb">
  
 
 
 
 
Private Sub Command1_Click()
    Text2.Text = InputBox("输入想要输入的文本", "输入对话框", "在此输入文本")
End Sub


 
 
 
 
  

   
</pre></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="font-size:18px"></span></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="font-size:18px"><span style="white-space:pre"></span><img src="https://img-blog.csdn.net/20150829103932056?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast" alt="" /></span></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px">单击输入按钮后会弹出一个对话框，此文本框的输入内容将会作为IntputBox函数的返回值。</span></p></blockquote></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="white-space:pre"></span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="white-space:pre"></span></span></p><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"></p><p style="margin:3.35pt 0cm"></p></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="white-space:pre"></span></span></p></blockquote><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="white-space:pre"></span></span></p><p style="margin:3.35pt 0cm"><span style="font-size:18px">文字输出：输出可以在窗体输出，文本框输出，标签输出和<span lang="EN-US" style="font-family:Arial,sans-serif">MsgBox</span>函数。<span lang="EN-US" style="font-family:Arial,sans-serif"></span></span></p><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p><span style="font-size:18px"><span lang="EN-US" style="font-family:Arial,sans-serif">      <span style="white-space:pre"></span></span><span style="font-family:宋体">窗体输出：</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p><span style="white-space:pre"><span style="font-size:18px"></span></span></p></blockquote></blockquote><pre name="code" class="vb">Private Sub Form_Click()
    Dim MyString As String              '声明一个字符串变量
    MyString = "这里就是要输出的文本"
    Print vbclf                         '换行
    Print vbclf
    Print vbclf
    Print Space(5) & MyString           '输出5个空格和文本
End Sub
   
 
   
 
    

     
</pre></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="white-space:pre"><span style="white-space:pre"></span></span><img src="https://img-blog.csdn.net/20150829181800647?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" /></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span lang="EN-US" style="font-family:Arial,sans-serif"><span style="font-family:'Times New Roman'"><span style="font-size:18px"></span></span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">单击窗体则显示上面运行结果。</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">文本框输出：</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">在讲输入时为了显示输入的内容，就是使用文本框输出，因此这里不再举例。</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">标签输出：</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="font-family:Times New Roman"></span></span></p></blockquote></blockquote><pre name="code" class="vb">Private Sub Form_Click()
    Dim MyString As String                   '声明一个字符串变量
    MyString = "这里就是要输出的文本"
    Label1.Caption = MyString
    Label2.BackColor = RGB(200, 200, 200)    '设置标签的背景色
 Label2.Caption = MyString
End Sub
     
 
     
 
      

       
</pre></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><span style="white-space:pre"></span><img src="https://img-blog.csdn.net/20150829182948710?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" /></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">单击窗体显示程序运行结果。上面的显示效果和在窗体的输出很像因此在下面再次使用标签显示同样的内容，不过把这个标签的背景色改为灰色而不是透明。</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-family:Times New Roman"><span style="font-size:18px">MsgBox函数输出：</span></span></p></blockquote></blockquote><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><blockquote style="margin:0 0 0 40px; border:none; padding:0px"><p style="margin:3.35pt 0cm 3.35pt 39pt; text-indent:-18pt"><span style="font-size:18px"><span style="font-family:Times New Roman"></span></span></p></blockquote></blockquote><pre name="code" class="vb">Private Sub Form_Click()
Dim MyString As String                   '声明一个字符串变量
MyString = "这里就是要输出的文本"
MsgBox MyString, vbOKCancel, "输出对话框"
End Sub
       
 
       
 
        
 
         
 
        
 
       
 
       
 
        
 
        

 
 
       
 
      
 
      
四.注意
 
      
文本框单纯做为输出时将其Locked属性设为True让其不可编辑的话看起来会比较正规。文本框输出多行文本时需要将MultiLine设为True是才可以否则vbcrlf无效(看起来就是不能换行)。MsgBox与MsgBox()的差别在于MsgBox()必须将返回值赋给一个变量，否则会出现编译错误。