vb教程---输入输出顺序结构1

(3) Enabled属性:该属性决定控件是否对用户产生的事件 作出响应 (4) Visible属性 该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和Left属性：Height和Width属性 确定控件的高度和宽度，Top和Lelf属性确定控件在窗体中 的位置
X Top Left Width Y
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1
练习使用信息框
设计一个如下所示的提示框：
A = MsgBox("非法数据！" + Chr(13) +Chr(10)+ "是否继续？", vbYesNo + vbCritical, "提示信息")
Buttons参数值= 1+64 或 vbOKCancel+ vbInformation
Buttons参数的设置
3.说明哪一个是缺省按钮
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 符号常量 缺省的活动按钮
0
256 512
VbDefaultButton1
VbDefaultButton2 VbDefaultButton3
2. Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n列。
例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"
输出结果是(1个汉字占2个位置)：

└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
例3.5
使用Tab对输出进行定位
程序代码如下： Private Sub Form_Click() Print Print Tab(15); "学号"; Tab(26); "姓名"; Tab(36); "成绩" Print Tab(14); String(27, "-") '输出27个减号字符“-” Print Tab(14); "20011001"; Tab(26); "张小三"; Tab(36); 57 Print Tab(14); "20011003"; Tab(26); "李小四"; Tab(36); 69 Print Tab(14); "20011012"; Tab(26); "马小五"; Tab(36); 92 Print Tab(14); String(27, "-") '输出27个减号字符“-” End Sub
InputBox函数---输入框
作用：
• 打开一个对话框,等待用户输入内容。 • 单击确定，返回输入值（字符型数据）
格式：
变量名 = InputBox ( 提示[,标题][,默认值][,X][,Y])
例：设置一个输入框：
提示用户输入查询学号。
提示： • 若提示内容中需要换行显示： 在换行处加chr(13)和chr(10)
'计算并输出表达式的值
'输出变量的值
'输出空行 '输出字符串常量
运行结果：
输出数值数据时，前面有一个符号位(正号以空格表示)， 后面留有一个空格；输出字符串时，前后不留空格。 例：Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果
Buttons参数值= 1 或 vbOKCancel
Buttons参数的设置
2.图标的样式
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 16 32 48 64
符号常量
出现的图标
vbCritical -------------------vbQuestion -------------------vbExclamation -------------vbInformation ---------------
3.5.1 控件的公共属性
(1)Name属性：控件的Name属性（名称）必须以字母开 头，其后可以是字母、数字和下划线，名称长度不能超过40 个字符 (2)Caption属性：任意的字符串。以通过程序代码改变其 值，例如： Command1.Caption=“结束“
可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的 Caption属性设置为“结束(&E)”，则运行时该控件外观如图3.7所示，只 要用户同时按下Alt键和E键，就能执行该按钮命令。
当输入的圆半径为65时，运行结果
二、 使用Print方法输出数据 1、 Print方法
用于显示(输出)文本 格式：［对象名.］Print ［表达式列表］ 说明：(1)使用的对象可以是窗体等 Print “程序设计” ´在当前窗体上输出 Picture1.Print “程序设计” ´在图片框上输出
运行结果

