[工学]第4章数据输入与输出.pptVIP

图4-1 登陆窗口 图4-2 密码输入对话框 图4-3 登录窗口(新) 表4-1 属性设置 图4-4 确认对话框 图4-5 密码验证过程 表4-2 按钮类型、图表类型、默认按钮、等待模式的取值及意义 表4-3 MsgBox函数的返回值 图4-6 输出位置(Form1) 表4-4 格式说明字符 图4-7 “字体浏览器”对话框 图4-8 窗体输出界面 返回 返回 返回 返回 4.3 数据输出 4.3.2 格式输出 Print函数提供的命名格式，在运行时自动决定使用何种转换;命令格式输出的内容格式取决于计算机系统采用的(国家)语言格式，显示格式会因计算机上的“区域设置”(在“控制面板”的“区域和语言选项”中设置)不同而有所差异。如:Print #10/24/1997#在中国区域将显示为:1997-10 -240若改变这种显示格式，可以使用Format函数。 格式输出函数Format( )可以使数值、日期按指定的格式输出表达式的值。 格式:Format $(数值表达式，格式字符串)。 下一页 返回 上一页 4.3 数据输出 说明:“格式字符串”是一个字符串常量或变量，由专门的格式说明字符组成，这些字符决定数据项的显示格式，并指定显示区段的长度。当格式字符串为常量时，必须放在双引号中。若省略“格式字符串”，则该函数的功能与Str $函数基本相同，唯一的差别是，当把正数转换成字符串时，Str $函数在字符串前面留有一个空格，而Format $函数则不留空格。如表4-4所示为格式说明字符。 1.日期格式化输出 如上例中，代码变为: 下一页 返回 上一页 4.3 数据输出 Private Sub Form Click() x=#10/24/1997# y=Format( x,“yy，mm，dd) Print y End Sub 将显示为:97, 10, 24。 甚至还可以添加汉字，如上面例子，若将y =Format(x,“yy, mm, dd”)变为y= Format( x,“yyyy年mm月dd日”)，将显示为:1997年10月24日。 下一页 返回 上一页 4.3 数据输出 为了增加灵活性，Format函数还提供了命名格式可以在运行时自动决定使用何种转换，包括General?date, long date, medium date, short date和long Time。使用命名格式产生基于用户的系统区域的输出。 例4-1 Private Sub Form paint() Dim mydate，newdatel , newdate2，newdate3，newdate4 As Data newdate=#8/22/1997 5:22:20 PM# newdate1=Format(mydate，”medium date) 下一页 返回 上一页 4.3 数据输出 newdate2=Format( mydate，”short date) newdate3=Format( mydate，”long date) newdate4=Format( mydate，”General date) Print newdate1, newdate2，newdate3 Debug. Print newdate1 ,newdate2，newdate3，newdate4 End Sub 下一页 返回 上一页 4.3 数据输出 例4-2 Private Sub Form Click() Print Format( Time，”h点m分s秒ap/pm) End Sub 其中Time是时间函数。功能是:返回系统的当前时间。 中国区域系统本身格式为:(hh:mm:ss)。使用Format函数后可以改变这种格式。 下一页 返回 上一页 4.3 数据输出 2.数字格式化输出 例: Print format $ (12345，”########”) ‘结果:12345 Print format $ (12345 ’结果 Print format $ (12345，”###”) ‘结果:12345 Print format $ (850. 72，”####.###”) ‘结果:850. 72 Print format $ ( 7. 876，“000.00”) ‘结果:007. 88 下一页 返回