- 1、本文档共14页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Visual_Basi程序设计圆面积计算器 2
利用VB程序设计圆面积计算器;教 学 目 标
认知目标:了解VB常用控件的作用及属性。
技能目标:1.掌握窗体设计、控件属性设置方法。
2.熟悉简单程序编写及运行过程。;项目需要实现的功能:
用户向文本框中输入半径后单击“计算”按扭,面积文本框显示圆的面积。单击“清除”按钮,文本框内容清空。;第 1步:常用控件介绍;二、 常用控件;;; ;;第3步:程序设计
1.变量的声明:
Dim 变量名 As 变量数据类型
;
Private Sub Command1_Click()
Dim BanJing As Single
Dim MianJi As Single
BanJing = Val(Text1.Text)
If Text1.Text = Then
MsgBox 请输入圆的半径!, 48, 警告
Text1.SetFocus
Exit Sub
End If
MianJi = 3.1415926 * BanJing * BanJing
Text2.Text = MianJi
End Sub;Private Sub Command2_Click()
Text1.Text =
Text2.Text =
End Sub;课后思考练习题: 设计折扣计??器;
您可能关注的文档
- Unit 7 Lesson 1 (Ⅱ).ppt
- Unit 9 When was it invented精品课件Section B 2.ppt
- Unit Four Making Reservations 【writing】.ppt
- unit1 lesson 2 up语音公开课.ppt
- Unit-5what are the shirts made of课件 Section A 1a-1c.ppt
- unit2_reading-come_and_eat_here 阅读.ppt
- unit4 my calendar1 months 2 日历 月份.ppt
- Unit3_My_school_calendar_B Let’s learn第5课时教学课件.ppt
- unit4 Lesson 22In the Restaurant(冀教版七年级上册).ppt
- Unit5加拿大的简要介绍.ppt
- 2024年05月云南红河革命军史馆讲解员招考聘用笔试历年典型考点解题思路附带答案详解.docx
- 2024年齿形扁钢项目可行性研究报告.docx
- 2024年花锶钳项目可行性研究报告.docx
- 2024至2030年中国刮水器开关行业投资前景及策略咨询研究报告.docx
- 2024至2030年中国阀控式免维护密封铅酸蓄电池数据监测研究报告.docx
- 2024至2030年中国钢化连体转盘行业投资前景及策略咨询研究报告.docx
- 2024年换钮开关项目可行性研究报告.docx
- 2024年扫气管项目可行性研究报告.docx
- 2024年塔板项目可行性研究报告.docx
- 2024年中国切边器市场调查研究报告.docx
文档评论(0)