例3.6
显示唐诗“静夜思”
设置以下3个命令按钮： “显示”按钮：用于显示唐诗“静夜思” “清除”按钮：用于清除所生成的文本 “结束”按钮：结束程序的运行 设计步骤如下： (1)创建应用程序的用户界面和设置对象的属性
(2)编写程序代码。编写的三个按钮的Click事件过程代码如下： Private Sub Command1_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = "楷体_GB2312" FontSize = 20 CurrentX = 1200 CurrentY = 350 Print "静夜思(唐诗)" FontName = "幼圆" Print FontSize = 13 Print Spc(6); "床前明月光，疑是地上霜" Print Print Spc(6); "举头望明月，低头思故乡" End Sub
Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub
程序运行后，单击“显示”按钮，输出结果
小结和作业：
基本输入输出 课后实训
3.5 基本控件
需要在窗体中放置各种控件，才能实现用户与应用程序 之间的信息交互 三种基本控件——命令按钮、标签和文本框
第四章 基本程序结构
顺序结构、选择结构、循环结构
§4.1 顺序结构
顺序结构：各语句按照出现的先后次序依次执行 赋值语句 包括 输入/输出 Print方法 系统提供的交互函数或过程
一.赋值语句
⑴ 给变量赋值
如: A=“VB程序设计” Text1.Text=A 格式：变量名=表达式 B＝Text2.Text 如: Dim v As Integer ⑵ 设置或获取对象的属性 String*8 Dim book As Dim sum As Single 设置属性值：[对象名.]属性=表达式 v=26 v=v+1 获取属性值：变量名＝对象名.属性 book=“VB程序设计” sum=v*123.4+56.7
Buttons参数的设置
1.按钮的类型和数目的设置
Buttons的和=按钮设置值 + 图标设置值 + 缺省按钮值
值 0 1 2 3 4 5 按钮的设置 对应按钮名称 vbOKOnly---------------确定 vbOKCancel-------------确定、取消 vbAbortRetryIgnore---终止、重试、忽略 vbYesNoCancel---------是、否、取消 vbYesNo------------------是、否 vbRetryCancel----------重试、取消
信息框的返回值：
4.Msgbox的函数返回值
用于确定用户选择对话框的哪一个按钮，以作出不同的响应。 符号常量 返回值 对应按钮
vbOK
vbCancel vbAbort vbRetry vbIgnore vbYes vbNo
1--------------------确认
2--------------------取消 3 -------------------终止(A) 4--------------------重试(R) 5--------------------忽略(I) 6 ------------------- 是(Y) 7 ------------------- 否(N)
• 各项参数位置必须一一对应
Msgbox函数--信息框
1.语法
• 变量 = MsgBox(提示内容[,按钮][,标题]) • MsgBox 提示内容 [, 按钮] [, 标题]
2.MsgBox 函数的常用参数的说明
提示内容：必要。字符表达式，即显示在对话框中的信息 <= 1024 个字符， 按 钮： 可选。整型表达式，缺省值为 0 如果文字超过一行，可用Chr(13) + Chr(10) 指定信息框中按钮数目、类型、图标类型， 换行 缺省按钮等 标 题： 可选。在对话框标题栏中显示的内容。 省略此项，则将应用程序名放在标题栏中
§4.2 顺序结构
顺序结构：各语句按照出现的先后次序依次执行
1.赋值语句
⑴ 给变量赋值 ⑵ 设置或获取对象的属性
⑶ 与用户交互函数和过程
• InputBox函数
格式：InputBox ( 提示 [,标题] [, 默认值] [, X] [, Y] )
• Msgbox函数
格式：MsgBox ( 提示内容 [, 按钮设置] [, 标题] )
(2)表达式列表是一个或多个表达式，如果省略，则输出 一个空行 (3)当输出多个表达式时，各表达式之间用分号“；”(紧 凑格式)或逗号“，”(按区格式)隔开。 按区格式(14个字符位置)
例：Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub
消息框的三种格式
y = MsgBox(“输入文件名是否正确”,52,”请确 认”) MsgBox “输入文件名是否正确”,52,”请确认” MsgBox(“输入文件名是否正确”)
Hale Waihona Puke 3.8从输入框中输入圆的半径，计算圆的周长和面积
(1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码
Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox("请输入圆的半径", "计算圆的周长和面积 ")) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox "计算已完成", , "例3.10" End Sub Private Sub Command2_Click() End End Sub
(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行
2 、 特殊打印格式 1. Spc函数
格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如： Print "学号"；Spc(2)；"姓名"；Spc(5)；"成绩" 输出结果(└┘表示空格)： 学号└┘└┘姓名└┘└┘└┘└┘└┘成绩
练习
例3.7a 通过输入框输入姓名，然后再消息框中显 示出来 Private Sub Form_Load() x = InputBox("输入您的姓名", "您叫什么名?") MsgBox (x & "先生：祝您马到功成！") End Sub
例：产生输入对话框
filename$=InputBox(“请输入文件名(不超过8个字
符)”，”文件名”，”vbfile”) 将产生一个如下对话框
filename$=InputBox("请输入文件名" + Chr(13) + "(不超过8个字符)", "文件名", "vbfile")
使用MsgBox函数，可以产生一个对话框来显示消息 例：y = MsgBox(“输入文件名是否正确”,52,”请确认”) “对话框类型”一般有3个参数， 4+48+0 出现按钮；图标类型；默认按钮； 函数返回值(例3_9b)