ch程序设计基础课件.pptVIP

缺省值 标题题 提示 1. InputBox函数（输入对话框） 变量名=InputBox[$](提示信息[，标题][，缺省] [，x坐标][，y坐标] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值 有$ 返回字符类型,否则为数值类型. Dim strName As String * 40， strS1 As String * 40 strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后 单击确定” strName= InputBox$(strS1， “输入框”， ， 100，100) Print strName 缺省值 标题题 提示 2. MsgBox函数（消息对话框） 函数形式:变量[%] = MsgBox(提示[,按钮[＋图标]+ [缺省按钮]+[模式]][，标题]) 图标 标题 提示信息 命令按钮 说明： １ “标题”和“提示”与InputBox函数中对应的参数相同； ２ “按钮＋图标 +缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表4.1) ３ 若程序中需要返回值，则使用函数，否则可调用过程。 按钮及图标值如下: 根据用户所选按钮，函数返回1—7的整数值，其含义如下表:（表3.2) 例题2.11输入身份证号，根据输入的数据显示不同的信息框内容 要求： 单击窗体上的“发送您的身份证号”这个命令按钮，出现一个对话框（思考：这是什么框？） 如果单击对话框中的确定按钮，要求出现一个新的对话框，以便再次确认输入的号码无误，如下页所示： 如果这时你确定你输入的身份证号码无误，就单击“是”这个按钮，这时号码提交，进入下一个环节（如打印工资单），这里要求出现一个对话框，告诉用户“您的意见已提交，谢谢”。要求对话框的缺省在“否”上。 如果发现号码有误要重新输入，就单击“否”，这时应该重新执行前面的程序，即调用command1.click事件 如果心情不好，懒得输入了，就单击取消，这时要求出现一个对话框，告诉用户“您已放弃提交意见，欢迎下次参加”，同时结束程序。 举例: 1. 求解ax2+bx+c=0。 要求：输入a不允许为0，否则出现提示框 提示框出现的方法有两种： 一种直接判断a是否为0 另一种用on error goto语句判断分母为0出错 2. 输入N, 求1+2+3+…N的值。 举例: 1、P51 程序设计题-2。 编程，创建文本框控件Text1用于输入，单击窗体后通过标签控件Label1显示计算结果（输入数据自行确定），事件过程如下 Private Sub Form_Load() Dim x As Single, y As Single x=Text1.Text Label1.Caption=Sin(x) End Sub 作业 P49 一、二、三、四（1）；补充的两道程序设计题. 1. 判断题/选择题/填空题 不必抄题目. 2. 程序设计题请上机调试通过, 然后写在作业本上, 格式参考上课示范格式. * * * 整型、长整型 * 变量就像每个人一样要有个名字来标识它 * 字母：大写英文字母A—Z；小写英文字母a—z；数字：0一9；下划线 * * * 变量的作用域第四章将全面介绍 * 方便以后阅读程序 * 把n看成是一个大水桶，刚开始装了80斤水，此时n=80，后来又加了3斤水，此时n是多少? 83，所以是n=n+3，实际上=应看成-号更明了一点 * * 如要达到等于1的目的，上式应该9/(3*3) * “Windows “ ＋ 2000 则是错误的 * 注意到赋值只是针对变量的，即如果式子左边是变量，则＝为赋值号 如果不是变量，如为一个式子或者常量，则一定是比较符号 * Not 与=号 哪个优先级高？ * 4、判断整型变量k是负数或者是3的倍数： * 关于Log(x)，若求以a为底的对数则公式：log(x)/log(a) * Val转换时，当第一个字符为非数字型且不是空格，则返回0 * [a,b)之间的随机数的写法 Print a + (b – a) * Rnd 注意[a,b]之间的随机整数 Print a + Int((b - a + 1) * Rnd) 2.3 Print方法、赋值语句 2.3.1 语句命令的语法描述规则 应记住本书约定的语法描述规则： [对象名称.] Print [输出项[[{,|;}]