a = MsgBox("你确定要退出本程序码?", 1 + 32, "系统警告")
If a = 1 Then
End
Else
Print "你没有退出系统"
End If
3、Msgbox语句
作用：没有返回值，用于简单的信息显示。
语法：MsgBox Msg[,Type][,title]
语法：Inputbox(prompt[，title][，default][，xpos][，ypos])
InputBox("信息", "标题", "默认值", x,y)
说明：在prompt项中，需要换行时，用“vbCrLf”或“ Chr(13) + Chr(10)”
Print "籍贯：" & stuhome
四、 其它
dim a
do while 1
a = MsgBox("我要让你点的手痛", 1 + 32, " 好玩吗")
loop
****************************************************************************************
stuname = InputBox(a1, a)
stuage = InputBox(aห้องสมุดไป่ตู้, a)
stusex = InputBox(a3, a)
stuhome = InputBox(a4, a)
Cls
Print "姓名：" & stuname
Print "年龄：" & stuage
Print "性别：" & stusex
Exit Do
End If
Loop
End Sub
三、 课后练习
练习新上机第一套
1、 用Inputbox函数输入信息，并在窗体输出所输入的信息
FontSize = 15
a = "学生情况登记"
a1 = "请输入姓名"
a2 = "请输入年龄"
a3 = "请输入性别"
a4 = "请输入籍贯"
说明：Msg为提示信息，Type为按钮类型（了解），title标题
例：
Private Sub Command1_Click()
MsgBox "欢迎学习VB", , "提示"
MsgBox "欢迎学习VB" & vbCrLf & "祝你学习愉快、进步", , "提示"
如：
Dim a As String
a = InputBox("请输入你的姓名" & vbCrLf & "然后单击确定", "输入对话框", "小丽", 3000, 5000)
Print a
x = InputBox("请输入第一个数", "输入对话框")
y = InputBox("请输入第二个数", "输入对话框")
说明：在msg项中，需要换行时，用“vbCrLf”“ Chr(13) + Chr(10)”
因为可以返回值，所以需将值赋给一个变量
Msgbox函数返回值对照表（见书70页）
Msgbox函数Type参数设置值表（见书70页）
例：
Dim a As Integer
Print x + y
Print Val(x) + Val(y)
2、Msgbox函数
作用：向用户传送信息，根据用户在对话框上的选择，返回一个整形值。
语法：MsgBox(msg[,type][title])
MsgBox("信息", 类型, "标题!")
Dim str
Do While 1
str = InputBox("快说“我是坏蛋”" & vbCrLf & "不说我一直弹！", "自我评价", "不说")
If str = "我是坏蛋" Then
MsgBox "你承认自己是坏蛋了！"
MsgBox "好玩不！哈哈哈！真过瘾！"
第四节 Inputbox函数与Msgbox函数
一、 教学目标
1、数据输入函数Inputbox函数
2、Inputbox函数（可返回一个值）
3、Msgbox语句（不会返回值，主要用于弹出对话框）
二、 教学过程
1、Inputbox函数
作用：用于产生一个对话框，作为数据输入的界面；函数返回值是String类型。
If a = 1 Then
End
Else
Print "你没有退出系统"
End If
3、Msgbox语句
作用：没有返回值，用于简单的信息显示。
语法：MsgBox Msg[,Type][,title]
语法：Inputbox(prompt[，title][，default][，xpos][，ypos])
InputBox("信息", "标题", "默认值", x,y)
说明：在prompt项中，需要换行时，用“vbCrLf”或“ Chr(13) + Chr(10)”
Print "籍贯：" & stuhome
四、 其它
dim a
do while 1
a = MsgBox("我要让你点的手痛", 1 + 32, " 好玩吗")
loop
****************************************************************************************
stuname = InputBox(a1, a)
stuage = InputBox(aห้องสมุดไป่ตู้, a)
stusex = InputBox(a3, a)
stuhome = InputBox(a4, a)
Cls
Print "姓名：" & stuname
Print "年龄：" & stuage
Print "性别：" & stusex
Exit Do
End If
Loop
End Sub
三、 课后练习
练习新上机第一套
1、 用Inputbox函数输入信息，并在窗体输出所输入的信息
FontSize = 15
a = "学生情况登记"
a1 = "请输入姓名"
a2 = "请输入年龄"
a3 = "请输入性别"
a4 = "请输入籍贯"
说明：Msg为提示信息，Type为按钮类型（了解），title标题
例：
Private Sub Command1_Click()
MsgBox "欢迎学习VB", , "提示"
MsgBox "欢迎学习VB" & vbCrLf & "祝你学习愉快、进步", , "提示"
如：
Dim a As String
a = InputBox("请输入你的姓名" & vbCrLf & "然后单击确定", "输入对话框", "小丽", 3000, 5000)
Print a
x = InputBox("请输入第一个数", "输入对话框")
y = InputBox("请输入第二个数", "输入对话框")
说明：在msg项中，需要换行时，用“vbCrLf”“ Chr(13) + Chr(10)”
因为可以返回值，所以需将值赋给一个变量
Msgbox函数返回值对照表（见书70页）
Msgbox函数Type参数设置值表（见书70页）
例：
Dim a As Integer
Print x + y
Print Val(x) + Val(y)
2、Msgbox函数
作用：向用户传送信息，根据用户在对话框上的选择，返回一个整形值。
语法：MsgBox(msg[,type][title])
MsgBox("信息", 类型, "标题!")
Dim str
Do While 1
str = InputBox("快说“我是坏蛋”" & vbCrLf & "不说我一直弹！", "自我评价", "不说")
If str = "我是坏蛋" Then
MsgBox "你承认自己是坏蛋了！"
MsgBox "好玩不！哈哈哈！真过瘾！"
第四节 Inputbox函数与Msgbox函数
一、 教学目标
1、数据输入函数Inputbox函数
2、Inputbox函数（可返回一个值）
3、Msgbox语句（不会返回值，主要用于弹出对话框）
二、 教学过程
1、Inputbox函数
作用：用于产生一个对话框，作为数据输入的界面；函数返回值是String类型。
