数据输入输出2课件

基本语句程序语句程序中的一行代码称为语句，语句是执行具体操作的指令，每个语句行以回车键结束。示例：Label.Caption=Time语句的书写规则一行中的多条语句之间用冒号隔开示例：Text1.Text=“Hello”:Red=255:Text1.Backcolor=Red当一条语句很长时，可以使用续行符“—”续行，在续行符前至少要加一个空格，并且续行符只能出现在行尾示例：strMyStr=“当前用户为：”&—strUsername基本语句程序语句命令格式中的符号约定

符号含义<>必选参数表示符[]可选参数表示符|多取一表示符{}包含多取一的各项,…表示同类项目的重复出现…表示省略了在当时叙述中不涉及的部分基本语句命令格式中的符号约定符号含义<>必选参数表示符[基本语句赋值语句LET

赋值语句的一般格式为：

[Let]<名称>=<表达式>

注：

“Let”是可选项，完成赋值功能只需“=”（赋值号）

“名称”是变量或属性的名称

“表达式”可以是算术表达式、字符串表达式、关系型表达式或逻辑型表达式，并且赋值号两边的数据类型必须一致

赋值语句先计算，然后再赋值基本语句赋值语句LET 基本语句例如：x=123：name="张小华"'给变量赋值Text1.Text="赋值语句的使用实例"'给对象的属性赋值n=a:a=b:b=n'两个变量（a和b）数值的互换sum=sum+n'累加sum=sum*n'累积，变量sum的初值不可以为0基本语句例如：基本语句示例：交换两个变量中的数据，如下图设计步骤如下：建立应用程序用户界面设置对象的属性编写代码（Command1_Click()的事件代码）PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub教材示例3-1基本语句示例：交换两个变量中的数据，如下图教材示例3-1基本语句

注释与暂停 注释语句语法格式为：

Rem<注释内容>或’<注释内容>

注：

Rem与注释内容之间应加一个空格

在语句行使用Rem，语句与Rem之间用冒号分隔。示例：s=Pi*r*2’计算圆的面积

v=4/3*pi*r^3:Rem计算球的体积暂停语句语法格式为：

Stop

注：

Stop

与End

不同，不关闭任何文件或清除变量，只是设置断点，以便检查程序。基本语句注释与暂停 数据输出VB输出操作包括文本信息的输出和图形图像的输出直接输出到窗体使用Print方法在窗体上输出文本字符串或表达式的值，语法格式为：

[<对象名称>.]Print[<表达式列表>][{，|；}]

注：

<对象名称>可以是窗体(Form)、图片框(PictureBox)或打印机(Printer),省略则为窗体

<表达式列表>可以是数值或字符串数据输出VB输出操作包括文本信息的输出和图形

输出多个表达式时，用逗号（,）分隔各项表示按标准输出格式显示，用（;）分隔各项表示按紧凑格式显示

语句行尾使用（,）后继输出语句在下一个分区显示；语句行尾使用（;）后继输出语句紧接其尾显示；语句行尾省略分隔符，后继输出语句自动换行。

Print语句有计算和输出双重功能数据输出示例1：使用Print方法在窗体中直接输出字符串或数值表达式的值，如右图所示示例1

输出多个表达式时，用逗号（,）分隔各项表示数据输出设计步骤如下建立用户程序界面（如图所示）设置对象属性设计代码PrivateSubCommand1_Click()PrintPrint"2*3+4=";2*3+4PrintPrint"欢迎学习"Print,"Visual"Print,,"Basic"PrintPrint"欢迎学习",Print"Visual";"Basic"EndSub数据输出设计步骤如下数据输出与Print方法有关的函数

Tab函数在Print方法中对输出进行定位，格式为：Tab（<n>）其中n的值为一整数示例：PrintTab(10);”姓名”;Tab(30)”年龄”

Spc函数Spc（<n>）其中n的值为一整数示例：Print“ABC”;Spc(5);”DEF”注：Tab函数从对象的左端开始计数，Spc函数表示两个输出项之间的间隔数据输出与Print方法有关的函数数据输出示例2：用Tab函数和Spc函数改写示例1PrivateSubCommand1_Click()PrintPrintTab(5);"2*3+4=";2*3+4PrintPrintTab(6);"欢迎学习";Tab(17);"VisualBasic"PrintPrintTab(7);"欢迎学习";Spc(3);"Visual";Spc(2);"Basic"EndSub示例2教材示例3-2数据输出示例2：用Tab函数和Spc函数改写示例1示例2教材数据输出设计步骤如下：建立应用程序用户界面（Command1和Picture1)设置对象属性设计代码PrivateSubCommand1_Click()Picture1.PrintPicture1.PrintTab(5);"2*3+4=";2*3+4Picture1.PrintPicture1.PrintTab(6);"欢迎学习";Tab(17);"VisualBasic"Picture1.PrintPicture1.PrintTab(7);"欢迎学习";Spc(3);"Visual";Spc(2);"Basic"EndSub数据输出设计步骤如下：格式输出函数用格式输出函数可以使数值、日期或字符型数据按指定的格式输出。语法格式为：Format(<表达式>,<格式字符串>)

