vb数据输入出.pptVIP

第4章 数据输入输出;4.1数据输入输出控件;2. 用文本框 输入输出数据 文本框是一个文本编辑区域，可在该区域输入、编辑和显示正文内容。 例4.2 在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。代码如下: Private Sub Form_Click() Dim h, m, s, x h = Val(Text1.Text) m = Val(Text2.Text) s = Val(Text3.Text) x = h * 3600 + m * 60 + s Label4.Caption = 共有秒数： x End Sub ;4.2 数据输出方法;Tab(n)函数：左端开始右移动n列，允许重复使用。 Tab(n)从最左第一列算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列。 Spc(n)从前一位置起空n个空格 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentY属性决定，缺省为打印对象的左上角0，0。 注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的AutoRedraw为True。 ;例4.3 显示图形 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - I, ▼); Spc(6); String(I, ▲) Next i End Sub;2. 格式输出函数 例4.4 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# 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(MyTime, 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 FormatDateTime(Now) VB6.0新提供的函数 End Sub ;4.3 数据输入输出函数和过程;相应的语句如下： Dim strName As String * 40 strName= InputBox(请输入你的姓名 + vbCrLf + 然后单击确定 , 输入框 ) 也可以使用如下语句： Dim strName As String * 40， strS1 As String * 40 strS1 = 请输入你的姓名 + Chr(13) + Chr(10) + 然后单击确定 strName= InputBox(strS1， 输入框 ， ， 100，100) 当键盘输入“王晓明” 后，变量strName获得键盘输入的值。;例4.5 用户输入华氏温度F，将其转换为摄氏温度C。转换公式：C=5÷9×(F-32) 代码如下： Private Sub Form_Click() Dim f as long, c as long f=inputbox(“请输入华氏温度：”,”例4.5 华氏温度转换为摄氏温度”) c=5/9*(f-32) print “华氏温度：”;f print “摄氏温度：”;c End Sub;2. MsgBox函数和MsgBox过程 函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题] 按钮值如下： 函数返回所选按钮整数值：;例4.6 MsgBox函数的应用。提示是否继续执行程序。 Private Sub Form_Click() msg1=“继续执行吗？” msg2=“例4.5提示信息” f=MsgBox(msg1,34,msg2) End Sub 第4行中表明type的值为34=2+32+0，它决定了对话框中有“终止”、“重试”和“忽略”三个按钮，图标为“？