VB第四章赋值与输入输出课件.ppt

赋值语句 输入/输出通过: 文本框控件、标签控件、 InputBox函数、MsgBox函数和过程 Print方法，format等来实现。 ;4.1 赋值语句 ;1．“=” 是一个赋值运算符，叫做赋值号 2．变量赋值后，新值代替旧值 3．变量初值： （1）数值型变量初值为 0 （2）字符型变量初值为空，即 4．赋值时，强制转换成左边精度 如: Dim a% = 10 / 3 则a结果为3;当表达式的类型与变量的类型不一致时,强制转换成左边的精度。;5. 右边表达式可以是变量、常量、函数等。 但：c = 3 + Math.Sqrt(- 3) x = Math.sin(x) / (20 mod 2) 6．赋值号“=”左边只能是变量名或对象的属性， 不能是常量、符号常量、表达式。 例：5 = X Abs(X)=20;7． 不要将“＝”理解为数学上的等号： A = A + 1 表示将A的值加１后再放回到A中;语句;1. InputBox函数：字符串类型 变量名＝InputBox（提示[，标题][，默认值] [，xpos][，ypos]）; vbCrLf; Dim strName As String * 40， strS1 As String * 40 相应的语句如下: strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以： strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单击确定” strName= InputBox(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值.;例 从输入框中输入圆的半径，计算圆的周长和面积;(1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(请输入圆的半径, 计算圆的周长和面积)) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 计算已完成, , 例 End Sub Private Sub Command2_Click() End End Sub;MsgBox函数返回所选按钮的值，函数形式： 变量[%] = MsgBox(提示[,对话框类型][,对话框标题]) MsgBox过程不返回值，过程形式： MsgBox 提示[,对话框类型][,对话框标题];第3个按钮为默认;MsgBox所选按钮返回值 ;If MsgBox(密码错误, vbRetryCancel + vbExclamation, 输入密码) = vbRetry Then Text1 = Text2 = Text1.SetFocus Else End End If; 语法格式：Load 对象名 功能：把对象名代表的窗体对象、控件数组元素等加载到内存中。 说明：使用Load语句可以加载窗体，但不显示窗体。当VB加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程。 例如 Load Forml ′加载窗体Forml Load Option(2) ′加载控件数组中的一个元素; 格式：Unload 对象名 功能：从内存中卸载指定窗体或控件。 如果卸载的对象是程序惟一的窗体，则将终止程序的执行 例如 Private Sub Command1_Click() Unload Me ′卸载当前窗体 End Sub  Me是系统关键字，用来代表当前窗体; 格式：End 功能：结束程序的运行。 也可以单击