数据的输入与输出.ppt

第5章 数据的输入与输出 《VB6.0程序设计》 本章内容提要 5.1 数据输出 5.1.1 Print方法 5.1 数据输出 例5-1 下面给出Form_Click()的事件代码，体会Print语句的用法。 Private Sub Form_Click() Print aa bb, -5 * 6, Not 2 = 3 Print aa bb; -5 * 6; Not 2 = 3 Print Print Now FontSize = 18 Print 30+60=, Print 30 + 60 Print Print 30+60=; 30 + 60 End Sub 5.1 数据输出 例5-2 请看下面的例子，结果如图5-2所示。 Private Sub Command1_Click() Picture1.CurrentX = 200 Picture1.Print 不换行; Picture1.Print 不换行紧跟输出 Picture1.CurrentX = 200 Picture1.Print 不换行, Picture1.Print 不换行定位输出 End Sub (2). 与Print方法有关的函数 (3). 与print有关的位置设置属性及方法 5.1.2 格式输出 5.1 数据输出 2.日期和时间格式化 　　　　 　　 日期和时间格式化是将日期类型表达式的值或数值表达式的值以日期、时间的序数值按“格式字符指定的格式输出”，如表５－２所示。 5.1 数据输出 表5-3 常用的字符型格式说明字符 5.1 数据输出 例5-3 某职工已知住房公积金基数，求实际应缴纳的住房公积金金额。 编写程序代码如下： Private Sub Form_Load() Show Dim js As String, gjj As String js = 1011 gjj = js * 0.1 Print 本月住房公积金基数; Format(js, #,#) 使用format函数格式化基数输出格式 Print 应缴住房公积金; Format(gjj, ###,###.##) 使用format函数格式化公积金输出格式 End Sub 运行该程序，其执行结果如图5-3所示。 5.1 数据输出 例5-4 利用Format函数显示有关的日期和时间。 Private Sub Form_Click() FontSize = 10 mytime = #8:21:30 PM# mydate = #2/16/2006# Print Tab(2); Format(mydate, m/d/yy) Print Tab(2); Format(mydate, mmmm-yy) Print Tab(2); Format(mytime, h-m-s AM/PM) Print Tab(2); Format(mydate, hh:mm:ss A/P) Print Tab(2); Format(Date, dddd,mmmm,dd,yyyy) Print Tab(2); Format(Now, yyyy年m月dd日 hh:mm) Print Tab(2); FormatDateTime(Now) ＇VB6.0新提供的函数 End Sub 运行程序后单击窗体，输出结果如图5-4所示。 ５.１.３信息框函数ＭsgBox 用VB6.0显示信息框需要用MsgBox函数，在过程中添加一个赋值语句，将MsgBox函数的返回值赋给一个变量，该函数根据用户在消息框中的选择返回不同的值。 语法格式如下： 变量＝MsgBox(prompt[,buttons][,title][,helpfile,context]）各参数的说明如表５－４所示，一般选用前３个参数。 表５－4各参数的说明 5.1 数据输出 例5-6 在窗体中添加一个“关闭窗体”按钮，如图5-6所示。 操作步骤如下： （1）设计应用程序的界面。在窗体上添加一个命令按钮控件，如图5-6（a）所示。 （2）设置对象的属性。将窗体的Caption属性设置为“消息对话框”，命令按钮的Caption属性设置为“关闭窗体”。 （3）编写程序代码如下： Private Sub Command1_Click() Unload Me End Sub 5.1 数据输出 Private Sub Form1_Unload(Cancel As Integer) Dim a As Integer