VB程序设计第2版第4章.ppt

《VB程序设计第2版第4章.ppt》由会员分享，可在线阅读，更多相关《VB程序设计第2版第4章.ppt（50页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第第四四章章 顺顺序序结结构构程程序序设设计计第第4 4章章顺序结构程序设计顺序结构程序设计本章要点本章要点:赋值语句赋值语句数据输入数据输入数据输出数据输出注释、暂停与程序结束语句注释、暂停与程序结束语句1第第四四章章 顺顺序序结结构构程程序序设设计计事件驱动事件驱动:将代码划分成一些将代码划分成一些“子过程子过程”过程结构过程结构:过程内部代码由三种基本结构组成过程内部代码由三种基本结构组成 即即:顺序结构、选择结构、循环结构顺序结构、选择结构、循环结构顺序结构顺序结构:执行过程的次序从上到下，从左到右执行过程的次序从上到下，从左到右例例:Private Sub Command1_Clic

2、k()H=Val(Text1.Text):R=Val(Text2.Text)Text3.Text=Pi*R 2*H End Sub2第第四四章章 顺顺序序结结构构程程序序设设计计4.1 赋值语句赋值语句1.格式格式 =或或:.=2.功能功能 计算表达式的值计算表达式的值,再将此值赋给变量或对象属性。再将此值赋给变量或对象属性。3.说明说明(1):应符合应符合VB变量命名约定。变量命名约定。(2):常量、变量、表达式、属性。常量、变量、表达式、属性。(3):缺省时为当前窗体。缺省时为当前窗体。(4)赋值号赋值号“=”:与数学中的等号意义不同与数学中的等号意义不同。例例:X=X+13第第四四章章

3、顺顺序序结结构构程程序序设设计计(5)赋值号左边必须是变量或对象属性。赋值号左边必须是变量或对象属性。例例:X=1 MyStr=Good Morning Command1.Caption=确定确定 X+1=X 错误，赋值号左边是表达式错误，赋值号左边是表达式 Y=5 正确正确 5=Y 错误，赋值号左边是常量错误，赋值号左边是常量(6)变量名或对象属性名的类型应与表达式类型变量名或对象属性名的类型应与表达式类型相容。相容。类型类型相容相容：指变量名或对象属性名能够正确存：指变量名或对象属性名能够正确存取赋值号右边的表达式的值取赋值号右边的表达式的值。4第第四四章章 顺顺序序结结构构程程序序设设计

4、计例例:Dim A As Integer,B As Single Dim C As Double,S As String A=100 将整型数将整型数100赋给整型变量赋给整型变量A S=123.45 将字符串将字符串123.45赋给变量赋给变量S A=S 将数字字符串变量赋给整型变量，将数字字符串变量赋给整型变量，变量变量A中存放中存放123 S=A S中存放字符串中存放字符串123 A=B 高精度变量赋值给整型变量，高精度变量赋值给整型变量，先四舍五入后取整先四舍五入后取整,A中存放中存放12346 B=C 高精度变量赋值给低精度变量，高精度变量赋值给低精度变量，变量变量B中存放中存放12

5、3456.8。有效数字。有效数字7位位 S=abc A=S 错误，类型不匹配错误，类型不匹配5第第四四章章 顺顺序序结结构构程程序序设设计计(7)变量未赋值时，数值型变量值为变量未赋值时，数值型变量值为0，字符串变，字符串变量值为空串量值为空串。(8)给可变类型的变量赋值后，变量的类型为赋值给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。号右边表达式的类型。例例:执行下列各赋值语句后，执行下列各赋值语句后，A的数据类型是什么的数据类型是什么？(设设A没有定义数据类型没有定义数据类型)A=6=5 A=5+3 A=5+3 A=#11/26/99#A=#11/26/1999#A=Not

6、5 8可用可用TypeName函数显示变量的数据类型。函数显示变量的数据类型。如如:Print TypeName(A)6第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-1】设变量】设变量A中存放中存放5，变量，变量B中存放中存放8，交，交换两个变量的值，使变量换两个变量的值，使变量A中存放中存放8，变量，变量B中存中存放放5。ABCC=AA=BB=C代码如下代码如下:A=5B=8C=AA=BB=C7第第四四章章 顺顺序序结结构构程程序序设设计计4.2 数据输入数据输入 把要加工的初始数据从某种外部设备（例如键把要加工的初始数据从某种外部设备（例如键盘）盘）输入输入到计算机中，并把处理

