VB实验教材的实验、习题答案

本资料包含doc文件1个，下载需要5积分

VB实验教材的实验、习题答案算术运算
Private Sub Command1Click
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 Command2Click
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 Command3Click
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
实验32
略
实验33
略