Vb程序代码.docVIP

奇数和 Private Sub Command1_Click() Dim i As Integer, n As Integer, sum As Integer Dim txt As String Do While i 99 n = n + 1: i = 2 * n - 1 a = a i sum = sum + i Loop Text1.Text = a Label2.Caption = 1到100奇数和为： sum End Sub 逆序显示 Private Sub Command1_Click() Dim m As String, n As Integer, s1 As String, s2 As String m = Trim(Text1.Text) n = Len(m) For i = n To 1 Step -1 s1 = Mid(m, i, 1) s2 = s2 + s1 Next i Text2.Text = s2 End Sub 奇数阶乘和 Private Sub Command1_Click() Dim n As Integer, i As Integer, t As Single, sum1 As Double, sum2 As Double n = Val(Text1.Text): sum1 = 1: sum2 = 1 If n = 1 Then Text2.Text = sum1 Else i = 1 Do While i (2 * n - 1) i = i + 2: t = 1 For j = 1 To i t = t * j Next j sum1 = sum1 + t :sum2=sum2+sum1 Loop End If Text2.Text = sum1 End Sub 闰年算法 Private Sub Command1_Click() Dim m As Integer, n As String n = 2000 For m = 2001 To 2400 If (m Mod 4 = 0 And m Mod 100 0) Or m Mod 400 = 0 Then n = n m End If Next m Text1.Text = n End Sub 三角形三边 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, s As Single Dim area As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) s = (a + b + c) / 2 If s 0 And s - a 0 And s - b 0 And s - c 0 Then area = Sqr(s * (s - a) * (s - b) * (s - c)) Label1.Caption = 能构成三角形的三边， 该三角形的面积为： Str(area) Else Label1.Caption = 不能构成三角形的三边 End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Label1.Caption = End Sub 水仙花 Private Sub Command1_Click() 判断某数是否为水仙花 Dim n As Integer, x As Integer, y As Integer, z As Integer n = Val(Text1.Text) If n 100 Or n 999 Then i = MsgBox(请输入三位数！, vbRetryCancel) If i = vbRetry Then Text1.Text = : Text1.SetFocus Else End End If Else x = n \ 100 y = n \ 10 - x * 10 z = n - (x * 100 + y * 10) If n = x ^ 3 + y ^ 3 + z ^ 3 Then Label2.Caption = 恭喜您！此数为水仙花！