顺序结构程序的设计wm.pptVIP

顺序结构程序设计 InputBox函数 Var =InputBox(Prompt[,title][,defsult][,x,y][,helpfile,context]) 用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 InputBox函数 在InputBox函数的使用中如果要省略某些位置参数，原则上都必须加入相应的逗号分界符，有一种情况下可以不加逗号，就是省略其后所有可省略的参数。 s = InputBox(“请输入你的姓名”, , , , Height / 2) InputBox函数 InputBox函数的返回值是一个String型数据。 由InputBox函数产生的输入框一般有“确定”和“取消”两个按钮，如果用户单击“确定”按钮或按下回车键，则InputBox函数返回文本框中的内容。如果用户单击“取消”按钮或按下Esc键，则此函数返回一个长度为零的字符串 ()。 MsgBox函数 以信息框的形式用于向用户发布提示信息，并要求用户做出必要的响应 MsgBox(Prompt[,button][,title][,helpfile,context]) button：这是一个由4个数值常量组成的式子，形式为c1+c2+c3+c4，用于决定信息框中按钮的个数和类型、图标类型、强制回应 MsgBox函数 MsgBox函数 MsgBox函数 MsgBox函数 MsgBox函数 MsgBox函数往往与条件语句配合使用，根据用户选择单击的按钮而返回不同的值，执行不同的操作 MsgBox函数常见使用方法 用于赋值语句 ans = MsgBox(确实要删除该文件吗? , 1+32+256,确认删除) 用于方法调用时的参数 Print MsgBox(“确实要删除该文件吗? ”, 1+32+256, 确认删除) 用于条件表达式 If MsgBox (“确实要删除该文件吗?”,1+32+256,“确认删除”)=1 _ ThenKill (k1.bmp) End If MsgBox函数常见使用方法 忽略函数返回值，以过程调用形式出现 MsgBox “确实要删除该文件吗?”, 1 + 32 + 256, “确认删除” 采用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 顺序结构 在VB中有赋值语句，没有输入输出语句 输入输出功能通过文本框等控件和Print方法以及用户交互的函数来实现此功能 赋值语句 赋值语句注意点 赋值号左边只能是变量，不能是常量或表达式形式 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 例 题 运行下面的程序，单击命令按钮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 赋值号 赋值号 给不同的变量赋相同的值 Dim a As Integer, b As Integer, c As Integer a = b = c