注：<表达式>可以是数值型、日期型或字符型的表达式；

<格式字符串>是一个字符串常量或变量，由专门的格式说明字符组成。这些说明字符决定了数据项<表达式>的显示格式和长度；

当<格式字符串>是字符串常量的时候，必须放在双引号中；

格式输出函数Format()返回一个Variant类型的值。见下三页表数据输出格式输出函数数据输出字符说明示例#

数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中#的位置上有数字存在，那么就显示出来；否则，该位置就什么都不显示。Format(123.45,”####.###”)返回：123.450

数字占位符。显示一位数字或是零。如果表达式在格式字符串中0的位置上有一位数字存在，那么就显示出来；否则，就以零显示。Format(123.45,”0000.000”)返回：0123.450.

小数点占位符,

千分位符号占位符Format(1234.5,”#,###.##”)返回：1,234.5%

百分比符号占位符。表达式乘以100。而百分比字符（%）回插入到格式字符串中出现的位置上。Format(0.12345,”0.00%”)返回：12.35%

常用的数值型格式说明字符数据输出字符说明示例#数字占位符。显示一位数字或什么字符说明示例dddddd

以完整日期表示法显示日期系列数（包括年、月、日）Format(Date,”dddddd”)返回：2003年3月10日mmmm

以全称来表示月（January─December）Format(Date,”mmmm”)返回：Marchyyyy

以四位数来表示年Format(Date,”yyyy”)返回：2003Hh

以有前导零的数字来显示小时（00─23）Format(Time,”Hh:Nn:Ss”)返回：08:08:08Nn

以有前导零的数字来显示分（00─59）Ss

以有前导零的数字来显示秒（00─59）ttttt

以完整时间表示法（包括时、分、秒），用系统识别的时间格式定义的时间分隔符进行格式化。缺省的时间格式为h:mm:ssFormat(Time,”ttttt”)返回：8:57:09AM/PM

在中午前以12小时配合大写AM符号使用；在中午和11:59P.M..间以12小时配合大写PM使用Format(Time,”tttttAM/PM”)返回：8:57:34AM

常用的时间日期型格式说明字符数据输出字符说明示例dddddd以完整日期表示法显示字符说明示例@

字符占位符。显示字符或空白。如果字符串在格式字符串中@的位置有字符存在，那么就显示出来；否则，就在那个位置上显示空白。除非有惊叹号字符（!）在格式字符串中，否则字符占位符由右而左被填充Format(“ABab”,”@@@@@@”)返回：“ABab”&

字符占位符。显示字符或空白。如果字符串在格式字符串中&的位置有字符存在，那么就显示出来；否则，就在那个位置上显示空白。除非有惊叹号字符（!）在格式字符串中，否则字符占位符由右而左被填充Format(“ABab”,”&&&&&&”)返回：“Abab”<

强制小写。将所有字符以小写格式显示。Format(“ABab”,”<@@@@@@”)返回：“abab”>

强制大写。将所有字符以大写格式显示。Format(“ABab”,”>@@@@@@”)返回：“ABAB”!

强制由左而右填充字符占位符。缺省值是右而左填充字符占位符Format(“ABab”,”!@@@@@@”)返回：“Abab”

常用的字符型格式说明字符教材示例3-3数据输出字符说明示例@字符占位符。显示字符或空白。如使用位置属性利用位置属性CurrentX、CurrentY（横坐标、竖坐标）可将输出文本精确定位到窗体、图片框、打印页上数据输出使用位置属性数据输出

坐标原点(0,0)在窗体的左上角坐标轴刻度单位为缇(Twip,567缇为1厘米)

当前位置的横坐标(CurrentX)和纵坐标(CurrentY)YX

·

(CurrentX,CurrentY)

当前位置窗体坐标系统数据输出YX·(CurrentX,CurrentY)补充例题

显示唐诗“静夜思”设置以下3个命令按钮：

“显示”按钮：用于显示唐诗“静夜思”

“清除”按钮：用于清除所生成的文本

“结束”按钮：结束程序的运行设计步骤如下：

(1)创建应用程序的用户界面和设置对象的属性数据输出补充例题显示唐诗“静夜思”数据输出

(2)编写程序代码。编写的三个按钮的Click事件过程代码：

PrivateSubCmdPrt_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷体_GB2312"FontSize=20FontBold=True′粗体

CurrentX=1200:CurrentY=350′显示位置

Print"静夜思(唐诗)"FontName="幼圆"PrintFontSize=13PrintSpc(6);"床前明月光，疑是地上霜"PrintPrintSpc(6);"举头望明月，低头思故乡"

EndSub(2)编写程序代码。编写的三个按钮的Click事件过程代码

PrivateSubCmdCls_Click()Cls

EndSub

PrivateSubCmdEnd_Click()End

EndSub

程序运行后，单击“显示”按钮，输出结果PrivateSubCmdCls_Click()方法2(2)编写程序代码。编写的三个按钮的Click事件过程代码：

PrivateSubCmdPrt_Click()ForeColor=RGB(0,0,255)FontName="楷体_GB2312"FontSize=20FontBold=True'粗体

a="静夜思(唐诗)"b="床前明月光，疑是地上霜"c="举头望明月，低头思故乡"Form1.CurrentX=Form1.ScaleWidth/2-TextWidth(a)/2Form1.CurrentY=Form1.ScaleHeight/2-TextHeight(a)/2-TextHeight(b)-TextHeight(c)PrintaFontName="幼圆"PrintFontSize=13Form1.CurrentX=Form1.ScaleWidth/2-TextWidth(b)/2PrintbPrintForm1.CurrentX=Form1.ScaleWidth/2-TextWidth(c)/2Printc

EndSub方法2(2)编写程序代码。编写的三个按钮的Click事件过程输入框（InputBox）

InputBox函数显示一个能接收用户输入的对话框，并返回用户在对话框中输入的信息。语法格式为：变量=InputBox（<信息内容>[,<对话框标题>][,<默认内容>]）注：

<信息内容>指定对话框中出现的文本

<对话框标题>指定对话框标题

<默认内容>指定输入框的文本框中显示的默认文本

省略可选项，应加相应的逗号分隔符（,）数据输入教材示例3-4输入框（InputBox） 数据输入教材示例3-4

示例7：编制华氏温度和摄氏温度的相互转换程序，利用输入框输入温度，如下图所示：设计步骤如下：

建立应用程序用户界面并设置对象属性，如下图数据输入示例7示例7：编制华氏温度和摄氏温度的相互转换程序

编写事件代码PrivateSubCommand1_Click()c=Val(InputBox("请输入摄氏温度值：","摄氏转华氏",0))f=32+9*c/5Label1.Caption=“摄氏”&c&“度=华氏”&_Format(f,"####.##")&"度"EndSubPrivateSubCommand2_Click()f=Val(InputBox("请输华氏温度值：","华氏转摄氏",0))c=5*(f-32)/9Label1.Caption=“华氏”&f&“度=摄氏”&_Format(c,"####.##")&"度"EndSub数据输入

编写事件代码数据输入

示例8：“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？设计步骤如下：

建立应用程序用户界面并设置对象属性，如下图数据输入示例8示例8：“鸡兔同笼”问题。鸡有2只脚，兔有4

编写事件代码PrivateSubCommand1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox("鸡和兔的总头数","请输入",0))f=Val(InputBox("鸡和兔的总脚数（偶数）","请输入",0))x=(4*h-f)/2y=(f-2*h)/2Label2.Caption="设笼中鸡和兔的总头数为"&h&_"，总脚数为"&f&"。"Label3.Caption="则笼中鸡"&x&"只，兔有"&y&_"只。"EndSub数据输入

