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

第
3
章掌握VB中赋值语句和常用基本语句的用法
理解掌握print方法输出数据
理解并熟练运用窗体和基本控件的运用
熟练运用对话框
教学重点与难点：
VB程序设计中数据的输入和输入，掌握VB程序设计数据输入和输出的两种实现：方法和相关控件【案例说明】
1．已知a=5，b=7，计算c=的值。
2．设计一个“万年历”程序，用来查看某年的元旦是星期几，运行结果如图3.1所示：

分析1：此案例赋值语句的运用，后面会详细讲，还会用到求平方根函数应该是（sqr）读者可以参考第二章的函数表。
分析2：要求输入的年份的元旦是星期几，除了相关的赋值语句外，还要会求任何一年的元旦是周几的式子，现给出如下：，k=fmod7。其中[]表示求整，y为某年公元年号，计算出k为星期几，k=0表示星期天。
【技术要点】
已知a=5，b=7，计算c=的值。
编写的窗体单击事件过程代码如下：
PrivateSubForm_Click()
DimaAsSingle，bAsSingle，cAsSingle
a=5
b=7
c=Sqr(a*a+b*b)
Print”c=”；c
Endsub
运行程序后单击窗体，输出结果如下：
C=8.6023252．设计一个“万年历”程序，用来查看某年的元旦是星期几，运行结果如图3.1所示：
（1）我们先把程序所用的数学式子转为程序语言所表过的格式
对应的语言表达式为：
f=y+Int(y/4)-Int(y/100)+Int(y/400)+1
（2）创建应用程序的用户界面。
（3）设置对象属性。如表3.1所示。
（4）编写程序代码。
编写“查看”按钮（Commandl）单击事件过程代码如下：
PrivateSubcommand1_click()
DimyAsInteger,fAsInteger,kAsInteger
y=Val(Text1.Text)-1
f=y+Int(y/4)-Int(y/100)+Int(y/400)+1
k=fMod7
Text2.Text=k
EndSub相关知识及注意事项
关于赋值语句：
（1）表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如：
a=3
c=a+b+3，b未赋值，为0，执行后，c值为6。
（2）利用赋值语句，可以改变变量的值，因此同一变量在不同时刻可以取不同的值。
例变量赋值示例。
PrivateSubform_click()
a=2
Print"*A=";a
a=4
Print"**A=";a
a=a*2+2
Print"***A=";a
EndSub
运行程序后单击窗体，输出结果如下：
*A=2
**A=4
***A=10【案例说明】
1．使用Print方法输出全班学生的平均年龄，已知18岁10人，19岁20人，20岁20人，21岁10人。
2．使用Tab对输出进行定位，输出结果如右图所示。
【技术要点】
该应用程序设计步骤如下。
1．运用【案例说明】中的第一部份
（1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。
（2）运行下面的代码：
PrivateSubForm_click()
DimaAsInteger,bAsInteger,cAsInteger
DimdAsInteger,sAsInteger,mAsSingle
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
EndSub
单击窗体，结是在窗体中输入：平均年龄：19.5
2．运用【案例说明】中的第二部份
使用Tab对输出进行定位
（1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。
（2）运行下面的代码：
PrivateSubForm_click()
Print
PrintTab(15);"学号";Tab(26);"姓名";Tab(36);"成绩"
PrintTab(14);String(27,"-")'输出27个减号字符“-”
PrintTab(14);"19011001";Tab(26);"张明明";Tab(36);57
PrintTab(14);"19011003";Tab(26);"李小月";Tab(36);69
PrintTab(14);"19011012";Tab(26);"王小五";Tab(36);92
PrintTab(14);String(27,"-")'输出27个减号字符“-”
EndSub相关知识及注意事项
1．Print方法
Print方法用于在窗体、图片框和打印机上显示或打印输出文本。
语法格式：[对象名．]Print[表达式列表]
说明：
（1）对象名可以