搜索
主页学习程序设计，初学者要善于模仿，并要多练。任何一门程序设计语言都有一套严格的编程规定(如语法规则)，在编程时一定要遵守这些规定(只能遵守，不能创造)。主页一个完整的VB应用程序，一般都包含三部分内容，即输入→处理→输出可通过VB语句、各种控件实现输入输出操作本章主要内容第3章顺序结构程序设计赋值语句注释、结束及暂停语句使用Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框消息框退出主页1.赋值语句［Let］变量名=表达式示例：x=5*1.42.注释、结束和暂停语句(1)注释语句Rem或´注释内容(2)结束语句End(3)暂停语句Stop也可以通过单击工具栏上的“中断”按钮来实现使用Ctrl+Break组合键,可强制程序暂停运行赋值与输入输出主页(1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如：a=1c=a+b+3′b未赋过值，为0执行后，c值为4(2)赋值语句跟数学中等式具有不同的含意，例如x=x+1表示把变量x的当前值加上1后再将结果赋给变量“先读后写”：读出x的内容→加1→写回x（覆盖原有内容）说明主页(3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素(其值被读出)；出现在左边时，变量起存放表达式的值的作用(被赋值)。例如x=2a=3x=2*a+5当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把该值乘2后加5，然后将结果(11)赋值给变量x。(4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。说明主页编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=36a=Int(x/10)'求十位数b=xMod10'求个位数c=b*10+a'生成新的数Print处理后的数:;cEndSub运行程序后单击窗体，输出结果是：处理后的数：63例3.1给定一个两位数(如36)，交换个位数和十位数的位置，把处理后的数显示在窗体上例3.1处理方法两位数abb取出个位数a取出十位数新两位数:b*10+a主页编写的VB程序代码如下：PrivateSubForm_Click()DimxAsInteger,aAsIntegerDimbAsInteger,cAsIntegerx=InputBox(“输入一个２位数”)‘运行时由用户任意给定一个２位数a=Int(x/10)'求十位数b=xMod10'求个位数c=b*10+a'生成新的数Print处理后的数:;cEndSub执行后，弹出一个输入对话框，若用户输入“83”，输出结果：处理后的数:38例3.1A运行时由用户任意给定一个两位数，交换个位数和十位数的位置，把处理后的数显示在网页上。例3.1A一种灵活输入方式InputBox是VB函数，见P58主页例3.2设计程序，实现两个文本框内容的交换(1)在窗体上建立两个标签、两个文本框和一个命令按钮(2)编写程序代码借助于另一个变量(假设为t)，并直接在控件中交换数据PrivateSubCommand1_Click()′“交换”按钮DimtAsStringt=Text1.TextText1.Text=Text2.TextText2.Text=tEndSubText1Text2例3.2有的对象属性具有变量的特性主页编写的程序代码如下：PrivateSubCommand1_Click()´“交换”按钮t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub采用变体型变量说明：对于初学者来说，为了节省时间，有时可以不采用Dim等语句声明就直接使用变量(默认为变体型，如t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。没用Dim语句t是变体型变量主页把上述程序改为以下形式，效果是否一样？PrivateSubCommand1_Click()′“交换”按钮Text2.Text=Text1.TextText1.Text=Text2.TextEndSub思考题想一想主页下列程序的运行结果是什么？运行时，在文本框Text1中输入5，单击“计算”按钮后，在文本框Text2显示的结果是什么?PrivateSubCommand1_Click()'“计算”按钮DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)b=7c=2*aModb/3+1a=a+1b=2*b-1c=c+a+bText2.Text=cEndSub思考题想一想Text1Text2例3.2A20主页3.3.1Print方法用于显示(输出)格式：［对象名.］Print［表达式列表］说明：(1)使用的对象可以是窗体等Print“程序设计”´在当前窗体上输出Picture1.Print“程序设计”´在图片框上输出(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行3.3使用Print方法输出数据主页例3.3Print输出示例PrivateSubForm_Click()a=3:b=4Printa,b,4+a,Print2*bPrinta,,bPrintPrinta=;a,b=;bEndSub运行结果例3.3分号“；”——紧凑格式逗号“，”——按区格式(14个字符位置)语句行末尾有分号或逗号,则输出本行输出项后不换行输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格每个Print输出一行。主页1.Spc函数格式：Spc(n)功能：在输出下一项之前插入n个空格。Print学号；Spc(2)；姓名；Spc(5)；成绩输出结果(└┘表示空格)学号└┘└┘姓名└┘└┘└┘└┘└┘3.3.2特殊打印格式主页函数格式：Tab(n)功能：把输出位置移到第n例如：PrintTab(2);学号；Tab(11);姓名；Tab(21);成绩输出结果是(1个汉字占2个位置)：└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩2.Tab函数主页格式：Format(表达式[,格式串])功能：根据格式串规定的格式来输出表达式的值示例a=4513.7PrintFormat(a,##,###.##)PrintFormat(a,$##,###.00)输出结果是：4,513.7$4,513.70格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足03.Format函数主页窗体(Form)是设计VB应用程序的基本平台窗体本身是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的;一个程序可以有多个窗体3.4.1窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现默认属性3.4窗体主页一些常用的窗体属性：·Name属性：用于设置窗体的名称。指定窗体的名称。只读，不能在应用程序中修改·Caption属性：用于设置窗体标题栏上的标题内容。·Maxbutton和Minbutton属性：用于设置最大化和最小化按钮·Height和Width属性：确定窗体的初始高度和宽度·Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标·BackColor和ForeColor属性：设置窗体的背景色和前景色·FontName属性：用于在窗体上设置字体。·FontSize属性：用于在窗体上设置字号。·Visible(可见性)：设置对象的可见性，默认值为True主页坐标原点(0,0)在窗体的左上角坐标轴刻度单位为缇(Twip,567缇为1厘米)当前位置的横坐标(CurrentX)和纵坐标(CurrentY)YX·(CurrentX,CurrentY)当前位置窗体坐标系统主页窗体事件过程的一般格式为：PrivateSubForm_事件名([参数表])……End在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等)3.4.2窗体的事件只能写成Form,不能写成Form1主页与窗体有关的常用事件有以下几种。Load(装载)事件：启动程序时，通常先执行Form_LoadUnload(卸载)事件Click(单击)事件DblClick(双击)事件KeyPress(按键)事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：PrivateSub对象_KeyPress(KeyAsciiAsInteger)……EndSub示例：PrivateSubForm_KeyPress(KeyAsciiAsInteger)Print你录入的键是：;Chr(KeyAscii)EndSub参数KeyAscii返回所按键的ASCII码主页(1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体。例如：PrivateSubForm_Load()ShowPrint“窗体已被Ｓhow显示出来！”EndSub(2)Print方法(3)Cls方法：用于清除运行时在窗体中显示的文本或图形(4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小3.4.3窗体的方法启动程序时，系统先自动执行本过程，但窗体未被显示出来通过Show显示窗体。使后续的Print输出内容可见主页1.焦点焦点(Focus，光标)是对象接收鼠标或键盘输入的能力。(1)(2)(3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点(4)在代码中用SetFocusText1.SetFocus′把焦点设置在文本框Text12.Tab键序Tab键序是指用户按Tab键时，焦点在控件间移动的顺序反映在控件的TabIndex属性3.4.4焦点与Tab键序主页设置以下3个命令按钮：“显示”按钮：用于显示唐诗“静夜思”“清除”“结束”(1)创建应用程序的用户界面和设置对象的属性例3.4显示唐诗“静夜思”例3.4主页(2)编写程序代码。三个按钮的事件过程代码：PrivateSubCmdPrt_Click()BackColor=RGB(255,255,255)′背景颜色，白色ForeColor=RGB(0,0,255)′前景颜色，蓝色FontName=楷体_GB2312FontSize=20FontBold=True′粗体CurrentX=1200:CurrentY=350′显示位置Print静夜思(唐诗)Print′空一行FontName=幼圆FontSize=13PrintSpc(6);床前明月光，疑是地上霜PrintPrintSpc(6);举头望明月，低头思故乡EndSub颜色值见附录B主页PrivateSubCmdCls_Click()ClsEndSubPrivateSubCmdEnd_Click()EndEndSub程序运行后，单击“显示”按钮，输出结果主页3.5基本控件三种基本控件——命令按钮、标签和文本框命令按钮(commandButten)用于引发应用程序的某个操作标签(Label)主要用来显示比较固定的提示性信息。文本框(TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。几点说明：(1)Caption属性：对象的标题可以在Caption属性中为控件指定一个访问键例如：Command1.Caption=“结束(&E)”运行时只要用户同时按下Alt键和E键，就能执行该按钮命令(2)Enabled属性：决定控件是否对用户产生的事件作出响应(3)Visible属性：决定控件是否可见，默认值为True主页当文本框的Text属性内容发生变化时，会触发文本框的Change事件。当在文本框Text1中输入ABC三个字符时窗体上显示的是什么。PrivateSubText1_Change()PrintText1.TextEndSub例3.4AAABABC思考题想一想主页在窗体上已经建立了两个文本框Text1和Text2，并编写如下三个事件过程：Priv