VisualBasic程序设计案例教程 第3章 赋值与输入输出.pptVIP

第3章 赋值与输入输出 掌握VB中赋值语句和常用基本语句的用法 理解掌握print方法输出数据 理解并熟练运用窗体和基本控件的运用 熟练运用对话框 教学重点与难点： VB程序设计中数据的输入和输入，掌握VB程序设计数据输入和输出的两种实现：方法和相关控件 3.1 赋值语句案例 【案例说明】 1 ．已知a=5，b=7，计算c=的值。 2．设计一个“万年历”程序，用来查看某年的元旦是星期几，运行结果如图3.1所示： 分析1：此案例赋值语句的运用，后面会详细讲，还会用到求平方根函数应该是（sqr）读者可以参考第二章的函数表。 分析2：要求输入的年份的元旦是星期几，除了相关的赋值语句外，还要会求任何一年的元旦是周几的式子，现给出如下：，k=f mod 7。其中[]表示求整，y为某年公元年号，计算出k为星期几，k=0表示星期天。 3.1 赋值语句案例 【技术要点】 已知a=5，b=7，计算c=的值。 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single，b As Single，c As Single a=5 b=7 c=Sqr(a*a+b*b) Print ”c=”；c End sub 运行程序后单击窗体，输出结果如下： C=8.602325 3.1 赋值语句案例 2．设计一个“万年历”程序，用来查看某年的元旦是星期几，运行结果如图3.1所示： （1）我们先把程序所用的数学式子转为程序语言所表过的格式 对应的语言表达式为： f = y + Int(y / 4) - Int(y / 100) + Int(y / 400) + 1 （2）创建应用程序的用户界面。 （3）设置对象属性。如表3.1所示。 （4）编写程序代码。 编写“查看”按钮（Commandl）单击事件过程代码如下： Private Sub command1_click() Dim y As Integer, f As Integer, k As Integer y = Val(Text1.Text) - 1 f = y + Int(y / 4) - Int(y / 100) + Int(y / 400) + 1 k = f Mod 7 Text2.Text = k End Sub 3.1 赋值语句案例 相关知识及注意事项 关于赋值语句： （1）表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如： a=3 c=a+b+3，b未赋值，为0，执行后，c值为6。 （2）利用赋值语句，可以改变变量的值，因此同一变量在不同时刻可以取不同的值。 例 变量赋值示例。 Private Sub form_click() a = 2 Print *A=; a a = 4 Print **A=; a a = a * 2 + 2 Print ***A=; a End Sub 运行程序后单击窗体，输出结果如下： *A= 2 **A=4 ***A=10 3.3 Print方法输出数据和特殊打印格式案例 【案例说明】 1．使用Print方法输出全班学生的平均年龄，已知18岁10人，19岁20人，20岁20人，21岁10人。 2．使用Tab对输出进行定位，输出结果如右图所示。 【技术要点】 该应用程序设计步骤如下。 1．运用【案例说明】中的第一部份 （1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。 （2）运行下面的代码： Private Sub Form_click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 10: b = 20: c = 20: d = 10 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s 舍入到小数后1位 Print 平均年龄：; Int(m * 10 + 0.5) / 10 End Sub 单击窗体，结是在窗体中输入：平均年龄：19.5 3.3 Print方法输出数据和特殊打印格式案例 2．运用【案例说明】中的第二部份 使用Tab对输出进行定位 （1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。 （2）运行下面的代码： Private Sub Form_click() Print Print Tab(15); 学号; Tab(26); 姓名;