vb經典代码.docVIP

1.求三角形的面积代码： Option Explicit Dim a!,b!,c!r,!,s! Private Sub Command1_Click() a = InputBox(a=, 请输入a的数值) b = InputBox(b=, 请输入b的数值) c = InputBox(c=, 请输入c的数值) If a + b c And a + c b And b + c a And a 0 And b 0 And c 0 Then r = 1 / 2 * (a + b + c) s = Sqr(r * (r - a) * (r - b) * (r - c)) Label1.Caption = 三角形的面积为 s Else Label2.Caption = 输入的数据不能构成三角形 End If End Sub 2.三个数排列代码： Option Explicit Dim x!, y!, z!, t! Private Sub Command1_Click() x = InputBox(输入第一个数 x) y = InputBox(输入第二个数 y) z = InputBox(输入第三个数 z) Print 排序前; x y z If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t End If End If Print 排序后; z y x End Sub 3.计算一元二次方程 的代码： Option Explicit Dim a!,b!,c!,d!,x1!,x2! Private Sub Command1_Click() a = InputBox(a=, 请输入一元二次方程的系数a) b = InputBox(b=, 请输入一元二次方程的系数b) c = InputBox(c=, 请输入一元二次方程的系数c) If a = 0 Then Print 因为a≠0，你输入的a＝0，请重新输入系数a End If d = b ^ 2 - 4 * a * c If d = 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print 系数为 a; b; c 的一元二次方程的根分别为 x1= x1 x2= x2 Else Print 此方程在实数范围内无解 End If End Sub 4.利用Select Case语句输入年份计算属相代码： Option Explicit Private Sub Command1_Click() Dim i As Integer, x As String, Y As Integer Y = InputBox(输入你的出生年份Y) i = Y Mod 12 Select Case i Case Is = 0 x = 猴 Case Is = 1 x = 鸡 Case Is = 2 x = 狗 Case Is = 3 x = 猪 Case Is = 4 x = 鼠 Case Is = 5 x = 牛 Case Is = 6 x = 虎 Case Is = 7 x = 兔 Case Is = 8 x = 龙 Case Is = 9 x = 蛇 Case Is = 10 x = 马 Case Is = 11 x = 羊 End Select Print x End Sub 5.闰年两种判断方法的代码; 方法一：Option Explicit Dim y As Integer Private Sub Command1_Click() y = InputBox(y=, 输入年份) If y Mod 4 = 0 Then If y Mod 100 = 0 Then If y Mod 400 = 0 Then Print 这年为闰年 Else Print 这年为平年 End If Else Print 这年为闰年 End If Else Print 这年为平年 End If End Sub 方法二：Private Sub Command2_Click() y = InputBox(y=, 输入年份) If y Mod 4 = 0 And y M