7、结果到计算机中，并把处理结果输出输出到指定到指定设备（如显示器），这是程序设计语言所应具备设备（如显示器），这是程序设计语言所应具备的基本部分。的基本部分。赋值语句；赋值语句；输入框输入框(InputBox)；文本框文本框(TextBox)；输入输入8第第四四章章 顺顺序序结结构构程程序序设设计计4.2.1 用用InputBox函数输入数据函数输入数据1.InputBox函数的格式函数的格式 InputBox(,)2.功能功能 提示一对话框，等待用户输入正文或按下按钮，提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。并返回包含文本框内容的字符串。3.说明说明:字符串表达

8、式。字符串表达式。可用可用Chr(13)、Chr(10)、Chr(13)&Chr(10)、vbCrLf换行。换行。:字符串表达式字符串表达式,省略时默认为应用程序名。省略时默认为应用程序名。:字符串表达式字符串表达式,省略时默认为空。省略时默认为空。返回值返回值:字符串字符串(在对话框中单击取消则返回在对话框中单击取消则返回)9第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Form_Activate()Dim R As Single,AREA As Single R=Val(InputBox(“请输入半径请输入半径”,“计算面积计算面积”,“1”)AREA=3.1

9、4*R 2 Print R=;R;AREA=;AREA End Sub单击单击“确定确定”，返回文本框中的文本到变量，返回文本框中的文本到变量R中中单击单击“取消取消”，返回一个零长度的字符串，返回一个零长度的字符串10第第四四章章 顺顺序序结结构构程程序序设设计计 用文本框输入数据时，也就是将文本框的用文本框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。属性的内容赋值给某个变量。例：将文本框例：将文本框Text1中输入的字符串赋给字符串中输入的字符串赋给字符串变量变量Mystr Dim MyStr As String MyStr 例：将文本框例：将文本框Text1中输入的字符

10、串作为数值赋中输入的字符串作为数值赋给整型变量给整型变量 Dim A As Integer A=Val(Text1.Text)4.2.2 用用TextBox控件输入数据控件输入数据11第第四四章章 顺顺序序结结构构程程序序设设计计1.焦点焦点 当前可以接收用户输入的对象称为具有焦点。当前可以接收用户输入的对象称为具有焦点。注意注意:并非所有控件都可以接收焦点。而且并非所有控件都可以接收焦点。而且,只只有有Enabled和和Visible属性为属性为True时，才可以接收时，才可以接收焦点。焦点。2.事件事件 GotFocus 发生在对象得到焦点时发生在对象得到焦点时 LostFocus 发生在

11、对象失去焦点时发生在对象失去焦点时3.对象何时得到焦点对象何时得到焦点运行时选择对象运行时选择对象(鼠标、鼠标、Tab键、访问键键、访问键)在代码中使用在代码中使用SetFocus方法方法4.2.3 焦点和焦点和Tab键序键序12第第四四章章 顺顺序序结结构构程程序序设设计计4.对象何时失去焦点对象何时失去焦点运行时用运行时用Tab键移动、用访问键或用鼠标单击选择键移动、用访问键或用鼠标单击选择另一个对象。另一个对象。在代码中对另一个对象使用在代码中对另一个对象使用SetFocus方法改变焦方法改变焦点。点。5.Tab键序键序指按指按Tab键时光标在各个控件之间移动的顺序。键时光标在各个控件之

12、间移动的顺序。每个窗体都有自己的每个窗体都有自己的Tab键序。键序。默认键序与控件的建立次序一致。默认键序与控件的建立次序一致。TabIndex属性属性:决定决定Tab键序键序 改变改变TabIndex属性可以改变属性可以改变Tab键序键序 TabStop属性属性:决定是否能够使用决定是否能够使用 Tab 键将焦点移键将焦点移动到当前对象。动到当前对象。13第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-2】设计如下图所示的界面，运行时，输入某】设计如下图所示的界面，运行时，输入某学生三门课的成绩，计算平均成绩。按要求编程。学生三门课的成绩，计算平均成绩。按要求编程。要求：要求：n单

13、击单击“计算计算”按钮求平均成绩；按钮求平均成绩；n当输入成绩的文本框获得焦点时，选中其中的文本；当输入成绩的文本框获得焦点时，选中其中的文本；n当输入成绩的文本框内容发生变化时，清除平均值；当输入成绩的文本框内容发生变化时，清除平均值；n单击单击“清除清除”按钮清除所有内容，将焦点定位在按钮清除所有内容，将焦点定位在Text1中；中；n单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Text4Text1Text2Text3Command1Command2Command3设设Text4的的Locked属性为属性为True14第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“计

14、算计算”按钮求平均成绩按钮求平均成绩 Private Sub Command1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)Text4.Text=(A+B+C)/3 End Sub15第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框获得焦点时当输入成绩的文本框获得焦点时,选中其中的文本选中其中的文本 Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub Private Sub Text2_Got

