- 1、本文档共73页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
说明: 1 “标题”和“提示”与InputBox函数中对应的参数相同; 2 “按钮+图标 +缺省按钮+模式”是整型表达式,决定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表4.1) 3 若程序中需要返回值,则使用函数,否则可调用过程。 * 按钮及图标值如下: 根据用户所选按钮,函数返回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 ALL. 1. 判断题/选择题/填空题 不必抄题目. 2. 程序设计题请上机调试通过, 然后写在作业本上, 格式参考上课示范格式. * 第二次上机内容 * 题一、P51 程序设计题1 题二、设计一个乘法计算器(参照实验书上的P8,实验3) 要求: 1、有两个计算按钮(整数乘、浮点数乘) 2、超出精度范围时要有对话框显示(参照上 课阶乘的例子) 题三、实验书P19实验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.2 Print方法 使用Print可以在窗体(图片框或打印机)上输出表达式的值。 形式: [对象名称.] Print [输出项[[{,|;}][输出项]]...] 作用: 在对象上输出信息 对象:窗体、图形框或打印机(Pinter) ,省略对象则在窗体上输出。 ;(分号):光标定位上一个显示的字符后。 ,(逗号):光标定位在下一个打印区的开始位置处。每个打印区 占14列。 无:换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定,缺省为打印对象的左上角0,0。 * Private Sub Form_Click() Print 123, 888, -456, 3.14 Print 123; 888; -456; 3.14 Print 123; 888; abc, True; Print 123, 888; -456; 3.14 Print Print 123, 888, -456, 3.
文档评论(0)