- 1、本文档共62页,可阅读全部内容。
- 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实验教材实验、习题答案
VB开发环境与VB概述 习题答案
习题
一、选择题
? ? ? ? ? ? ? ? ? ? B A A B D B A A C B ? ? ? ? C D A D ?
?
常用控件与界面设计 习题答案
习题
一、选择题
? ? ? ? ? ? ? ? ? ? C B C A A B B B C C ? ? ? ? ? ? ? ? ? ? B B D A B B B C C D ? ? ? ? ? ? ? ? ? ? B B B C C C A B B C ? ? ? ? ? ? ? ? ? ? B C B B D B D D B A ? ? ? ? ? ? ? ? ? ? B A B B D A A B D C ? ? ? ? ? ? ? ? ? ? D D C D D C A C C B ? ? ? ? ? ? ? ? ? ? B ? ? ? ? ? ? ? ? ? 第三章实验与习题
实验
实验3_1
‘算术运算
Private Sub Command1_Click()
Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6
Dim x As Single, y As Single, z As Single, m As Single
x = 2: y = 1: z = 1: m = 1
List1.Clear
List1.AddItem a / (b + c / b)
List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)
List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))
List1.AddItem 1 + 1 / (1 + 1 / m)
List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)
List1.AddItem Log(y + Cos(x) ^ 2)
List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))
List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))
List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)
List1.AddItem Log(a) / Log(b)
End Sub
‘关系运算
Private Sub Command2_Click()
List1.Clear
List1.AddItem Mid(Visual Basic, 1, 12) = Right(Language Visual Basic, 12)
List1.AddItem ABCRG = abcde
List1.AddItem Int(134.69) = CInt(134.9)
List1.AddItem 78.9 / 32.77 = 97.5 / 43.87 And -45.4 -4.98
List1.AddItem Str(32.345) = CStr(32.345)
End Sub
‘逻辑运算
Private Sub Command3_Click()
Dim x As Integer, y As Integer
Dim C1 As Integer, C2 As Integer, C3 As Integer
C1 = 70: C2 = 80: C3 = 90
x = 9: y = -2
List1.Clear
List1.AddItem x + y 10 And x - y 0
List1.AddItem (x% = 0 And y% = 0) Or (x% 0 And y% 0)
List1.AddItem x = 0 Xor y = 0
List1.AddItem C1 + C2 + C3 = 255 Or C1 90 And C2 90 And C3 80
End Sub
实验3_2
略
实验3_3
略
实验3_4
‘零售结算
Private Sub Command1_Click()
Dim dj As Single, sl As Single, je As Single
您可能关注的文档
最近下载
- “胶黏剂与涂料”实验课教改探讨——以南京林业大学为例-来源:教育教学论坛(第2021024期)-河北教育出版社、花山文艺出版社.pdf VIP
- 高三英语二轮复习读后续写高分句式+强化亮点句式翻译课件.pptx VIP
- 2025年山东发展投资控股集团有限公司人员招聘笔试备考试题及答案详解(易错题).docx VIP
- 弟子规全文带拼音排版好可直接打印.doc VIP
- 聚合氯化铝形成原理与生产方法总结.docx VIP
- 《古陶瓷修复》课件——3.陶瓷文物病害图的绘制.pptx VIP
- 2025年山东发展投资控股集团有限公司人员招聘笔试备考试题有完整答案详解.docx VIP
- 光固化功能树脂的合成与应用.pptx VIP
- 高空作业夜间施工方案.docx VIP
- (人教版2025新教材)七年级英语下册全册单词默写打印(默写版+背诵版).pdf
文档评论(0)