VB 数据输入输
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
本章目录
4.1 数据输入输出控件
1.用标签输出数据 Label1.caption=“浮雕效果” 2.用文本框输出数据 text1.text=“ 湖南长沙” text2.text=“ 理工大学” text3.text=“ 湖南长沙理工大学”
4.2数据输入输出方法
1.print方法
x = 10 y = 20 Print "x="; x Print "y="; y Print "x+y="; x + y
图标 类型
默认 按钮
VBQuestion
VBExclamation VBInformation VBDefaultButton1 VBDefaultButton2
32
48 64 0 56
询问信息图标
警告信息图标 信息图标 第1个按钮为默认 第2个按钮为默认
VBDefaultButton3
512
第3个按钮为默认
第4章 数据输入输出
4.1 4.2 4.3 4.4 4.5 数据输入输出控件 数据输入输出方法 数据输入输出函数和过程 字体字形和颜色 打印机输出
4.0 赋值语句 （补充内容）
形式： 变量名＝表达式 计算右边表达式的值，然后赋给左边的变量。 给变量赋值和设定属性是 VB 编程中常见的两个 任务。例如： n=n+1 '计数累加 Text1.Text ＝ "" ' 清除文本框的内容 Text1.Text ＝ "欢迎使用VB " ' 文本框显示字符串
8
4.3 数据输入和输出函数
1. InputBox函数 打开一个对话框，等待用户输入，返回字符串 类型的输入值。 形式：InputBox(提示[,标题][,默认值][,x坐标 位置][,y坐标位置]) 提示项不能省略。若要多行提示，可在每行行 末加回车换行vbCrLf。 例4.1利用InputBox输入基本工资和营业额，按 营业额的5%提成，计算实发工资并显示。
2. 与print 有关的函数 Tab(n) spc(n) format() 例： x = 10 y = 20 Print Tab(3); "x="; Spc(2); x Print "y="; y Print "x/y="; Format(x / y, "000.00")
Print方法
作用:在对象上输出信息。 对象.Print[Spc(n)|Tab(n)][输出列表 ][;|,] 对象：窗体、图形框或打印机。缺省为窗体。 Spc(n)函数：从当前位置起空n个空格 Tab(n)函数：从最左端开始计算的第n列 分号：定位在上一个被显示的字符之后 逗号：定位在下一个打印区开始处(每区14列) Print语句尾无分号或逗号，输出后换行 例4.3 Print方法输出图形
本章目录
4.4 字体字形和颜色
• 设置前景色与背景色的四种方 法： • 1.使用RGB() 函数 • 2.使用QBCOLOR() 函数 • 3.使用VB颜色常量 • 4.直接输入颜色值
例： Private Sub Form_Click() • Form1.BackColor = RGB(0, 255, 0) • Text1.BackColor = QBColor(14) • Text2.BackColor = vbRed • Text3.BackColor = &HFFFF& End Sub
本章目录
MsgBox所选按钮返回值
内部常数 vbOk vbCancel vbAbort vbRetry vbIgnore vbYes vbNo 返回值 1 2 3 4 5 6 7 被单击的按钮
确定 取消 终止 重试 忽略 是 否
例4.2 编一账号和密码输入的检验程序，当输入不正 确，如账号为非数字字符，密码不正确等，显示有关 信息，再输入。
本章目录
例1： Text1 = InputBox("请输入电话号码！") 例2：温度转换
2. MsgBox函数
打开一个信息框，等待用户选择一个按按钮。 MsgBox函数返回所选按钮的值，MsgBox过 程不返回值 MsgBox函数形式： 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式： MsgBox 提示[,按钮][,标题] 按钮项是一整型表达式，决定信息框按钮的数 目和类型及出现在信息框上的图标形式。
本章目录
赋值语句注意点
赋值语句不允许写成 表达式＝变量，虽然赋 值号与关系运算符等于号都用=表示，VB系统 会根据所处的位置自动判断符号的意义。
赋值号左边的变量只能是变量，不能是常量、 常数符号、表达式。下面均为错误的赋值语句： Now()=x+y
5=sqr(s)+x+y
'左边是表达式(函数)
' 左边是常量
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
值 0 1 2 3 4 5 16
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮 是、否、取消按钮 是、否按钮 重试、取消按钮 关键信息图标
本章目录
例1：不带返回值的格式：
MsgBox "请输入电话号码！", vbCritical + vbOKCancel, "小提示“
例2：带返回值的格式：加括号
N=MsgBox ("请输入电话号码！", vbCritical + vbOKCancel, "小提示“) Text1=n
MsgBox按钮设置
4.5 打印机输出
Form1.FontName = "courier" FontSize = 30 CurrentX = 1000 CurrentY = 1000 Print "打印机输出1"
Form1.FontName = "黑体" FontSize = 40 CurrentX = 2000 CurrentY = 2000 Print "打印机输出2" PrintForm
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
1234.567
1,234.567 123456.7%
＄
E+
在数字前强加＄
用指数表示
1234.567
1234.567
"$###.##"
"0.00E+00"
$1234.57
1.23E-01
例4.4
利用Format函数显示数值。
7
Format格式输出函数
形式： Format (表达式[, "格式字符串"])
常用数值格式化符及举例
符号 0 作 用 用0填充不足的位置 表达பைடு நூலகம் 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
4.1 数据输入输出控件
1.用标签输出数据 Label1.caption=“浮雕效果” 2.用文本框输出数据 text1.text=“ 湖南长沙” text2.text=“ 理工大学” text3.text=“ 湖南长沙理工大学”
4.2数据输入输出方法
1.print方法
x = 10 y = 20 Print "x="; x Print "y="; y Print "x+y="; x + y
图标 类型
默认 按钮
VBQuestion
VBExclamation VBInformation VBDefaultButton1 VBDefaultButton2
32
48 64 0 56
询问信息图标
警告信息图标 信息图标 第1个按钮为默认 第2个按钮为默认
VBDefaultButton3
512
第3个按钮为默认
第4章 数据输入输出
4.1 4.2 4.3 4.4 4.5 数据输入输出控件 数据输入输出方法 数据输入输出函数和过程 字体字形和颜色 打印机输出
4.0 赋值语句 （补充内容）
形式： 变量名＝表达式 计算右边表达式的值，然后赋给左边的变量。 给变量赋值和设定属性是 VB 编程中常见的两个 任务。例如： n=n+1 '计数累加 Text1.Text ＝ "" ' 清除文本框的内容 Text1.Text ＝ "欢迎使用VB " ' 文本框显示字符串
8
4.3 数据输入和输出函数
1. InputBox函数 打开一个对话框，等待用户输入，返回字符串 类型的输入值。 形式：InputBox(提示[,标题][,默认值][,x坐标 位置][,y坐标位置]) 提示项不能省略。若要多行提示，可在每行行 末加回车换行vbCrLf。 例4.1利用InputBox输入基本工资和营业额，按 营业额的5%提成，计算实发工资并显示。
2. 与print 有关的函数 Tab(n) spc(n) format() 例： x = 10 y = 20 Print Tab(3); "x="; Spc(2); x Print "y="; y Print "x/y="; Format(x / y, "000.00")
Print方法
作用:在对象上输出信息。 对象.Print[Spc(n)|Tab(n)][输出列表 ][;|,] 对象：窗体、图形框或打印机。缺省为窗体。 Spc(n)函数：从当前位置起空n个空格 Tab(n)函数：从最左端开始计算的第n列 分号：定位在上一个被显示的字符之后 逗号：定位在下一个打印区开始处(每区14列) Print语句尾无分号或逗号，输出后换行 例4.3 Print方法输出图形
本章目录
4.4 字体字形和颜色
• 设置前景色与背景色的四种方 法： • 1.使用RGB() 函数 • 2.使用QBCOLOR() 函数 • 3.使用VB颜色常量 • 4.直接输入颜色值
例： Private Sub Form_Click() • Form1.BackColor = RGB(0, 255, 0) • Text1.BackColor = QBColor(14) • Text2.BackColor = vbRed • Text3.BackColor = &HFFFF& End Sub
本章目录
MsgBox所选按钮返回值
内部常数 vbOk vbCancel vbAbort vbRetry vbIgnore vbYes vbNo 返回值 1 2 3 4 5 6 7 被单击的按钮
确定 取消 终止 重试 忽略 是 否
例4.2 编一账号和密码输入的检验程序，当输入不正 确，如账号为非数字字符，密码不正确等，显示有关 信息，再输入。
本章目录
例1： Text1 = InputBox("请输入电话号码！") 例2：温度转换
2. MsgBox函数
打开一个信息框，等待用户选择一个按按钮。 MsgBox函数返回所选按钮的值，MsgBox过 程不返回值 MsgBox函数形式： 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式： MsgBox 提示[,按钮][,标题] 按钮项是一整型表达式，决定信息框按钮的数 目和类型及出现在信息框上的图标形式。
本章目录
赋值语句注意点
赋值语句不允许写成 表达式＝变量，虽然赋 值号与关系运算符等于号都用=表示，VB系统 会根据所处的位置自动判断符号的意义。
赋值号左边的变量只能是变量，不能是常量、 常数符号、表达式。下面均为错误的赋值语句： Now()=x+y
5=sqr(s)+x+y
'左边是表达式(函数)
' 左边是常量
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
值 0 1 2 3 4 5 16
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮 是、否、取消按钮 是、否按钮 重试、取消按钮 关键信息图标
本章目录
例1：不带返回值的格式：
MsgBox "请输入电话号码！", vbCritical + vbOKCancel, "小提示“
例2：带返回值的格式：加括号
N=MsgBox ("请输入电话号码！", vbCritical + vbOKCancel, "小提示“) Text1=n
MsgBox按钮设置
4.5 打印机输出
Form1.FontName = "courier" FontSize = 30 CurrentX = 1000 CurrentY = 1000 Print "打印机输出1"
Form1.FontName = "黑体" FontSize = 40 CurrentX = 2000 CurrentY = 2000 Print "打印机输出2" PrintForm
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
1234.567
1,234.567 123456.7%
＄
E+
在数字前强加＄
用指数表示
1234.567
1234.567
"$###.##"
"0.00E+00"
$1234.57
1.23E-01
例4.4
利用Format函数显示数值。
7
Format格式输出函数
形式： Format (表达式[, "格式字符串"])
常用数值格式化符及举例
符号 0 作 用 用0填充不足的位置 表达பைடு நூலகம் 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567