高一信息科技(练习部分)程序代码-地图版.docVIP

高一信息科技（练习部分）程序代码 1．P74 / 三 / 1 Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) If x = 100 Then Label1.Caption = 您该月的话费为60元 Else y = 60 + 0.4 * (x - 100) Label1.Caption = 您该月的话费为 y 元 End If End Sub 2．P75 / 三 / 2 Private Sub Command1_Click() Dim s, t As Single s = 0 t = 0 Dim x(16), y(16) For i = 1 To 16 x(i) = Val(InputBox(第 i 个队员的身高（cm）, 输入)) y(i) = Val(InputBox(第 i 个队员的体重（kg）, 输入)) s = s + x(i) t = t + y(i) Next i Label1.Caption = 这16名队员的平均身高是 s / 16 cm Label2.Caption = 这16名队员的平均体重是 t / 16 kg End Sub 3．P76 / 三 / 1 Private Sub Form_Click() a = Val(InputBox(第一个电阻值, 输入)) b = Val(InputBox(第二个电阻值, 输入)) r = a * b / (a + b) Print R=; r End Sub 4．P77 / 三 / 2 Private Sub Form_Click() r = InputBox(请输入圆的半径, 输入) l = 2 * 3.14 * r: s = 3.14 * r * r Print 这个圆的周长是; l, 这个圆的面积是; s End Sub 5．P77 / 四 / 1 Private Sub Command1_Click() a = 7800 / 90 Label4.Caption = a Label2.Caption = 0.5 * a * 90 * 90 End Sub Private Sub Command2_Click() Label2.Caption = Label4.Caption = End Sub 6．P77 / 四 / 2 Private Sub Command1_Click() a1 = Val(Text1.Text) : b1 = Val(Text2.Text) : c1 = Val(Text3.Text) a2 = Val(Text4.Text) : b2 = Val(Text5.Text) : c2 = Val(Text6.Text) y = (a2 * c1 - a1 * c2) / (a1 * b2 - a2 * b1) x = (-c1 - b1 * y) / a1 Label10.Caption = x Label11.Caption = y End Sub Private Sub Command2_Click() Text1.Text = : Text2.Text = : Text3.Text = Text4.Text = : Text5.Text = : Text6.Text = Label10.Caption = Label11.Caption = End Sub 7．P79 / 五 / （二） Private Sub Command1_Click() If Text1.Text = Then MsgBox 请输入数据 Else Label1.Caption = (Text1.Text * 9 / 5) + 32 End If End Sub Private Sub Command2_Click() If Text1.Text = Then MsgBox 请输入数据 Else Label1.Caption = (Text1.Text - 32) * 5 / 9 End If End Sub 8．P82 / 一 / 3 / （1） Private Sub Command1_Click() If Val(Text1.Text) / 7 = Int(Val(Text1.Text / 7)) Then