精华内容
下载资源
问答
  • VB6控制台输入输出

    2020-07-26 00:01:19
    本源码为 VB6 以控制台或 cmd.exe 窗口方式显示和接受输入文字,在用批处理调用时可直接在 cmd.exe 窗口输出文字显示并可获取键盘输入到程序内处理。同时还支持输出文字颜色和背景颜色以及标题栏文字的设置,给您不...
  • vb输入输出

    千次阅读 2016-06-29 10:45:50
     1. 打开文件(Open) Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度]  说明: (1)文件名; ...(2) 模式用于指定文件访问的方式,包括: ... Input——顺序输入输入给自
    

    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中输入输出数据的总结

    万次阅读 2011-11-29 12:21:33
    VB中的数据输出:   1,使用标签控件(label),  例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"  2,使用print方法,  print方法用于在窗体(form...

    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最需要掌握的基础知识。

     

     

     

    展开全文
  • vb常用语句

    热门讨论 2021-02-27 15:41:04
    2、输出语句 Print 表达式 3、声明语句 Dim 变量名 As 数据类型 Dim 变量名1 As 数据类型,变量名2 As 数据类型,… Dim 数组名(1 To n) As 数据类型 4、赋值语句 变量名 = 表达式 5、注释语句 ‘注释文字 6、分支...

    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学习笔记 之 输入输出(一)

    千次阅读 2015-08-28 21:07:38
    其实这部分就是用来发发牢骚,随便乱扯,跟vb6.0的学习完全没有半毛钱的关系 vb6.0按道理上来说已经是一个老古董了,可以说已经是个过时的语言。现在也没有听说有用vb6.0开发的商业软件。所以说如果以学一门语言来...

    .杂谈

          其实这部分就是用来发发牢骚,随便乱扯,跟vb6.0的学习完全没有半毛钱的关系

          vb6.0按道理上来说已经是一个老古董了,可以说已经是个过时的语言。现在也没有听说有用vb6.0开发的商业软件。所以说如果以学一门语言来充实就业的技能树为目的可以说是一个大失误。

          在我的心目中vb6.0就是一个自娱自乐的东西,编出来的东西不太好但是可以满足自己的一些需要,是一个让自己方便的工具,毕竟可以十分简单的构建出一个桌面程序。可以大大的方便自己,让自己实现自己的想法而不用过多的注意桌面程序构建的细节。

          另一个原因是它很小,精简版才5.9M,就算是什么企业版的也才100M

    . 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()必须将返回值赋给一个变量,否则会出现编译错误。


    展开全文
  • 在c语言: 1. 使用`%c`输出的是字符本身。 2. 使用`%d`输出的是字符对应的ASCII。 3. 在ASCII,小写英文字符 = 大写英文字符+32。 4. 还有注意区分单引号`''`和双引号`""`的区别。 单引号:字符,是可以进行加减...
  • VB编程:IF语句判断成绩优良-8

    千次阅读 2016-11-16 09:47:08
    运行效果: 源代码: Private Sub Command1_Click()  Dim i As Integer  i = Val(Text1)  If i = 100 Then    MsgBox "满分"  ElseIf i &gt;= 85 Then    MsgBox "......
  • Java数据压缩与传输实例 1个目标文件 摘要:Java源码,文件操作,数据压缩,文件传输 Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、...
  • 二维数组的位置定位 代码: Private Sub Command1_Click() Dim a(1 To 9, 1 To 9) 先定义a的值范围 For i = 1 To 9 For j = 1 To 9 a(i, j) = "a" &...“,所以是j值横着1~9输出 Next Print...
  • VB讲课笔记05:数据输入输出

    千次阅读 2018-03-09 21:37:11
    VB讲课笔记05:数据输入输出一、数据输出1、Print 方法打印一个或多个数据,用半角逗号或分号隔开。怎么利用一个Print语句打印多行内容呢?要利用VB提供的换行符号常量:vbCrLf。其实,vbCrLf = Chr(13) &amp; ...
  • VB输入字母字符后倒序输出存放

    千次阅读 2018-04-12 18:20:37
    筛选在Text1文本框输入的字母字符,并反序在Text2存放。 效果实例: 提示 要考虑字母的大写和小写。 首先利用Len函数求Text1.Text字符串长度,然后利用For循环结构和Mid函数逐一取字符进行判断是否为...
  • VB 控制台输出"HelloWorld!

    千次阅读 2016-05-08 08:57:15
    VB在控制台下输出HelloWorld。
  • VB输出数据和输入数据

    千次阅读 2015-10-18 19:55:48
    输出数据和输入数据 1、VB提供了多种输出数据的方法,以下是主要几种: A用对象Print方法输出数据 B用标签Label控件输出文本 C用文本框TextBox控件输出文件 D用MsgBox函数输出数据。 2、Print 方法用于在窗体...
  • 各位大神救我。...不知应该使用什么语句或者控件的哪个属性,来使程序依据后来输入的数据去计算后给出结果。我想这应属于VB的磁盘操作,而不是文件操作。 请大神帮忙。谢谢。 我的邮箱:victor.wuvw@hotmail.com
  • package Exercise; import java.util.Scanner; public class Test_09 { ...//练习2 键盘输入一个正整数 输出 个位 十位 百位 千位 的数字 public static void main(String[] args) { input = new Scann
  • vb.net 教程 2-8 流程控制:跳转语句GOTO

    千次阅读 2017-04-04 13:12:34
    执行GOTO语句将无条件地跳转到过程内的标签所在代码。 需要注意的是:由于GoTo的跳转使代码具有不确定性,而且阅读和维护会变得更加困难,应该尽可能的减少使用。 看以下代码,输出0-100,但是当等于5时,结束输出...
  • VB6.0 文件操作语句

    2019-09-26 04:10:12
    能够对文件输入/输出 (I/O)。 语法 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] Open 语句的语法具有以下几个部分: 部分 描述 pathname 必要。字符串表达式,...
  • C语言

    万次阅读 多人点赞 2019-12-18 23:01:50
    C语言 42.C语言是一种计算机高级语言。 43.C语言允许直接访问物理地址,能进行位操作。 44.C语言是结构化程序设计语言 45.c程序要通过编译,连接才能得到可执行的目标程序 ...51.C语言本身没有输入...
  • 文本框,与Label不同的是,这个支持用户输入文字内容。 主要使用的属性: Text:文本框显示的内容 Multiline:是否多行显示 ScrollBars:不显示、显示垂直、显示水平、同时显示垂直或水平滚动条。 实例一: ...
  • visual Basic的输入输出有着丰富的形式。 我们主要介绍窗体的输入输出操作。 我们主要学习知识 数据输出 Print 函数 与Print 有关的函数 其他方法属性 数据输入InputBox函数 MsgBox函数和MsgBox语句 字形...
  • 1. 应用窗体单击事件从键盘输入两个数分别放在x和y变量比较它们大小要求将大数放在x小数放在y 分析两个变量交换必须借助第三个变量并且注意赋值语句的写法等价的行是 x的命令按钮输入以下代码 新建一个名称为...
  • 程序,最大值和最小值的比较类似,先用一个布尔型变量“c”和“if”条件语句来区分第一次提示还是后续提示,输出相应的“输入提示框”;再用“if”条件语句和“isnumeric()”函数判断输入是否为数值,不是则用...
  • VB 输出有规律的图形

    2010-06-07 13:59:01
    VB 输出有规律的图形 VB 输出有规律的图形
  • 以下是我做的代码,-----------------------------------------------------模块代码----------------------------------------------Attribute VB_Name = "DosIo"私有的数据结构申明Private Type STARTUPINFO ...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    程序所完成的输入输出功能是通过Console类来完成的,Console是在名字空间System已经定义好的一个类。Console类有两个最基本的方法WriteLine和ReadLine。ReadLine表示从输入设备输入数据,WriteLine则用于在输出...
  • 1、MsgBox函数 信息框函数(MsgBox)是常用的输出信息的函数。它在对话框显示信息,等待用户单击按钮,并返回一个整数以标明用户单击了哪一个按钮。其语法格式如下: 变量=MsgBox (信息内容) [, [, ]] ) 说明:...
  • 声明:本文属于原创,本人精心制作,欢迎... 本节介绍VB中的If语句,很简单,用于判断。  If语句花样: 如果 条件1 成立 做 代码1 否则 做 代码2 完毕  If Val(Text1.Text) Mod 2 = 1 Then  Label1.Caption =
  • #include int main(int argc, const char * argv[]) {     ... printf("请输入年份:\n");  scanf("%d",&year);  printf("请输入月份:\n");  scanf("%d",&month);   if

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,706
精华内容 5,082
关键字:

vb中输入输出语句