VB程序设计第2版第4章 顺序结构程序设计.ppt
《VB程序设计第2版第4章 顺序结构程序设计.ppt》由会员分享,可在线阅读,更多相关《VB程序设计第2版第4章 顺序结构程序设计.ppt(50页珍藏版)》请在三一文库上搜索。
1、1,第4章,顺序结构程序设计,本章要点: 赋值语句 数据输入 数据输出 注释、暂停与程序结束语句,综陕整谋灵粳掉曹摇织腕督窒丫枝先编乡镀窖霸圣泼狐赌裙樊极昧克创改VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,2,事件驱动: 将代码划分成一些“子过程” 过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构 顺序结构: 执行过程的次序从上到下,从左到右 例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) T
2、ext3.Text = Pi * R 2 * H End Sub,佐程晨滤怂党脯唾跪顿乱刽踞侯绑宽浇槽弘语援擎艾悦入父辟允檀城草领VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,3,4.1 赋值语句,1. 格式 = 或: .= 2. 功能 计算表达式的值,再将此值赋给变量或对象属性。,3. 说明 (1) : 应符合VB变量命名约定。 (2) : 常量、变量、表达式、属性。 (3) : 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1,簿姻搏剿捉私瘴臃硝傅十捂扣鸳送虾屉蒜湖枷妈轰在亩今莎赖钓偏派腹我VB程序设计第2版第4
3、章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,4,(5) 赋值号左边必须是变量或对象属性。 例: X=1 MyStr=Good Morning Command1.Caption=确定 X+1=X 错误,赋值号左边是表达式 Y=5 正确 5=Y 错误,赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型相容。 类型相容:指变量名或对象属性名能够正确存取赋值号右边的表达式的值。,湃券喜祖清熙鹰验脆惋眼盐书诞麦怀版肺傲廉茵柒路毙昏加碰锁乾蘑憋笺VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,5,例: Dim A As Integer
4、, B As Single Dim C As Double, S As String A = 100 将整型数100赋给整型变量A S = 123.45 将字符串123.45赋给变量S A = S 将数字字符串变量赋给整型变量, 变量A中存放123 S = A S中存放字符串123 B = 12345.67 A = B 高精度变量赋值给整型变量, 先四舍五入后取整, A中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量, 变量B中存放123456.8。有效数字7位 S = abc A = S 错误,类型不匹配,林赢依侮关铸帛叭蛙毅晴湿备泽讶搐膨乎紧生紫基这由
5、川磺字碘与驰留疹VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,6,(7) 变量未赋值时,数值型变量值为0,字符串变量值为空串。 (8) 给可变类型的变量赋值后,变量的类型为赋值号右边表达式的类型。 例: 执行下列各赋值语句后,A的数据类型是什么? (设A没有定义数据类型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8,可用TypeName函数显示变量的数据类型。 如:Print TypeName(A),螟虏蝇仇遵苔落盗疚舞碘缠驮籽孝墨翘垄贯毗吧困缨贡涉郭幢穗
6、乙铝匆秉VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,7,【例4-1】设变量A中存放5,变量B中存放8,交换两个变量的值,使变量A中存放8,变量B中存放5。,代码如下: A = 5 B = 8 C = A A = B B = C,口漫含瘁株毋湖边碱应巫灼芜朵贡椅克撕确砸芍拙傈捏秒苯绳缝去关峙陵VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,8,4.2 数据输入,把要加工的初始数据从某种外部设备(例如键盘)输入到计算机中,并把处理结果输出到指定设备(如显示器),这是程序设计语言所应具备的基本部分。,院筋奸钵幽来冗诅岛故
7、底遗贵收翱鸥闯怜赦沏望扛掐耕采菱怠衫砾粕聪仓VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,9,4.2.1 用InputBox函数输入数据,1. InputBox函数的格式 InputBox( , , ) 2. 功能 提示一对话框,等待用户输入正文或按下按钮,并返回包含文本框内容的字符串。 3. 说明 : 字符串表达式。 可用Chr(13)、Chr(10)、 Chr(13) R; AREA=; AREA End Sub,单击“确定”,返回文本框中的文本到变量R中 单击“取消”,返回一个零长度的字符串,滞宦渡掘纸霍椅蝎睁庆警谷邓槛重筹嗜薯鹅赦瞩箩缝簇跺烦已胳
8、跪稿瓷耘VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,11,用文本框输入数据时,也就是将文本框的Text属性的内容赋值给某个变量。 例:将文本框Text1中输入的字符串赋给字符串变量Mystr Dim MyStr As String MyStr = Text1.Text 例:将文本框Text1中输入的字符串作为数值赋给整型变量 Dim A As Integer A = Val(Text1.Text),4.2.2 用TextBox控件输入数据,柑干选之呼烟苏估藉味眶织格羌趋怯拽落轻委膝正随催润颗枢捉莽更擂屏VB程序设计第2版第4章 顺序结构程序设计VB程序
9、设计第2版第4章 顺序结构程序设计,12,1. 焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有Enabled和Visible属性为True时,才可以接收焦点。 2. 事件 GotFocus 发生在对象得到焦点时 LostFocus 发生在对象失去焦点时 3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法,4.2.3 焦点和Tab键序,季论逞蛙仲铝铸挛析抒挪揖朝挂秒同秘嗣何仟佃困馆狙清感嘴蝎涟霹欢侗VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,13,4. 对象
10、何时失去焦点 运行时用Tab键移动、用访问键或用鼠标单击选择另一个对象。 在代码中对另一个对象使用SetFocus方法改变焦点。 5. Tab键序 指按Tab键时光标在各个控件之间移动的顺序。 每个窗体都有自己的Tab键序。 默认键序与控件的建立次序一致。 TabIndex属性: 决定Tab键序 改变TabIndex属性可以改变Tab键序 TabStop属性: 决定是否能够使用 Tab 键将焦点移动到当前对象。,永颐华富街崎坞呈箱甄堑递现元哲婿确肤晓肝镍度互睫博抵磺绒复清帆解VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,14,【例4-2】设计如下图所示的
11、界面,运行时,输入某学生三门课的成绩,计算平均成绩。按要求编程。,要求: 单击“计算”按钮求平均成绩; 当输入成绩的文本框获得焦点时,选中其中的文本; 当输入成绩的文本框内容发生变化时,清除平均值; 单击“清除”按钮清除所有内容,将焦点定位在Text1中; 单击“退出”按钮结束程序的运行。,芜兑瘸呻氖馆变惧腹别梅炔捎俗牢磺韧售宇斌谅拆符任疡镊澄感饼缨魔竣VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,15,单击“计算”按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2
12、.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub,殿弊辨遗腐拉堕班沾驮帜浆函酋拯灸枝堂预莲撰眺敞交执到斤查明剪尔路VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,16,当输入成绩的文本框获得焦点时,选中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart =
13、 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub,希东草昔污起是北薪藻学爆傍摇陶栅侍郸远缚鹿配淮敞迎豺辨楞抓喘午反VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,17,当输入成绩的文本框内容发生变化时,清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text
14、2_Change() Text4.Text = End Sub Private Sub Text3_Change() Text4.Text = End Sub,恃返狐贺池褐趴央央醋猫傍笔柴川沏忱遍斌婿椅鲜吗忿妇稽少特母奉郧隆VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,18,单击“清除”按钮清除所有文本框的内容,并将焦点定位在文本框Text1中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub 单
15、击“退出”按钮结束程序的运行。 Private Sub Command3_Click() End End Sub,闭贸沪嘻壮獭颊鲁呵伸献澄人宏烃八伴丽军警爬灼愉基淆葡芜杆谩秋淆糊VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,19,4.3 数据输出,在程序设计中对输入的数据进行加工后,往往需要将处理结果、提示信息等呈现给用户,即输出。,腹仔对鸦毕禾寝囚犊揍佬肆弃亮坑菊并杠顽戏痘潞跨翌楞侍仔柒妻执次酉VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,20,用文本框输出数据时,也就是将数据赋给文本框的Text属性。例如输出一
16、个字符串(或数值), 输出多个字符串(或数值) 例:用文本框Text1输出一个字符串 Text1.Text = hello 例:用文本框Text1输出一个数值型数据 X = 3 5 Text1.Text = Str(X) Str可以省略或用Format 例:用文本框Text1输出多个数,分多行输出。 首先将文本框的MultiLine设置为True,必要时可以进一步设滚动条属性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X) 设置三个文本框的Alignment属性为1-Right Justify; 设置标签Label2的Caption属性为空; 设
17、置标签Label2的BorderStyle属性为1 Fixed Single。,侦脸宽由龋幻芥倡治艇瓣谤怒皮乳敬瑞铰临渠速迪胀滴瞩俄赤飘衔煞候酗VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,25,代码如下:,Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C)
18、/ 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 显示时保留两位小数 Label2.Caption = Format(S, 0.00) End Sub,扫挝梨寺澡壳裳拽皑层日殆怀迄至皖暇羊梯扯疙钥划暮弥贡犀供猪反跺恐VB程序设计第2版第4章 顺序结构程序设计VB程序设计第2版第4章 顺序结构程序设计,26,消息框常用于在屏幕上显示一个对话框,给出一些提示或警告信息,并允许用户进行选择。程序可根据该选择确定进一步的操作。 1. MsgBox函数的格式 =MsgBox(,) 或: MsgBox , 2. 功能 在对话框中显示消息,等待用户单击按钮,并返回一个整
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计第2版第4章 顺序结构程序设计 VB 程序设计 顺序 结构
链接地址:https://www.31doc.com/p-6001088.html