- 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
您可能关注的文档
- Searching for Dark Matter in Unification Models A Hint from Indirect Sensitivities towards.pdf
- Searching for Dark Matter with Future Cosmic Positron Experiments.pdf
- Searching the FíschlárNEWS Archive on a mobile device.pdf
- Searching under multievolutionary pressures.pdf
- Sejnowski Influence of ionic conductances on spike timing reliability of cortical neurons f.pdf
- Sensitivity Analysis of Reliability and Performability Measures for Multiprocessor Systems.pdf
- Sense and Sensibility Evaluation and Interactive Art.pdf
- Sensitivity to Noise Variance in a Social Network Dynamics Model.pdf
- SEPIC电路分析.ppt
- Sequence Analysis of mtDNA COI Gene and.pdf
文档评论(0)