- 1、本文档共24页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
;;结束;;1.在VB中设计界面。
2.双击 “点我预测”和“重设”按钮,进入代码窗口,编写代码。
3.调试运行保存。;;文本框(TextBox)常用来输入和输出信息,是VB中显示和输入文本的主要对象,可以在文本框中实现文本输入、编辑和显示一系列操作。
;任务1:请在VB中设计程序界面;结束;变量;Dim fh As Single
Dim mh As Single
Dim sh As Single
;任务2:请在VB代码窗口中编写代码; fh = text1.Text;
sh=(fh+mh+12)/2;text3.Text;数值型 如: 5;Private Sub Command2_Click()
Text1.Text =
Text2.Text =
Text3.Text =
End Sub;巩??提升;下面程序段是用来计算矩形的面积和周长的,已知a,b表示矩形两条边的边长,s表示矩形的面积,c表示矩形的周长。
……
Dim a,b,s,c As Interger
a=18
b=9
_____________ ‘计算该矩形的周长
_____________ ‘计算该矩形的面积
该程序段中(1)处应填写的语句是__________________
该程序段中(2)处应填写的语句是__________________
;下列vb程序运行时,分别在文本框text1、text2中输入20、16
Private Sub Command1_Click( )
Dim a, b, c As Integer
a= Val(Text1.Text)
b = Val(Text2.Text)
c= sqr(a+b)
Text3.Text = Str(c)
End Sub
单击命令按钮Command1后,文本框3中显示的是__________。;结束;小结;;
您可能关注的文档
最近下载
- 教育、科技、人才一体化与新质生产力发展.pptx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(研优卷).docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 《大棚番茄基质槽式栽培技术规程》.docx
- 立体车库 毕业论文外文翻译.docx VIP
- 教育、科技、人才一体推进新质生产力发展.docx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(考试直接用).docx VIP
- 社交礼仪教程(第7版 微课版)课件 第五章 餐饮礼仪.pptx
- 2025清华:DeepSeek从入门到精通.pdf
文档评论(0)