编写事件代码数据输入信息对话框（MsgBox）

MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮，语法格式为：

变量=MsgBox（<信息内容>[，<对话框类型>[，<对话框标题>]]）注：

<信息内容>指定对话框中出现的文本

<对话框类型>指定对话框中出现的按钮和图标，一般有三个参数,三个参数相加可以得到所需样式，其取值和含义如表值常量说明0vbOKOnly确定按钮1vbOKCancel确定和取消按钮2vbAbortRetryIgnore终止、重试和忽略按钮3vbYesNoCancel是、否和取消按钮4vbYesNo是和否按钮5vbRetryCancel重试和取消按钮参数1——出现按钮数据输入信息对话框（MsgBox） 值常量说明0vbOKOnly确值常量说明16vbCritical停止图标32vbQuestion问号（？）图标48vbExclamation感叹号（！）图标64vbInformation信息图标参数2——图标类型值常量说明0vbDefaultButton1指定默认按钮为第一按钮256vbDefaultButton2指定默认按钮为第二按钮512vbDefaultButton3指定默认按钮为第三按钮参数3——默认按钮数据输入值常量说明16vbCritical停止图标32vbQuest

<对话框标题>指定对话框的标题

MsgBox返回的值指明了在对话框中选择哪一个按钮，如下表

