VB实验教材的实验和习题答案.docVIP

课后答案网，用心为你服务！ VB开发环境与VB概述 习题答案 习题 一、选择题 ??????????????BAABDBAACBCDAD? ? 常用控件与界面设计 习题答案 习题 一、选择题 ???????????????CBCAABBBCCBBDAB???????????????BBCCDBBBCCCABBC???????????????BCBBDBDDBABABBD???????????????AABDCDDCDDCACCB???????????????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 Sin