东北石油大学VB部分答案.docVIP

1-3 Private Sub Command1_Click() Label1.Top = Label1.Top - 50 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 50 End Sub Private Sub Command3_Click() Label1.Left = Label1.Left - 50 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 50 End Sub 1-4 Dim n As Integer Private Sub Command1_Click() Text1.FontSize = Text1.FontSize * 2 End Sub Private Sub Command2_Click() Text1.FontSize = Text1.FontSize / 2 End Sub Private Sub Command3_Click() Text1.FontSize = n End Sub Private Sub Form_Load() n = Text1.FontSize End Sub 1-5 Dim size As Integer Private Sub Command1_Click() Randomize Text1.FontSize = Text1.FontSize * Int(Rnd * 3 + 1) Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub Private Sub Command2_Click() Randomize Text1.FontSize = Text1.FontSize / Int(Rnd * 3 + 1) Command1.Enabled = True Command2.Enabled = False Command3.Enabled = True End Sub Private Sub Command3_Click() Randomize Text1.FontSize = size Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True End Sub Private Sub Form_Load() Randomize size = Text1.FontSize Command1.Enabled = True 3-1 已知x，根据以下分段函数求出相应的y值。 Y=x-4 (x4) –x (x-5)x+3 (其他) Private Sub Form_click() Dim x As Single x = InputBox(请输入x) If x 4 Then y = Sqr(x - 4) ElseIf x -5 Then y = Abs(x - 4) Else y = x + 3 End If Print y End Sub 3-2 Dim x!, y!, z! Private Sub Command1_Click() x = Text1.Text: y = Text2.Text: z = Text3.Text If x y Then c = x: x = y: y = c If x z Then c = x: x = z: z = c If y z Then c = y: y = z: z = c Text4.Text = x y z End Sub 3-3 利用inputbox函数输入三角形三条边的长度a,b,c,判断是否能构成三角形，则计算并显示三角形的面积。 Dim a!, b!, c! Private Sub Form_click() a = InputBox(请输入a) b = InputBox(请输入b) c = InputBox(请输入c) If a + b c And b + c a And a + c b Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print 三角形面积是 s Else Print 不能构成三角形 End If End Sub 3-4 Private Sub Command1_Click() a = Text1.Text b = a Mod 40