实验2-2 程序设计基础.pptVIP

实验2-2、程序设计基础 实验章节：第2章 程序设计基础 实验目标 实验要求 实验内容 实验目标： 掌握以下知识点： 1、掌握Print 语句及有关函数的应用 2、熟悉并熟练运行常用内部函数：字符串函数、日期与时间函数、类型转换函数 3、熟悉并熟练运行InputBox函数和MsgBox函数 4、编程手段已临摹程序代码为主，同时辅助需要独立完成的程序设计题。 实验要求： 每次实验请至少完成2道题目并上交作业。 实验内容： 题目1 常用数学函数应用 题目2 计算圆的面积及周长 题目3 简易算术计算器（思考题） 题目4 日期和时间函数应用 题目5 字符串函数应用实例（临摹题） 题目1、常用数学函数应用 程序运行界面如下图： 程序要求及思考题： 1、根据运行界面，参考给出的部分代码分别完成指定的按钮的事件代码。 2、其中按钮“取整数”部分要求分别利用函数Int()和Fix()来实现。 3、思考代码“Label1.Caption = ” Sin(“ x ”)=“ y”如果用字符串符号”+”来代替“”该如何改写程序，是否可行？ 4、思考如果把通用申明部分的代码“Dim x As Single, y As Single”直接放到按钮“Sin”事件里面可行吗，会影响整个程序的运行吗？为什么？如： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = Sin(x * 3.1415926 / 180) Label1.Caption = Sin( x )= y End Sub 5、试理解自定义符号常量的概念。把多次出现的数值圆周率“3.1415926”修改成符号常量pi，并放在通用申明部分，并将按钮“Sin”的代码修改如下面。要求分别将其他按钮事件的代码逐一修改，试分析是否会影响运行结果？并理解符号常量有何优点? ‘通用申明部分： Const pi = 3.1415926 Dim x As Single, y As Single Private Sub Command1_Click() x = Val(Text1.Text) y = Sin(x * pi / 180) Label1.Caption = Sin( x )= y End Sub 6、理解Sin()等三角数学函数自变量为弧度制的特点,并体会Single类型数据有效位不超过6位的概念。 7、在文本框Text1不输入任何数值的情况下，试点击各个命令按钮查看运行结果。了解各种数据类型的数值在不赋值的情况下初始值各是多少？ 部分代码分析： 1、按钮“Sin”代码： ‘通用申明部分： Dim x As Single, y As Single Private Sub Command1_Click() x = Val(Text1.Text) y = Sin(x * 3.1415926 / 180) Label1.Caption = Sin( x )= y End Sub 2、按钮“清除”代码： Private Sub Command8_Click() Text1.Text = Label1.Caption = 查看结果： End Sub 3、按钮“退出”代码： Private Sub Command9_Click() End End Sub 题目2 计算圆的面积及周长 程序运行界面如下图： 程序要求： 1、根据程序运行界面设计用户界面并完成相关功能的编程。 2、数值圆周率=3.1415926，要求用符号常量来定义圆周率。（符号常量名称可任意定义，如pi等等） 题目3 算术计算器（思考题） 程序运行界面如下图： 目标： 熟悉对各个算术运算符的操作。 题目4、日期和时间函数应用 在窗体上显示系统当前日期和时间，运行界面： 代码分析： Private Sub Form_① () Print Print 当前日期：; Date Print 当前时间：; Time() Print 当前日期和时间: ; Now() Print 系统当前时间：; Hour(Now); 点; Minute(Now); 分; Second(Now); 秒 End Sub 程序要求与思考题： 1、分别用下列选项将程序表达式①空白处补充完整，试运行程序检查结果并分析原因： 1）Load 2) Activate 3) Paint 4) Click 2、试利用时间和日期函数显示出当前日期的星期。 题目5、字符串函数应用实例（思考题） 汉字输入练习程序： 用户界面设计如下图： 需要的字符串函数： Tr