15、Focus()Text2.SelStart=0 Text2.SelLength=Len(Text2.Text)End Sub Private Sub Text3_GotFocus()Text3.SelStart=0 Text3.SelLength=Len(Text3.Text)End Sub16第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框内容发生变化时当输入成绩的文本框内容发生变化时,清除平均值清除平均值 Private Sub Text1_Change()Text4.Text=End Sub Private Sub Text2_Change()Text4.Text=End

16、 Sub Private Sub Text3_Change()Text4.Text=End Sub17第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“清除清除”按钮清除所有文本框的内容，并按钮清除所有文本框的内容，并将焦点定位在文本框将焦点定位在文本框Text1中。中。Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=End Sub单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Private Sub Command3_Click()End End Sub18第第四四章章 顺顺序序

17、结结构构程程序序设设计计4.3 数据输出数据输出 在程序设计中对输入的数据进行加工后，往往需在程序设计中对输入的数据进行加工后，往往需要将处理结果、提示信息等呈现给用户，即输出。要将处理结果、提示信息等呈现给用户，即输出。输出输出Print方法方法消息框消息框(MsgBox)文本框文本框标签标签19第第四四章章 顺顺序序结结构构程程序序设设计计 用文本框输出数据时，也就是将数据赋给文本框用文本框输出数据时，也就是将数据赋给文本框的的Text属性。例如输出一个字符串（或数值）属性。例如输出一个字符串（或数值）,输出输出多个字符串（或数值）多个字符串（或数值）例：用文本框例：用文本框Text1输出

18、一个字符串输出一个字符串 Text1.Text=hello例：用文本框例：用文本框Text1输出一个数值型数据输出一个数值型数据 X=3 5 Text1.Text=Str(X)Str可以省略或用可以省略或用Format例：用文本框例：用文本框Text1输出多个数，分多行输出输出多个数，分多行输出。首先将文本框的首先将文本框的MultiLine设置为设置为True，必要时必要时可以进一步设滚动条属性可以进一步设滚动条属性ScrollBars。X=3 5:Y=7 4 Text1.Text=Str(X)&vbCrLf&Str(Y)4.3.1 用用TextBox控件输出数据控件输出数据20第第四四章章

19、 顺顺序序结结构构程程序序设设计计【例【例4-3】在】在Text1中输入任一英文字母，在中输入任一英文字母，在Text2中显示该英文字母及其中显示该英文字母及其ASCII码值。要求在文本码值。要求在文本框框Text2中显示出所有输入的英文字母及其中显示出所有输入的英文字母及其ASCII码值。码值。Text1Text2Command121第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Command1_Click()Dim Char As String*1 Char=Trim(Text1.Text)Text2.Text=&Space(5)&Char&_ Space(10)&

