顺序结构程序设计_wm

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,顺序结构程序设计,1,InputBox函数,Var =,InputBox(Prompt,title,defsult,x,y,help,),InputBox,(“,请输入字母”，“输入对话框”，“,wuxi,”),用来接受用户通过键盘输入的数据,2,用InputBox函数实现数据交换,Private Sub CmdChange_Click() 交换命令按钮,Dim a As String, b As String, temp As String,a = InputBox(请输入数据交换的 & vbCrLf & 第一个数a, 数据输入),b = InputBox(“请输入数据交换的” & vbCrLf & “第二个数b”, “数据输入”) ,End Sub,回车换行符-,Chr(13)+Chr(10),/,vbCrLf,3,InputBox,函数,在,InputBox,函数的使用中如果要省略某些位置参数，原则上都必须加入相应的,逗号分界符,，有一种情况下可以不加逗号，就是省略其后所有可省略的参数。,s = InputBox(“请输入你的姓名”, , , , Height / 2),4,InputBox函数的返回值是一个,String型,数据。,由InputBox函数产生的输入框一般有“确定”和“取消”两个按钮，如果用户,单击“确定”按钮,或按下回车键，则InputBox函数返回文本框中的内容。如果用户,单击“取消”按钮,或按下Esc键，则此函数返回一个长度为零的字符串 ()。,InputBox函数,5,MsgBox函数,以信息框的形式用于向用户发布提示信息，并要求用户做出必要的响应,MsgBox(Prompt,button,title,help,),button,：,这是一个由,4,个数值常量组成的式子，形式为,c1+c2+c3+c4,，,用于决定信息框中,按钮的个数和类型、图标类型、,强制回应,6,MsgBox函数,button参数中c1的取值,c1,内置常量名,意义,0,vbOkOnly,只显示“确定”按钮,1,vbOkCancel,显示“确定”和“取消”按钮,2,vbAbortRetryIgnore,显示“终止”,“重试”和“忽略”按钮,3,vbYesNoCancel,显示“是”,“否”和“取消”按钮,4,vbYesNo,显示“是”和“否”按钮,5,vbRetryCancel,显示“重试”和“取消”按钮,7,button参数中c2的取值,c2,内置常量名,意义,16,vbCritical,显示关键信息图标,32,vbQuestion,显示警示疑问图标,48,vbExclamation,显示警告信息图标,64,vbInformation,显示通知信息图标,MsgBox函数,8,button参数中c3的取值,c3,内置常量名,意义,0,vbDefaultButton1,第一个按钮为缺省按钮,256,vbDefaultButton2,第二个按钮为缺省按钮,512,vbDefaultButton3,第三个按钮为缺省按钮,MsgBox函数,9,button参数中c4的取值,0,vbApplicationModel,应用程序模式，用户在当前应用程序继续执行之前，必须对信息框做出响应；信息框位于最前面,4096,vbSystemModel,系统模式，所有应用程序均挂起，直到用户响应该信息框为止,MsgBox函数,10,MsgBox,函数往往与条件语句配合使用，根据用户选择单击的按钮而返回不同的值，执行不同的操作,MsgBox,函数的返回值,按钮名,内置常量名,取值,OK(确定),vbOK,1,Cancel(取消),vbCancel,2,Abort(终止),vbAbort,3,Retry(重试),vbRetry,4,Ignore(忽略),vbIgnore,5,Yes(是),vbYes,6,No(否),vbNo,7,MsgBox函数,11,用于赋值语句,ans,=,MsgBox,(,确实要删除该文件吗,? , 1+32+256,确认删除,),用于方法调用时的参数,Print,MsgBox,(“,确实要删除该文件吗,? ”, 1+32+256, ,确认删除,),用于条件表达式,If,MsgBox,(“,确实要删除该文件吗,?”,1+32+256,“,确认删除”,)=1 _ ThenKill (k1.bmp),End If,MsgBox函数,常见使用方法,12,MsgBox函数,常见使用方法,忽略函数返回值，以过程调用形式出现,MsgBox “确实要删除该文件吗?”, 1 + 32 + 256, “确认删除”,13,采用MsgBox实现结果的输出,Private Sub CmdChange_Click(),Dim a As Single, b As Single, temp As Single,MsgBox “数据交换后,” & vbCrLf & “第一个数据a为” & _,CStr(a) & vbCrLf & 第二个数据b为 & CStr(b), _,vbInformation, 数据交换结果,End Sub,14,顺序结构,在VB中,有赋值语句,，,没有输入输出语句,输入输出功能通过,文本框等控件和Print方法,以及,用户交互的函数,来实现此功能,15,赋值语句,var,可以是,变量名或属性名,对,变量进行赋值,就是将数据放入指定变量的内存空间。而对,属性进行赋值,就是设置或改变对象的属性值,var = 表达式,StudentNum = 30Form1.Caption = Input data,16,编程实现用户输入的两个数据内容的互换,接收用户输入,a = Text1.Text : b = Text2.Text,数据交换,Temp,= a : a = b : b =,Temp,交换结果输出,Text1.text=a : Text2.text=b,17,赋值语句注意点,赋值号,左边只能是变量,，不能是常量或表达式形式,Error,a * b = 23 abs(a) = (a+b+c) / 2 67 = x,一般要求,赋值号两边的数据类型一致,，若不一致，则按,类型转换原则,进行转换，转换不成功则报错,Dim a As Integer, b As Long, c As Single b = 10 : a = b + 10000 : c = a * b a = b + 40000,正确,溢出,错误,18,运行下面的程序，单击命令按钮C1，则窗体上的输出是_。,Private Sub C1_Click(),Dim A As Integer, B As Boolean, C As Integer, D As Integer,A = 20 / 3,B = True,C = B,D = A + C,Print A, D, A = A + C,End Sub,7 6 False,例 题,在程序中将变量A定义为Integer型 ，则语句A = “333” + “222” 将使,A的值成为_。,溢出,19,赋值号,赋值号,最左边的等号是赋值号,而,x = 5 Or y,中的等号是判等符,表示判断,x,是否等于,5,区分赋值号和关系运算符中的判等号,Dim x As Integer, y As Boolean, z As Boolean x,=,15y,=,2 xz,=,x = 5 Or y,20,给不同的变量赋相同的值,Dim a As Integer, b As Integer, c As Integer,a = b = c = 6,b,、,c,的值不变，仍为,0,，而,a,的值为,0,a = 6 : b = 6 : c = 6,分别用多条赋值语句来实现,21,22,用户输入两个数实现两个数的求和,Private Sub CmdAdd_Click(),Dim a As String, b As String, c As Single,a = TxtOp1.Text : b = TxtOp2.Text,c =,Val(,a,),+,Val(,b,),利用Val函数实现字符串到数值的转换,LblResult.Caption = LblResult.Caption & a & + & b & _ = &,CStr(c),通过标签显示两数求和结果,End Sub,23,逆序输出用户输入的三位整数,关键,：如何取得整数,X,每一位上的数字,算术运算法:,个位数字,=X mod 10,十位数字,=(X-,个位数字,)/10 mod 10,百位数字,=X 100,。,字符串法：X转换成字符串形式，通过Mid函数实现,个位数字字符=Mid(cstr(X),3,1),十位数字字符=Mid(cstr(X),2,1),百位数字字符=Mid(cstr(X),1,1)。逆序后的数据用&连接,24,常用算法及应用,6.5.1,交换两个数据的值,6.5.2,数据的自运算,25,交换两个数据的值,有,A,、,B,两个杯子中分别装有红酒和咖啡，要求将两个杯子中的饮品互换。,具体实施步骤如下：步骤1：先将A杯中的红酒倒入C杯中。步骤2：再将B杯中的咖啡倒入A杯中。,步骤,3,：最后将,C,杯中的红酒倒入,B,杯中。,26,交换两个数据的值,设,x,和,y,是两个相同类型的变量，将两个变量中的值进行交换。,分析：,简单的使用,x=y : y=x,并不能达到目的，这样的赋值会使,x,中的数值丢失而使,y=x,失去意义。,使用辅助变量,z,来实现。,步骤,1,：将,x,的值放入,z,中。步骤,2,：再将,y,的值放入,x,中。步骤,3,：最后将,z,中的值放入,y,中。,以上步骤的代码实现是,z = x: x = y: y = z(3,条语句,),使用时要特别注意执行中变量值的变化情况,。,对于数值型变量的交换，还可以采用数学的方法来实现。,x = x + y: y = x - y: x = x y,(3,条语句,),27,数据的自运算,程序中经常出现一些变量，他们的值是通过前一次赋值经过运算得到的，这种相对于自己的一种运算我们称之为,自运算,，这种运算在本质上属于,递推,概念。,28,数据的自运算,1,算术运算,（,主要用于数值型数据的自运算,）,（1）将变量x的值增加1语句为x = x + 1。,（2）将变量x的值减少1语句为x = x 1。,（3）将标签Label1的Left属性增加100，语句为Label1.Left = Label1.Left + 100。,（,4,）将图像,Image1,的,Width,属性扩大两倍，语句为,Image1.Width = Image1.Width * 2,。,29,数据的自运算,2字符运算,（1）在字符串s的,后面,添加字符“！”，语句为s = s & “!”,（2）删除字符串s的最后一个字符，语句为：s = Left ( s , Len(s)-1),（3）在字符串s的,前面,添加字符“#”，语句为s = “#” & s,（4）删除字符串s的第一个字符，语句为：s = Right ( s , Len(s)-1),（5）在字符串s的,第k个字符后,添加字符“*”，语句为：s = Left(s, k) & * & Right(s, Len(s) - k),（6）删除字符串s的第k个字符，语句为：s = Left(s, k - 1) & Right(s, Len(s) - k),30,