代码中的值可以是数值，也可以是数值常量

如果省略了某些可选项，必须加入相应的逗号分隔符

若不需要返回值，则可以使用MsgBox的命令形式：

MsgBox<信息内容>[，<对话框类型>[，<对话框标题>]]值常量按钮1vbOK确定按钮2vbCancel取消按钮3vbAbort终止按钮4vbRetry重试按钮5vbIgnore忽略按钮6vbYes是7vbNo否函数的返回值数据输入

<对话框标题>指定对话框的标题值常量按示例：a=MsgBox(“请确认输入数据是否正确!”,3+32+0,“数据检查”)运行结果如下图：数据输入示例：数据输入

示例9或例3-6：使用信息对话框输出各种票额钞票张数的付款方案设计步骤如下：

建立应用程序用户界面（如下图左）数据输入示例9示例9或例3-6：使用信息对话框输出各种票额PrivateSubCommand1_Click()x=Val(Text1.Text)Y1=x\100:x=xMod100Y2=x\50:x=xMod50Y3=x\10:x=xMod10Y4=x\5:x=xMod5Y5=x\2:x=xMod2Text1.SelStart=0:Text1.SelLength=Len(Text1.Text):Text1.SetFocusa="================================="&Chr(13)a=a&Format(Y1&"张百元票,","@@@@@@@@@@@@")&_Format(Y2&"张50元票","@@@@@@@@@")&Chr(13)a=a&Format(Y3&"张10元票,","@@@@@@@@@@@@@")a=a&Format(Y4&"张5元票","@@@@@@@@@")&Chr(13)a=a&Format(Y5&"张2元票,","@@@@@@@@@@@@@")a=a&Format(x&"张1元票","@@@@@@@@@")&Chr(13)a=a&"================================="&Chr(13)a=a&"共计"&Text1.Text&"元"C=MsgBox(a,0,"应发工资")EndSub数据输入PrivateSubCommand1_Click()数据

图片框（PictureBox）和图像框（Image）都用于显示图形，它们可以显示.bmp(位图)，.ico(图标)，.wmf(图元)，.gif和.jpg等类型的图形文件

图片框（PictureBox）可以作为其他控件的容器

常用属性

与窗体属性相同的属性：Enabled，Name，Visible，FontBold，FontName，FontSize，AutoRedraw，Height，Left，Top，Width等

⑴Picture属性该属性用于设置控件要显示的图形。该属性无论是在属性窗口中设置还是在运行时由程序代码设置，均需要完整的路径和文件名。

⑵AutoSize属性返回或设置控件大小是否自动调整大小，以完整显示图形。如果设置为True，图片框根据图形大小自动调整。如果设置为False，保持原尺寸，当图形比图片框大时，则超出部分会自动被截去。图片框图片框（PictureBox）和图像框（Image）

⑶CurrentX和CurrentY属性用来返回或设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。这两个属性只能在运行时使用，语法格式：[对象名称.]CurrentX[=x][对象名称.]CurrentY[=y]“对象”可以是窗体、图片框或打印机。如果省略“对象”，则指当前窗体；如果省略“=x”、“=y”，则返回当前的坐标值。

⑷Align属性设置图片框在窗体中的显示方式。如表3-6所示。

⒉图片框常用事件及方法