第三章VB程序设计基础-课件.ppt
- 文档编号:2648759
- 上传时间:2022-11-05
- 格式:PPT
- 页数:84
- 大小:530KB
第三章VB程序设计基础-课件.ppt
《第三章VB程序设计基础-课件.ppt》由会员分享,可在线阅读,更多相关《第三章VB程序设计基础-课件.ppt(84页珍藏版)》请在冰豆网上搜索。
计算机基础教研室计算机基础教研室主讲主讲许泽明许泽明电话电话1878021829233VB程序设计基础第三章第三章VisualBasic基本语句基本语句窗体窗体数据输入与输出数据输入与输出目录3.1VisualBasic基本语句基本语句3.1.1语句语句
(1)为了增强语句的可读性,书写多行语句时采)为了增强语句的可读性,书写多行语句时采用锯齿型用锯齿型
(2)一般一行一条语句一般一行一条语句多条语句之间用冒号多条语句之间用冒号“:
”分隔分隔例:
例:
x=1:
y=2:
z=3x=1:
y=2:
z=3(3)一条语句在多行显示,使用续行符一条语句在多行显示,使用续行符“_”例:
例:
x=(-b+x=(-b+Sqr(bSqr(b2-4*a*c)/_2-4*a*c)/_(2*a)(2*a)注意:
注意:
续行符续行符“_”前加空格前加空格3.1.2赋值语句赋值语句格式:
格式:
LetLet变量变量=表达式表达式LetLet属性名属性名=属性值属性值功能:
功能:
将将表表达达式式(或或属属性性值值)值值赋赋给给赋赋值值号号左左边边的的变变量(或属性)。
量(或属性)。
具有计算和赋值的双重功能。
具有计算和赋值的双重功能。
说明:
说明:
关键字关键字LetLet可以不写。
可以不写。
例如:
例如:
DimStr1AsStringStr1=VisualBasic6.0DimNumAsIntegerNum=100Text1.Text=Str1把把Str1的值赋值给对的值赋值给对象象Text1的的Text属性属性Text2.Text=PleaseCheckThisNumber”注意注意:
当当表表达达式式的的类类型型与与变变量量类类型型不不同同时时,VBVB自自动动将表达式的类型强制转换为变量类型将表达式的类型强制转换为变量类型。
1.表达式与变量精度不同表达式与变量精度不同DimNumAsIntegerDimNumAsIntegerNum=7.89Num=7.89强制转换成变量的精度强制转换成变量的精度,Num=8Num=8(四舍五人四舍五人)2.表达式为数字字符串,变量是数值类型表达式为数字字符串,变量是数值类型Dima%a=123自动将数字字符串转换为数值类型自动将数字字符串转换为数值类型a=1233.表达式是逻辑型,变量是数值型表达式是逻辑型,变量是数值型Dima%a=True逻辑型数据转换为相应的数值类型逻辑型数据转换为相应的数值类型,a=-1True转换为转换为-1False转换为转换为04.任何非字符串赋值给字符类型任何非字符串赋值给字符类型Dima$a=Truea=123则则a=Truea=123注意:
注意:
(1)“=”为赋值号为赋值号a=b只能将右边表达式赋给左边变量只能将右边表达式赋给左边变量
(2)赋值号左边只能是变量赋值号左边只能是变量。
不能是常量、常数符号或表达式不能是常量、常数符号或表达式sin(x)=x+y5=sqr(s)+x+yx+y=33.1.3数据输出数据输出1.Print方法方法格式:
格式:
对象对象.Print表达式列表表达式列表;|,功能:
功能:
在指定的对象中输出表达式的值在指定的对象中输出表达式的值。
说明:
说明:
(1)对象对象可为窗体、图片框、打印机、可为窗体、图片框、打印机、如省略对象名,如省略对象名,则则在当前窗体输出在当前窗体输出。
(2)表达式)表达式逗号逗号(,)分隔分隔标准格式标准格式(分区输出)。
分区输出)。
表达式表达式分号分号(;)分隔(;)分隔紧凑格式紧凑格式数值数据前面有一个数值数据前面有一个符号位符号位后面有一个后面有一个空格空格输出字符串时,各个输出字符串时,各个字符串之间没有间隔字符串之间没有间隔(3)表达式缺省,则输出空行)表达式缺省,则输出空行PrivateSubForm_Click()DimaAsInteger,bAsInteger,tAsIntegera=100:
b=500Print交换前交换前;a;bt=a:
a=b:
b=tPrint交换后交换后;a;bEndSubPrivateSubForm_Load()AutoRedraw=TruePrint交换两个数交换两个数Print单击窗体开始单击窗体开始EndSub2.与与Print方法有关的函数方法有关的函数
(1)Tab
(1)Tab函数函数功能:
功能:
在指定的位置显示输出信息在指定的位置显示输出信息格式:
格式:
PrintTab(n)其中:
其中:
nn为一整数,是下一个输出位置的列号。
为一整数,是下一个输出位置的列号。
如当前的显示位置已经超过如当前的显示位置已经超过nn,则下移一行。
则下移一行。
如如n1n1,则把显示位置移到则把显示位置移到第一列第一列。
PrivateSubCommand1_Click()PrintTab(10);100;Tab(30);200;Tab(20);300PrintTab(-10);400PrintTab(10);100PrintTab(10);-100PrintTab(10);AAAEndSub【例例】输出一个如下图所示的用星号组成输出一个如下图所示的用星号组成的倒三角形。
的倒三角形。
*PrivateSubForm_Click()Form1.PrintTab(11);*Form1.PrintTab(12);*Form1.PrintTab(13);*Form1.PrintTab(14);*EndSub例:
例:
Print姓名姓名;Tab(10);年龄年龄Print张三张三;Tab(10);18Print姓名姓名;Tab(10);年龄年龄Print张三张三;Tab(9);18
(2)
(2)SpcSpc函数函数功能:
功能:
在在PrintPrint的输出中跳过的输出中跳过nn个空格个空格。
格式:
格式:
PrintSpc(n)说明:
说明:
nn为整数,取值范围:
为整数,取值范围:
0032,76732,767。
SpcSpc函数和函数和TabTab函数的功能类似,可互相代替函数的功能类似,可互相代替TabTab函数函数:
从对象的左端开始计数从对象的左端开始计数SpcSpc函数函数:
表示:
表示两个输出项之间的空格数两个输出项之间的空格数。
例:
例:
Print姓名姓名;Tab(10);年龄年龄Print姓名姓名;Spc(5);年龄年龄(3)Space$)Space$函数函数功能:
功能:
返回由返回由nn个空格组成的字符串个空格组成的字符串。
格式:
格式:
Space$(n)其中:
其中:
nn为整数,取值范围:
为整数,取值范围:
0032,76732,767。
Space$Space$函函数数用用于于在在输输出出项项之之间间插插入入空空格格字字符串符串。
例:
例:
Print姓名姓名;Spc(5);性别性别Print姓名姓名;Space$(5);性别性别(4)格式输出函数格式输出函数按指定的格式输出数值或日期数据按指定的格式输出数值或日期数据。
格式:
格式:
Format$(数值表达式,格式字符串数值表达式,格式字符串)说明:
说明:
(1)“格格式式字字符符串串”指指定定的的格格式式,以以文文本本方式方式输出输出“数值表达式数值表达式”的值的值。
(2)如省略)如省略“格式字符串格式字符串”,则,则Format$函数功能与函数功能与Str$函数功能基本相同,函数功能基本相同,区别在区别在于把于把正正数转换成字符串时:
数转换成字符串时:
Str$函数函数在字符串前面在字符串前面留有一个空格留有一个空格Format$函数函数在字符串前面在字符串前面不留空格不留空格“格格式式字字符符串串”由由格格式式说说明明字字符符组组成成,决决定定数据项的显示格式,并指定显示区段的长度。
数据项的显示格式,并指定显示区段的长度。
常用格式字符串介绍:
常用格式字符串介绍:
(1)数值格式化)数值格式化#整数位数整数位数符号位数符号位数,按实际按实际数字显示数字显示小数位数小数位数符号位数,符号位数,按四舍五入显示按四舍五入显示0整数部分位数整数部分位数符号位数,符号位数,按实际数字显示按实际数字显示小数位数小数位数符号位数,符号位数,按四舍五入显示按四舍五入显示小数位数小数位数符号位数,符号位数,后补后补0例例:
PrivateSubForm_Click()PrintFormat(1234.567,#.#)PrintFormat(1234.567,#.#)EndSub不在数前或后补不在数前或后补0例例:
PrivateSubForm_Click()PrintFormat(1234.567,00000.0000)PrintFormat(1234.567,000.00)EndSub在数前或数后补在数前或数后补00.加小数点加小数点,加加千分位千分位PrintFormat(1234,0000.00)PrintFormat(1234.567,#,#0.0000)字符串格式化字符串格式化实际字符位数实际字符位数符号位数,字符符号位数,字符前加空格前加空格&实际字符位数实际字符位数100ThenIfx100ThenMsgBoxMsgBox数据错误数据错误ElseIfElseIfx=60Thenx=60ThenPrintx;Printx;合格合格ElseIfElseIfx=0Thenx=0ThenPrintx;Printx;不合格不合格ElseElseMsgBoxMsgBox数据错误数据错误EndIfEndIfEndSubEndSubPrivateSubForm_Load()PrivateSubForm_Load()AutoRedrawAutoRedraw=True=TruePrintPrint判断程序判断程序PrintPrint单击窗体开始单击窗体开始EndSubEndSub3.3.63.3.6打印机输出打印机输出直接输出直接输出格式:
格式:
Printer.Print表达式表达式将表达式送打印机打印将表达式送打印机打印
(1)Page属性属性:
设置页号设置页号
(2)NewPage方法方法:
实现换页操作实现换页操作(3)EndDoc方法方法:
结束打印结束打印窗体输出窗体输出格式:
格式:
窗体窗体.PrintForm用用PrintForm方法打印窗体内容方法打印窗体内容源程序代码打印源程序代码打印:
选择:
选择“文件文件/打印打印”命令。
命令。
本章小结本章小结数据输出是最基本的操作,重点掌握数据输出是最基本的操作,重点掌握Print方法的方法的使用使用。
命令按钮命令按钮、标签标签和和文本框文本框控件是控件是VB的最基本的控的最基本的控件,必须熟练掌握这些控件的正确使用。
件,必须熟练掌握这些控件的正确使用。
InputBox函数函数、MsgBox函数和函数和MsgBox语句语句提供了提供了VB最基本的输入和输出方式,必须熟练掌握最基本的输入和输出方式,必须熟练掌握这些函数和语句的正确使用这些函数和语句的正确使用。
本章结束本章结束字型字型字体类型和大小字体类型和大小1.字体类型字体类型格式:
格式:
窗体窗体.控件控件.FontName=“字体类字体类型型”或或Printer.FontName=“字体类型字体类型”说明:
说明:
(1)FontName=“字体类型字体类型”可设置英文可设置英文或中文字体类型。
或中文字体类型。
(2)缺省)缺省=“字体类型字体类型”,返回当前字,返回当前字体体例:
例:
FontName=“长城粗隶书长城粗隶书”FontName=“TimesNewRoman”2.字体大小字体大小格式:
格式:
FontSize=点数点数说明:
说明:
(1)省略)省略
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 第三 VB 程序设计 基础 课件