精华内容
下载资源
问答
  • 实验11 用循环语句打印数学乘法表 实验内容 掌握使用For Next语句/Do ...Windows7,Office、VB开发环境。 实验运行结果 点击“打印”后的效果: 点击“清屏”后的效果: 实验代码 Private Sub Command1_Click() ...

    实验11 用循环语句打印数学乘法表

    实验内容

    1. 掌握使用For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制
    2. 用循环语句打印数学乘法表
    3. 编写实验报告。

    实验环境

    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中输出的内容。

    展开全文
  • 关于VBPrint函数在数组中换行的理解 大家书上肯定看过这个程序:Dim a(5,5)For i = 0 to 5For j = 0 to 5a(i,j) = j +1Print a(i,j); ‘这个是用蓝色标记的Next jPrint ’这个是用红色标记的Next i(手机党看...
    关于VB中Print函数在数组中换行的理解
    大家书上肯定看过这个程序:
    Dim a(5,5)
    For i = 0 to 5
     For j = 0 to 5
     a(i,j) = j +1
     Print a(i,j);   ‘这个是用蓝色标记的
     Next j
     Print    ’这个是用红色标记的
    Next i 
    (手机党看不到颜色,可以看注释)
    对,结果就是一个6X6的二维表格。但是问题是,用红色标记的print是做什么用的?
    书上的解释是,print的作用是换行,可大家知道,print是行元素(就是以输出占一行的),那输出print就是下面这效果了啊
    (绿色代表print输出了一行)
    图片
    可事实上,它却是规中规矩的这样子的:(因为数据比较多,仅输几行演示)
    图片
    那么,原因是为什么呢?Print作为行元素为什么没占一行呢?
    关键就在于用蓝色标记的print上。
    大家注意到没有,用蓝色标记的print有分号。也就是说,当上一内容输入完后,光标会定位在上一内容的后面而不会换行(书上对分号的解释就是这样子的),其实,这时相当于print成了块元素,也就是它可以在一行内输出1,2,3,4,5,6一排数字。
    当输出完数字6后,因为内循环的语句是
    Print a(i,j);  意味着下一元素还是在当前这行输出的,但是内循环已经完全执行了一遍,接下来输出的是外循环的print,所以紧跟在6后面的是一个print(此时print为行元素,如下图)。当开始i = 1(刚开始是i = 0)的内循环时,因为上一个print是行元素,所以下一次输出的a(i,j)就换行了。这就是为什么书上说外循环的print是换行作用。
    图片

     
    希望我解释清楚了o(╯□╰)o

    转载于:https://www.cnblogs.com/losepure/p/3469903.html

    展开全文
  • vb换行的几种方法

    万次阅读 2011-11-12 14:46:24
    vbCrLf Dim strs As String strs = “年”+ vbCrLf +“ 月” 输出结果年和月在不同的行 在ReportingServer, msgbox和print 可以用 vbCrlf

    vbCrLf

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

    展开全文
  • 当连续两行Print语句时,如果第一个Print输出语句后边没有逗号或分号就会换行,如果有逗号,两个会输出在同一行且用空格隔开,如果有分号会连在一起输出在同一行。不带分号或逗号的输出带逗号的输出带分号的输出Tab...

    当连续两行Print语句时,如果第一个Print输出语句后边没有逗号或分号就会换行,如果有逗号,两个会输出在同一行且用空格隔开,如果有分号会连在一起输出在同一行。

    b7a5045c95a8d421ae40f322aaa0c534.png

    不带分号或逗号的输出

    67c6651c347b3b7b69fa231a9a3af7a3.png

    带逗号的输出

    c6742cc5a832b5f84ddb5f1873f0b0ef.png

    带分号的输出

    Tab(n) 光标移动到第n个字符,从头开始算

    例如:

    Print “abc”;tab(8);”def”

    4f0fa7cb1d2eea55ccbab8d11bbd3126.png

    tab()

    如果n小于等于第一个字符串的长度,光标会移动到下一行的第n个字符。例如:Print “abc”;tab(2);”def”

    ecffd2dd338b14d2ca273a5045215030.png

    tab()

    Spc(n) 后移n个字符

    12d2c87a902f78ceae80bb76ecb0d422.png

    spc()

    Space(n) 插入n个空格

    742664dd66011c660ab00a26b4c040d8.png

    space()

    tab(n)和spc(n)都是用来把光标向后移动n个字符的位置 tab(n)是绝对偏移da量,从该列的开头开始计算,移动n个字符的位置.spc(n)是相对偏移量,从光标处开始计算,移动n个字符的位置,space跟他们不同:space() 是插入多少个空格。 space(5) 就是插入5个空格。

    展开全文
  • 今天学习了刘金玉老师零基础VB教程的第60期和61期,学习的主要内容是字符输出换行与连接符号,以及常用的数学函数第一节。一、字符输出换行与连接符号1.print内容时候换行的多种表达方法①回车符②换行符③与连用的...
  • print学习:[对象名.]print[表达式][,|;]print a,bprint a;b注意分号是在同一行显示中间间隔为1个空格逗号在同行显示,中间间隔为14个字符!...(2)每执行一次print方法,都会换行! 转载于:h...
  • VB 输出有规律的图形,可打字字符组成长方形、四边形、三角形、直角三角形等图形,以下代码是输出长方形和四边形的代码,更多源码请在本页面下载完整源码。  Private Sub Command1_Click()  For i = 1 To 5 '输出...
  • VB 6.0 数组参数调用实例:  Dim A1(), B1(), C1() '声明数组  Private Sub Form_Load()  Dim i As Integer '给数组赋初值 ... If (i 1) Mod 10 = 0 Then Picture3.Print '换行  Next i  End Sub
  •  Picture1.Print '换行  Next i  End Sub  Private Sub Form_Resize()  Picture1.Width = Form1.Width - 100 '图片框与窗体的相对位置不变  Picture1.Height = Form1.Height - 1000  Command1.Left = Form1....
  • ※部分VB文章汇总B※

    2013-02-02 20:08:48
    ★第七部分 ★ ★VB小技巧:字符变量中双引号的输入  ...★VB将自定义资源中的文件释放出来  ...★VB在菜单上增加图标  ...★VB表格控件总览与例程分析  ...★利用VB函数Dir()实现递归搜索目  ...★vb 换行...
  • VB讲课笔记05:数据输入输出

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

    2013-05-09 08:52:00
    怎么在创建的文件中输入文字Open "c:\aaa.TXT" For Append As #1怎样在输入文字后,就是写到记事本中以后,带着那个不换行或换行符?----------------------------------------------------------------------------...
  • 打印控件Print Control

    2009-03-18 13:40:46
    Print Control 打印控件 [鉴于网友的评论,我个人感觉这的确是较老的东西了,现在已经是DOT NET时代了,WIN32控件已经基本上不用了,更何况我提供的代码是VB6写的,所以为了不浪费大家的时间,在此说明一下] 我从...
  • VB循环读写TXT文件

    千次阅读 2014-12-17 15:34:26
    这个问题看似简单,可实际上在网上搜索后给出的...Debug.Print TextLine ' 在调试窗口中显示数据。 可这种方法却忽略了一种情况,导致会出错。 新建一个TXT文档,随便输入一行,回车换行,保存退出。这时候用上面这
  • 转义字符n 换行 " 双引号 ' 单引号 代表一个反斜线字符'''print("连接字符 ndgfgfgfg") print("连接字符 "dgfgfgfg"") print("连接字符 dgfgfgfg")运行结果:>lua -e "io.stdout:setvbuf 'no'" "Test.lua" 连接...
  • 5、DGVPrint与VB2008Print组件在以工资条方式打印表格时,添加了是否自动换行续打的功能(即,如果工资条列太多在一行中打印不下时,可以指定自动换行续打); 6、修改了EasyReport组件的设计界面,每个区域的属性...
  • print显示当中,分号的使用,可以让语句紧凑,否则没有分号会自动换行。 在数组的显示中,可以使下标变成动态下标。 例如 显示group(a),要使显示的a为动态下标,将其改为“group(“; a”)”即可 ...
  • f006.ZIP 以文件方式保存和恢复treeview(7KB) 51,f005.ZIP 显示滚动的字(4KB) 52,f004.ZIP 在 TextBox 中自动换行(2KB) 53,f003.ZIP 在Text中实现快速增量查询(4KB) 54,f002.ZIP ...
  • 而DGVprint是以VB2008Print为基础开发的(为非可视化组件),为专用的表格打印控件,可以很方便打印单个DatatGridview、DataGrid、DataTable表格的内容,并提供打印时的可视化设置界面,可设置表格打印方式(普通打印...
  • 对DGVPrint组件,设置PrintRange属性为相应的值即可,而对于VB2008Print组件,请先用CopyDataGridViewSelectedRange函数将要打印的DGV复制到新的DGV,然后再用PrintDGV函数打印这个新DGV即可。 3、增加了大量的绘图...
  • UltraEdit-32

    热门讨论 2008-12-11 18:22:00
    - Crash in print preview with Alt-C command - Issue with HTML Tidy and "Use memory buffers for editing" option - Sort preference now remembered in FTP/SFTP browser - Fixed crash in Find when ...
  • 实例315 按设定值使标签自动换行 实例316 使用标签控件模拟按钮动作 实例317 限制文本框输入字符数 实例318 限制文本框只能输入数字 实例319 自动删除文本中的非法字符 实例320 格式化文本为指定格式 实例321...

空空如也

空空如也

1 2
收藏数 22
精华内容 8
关键字:

printvb换行