vb程序设计第2版第4章

《vb程序设计第2版第4章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章顺序结构程序设计本章要点:赋值语句数据输入数据输出注释、暂停与程序结束语句1事件驱动:将代码划分成一些“子过程”过程结构:过程内部代码由三种基本结构组成即:顺序结构、选择结构、循环结构顺序结构:执行过程的次序从上到下，从左到右例:PrivateSubCommand1_Click()ConstPi=3.14H=Val(Text1.Text):R=Val(Text2.Text)Text3.Text=Pi*R^2*HEndSub24.1赋值语句1.格式<变量名>=<表达式>或:[<对象名>.]<属性名>=<表达式>2.功能计算表达式的值,再将此值赋给

2、变量或对象属性。3.说明(1)<变量名>:应符合VB变量命名约定。(2)<表达式>:常量、变量、表达式、属性。(3)<对象名>:缺省时为当前窗体。(4)赋值号“=”:与数学中的等号意义不同。例:X=X+13(5)赋值号左边必须是变量或对象属性。例:X=1MyStr="GoodMorning"Command1.Caption="确定"X+1=X'错误，赋值号左边是表达式Y=5'正确5=Y'错误，赋值号左边是常量(6)变量名或对象属性名的类型应与表达式类型相容。类型相容：指变量名或对象属性名能够正确存取赋值号右边的表达式的值。4例:DimAAsInteg

3、er,BAsSingleDimCAsDouble,SAsStringA=100'将整型数100赋给整型变量AS="123.45"'将字符串"123.45"赋给变量SA=S'将数字字符串变量赋给整型变量，'变量A中存放123S=A'S中存放字符串"123"B=12345.67A=B‘高精度变量赋值给整型变量，'先四舍五入后取整,A中存放12346C=123456.789B=C'高精度变量赋值给低精度变量，'变量B中存放123456.8。有效数字7位S="abc"A=S'错误，类型不匹配5(7)变量未赋值时，数值型变量值为0，字符串变量值为空串""。(8

4、)给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。例:执行下列各赋值语句后，A的数据类型是什么？(设A没有定义数据类型)A=6=5A=5+3A="5+3"A="#11/26/99#"A=#11/26/1999#A=Not5>8可用TypeName函数显示变量的数据类型。如:PrintTypeName(A)6【例4-1】设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。ABCC=AA=BB=C代码如下:A=5B=8C=AA=BB=C74.2数据输入把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中

5、，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。赋值语句；输入框(InputBox)；文本框(TextBox)；……输入84.2.1用InputBox函数输入数据1.InputBox函数的格式InputBox(<提示信息>[,<标题>][,<默认值>])2.功能提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。3.说明<提示信息>:字符串表达式。可用Chr(13)、Chr(10)、Chr(13)&Chr(10)、vbCrLf换行。<标题>:字符串表达式,省略时默认为应用程序名。<默认值>:字符串表达

6、式,省略时默认为空。返回值:字符串(在对话框中单击取消则返回"")9例:PrivateSubForm_Activate()DimRAsSingle,AREAAsSingleR=Val(InputBox(“请输入半径”,“计算面积”,“1”))AREA=3.14*R^2Print"R=";R;"AREA=";AREAEndSub单击“确定”，返回文本框中的文本到变量R中单击“取消”，返回一个零长度的字符串10用文本框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。例：将文本框Text1中输入的字符串赋给字符串变量MystrDimMyStr

7、AsStringMyStr=Text1.Text例：将文本框Text1中输入的字符串作为数值赋给整型变量DimAAsIntegerA=Val(Text1.Text)4.2.2用TextBox控件输入数据111.焦点当前可以接收用户输入的对象称为具有焦点。注意:并非所有控件都可以接收焦点。而且,只有Enabled和Visible属性为True时，才可以接收焦点。2.事件GotFocus发生在对象得到焦点时LostFocus发生在对象失去焦点时3.对象何时得到焦点运行时选择对象(鼠标、Tab键、访问键)在代码中使用SetFocus方法4.2.3焦点和Ta

8、b键序124.对象何时失去焦点运行时用Tab键移动、用访问键或用鼠标单击选择另一个对象。在代码中对另一个对象