如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
第4章顺序结构程序设计●4.1顺序结构程序的概念●4.2数据输出●4.2.1直接输出到窗体1.使用Print方法语法格式为:[〈对象名〉.]Print[〈表达式表〉][{,|;}]【例4-1】用Print方法输出数据到窗体上,程序的执行结果如图4-2所示。窗体Form的Load事件代码如下:PrivateSubForm_Load()ShowPrint"aa"&"bb",-5*6,Not2<=3Print"aa"&"bb";-5*6;Not2<=3Print'如果Print后不用任何项,则输出一个空行PrintNow'显示当前日期和时间PrintFontSize=18'设置字体尺寸Print"30+60=",Print30+60PrintPrint"30+60=";30+60EndSub【例4-2】使用Print方法在窗体中直接输出字符串或数值表达式的值。PrivateSubCommand1_Click()PrintPrint"2*3+4=";2*3+4'使用“;”分割符Print'输出一个空行Print"祝你学好"Print,"Visual"'使用“,”分割符Print,,"Baisc"'使用两个“,”分割符PrintPrint"祝您学好",'在行末使用“,”分割符Print"Visual";"Baisc"2.与Print方法有关的函数(1)Tab函数格式为:Tab(n);【例4-3】使用Tab函数对齐输出,如图4-10所示。编写窗体Form的Click(单击)事件代码:PrivateSubForm_Click()ShowFontSize=12'设置输出文本字体的大小PrintPrintTab(10);"姓名";Tab(25);"性别";Tab(40);"年龄"PrintPrintTab(10);"刘榴";Tab(25);"女";Tab(40);16PrintTab(10);"韩小强";Tab(25);"男";Tab(40);18EndSub(2)Spc函数格式为:Spc(n);3.使用位置属性和字体属性4.清除方法ClsCls方法的语法格式为:[〈对象名〉.]Cls【例4-5】在例4-4中使用Cls方法清除窗体中由Print方法所生成的文本,如图4-13所示。并编写其Click事件代码:PrivateSubCommand2_Click()ClsEndSub●42.2使用标签控件输出1.标签控件的常用属性(1)Caption属性(2)BorderStyle属性(3)其他外观属性2.标签使用示例【例4-6】如图4-14所示,使标签控件具有边框,并修改标签属性改为无边框。3)编写事件代码。编写“单击”命令按钮Command1的Click(单击)事件代码如下:PrivateSubCommand1_Click()Label1.Caption="健康、快乐和幸福"'改变Label1的标题内容Label2.Caption=“永远与您相伴”'改变Label2的标题内容Label2.Alignment=2'Label2的内容居中显示Label2.BorderStyle=0'将Label2的边框样式改为无边框EndSubLabel2.Caption=Label4.CaptionLabel4.Caption=cEndSub●4.3.2卸载对象语句UnloadUnload语句的语法格式为:Unload〈对象名〉【例4-8】在例4-7中增加“关闭”命令按钮,关闭窗体,如图4-17所示。设计步骤如下:只需在例4-7中增加一个命令按钮Command2,并将其Caption属性改为“关闭”,编写Command2的Click事件代码:PrivateSubCommand2_Click()UnloadMe'Me表示按钮所在的窗体对象EndSub●4.3.3注释语句Rem语法格式为:Rem〈注释内容〉或'〈注释内容〉例如:c=Label2.Caption'c为临时变量Label2.Caption=Label4.Caption:Rem将Label4的Caption属性值赋给Label2●4.4编写代码●4.4.1文本框控件1.文本框控件的常用属性文本框的常用属性有以下几个。(1)Text属性(2)Locked属性(3)MultiLine属性(4)ScrollBars属性(5)PassWordChar属性(6)MaxLength属性2.文本框控件的显示文本3.文本框使用示例【例4-9】输入某学生语文、数学、英语这3