可视化编程语言中数据的输入输出技巧.pptVIP

本例“按钮数值” 21，是从上面三个表中各取一个数相加而得。注意：每个表只能取一个数。系统会自动把它分解成分别属于上面三个表中的三个值5，16，0。这种分解是唯一的。其含义是：消息框中有“×”图标，有“重试”及“取消”两个按钮，缺省按钮是“重试”按钮。 当用户单击消息框中的一个按钮后，消息框即从屏幕上消失。在上面的语句中，将函数的返回值赋给了变量inta，在程序中可引用inta作相应的处理。 例： 16=0+16+0 含义：只显示“确定”按钮，“暂停”图标，默认按钮是“确定”。 练习：　a=MsgBox(程序运行完毕,16,暂停) 结果如下： 例： 33=1+32+0 含义：显示“确定、取消”按钮，“？”图标，默认按钮是“确定”。 练习：　a=MsgBox(程序是否继续,33,问题) 结果如下： 例： 50=2+48+0 含义：显示“终止、重试、忽略”按钮，“！”图标，默认按 钮是“终止”。 练习：　a=MsgBox(程序是否继续,50,中断) 结果如下： 2. MsgBox语句 如果不需要返回值，则可以使用MsgBox语句，其语法格式如下： MsgBox 提示信息[,消息框类型][,对话框标题] 注意： （1）MsgBox语句后没有圆括号，有一个空格，其余参数的含义以及MsgBox语句的简化形式与MsgBox函数完全一致； （2）MsgBox语句没有返回值，因此常用于比较简单的信息提示。 例：要求出现如下的信息框 4.4 字形 1 字体类型和大小 1). 字体类型　　　对象.FontName[=“字体类型”] 2.) 字体大小　　　对象.FontSize[=点数] 2 其他属性 1.) 粗体字　　　对象.FontBold[=Boolean] 2). 斜体字　　　对象.FontItalic[=Boolean] 3). 加删除线　　对象.Fontstrikethru[=Boolean] 4). 加下划线　　对象.Fontunderline[=Boolean] 例：在窗体显示如下名册： 学号 姓名 年龄 籍贯 0501 李美 18 湖南 0502 王强 19 上海 要求当单击窗体时，显示以上表格，字体为隶书，25号。 Private Sub Form_Click() FontName = 隶书 FontSize = 25 Print 学号; Tab(8); 姓名; Tab(16); 年龄; Tab(24); 籍贯 Print 0501; Tab(8); 李美; Tab(16); 18; Tab(24); 湖南 Print 0502; Tab(8); 王强; Tab(16); 19; Tab(24); 上海 End Sub 例：从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均数。通过inputbox函数输入数据，在窗体上单击时，显示和及平均数。 Private Sub Form_Click() Dim a%, b%, c%, d%, s%, v! a = InputBox(输入第一个数：) b = InputBox(输入第一个数：) c = InputBox(输入第一个数：) d = InputBox(输入第一个数：) s = a + b + c + d v = s / 4 Print 所输入4个数字分别为：; a, b, c, d Print 4个数的和为：; s Print 4个数的平均值为：; v End Sub 例子：要求单击窗体时弹出输入框，提示输入客户名字，并将输入内容输出到屏幕上。如下图： 过程代码： Private Sub Form_Click() msg1$ = 输入雇客名字:　 msg2$ = 输入后按回车键 msg3$ = 或单击确定按钮 msg$ = msg1$ + Chr(13) + msg2$ + Chr(13) + msg3$ custname$ = InputBox(msg$, “测试输入函数, “TOM) Print custname$ End Sub 例:编程程序，试验Msgbox函数的功能。出现如下对话框。 并将Msgbox函数的返回值输出到屏幕上。 过程代码： Private Sub Form_Click() Dim a, msg1, msg2 As String msg1 = 确认继续吗？ msg2 = 操作对话框 a = MsgB