- 1、本文档共11页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(VB习题手写作业
1、
编程:输入x,计算分段函数f(x)的值
要求:用inputbox输入x,计算结果放在text控件中
已知:f(x)= 1-2x x=5
(x-5) 1/4 x5
知识点:
1、学习行if语句的使用
2、巩固学习inputbox的数据输入方式
3、学习算术运算符和关系运算符的使用
4、学习一行过长后如何分两行打印但内容保持为一行
VB执行程序:
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox(请输入x:, 输入x,计算分段函数f(x)的值)
If x = 5 Then
y = 1 - 2 * x
Else: y = (x - 5) / 4
End If
Text1.Text = f(x)= y
End Sub
2、
编程:输入x 、y,仅当xy时,交换x,y的值,然后输出x 、y
要求:在text控件中输入,在label控件中输出
知识点:
1、加深行if语句的使用方法
2、学习两个数交换需要利用第三数据的方法
3、学习两个字串之间分隔显示的不同方法
VB执行程序:
Private Sub Command1_Click()
Dim x As Single, y As Single, temp As Single
x = Text1.Text: y = Text2.Text
If x y Then temp = y: y = x: x = temp
Label1.Caption = max= + Str(x) min= + Str(y)
End Sub
3、
编程: 求下列表达式的值。
要求: 末项绝对值不小于2×10-2,用两种循环实现
知识点:
While的循环体中必须有循环变量改变的语句不然会出现死循环
符号交替变换的方法、初值设定的方法
VB执行程序:
Private Sub Command1_Click()
Dim i As Integer, sum As Single, n As Single
n = 1 / 0.02
i = 1
sum = 0
While i = n
sum = sum + (-1) ^ (i - 1) / i
i = i + 1 ??±??-?·±?á??μiμ?ó???2??éò???
Wend
Print sum, i
End Sub
Private Sub Command2_Click()
Dim i As Integer, sum As Single, n As Single
n = 1 / 0.02
sum = 0
For i = 1 To n
sum = sum + (-1) ^ (i - 1) / i
Next i
Print sum, i
End Sub
*********************************************************
Private Sub Form_click()
Dim i As Integer, sum As Single, n As Single
sum = 0
i = 1
While i = 1 / 0.02
sum = sum + (-1) ^ (i - 1) / i
i = i + 1 ??±??-?·±?á??μiμ?ó???2??éò???
Wend
Print sum, i
End Sub
*******************************************************
4、
编程:求级数和:
1+x+x2/2!+x3/3!+……+xn/n!+……
要求:末项不小于10-5
分析:a0:1
a1:x*1=x*a0;
a2:x*x/2=x*a1/2
a3: x*x*x/(2*3)=x*a2/3
……
an:x*an-1/n
知识点:末项不可知(x任意值输入)不能用for/next
VB执行程序:
Private Sub command1_click()
Dim a As Single, i As Integer, sum As Single, x As Single
x = InputBox(输入x值:)
a = 1
sum = 0
i = 1
While a = 10 ^ (-5)
sum = sum + a
a = a * x
您可能关注的文档
- (TOEC托业考试常见问题.docx
- (TOEFLJunor考试不同阶段如何提分.doc
- (TOEFL与我国大学英语等级考试CET比较研究.doc
- (toefl考试阅读文章时必须要认真.doc
- [历史文化和非物质文化保护实践小结.doc
- (TOFOL托福相关考试细则.doc
- [历史江西省新余四中2011届高三第二次段考.doc
- [历史研究.docx
- (TQM在中国企业推行的问题与解决方案.doc
- (translatonofenglshpoemsaroundMay4thmovementfromtheperspectveofsocalculture-开题报告.doc
- 第一单元 第2课《营造艺术的情趣和意境》教学设计 人教版初中美术七年级下册.docx
- 2.1运动的水分子教学设计---2024--2025学年八年级化学鲁教版(五四学制)(2024).docx
- 4 好看的装饰画 教案浙美版美术五年级上册.docx
- 23 月光曲 教学设计-2024-2025学年语文六年级上册统编版.docx
- 8《安全记心上》不让溺水悲剧发生(教学设计)部编版道德与法治三年级上册.docx
- 《认识方程》说课(教学设计)-2023-2024学年五年级下册数学西师大版.docx
- 音标拼读第2课(教学设计)-2023-2024学年通用版英语六年级下册.docx
- 人美 版四年级美术下册《25、不同的帽子(新疆)》教学设计.docx
- 二、拼拼接接制作手机支架(教学设计)鲁科版五年级下册综合实践活动.docx
- 情绪管理 教学设计 初中心理健康七年级上册.docx
最近下载
- 微生物检测技术 教学课件 作者 叶磊杨学敏 主编 项目十一十二 食品的微生物学检验.pptx
- 输电线路运维管理方案.doc
- 2023年兰州大学计算机科学与技术专业《计算机网络》科目期末试卷B(有答案).docx VIP
- 钱七虎英雄事迹微党课ppt课件.pptx VIP
- 三一汽车起重机STC1000C7-1_产品手册用户使用说明书技术参数图解图示电子版.pdf VIP
- 免疫疾病治疗与输液泵技术.docx
- 电池生产企业安全生产风险分级管控和隐患排查治理双体系方案全套资料(2019-2020新标准完整版).docx
- 电缆桥架样本.pdf
- 代理记账客户合同书范本(标准版).doc VIP
- 湘教版七年级上册地理第二章第三节世界的地形课件01陆地地形和海底地形.pptx
文档评论(0)