赋值号两边数据类型不同时 原则:进行转换,向左边看齐 1、当表达式为数值型并与变量精度不同时,需强制 转换成左边变量的精度 举例:n%=3.5hn为整型,转换时四舍五入,n=4 2、当表达式是数字字符串,左边变量是数值类型, 自动转换成数值类型再赋值。如果表达式有非数字字 符或空串,则出错。 举例:n%=“123”n中的结果是123
6 赋值号两边数据类型不同时 • 原则：进行转换，向左边看齐 • 1、当表达式为数值型并与变量精度不同时，需强制 转换成左边变量的精度 举例：n%=3.5 ‘n为整型，转换时四舍五入，n=4 • 2、当表达式是数字字符串，左边变量是数值类型， 自动转换成数值类型再赋值。如果表达式有非数字字 符或空串，则出错。 举例：n%=“123” ‘n中的结果是123
3、当逻辑型值赋值给数值型变量时,True转换 为-1, False转换为0;反之当数值赋给逻辑型变 量时,非0转换为True,0转换为 False 4、任何非字符型的值赋值给字符型变量,自动 转换为字符型
7 • 3、当逻辑型值赋值给数值型变量时，True转换 为-1，False转换为0；反之当数值赋给逻辑型变 量时，非0转换为True，0转换为False • 4、任何非字符型的值赋值给字符型变量，自动 转换为字符型
数据的输入和输出 ◆数据输入 ◆使用文本框( TextBox)例4.1 ◆使用 Inputbox函数 ◆数据输出 ◆使用标签和文本框 ◆使用 Print方法 ◆使用MsBx函数
8 数据输入 使用文本框（TextBox）例4.1 使用InputBox函数 数据的输入和输出 数据输出 使用标签和文本框 使用Print方法 使用MsgBox函数
412 InputBox函数 功能:打开一个对话框,等待用户输入,当用户单击“确定 按钮或按回车键后,返回文本框中输入的字符串类型的值 Title 标题 Promp 输入框 提示项不能省略 若要多行提示,可在 走输入姓名 提示 然后单击确定 确定 每行行末加回车控制符 取消 Chr(13)和换行控制符 default Chr(10)或系统常量 缺省 vbCrlf 格式: Input box( prompt, Titlell,default1pos2ypos) strs="请输入姓名"+Chr(13)+Chr(10)+"然后单击确定 strname= Input BoX(strs1,"输入框","您的姓名",200,200
9 4.1.2 InputBox函数 格式：InputBox(prompt[,Title][,default][,xpos][,ypos]) strs1 = "请输入姓名" + Chr(13) + Chr(10) + "然后单击确定" strname = InputBox(strs1, "输入框" , "您的姓名", 2000, 2000) Title 标题 功能：打开一个对话框，等待用户输入，当用户单击“确定” 按钮或按回车键后，返回文本框中输入的字符串类型的值 Promp t 提示 default 缺省 • 提示项不能省略。 • 若要多行提示，可在 每行行末加回车控制符 Chr(13)和换行控制符 Chr(10)或系统常量 vbCrLf
Input0x函数注意事项 Prompt是必选项,其余项若缺省,必须以 “,”跳过 Input Box(“输入姓名”,“例题”,,1000,01000 默认情况下, Input Box函数返回的是一个字 符串,当需要得到数值型数据时,应使用VaL 函数进行转换,否则可能得到不正确的结果 每执行一次 InputBox函数只能输入一个值, 如果需要输入多个值,必须多次调用 Input Box函数例4.3
10 InputBox函数注意事项 • Prompt是必选项，其余项若缺省，必须以 “ ， ”跳过 • 默认情况下，InputBox函数返回的是一个字 符串，当需要得到数值型数据时，应使用Val 函数进行转换，否则可能得到不正确的结果 • 每执行一次InputBox函数只能输入一个值， 如 果 需 要 输 入 多 个 值 ， 必 须 多 次 调 用 InputBox函数 InputBox(“输入姓名”，“例题”，，1000，1000） 例4.3