VB实行教材的实行习题答案.doc

下载文档 降价啦

2
0
约5.22万字
约 62页
2018-05-25 发布于贵州
举报
版权申诉
保障服务

VB实行教材的实行习题答案.doc

1、本文档共62页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

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