xxxxxx学院
授课时间
xxx年xxx月xxx 日
第 三 周星期 五 第 一 大节
授课地点
授课题目
第五章 数据输入、输出
授课专业班级
下列属于vb字符串函数是
教学目的
与
教学要求
1． 熟练掌握vb程序设计中数据输出的各种方式。
2． 熟练掌握vb程序设计中数据输入的各种方式、方法。
3． 掌握字形属性的设置方法。
主
要
内
容
1． 数据输出—Print方法。
2． 数据输入—InputBox函数。
3． MsgBox函数和MsgBox语句。
4． 字形。
重点与难点
数据的输入输出语句、函数的定义格式。
教学方法
手段（教具）
多媒体演示和板书相结合
参考资料
Visual Basic 程序设计（第二版），田更，王海等编著，中国铁道出版社。
课后作业与
思考题
课后习题：5.2、5.5 
教学后记
教案
讲稿部分
第五章 数据输入输出
引入：系统演示：学生成绩管理系统
一、数据输出—Print方法
（一）Print方法
Print方法的一般格式：
[对象.]Print[表达式表][,|;]
说明：
1．[对象名.] 可以是窗体名、图片框名，也可是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。
2．表达式：数值或字符串。
3．分号、逗号(使用分号 (;) 直接将插入点定位在上一个被显示的字符之后。使用 Tab(n) 将插入点定位在绝对列号上。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。如果省略 charpos，则在下一行打印下一字符。)
4．先计算后输出。
5．PRINT自动换行
（二）与Print方法有关的函数和方法 
1.Tab函数
格式：Tab[(n)]
可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。这就使 Tab 可用来替换国别中的逗号，此处，逗号是作为十进制分隔符使用的。
说明:
1）如果当前行上的打印位置大于 n，则 Tab 将打印位置移动到下一个输出行的第 n 列上。如果 n 小于 1，则 Tab 将打印位置移动到列 1。如果 n 大于输出行的宽度，则 Tab 函数使用以下公式计算下一个打印位置：n Mod width。
例如，如果 width 是 80，并指定 Tab(90)，则下一个打印将从列 10 开始（90/80 的余数）。如果 n 小于当前打印位置，则从下一行中计算出来的打印位置开始打印。如果计算后的打印位置大于当前打印位置，则从同一行中计算出来的打印位置开始打印。
2）当 Print 方法与 Tab 函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。但是，在已打印字符的个数与那些字符所占据的定宽列的数目之间不存在任何关系。例如，大写字母 W 占据超过一个定宽的列，而小写字母 i 则占据少于一个定宽的列。
2. Spc函数
格式：Spc（n），n 参数是在显示或打印列表中的下一个表达式之前插入的空白数。与 Prin
t # 语句或 Print 方法一起使用，对输出进行定位。
说明：
1）如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。如果 n 大于输出行的宽度，则 Spc 利用下列公式计算下一个打印位置：
currentprintposition + (n Mod width)
例如，如果当前输出位置为 24，而输出行的宽度为 80，并指定了 Spc(90)，则下一个打印将从位置 34 开始（当前打印位置 + 90/80 的余数）。如果当前打印位置和输出行宽度之间的差小于 n（或 n Mod width），则 Spc 函数会跳到下一行的开头，并产生数量为 n – (width – urrentprintposition) 的空白。注意 要确保表格栏宽度足以容纳较宽的字符串。
2）当 Print 方法与间距字体一起使用时，使用 Spc 函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。但是，在已打印字符的个数与那些字符所占据的定宽列的数目之间不存在任何关系。例如，大写英文字母 W 占据超过一个定宽的列，而小写字母 i 则占据少于一个定宽的列。
注意：Print "ABC"; Tab(5); "ABC"与Print "ABC"; Spc(5); "ABC"之间的区别。
3. Space$函数
  格式：Space$(n)，返回特定数目空格的 Variant (String)。
例如：使用 Space 函数来生成一个字符串，字符串的内容为空格，长度为指定的长度。
Dim MyString
' 返回 10 个空格的字符串。
MyString = Space(10)
' 将 10 个空格插入两个字符串中间。
MyString = "Hello" & Space(10) & "World"
说明：Space 函数在格式输出或清除固定长度字符串数据时很有用。
4. Cls方法
格式：object.Cls，object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。用于清除运行时 Form 或 PictureBox 所生成的图形和文本。
5. Move方法
object.Move left, top, width, height
Move 方法的语法包含下列部分：
1）object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
2）left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
3）top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。 
4）width 可选的。单精度值，指示 object 新的宽度。
5）height 可选的。单精度值，指示 object 新的高度。
说明：
1）只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。
2）对于 Frame 控件中的窗体和控件，坐标系统总是用“缇” 。移动屏幕上的窗体或移动 Frame 中的控件总是相对于左上角的原点 (0,0)。移动 Form 对象或 PictureBox 中的控件（或 MDIForm 对象中的 MDI 子窗体）时，则使用该容器对象的坐标系统。坐标系统或度量单位是在设计时 用 ScaleMode 属性设置。在运行时 使用 Scale 方法可以更改该坐标系统。
例如：使用 Move 方法在屏幕上移动一个窗体。
Private Sub Form_Click ()
  Dim Inch, Msg  ' 声明变量。
  Msg = "Choose OK to resize and move this form by "
  Msg = Msg & "changing the value of properties."
  MsgBox Msg  ' 显示信息。
  Inch = 1440  ' 将英寸设置为缇。
  Width = 4 * Inch  ' 设置宽度。
  Height = 2 * Inch  ' 设置高度。
  Left = 0  ' 将左边对准起点。
  Top = 0  ' 将顶部对准起点。
  Msg = "Now choose OK to resize and move this form "
  Msg = Msg & "using the Move method."
  MsgBox Msg  ' 显示信息。
  Move Screen.Width - 2 * Inch, Screen.Height - Inch, 2 * Inch, Inch
End Sub
（三）格式输出
格式：Format$(数值表达式，格式字符串)。
返回 Variant (String)，其中含有一个表达式，它根据格式表达式中的指令进行格式化。
格式输出举例：
Sub Form_Click ()
        Print Format$(12345.6, "000,000.00")
        Print Format$(12345.678, "###,###.##")
        Print Format$(12345.6, "###,##0.00")
        Print Format$(12345.6, "$###,#0.00")
        Print Format$(12345.6, "-###,##0.00")
        Print Format$(.123, "0.00%")
        Print Format$(12345.6, "0.00E+00")
        Print Format$(.1234567, "0.00E-00")
End Sub
二、字形
字体类型和大小
    1. 字体类型  对象.FontName[=“字体类型”]
    2. 字体大小  对象.FontSize[=点数]
其他属性
    1. 粗体字  　对象.FontBold[=Boolean]
    2. 斜体字  　对象.FontItalic[=Boolean]
    3. 加删除线  对象.Fontstrikethru[=Boolean]
    4. 加下划线  对象.Fontunderline[=Boolean]
    5. 重叠显示    对象.FontTransParent[=Boolean]
例如：设置字形、字体属性
new_str1$ = "microsoft visual basic 6.0"
new_str2$ = "可视化程序设计"
FontSize = 20
FontName = "system"
Print "system:"; new_str1$
Print
FontName = "modern"

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。