20、Str(Asc(Char)&vbCrLf Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End SubChr(13)&Chr(10)22第第四四章章 顺顺序序结结构构程程序序设设计计4.3.2 用用Label控件输出数据控件输出数据 用标签输出数据时，也就是将数据赋给标签的用标签输出数据时，也就是将数据赋给标签的Caption属性。也可以输出多个数据属性。也可以输出多个数据。例：用标签例：用标签Label1输出一个字符串输出一个字符串 Label1.Caption=hello例：用标签例：用标签Label1输出一个数值型数据输出一个数值型数据

21、X=3 5 Label1.Caption=Str(X)例：用标签例：用标签Label1输出多个数，分多行输出输出多个数，分多行输出。通常要先设置标签的通常要先设置标签的AutoSize属性和属性和WordWrap属性为属性为True。X=3 5:y=7 4 Label1.Caption=x=&Str(X)&vbCrLf _&y=&Str(y)23第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-4】已知三角形的三条边】已知三角形的三条边a、b、c的长度，的长度，用海伦公式求三角形的面积用海伦公式求三角形的面积S。海伦公式。海伦公式:将文本框将文本框Text1、Text2、Text3的内

22、容清空的内容清空;设置三个文本框的设置三个文本框的Alignment属性为属性为1-Right Justify;设置标签设置标签Label2的的Caption属性为空属性为空;设置标签设置标签Label2的的BorderStyle属性为属性为1 Fixed Single。Text1 Text2 Text3Label2Command124第第四四章章 顺顺序序结结构构程程序序设设计计代码如下：代码如下：Private Sub Command1_Click()Dim A As Single,B As Single,C As Single Dim P As Single,S As Single A=

23、Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)P=(A+B+C)/2 S=Sqr(P*(P-A)*(P-B)*(P-C)显示时保留两位小数显示时保留两位小数 Label2.Caption=Format(S,0.00)End Sub25第第四四章章 顺顺序序结结构构程程序序设设计计 消息框常用于在屏幕上显示一个对话框，给出消息框常用于在屏幕上显示一个对话框，给出一些提示或警告信息，并允许用户进行选择。程一些提示或警告信息，并允许用户进行选择。程序可根据该选择确定进一步的操作。序可根据该选择确定进一步的操作。1.MsgBox函数的格式函数的格式

24、=MsgBox(,)或：或：MsgBox ,2.功能功能 在对话框中显示消息，等待用户单击按钮，并在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。返回一个整数告诉用户单击了哪个按钮。:字符串表达式。可用换行符换行。字符串表达式。可用换行符换行。:按钮类型按钮类型+图标类型图标类型+默认按钮默认按钮。P67 :字符串表达式。字符串表达式。返回值返回值:由在对话框中按下哪种按钮决定。见由在对话框中按下哪种按钮决定。见P674.3.3 用用MsgBox函数输出数据函数输出数据26第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Command1_

25、Click()MsgBox 提示信息提示信息 End Sub例例:换行换行 Private Sub Command1_Click()MsgBox 第一行第一行&Chr(13)&第二行第二行 End Sub27第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Command1_Click()A=MsgBox(提示信息提示信息,标题内容标题内容)End Sub例例:按钮类型按钮类型0到到5或符号常量或符号常量 见见P65 Private Sub Command1_Click()A=MsgBox(提示信息提示信息,1,标题内容标题内容)End Sub28第第四四章章 顺顺序

26、序结结构构程程序序设设计计例例:图标类型图标类型16、32、48、64或符号常量或符号常量 见见P65 Private Sub Command1_Click()A=MsgBox(提示信息提示信息,16,标题内容标题内容)End Sub例例:默认按钮默认按钮0,256,512 见见P58 Private Sub Command1_Click()a=MsgBox(提示信息提示信息,2+256,标题内容标题内容)Print a End Sub按回车打印按回车打印429第第四四章章 顺顺序序结结构构程程序序设设计计4.3.4 用用Print方法输出数据方法输出数据1.Print方法方法 格式格式:.P

27、rint ;|,:窗体窗体 如如 Form1.Print Hello 图片框图片框 如如 Picture1.Print Hello 打印机打印机 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug.Print Hello 省略省略:默认为当前窗体。默认为当前窗体。:多个表达式多个表达式使用逗号或分号隔开。使用逗号或分号隔开。逗号逗号:以以14个字符位置为单位把一个输出行个字符位置为单位把一个输出行分成若干区段。分成若干区段。分号分号:后一项紧跟前一项输出。后一项紧跟前一项输出。30第第四四章章 顺顺序序结结构构程程序序设设计计 输出时，输出时，数值型数据前有一个符

28、号位数值型数据前有一个符号位(正号不显正号不显)，后面留一个空格位，后面留一个空格位；字符串原样输出，前后无空；字符串原样输出，前后无空格。格。例例:Private Sub Form_Activate()Print 2+4=;2+4,Print 2-4=;Print 2-4 End Sub例例:Private Sub Form_Activate()Print 2+4=;2+4 Print 2-4=,2-4 End Sub 31第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Form_Load()Print 产生空行产生空行 Print 2+4=;2+4,Print

29、取消上面一句末尾逗号的作用取消上面一句末尾逗号的作用 Print 2-4=;Print 2-4 End Sub输入输入Print时可用时可用?代替，代替，VB将其自动转换成将其自动转换成Print32第第四四章章 顺顺序序结结构构程程序序设设计计2.与与Print方法有关的函数方法有关的函数(1)Tab函数函数 格式格式:Tab(n)功能功能:在指定的第在指定的第n个位置上输出数据。个位置上输出数据。参数参数n:n当前位置当前位置:打印位置为下一行的第打印位置为下一行的第n列列 n1:打印位置为第打印位置为第1列列 省略省略:打印位置为下一个打印区的起点打印位置为下一个打印区的起点 (每每14

30、个字符为一个打印区个字符为一个打印区)33第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Form_Activate()Print Hello;Tab(10);World Print Hello;Tab;World Print Hello;Tab(4);World Print Tab(-5);Hello End Sub34第第四四章章 顺顺序序结结构构程程序序设设计计(2)Spc函数函数 格式格式:Spc(n)功能功能:跳过跳过n个空格。个空格。例例:Print HOW;Spc(3);ABOUT 结果结果:HOWABOUT注意注意:Spc函数与函数与Space函数、

31、函数、Tab函数的区别函数的区别Space函数函数:可以用在字符串允许出现的任何位可以用在字符串允许出现的任何位置。置。Spc函数函数:只能用在打印语句中。只能用在打印语句中。Tab函数指定绝对位置；函数指定绝对位置；Space函数或函数或Spc函数函数指定相对位置。指定相对位置。35第第四四章章 顺顺序序结结构构程程序序设设计计4.4 注释、暂停与程序结束语句注释、暂停与程序结束语句1.注释语句注释语句 格式格式:|Rem 功能功能:给语句或程序段加上注释，以提高可读性。给语句或程序段加上注释，以提高可读性。说明说明:Rem与与 之间至少空一个空格。之间至少空一个空格。例例:Private

32、Sub Form_Activate()Rem 本程序用于计算圆的面积本程序用于计算圆的面积 Dim R As String,AREA As Single R为半径为半径 R=InputBox(请输入半径请输入半径,1):Rem 输入半径输入半径 AREA=3.14*Val(R)2 以下将半径和面积输出到窗体上以下将半径和面积输出到窗体上 Print Val(R),AREAEnd Sub36第第四四章章 顺顺序序结结构构程程序序设设计计2.暂停语句暂停语句 格式格式:Stop 功能功能:暂停程序的执行。暂停程序的执行。用于程序调试。类似于执行用于程序调试。类似于执行“运行运行”菜单中的菜单中的“

33、中断中断”命令命令3.结束语句结束语句 格式格式:End 功能功能:结束程序的执行。结束程序的执行。37第第四四章章 顺顺序序结结构构程程序序设设计计4.5 顺序结构程序应用举例顺序结构程序应用举例【例例4-5】鸡兔同笼。已知笼中鸡兔总头数为鸡兔同笼。已知笼中鸡兔总头数为h，总脚数为总脚数为f，问鸡兔各有多少只？，问鸡兔各有多少只？分析：分析：设鸡有设鸡有x只，兔有只，兔有y只，则方程式如下：只，则方程式如下：x+y=h 2x+4y=f解方程。解出求解方程。解出求x和和y的具体公式为：的具体公式为：x=（4h-f）/2 y=（f-2h）/238第第四四章章 顺顺序序结结构构程程序序设设计计设计

34、界面：设计界面：Command1Text1Text2Label4Label3Label3、Label4的的AutoSize属性设置为属性设置为True39第第四四章章 顺顺序序结结构构程程序序设设计计代码如下：代码如下：Private Sub Command1_Click()Dim h As Integer,f As Integer,x As Integer,y As Integer h=Val(Text1.Text)f=Val(Text2.Text)x=(4*h-f)/2 y=(f-2*h)/2 Label3.Caption=&Str(x)&只只 Label4.Caption=&Str(y)

35、&只只End Sub40第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Text1_GotFocus()文本框文本框Text1获得焦点时，选中其中的文本获得焦点时，选中其中的文本 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End SubPrivate Sub Text2_GotFocus()文本框文本框Text2获得焦点时，选中其中的文本获得焦点时，选中其中的文本 Text2.SelStart=0 Text2.SelLength=Len(Text2.Text)End Sub 41第第四四章章 顺顺序序结结构构程程序序设

36、设计计【例例4-64-6】设计如下图所示的界面。运行时，在文设计如下图所示的界面。运行时，在文本框本框Text1Text1和和Text2Text2中输入某一范围后，单击中输入某一范围后，单击“随随机抽号机抽号”按钮，在标签按钮，在标签LabelLabel上产生指定范围内的上产生指定范围内的随机整数，实现在任意指定的范围内随机抽取号随机整数，实现在任意指定的范围内随机抽取号码。码。Text1Text2框架框架Frame1Label4Command142第第四四章章 顺顺序序结结构构程程序序设设计计代码如下：代码如下：Private Sub Command1_Click()Dim A As Int

37、eger,B As Integer Randomize A=Val(Text1.Text)B=Val(Text2.Text)产生产生A,B区间的随机整数区间的随机整数 Label4.Caption=Str(Int(Rnd*(B-A+1)+A)End Sub43第第四四章章 顺顺序序结结构构程程序序设设计计 在在Text1获得焦点时，选中其中的文本获得焦点时，选中其中的文本Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub 在在Text2获得焦点时，选中其中的文本获得焦点时，选中其

38、中的文本Private Sub Text2_GotFocus()Text2.SelStart=0 Text2.SelLength=Len(Text2.Text)End Sub 44第第四四章章 顺顺序序结结构构程程序序设设计计【例例4-7】求用十进制表示求用十进制表示230有多少位。界面如下图有多少位。界面如下图所示所示。Label3分析：分析：先求先求230的值，再用的值，再用Str函数将其转换为字函数将其转换为字符串，用符串，用Trim函数去掉该字符前的空格，然后用函数去掉该字符前的空格，然后用Len函数求字符串长度（即其位数）。函数求字符串长度（即其位数）。45第第四四章章 顺顺序序结结

39、构构程程序序设设计计代码如下：代码如下：Private Sub Form_Load()Dim M As Long,Temp As String Show M=2 30 Temp=Str(M)将将M转换成字符串转换成字符串 Label3.Caption=&Temp 定义窗体当前打印位置的定义窗体当前打印位置的X坐标坐标 CurrentX=300 定义窗体当前打印位置的定义窗体当前打印位置的Y坐标坐标 CurrentY=800 使用使用Trim去除空格去除空格 Print 总共有总共有;Len(Trim(Temp);位位End Sub 46第第四四章章 顺顺序序结结构构程程序序设设计计【例例4-8

40、4-8】对文本框中所列单词进行相关操作。界对文本框中所列单词进行相关操作。界面如下图所示。运行时，可以对鼠标选中的单词进面如下图所示。运行时，可以对鼠标选中的单词进行行“首字母大写首字母大写”操作、操作、“全部小写全部小写”操作、操作、“删删除除”操作，并可以向文本框中添加新单词。操作，并可以向文本框中添加新单词。Text1Command1Command2Command3Command447第第四四章章 顺顺序序结结构构程程序序设设计计代码如下：代码如下：将鼠标选中的单词首字母大写将鼠标选中的单词首字母大写Private Sub Command1_Click()Text1.SelText=UC

41、ase(Left(Text1.SelText,1)&_ Right(Text1.SelText,Len(Text1.SelText)-1)End Sub 将鼠标选中的单词全部改为小写将鼠标选中的单词全部改为小写Private Sub Command2_Click()Text1.SelText=LCase(Text1.SelText)End Sub48第第四四章章 顺顺序序结结构构程程序序设设计计 输入新单词输入新单词,添加到文本框尾部添加到文本框尾部Private Sub Command3_Click()Dim word As String word=InputBox(请输入新单词请输入新单词

42、)Text1.Text=&word&vbCrLfEnd Sub 删除选中的单词删除选中的单词Private Sub Command4_Click()Text1.Text=Left(Text1.Text,Text1.SelStart)&_ Right(Text1.Text,Len(Text1.Text)-_ Text1.SelStart-Text1.SelLength-1)End Sub 49第第四四章章 顺顺序序结结构构程程序序设设计计本章小结本章小结:输入输入计算、处理：计算、处理：输出输出赋值语句赋值语句文本框文本框IntputBox函数函数赋值语句赋值语句标签标签文本框文本框Print语句语句MsgBox函数函数开始开始输入输入计算、处理计算、处理输出输出结束结束顺序结构程序：顺序结构程序：50