数据的输入和输出PPT学习教案

1、会计学1 数据的输入和输出数据的输入和输出 第1页/共49页 4.1 数据的输入 第2页/共49页 例如： Private sub Form_Click( ) c1$=chr$(13)+chr$(10) str1$= “请输入一串字符: str2$= “输入后按回车键, 或单击确定按钮 msg$=str1$+c1$+str2$ ss$=InputBox$(msg$,“输入函数InputBox示例”,“hello) Print ss$ End Sub P73.vbp 第3页/共49页 4.1.2 使用InputBox函数注意事项 第4页/共49页 例：输入三角形的边长，求面积。 Private

2、Sub Form_Click() Dim a !, b!, c!,s!,t! a = val(InputBox(“输入边长1:”) b = val(InputBox(“输入边长2:”) c = val(InputBox(“输入边长3:”) If a + b c Or b + c a Or a + c b Then Print 不能构成三角形，请重新输入个边 End If t = (a + b + c) / 2: s = Sqr(t * (t - a) * (t - b) * (t - c) Print 该三角形的面积：; s End Sub Start: GoTo start 单精度实数 第5

3、页/共49页 第6页/共49页 例例2： Print 5+7 第7页/共49页 (1)输出多个字符串 用逗号分隔，则按标准输出格式显示各数据，以14个字符位置为 单位把一个输出行分为若干个区段（输出区），逗号后的表达式在 下一个区段输出。 用分号分隔，则按紧凑格式输出数据 例如： Private Sub Form1_Click( ) c$=“求实创新”:d$=海纳百川 Debug.Print c$, d$ 分区输出 Debug.Print c$; d$ 紧凑格式输出 End sub 3. 输出格式说明 第8页/共49页 例如： Private Sub Form1_Click( ) a=12:

4、b=-3 Debug.Print a; b+a Debug.Print a, b 分区输出 End sub 3. 输出格式说明 第9页/共49页 (3)每执行一次Print方法要自动换行,除非末尾加上一个分号或 逗号。 (4)Print方法后面无任何表达式,表示输出一个空行；如果上一 个空Print方法的末尾有逗号或分号时，则该Print语句表示结 束上一个Print方法末尾的逗号或分号. 例如： Private Sub Form_Click() a$ = 5: b$ = 8 Debug.Print b, a 每执行一次Print要自动换行 Debug.Print a, b, Debug.Pr

5、int 13 和上一个Print在同一行输出 Debug.Print 下面输出一个空行 Debug.Print 输出空行 Debug.Print b; a; Debug.Print 结束上一个语句末尾的逗号或分号 Debug.Print b, a End Sub 3. 输出格式说明 第10页/共49页 功能：格式化输出函数规定输出数据的格式，返回值是字符 串。 格式 :Format(Expression, FormatSTR ) 说明： Expression：是要输出的内容,数值、日期或字符串类型的数 ； FormatSTR：是指定输出格式的格式字符串。 Format( ) 函数一般用于Pri

6、nt方法中。 例如： Print Format(123.45,”#.#”) 输出为 : 123.45 4.2.2 格式化输出函数Format( ) 第11页/共49页 P77, 表 41 4.2.2 格式化输出函数Format( ) 第12页/共49页 字符字符作用作用字符字符作用作用 #数值长度比指定小不数值长度比指定小不 在前后补在前后补0 %改成百分比改成百分比 0数值长度比指定小在数值长度比指定小在 前后补前后补0 $美元格式美元格式 .显示小数点显示小数点- ，+输出正负号输出正负号 ，千位分隔符千位分隔符E+，E-指数形式指数形式 数值格式化符号与作用 第13页/共49页 1)pr

7、int format$(12345,”00000000”) 00012345 print format$(12345,”#”) print format$(12345,”000”) print format$(23.45,”#.#”) 2) print format$(3.45,”000.00”) 3) print format$(12345.678,”#,#.#”) 4) print format$(12.67,”00.0%”) 5) print format$(12.67,”$#0.00”) 6) print format$(-123.45,”000.00”) print format$(

8、123.45,”+000.00”) 7) print format$(1234.56,”0.00E+00”) print format$(1234.56,”0.00E-00”) 12345 12345 23.45 003.45 12,345.68 1267.0% $12.67 -123.45 +123.45 1.23E+03 1.23E03 第14页/共49页 2日期与时间数据的格式化输出 将日期和时间数据按照指定的格式输出 符符 号号 作作 用用 d显示日期显示日期(131)，个位前不加，个位前不加0 dd 显示日期显示日期(131)，个位前加，个位前加0 ddd 显示星期缩写显示星期缩写(

9、SunSat) dddd 显示星期全名显示星期全名(SundaySaturday) ddddd 显示完整日期显示完整日期(日、月、年日、月、年) w 星期以数字表示星期以数字表示(17，1是星期天是星期天) ww 一年中的星期数一年中的星期数(153) m 显示月份显示月份(112)，个位前不加零，个位前不加零 mm显示月份显示月份(112)，个位前加零，个位前加零 mmm 显示月份缩写显示月份缩写(JanDec) mmmm 显示月份全名显示月份全名(JanuaryDecember) 第15页/共49页 y 显示一年中的天数显示一年中的天数(1366) yy 以两位数显示年份以两位数显示年份(

10、0099) yyyy 四位数显示年份四位数显示年份(01009999) q季度数季度数(14) h显示小时显示小时(023)，个位前不加零，个位前不加零 hh显示小时显示小时(0023)，个位前加零，个位前加零 m在在h后显示分后显示分(059)，个位前不加零，个位前不加零 mm显示分显示分(0059)，个位前加零，个位前加零 s显示秒显示秒(059)，个位前不加零，个位前不加零 ss显示秒显示秒(059)，个位前加零，个位前加零 a/p12小时的时钟，中午前加小时的时钟，中午前加A/a am/pm12小时的时钟，中午前加小时的时钟，中午前加AM/am 第16页/共49页 注意： m，mm:

11、跟在h，hh后的时候表示分钟；否则表示月份 非格式说明符“”、“”、“：”等照原样输出 举例： Private Sub Form_Click( ) Print Format(Now, yyyy-mm-dd dddd) Print Format(Now, ddddd) Print Format(Now, yyyy-mm-dd dddd hh-mm-ss am/pm) Print Format(Now, dd mmmm yyyy) Print Format(Now, h:mm:ss ) Print Format(Now, m/d/yy h:mm) End Sub P79.vbp 第17页/共49页

12、 3字符串格式化输出 符号符号作用作用 强制以大写显示强制以大写显示 当实际字符位数小于指定输出位数时当实际字符位数小于指定输出位数时, 字符串字符串 前加空格前加空格 Tab(15); 姓名; Tab(30); 专业 Debug.Print 001; Tab(16); 王玲; Tab(30); 计算机科学 Debug.Print 002; Tab(16); 李爽; Tab(30); 古代汉语 End Sub P80.vbp 第20页/共49页 第21页/共49页 2Spc函数 (1)函数调用格式：Spc(n) (2)函数功能：用在Print方法中，其作用表示输出n个空格。 说明： 参数n是一

13、个数值表达式，其取值范围为032767的整数， 函数Tab(n)和Spc(n)间的区别： Tab(n)的作用表示使被输出的内容输出到第n列（从对象的左 端开始计算）的位置处。 而Space(n)表示两个输出项间空n格。 第22页/共49页 1. ScaleWidth和ScaleHeight属性 功能：设置或返回对象的宽度和高度。 使用格式： 对象名.ScaleHeight=value 对象名.ScaleWidth=value 说明： 对象名可以是窗体名、图片框名或打印机对象（Printer） ，如果省略对象名时，表示当前窗体。 只能在程序代码中使用，不能在设计界面时设定其值。 若省略“=Val

14、ue”，则表示返回当前对象的宽度和高度。 第23页/共49页 第24页/共49页 Private Sub Form_Click() Print 当前坐标为(; Form1.CurrentX; ,; Form1.CurrentY; ) CurrentX = 1000 CurrentY = 800 Print 当前坐标为(; Form1.CurrentX; ,; Form1.CurrentY; ) CurrentX = ScaleWidth / 2 CurrentY = ScaleHeight / 2 Picture1.Print “ 当前坐标为(; Form1.CurrentX; ,; _For

15、m1.CurrentY; ) Picture1.Print 当前坐标为(; Picture1.CurrentX; ,; _Picture1.CurrentY; ) Picture1.Print I love you Picture1.CurrentX = 1000 Picture1.CurrentY = 500 Picture1.Print HOW ARE YOU End Sub exam4_5.vbp 第25页/共49页 第26页/共49页 top left heigh width 4. Height、Width、Top及Left属性 设置对象的大小（Height、Width）以及在容器（如

16、窗体 ）中的位置（ Top、Left ）。 第27页/共49页 (1)对窗体对象来说，Left、top属性是与屏幕的相对位置； （2.3.2,p19） 对控件对象来说，Left、top 属性是与窗体的相对位置。 (2)屏幕对象 Screen只有 Height和Width两个属性，且是只读的 。Screen.Width为屏幕的宽度，而Screen.Height为屏幕的高度 例4.7 将窗体的大小设置为屏幕大小的50%，并使窗体居中 。 Private Sub Form_Click( ) Width=Screen.Width*0.5 设置窗体的宽度 Height=Screen.Height*0.5

17、 设置窗体的高度 Left=(Screen.Width- Width)/2 Top=(Screen.Height- Height)/2 End Sub exam4_7.vbp 第28页/共49页 5. Cls方法 功能：清除窗体或图片框中由Print方法和图形方法生成 的文本或图形。 .调用格式： 对象名Cls 6.Move方法 功能：用来移动窗体或控件，并可改变其大小。 格式： 对象Move 左边距离，上边距离，宽度，高度 说明：“对象”可以是窗体及除计数器（Timer）、菜单 （Menu）外的所有控件。 如果省略“对象”，则表示要 移动的是窗体。 第29页/共49页 第30页/共49页 第

18、31页/共49页 第32页/共49页 标题 图标 提示 按钮 第33页/共49页 组别组别内部常数内部常数 数值数值描述描述 按钮数按钮数 目以及目以及 样式样式 vbOKOnly0只显示只显示“确定确定”按钮按钮 vbOKCancel1显示显示“确定确定”和和“取消取消”按钮按钮 vbAbortRetryIgnore2显示显示“终止终止”、“重试重试”和和 “忽略忽略”按钮按钮 vbYesNoCancel3显示显示“是是”、“否否”和和“忽略忽略” 按钮按钮 vbYesNo4显示显示“是是”和和“否否”按钮按钮 vbRetryCancel5显示显示“重试重试”和和“取消取消”按钮按钮 第34

19、页/共49页 组别组别内部常数内部常数 数值数值描述描述 图标类图标类 型型 vbCritical16危急信息图标危急信息图标 vbQuestion32询问图标询问图标 VbExclamation 64惊叹信息图标惊叹信息图标 默认按默认按 钮钮 vbDefaultButton10第一个按钮为缺省值第一个按钮为缺省值 vbDefaultButton2256第二个按钮为缺省值第二个按钮为缺省值 vbDefaultButton3512第三个按钮为缺省值第三个按钮为缺省值 vbDefaultButton4768第四个按钮为缺省值第四个按钮为缺省值 第35页/共49页 二、MsgBox函数的返回值 内

20、部常数内部常数 数值数值被单击的按钮被单击的按钮 vbOK1确定确定 vbCancel2取消取消 vbAbort3终止终止 vbRetry4重试重试 vbIgnore5忽略忽略 vbYes6是是 vbNo7否否 第36页/共49页 例4.9：设计一工程，运行程序时，单击窗体产生一个 MsgBox对话框。根据用户的不同选择，分别作退出或继续 操作 Private Sub Form_Click() Tile$ = “警告“ 标题 Prompt$ = “退出程序吗？“ 提示信息 result = MsgBox(Prompt, vbYesNo + vbDefaultButton1 + vbQuesti

21、on, Tile) If result = 6 Then 如果单击了“Y” End Else: Print 继续！ 如果单击了“N” End If End Sub Exam4_9.vbp 第37页/共49页 一、字形控制属性） 1.字体类型（FontName） 窗体名. 控件名. | Printer.FontName=“字体类型名” FontName可作为窗体、控件或打印机的属性。 例如：FontName=宋体 FontName=Times New Roman Textl.FontName=“隶书” 2.字体大小（FontSize） 窗体名.控件名. |Printer.FontSize=点数

22、3.字体修饰属性 4.4 字形与颜色控制 第38页/共49页 3.字体修饰属性 (1) 粗体属性 FontBold 窗体名.控件名.|Printer.FontBold=布尔值 (2) 斜体属性 FontItalic (3) 加删除线 FontStrikethru (4) 加下划线FontUnderline (5) 重叠显示属性FontTransparent 第39页/共49页 二、颜色控制 1.使用RGB函数 功能：返回一个Long整数，用来表示一个RGB颜色值。 格式：RGB(Red, Green, Blue) 说明：参数Red、 Green、 Blue为三种颜色的亮度值，取值为 0255。 例如：Form1.ForeColor=RGB(255,0,0) 设定前景为红色 Form1.BackColor=RGB(0,0,255) 设定背景为蓝色 第40页/共49页 第41页/共49页 第42页/共49页 第