第三讲(2学时) 教学内容 Visual 中输入、输出语句和VB提供的内部函数 二、目的要求 1.掌握VB语言中输入、输出语句的用法 2.掌握一些常用函数使用。 三、教学重点与难点 教学重点:输入、输出语句。 教学难点:函数的使用 四、教学方法 多媒体教学 五、教学过程 2.3.2输入语句 语句格式: value= Input Box( message; title [ default[ cord, cord]]) 语句功能:产生一个具有提示信息并可供用户输入数据的对话框。返回字符串型数 据 例:输入一个整数,并在文本框Text1中显示输入的整数 程序代码为 Private Sub Form Cl Dim temp As String, num As Integer temp= Input Boxi("请输入一个整数","输入窗口演示") Iext1Text=”你输入的数是:”&num End Sub 2.3.3输出语句 语句格式: Msg Box message [,buttons, title] 函数格式:vlue= Msg box( message, buttons[,tlel) 例:利用 MsgBox函数产生一个询问对话框,并根据用户的回答作出相应的操作 程序代码为 Dim value As Integer value= Msg Box("确定退出本系统吗?",1+32+0+0,″演示窗口") If value= yboK Then end第三讲 （2 学时） 一、教学内容 Visual Basic 中输入、输出语句和 VB 提供的内部函数。 二、目的要求 1．掌握 VB 语言中输入、输出语句的用法。 2．掌握一些常用函数使用。 三、教学重点与难点 教学重点：输入、输出语句。 教学难点： 函数的使用 四、教学方法 多媒体教学。 五、教学过程 2.3.2 输入语句 语句格式：value=InputBox(message [,title [,default [,xcord,ycord] ] ]) 语句功能：产生一个具有提示信息并可供用户输入数据的对话框。返回字符串型数 据。 例：输入一个整数，并在文本框 Text1 中显示输入的整数 程序代码为 Private Sub Form_Click() Dim temp As String, num As Integer temp = InputBox(请输入一个整数:, 输入窗口演示) num = Val(temp) Text1.Text= 你输入的数是: & num End Sub 2.3.3 输出语句 语句格式：MsgBox message [,buttons[, title] ] 函数格式：value=MsgBox ( message [,buttons[, title] ]) 例：利用 MsgBox 函数产生一个询问对话框，并根据用户的回答作出相应的操作。 程序代码为： Dim value As Integer value = MsgBox(确定退出本系统吗？, 1+32+0+0, 演示窗口) If value = vbOK Then End