Vb程序代码

Vb程序代码 奇数和 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 = "恭喜您～此数为水仙花～" Else Label2.Caption = "加油～祝您下次输入水仙花～" End If End If End Sub Private Sub Form_Click() '求三位数的水仙花 Dim a, b, c, d As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then d = 100 * c + 10 * b + a Text1.Text = Text1.Text & " " & d End If Next c Next b Next a End Sub 整除365的倍数 Private Sub Command1_Click() Dim i As Integer, s As String For i = 1 To 100 If i Mod 6 = 0 Then s = s & " " & i End If Next i Text1.Text = s End Sub 自然数阶乘和 Private Sub Command1_Click() Dim n As Integer, i As Integer, t As Integer, sum1 As Integer, sum2 As Integer n = Val(Text1.Text): t = 1 Do While i < n i = i + 1: t = t * i: sum1 = sum1 + t: 'sum2 = sum2 + sum1 Loop Text2.Text = sum1 End Sub Msgbox Private Sub Command1_Click() ' If Not IsNumeric(Text1) Then ' MsgBox "非数字字符，不能转换成数值，请重新输入～", vbCritical 'End If a% = MsgBox("输入类型错误", vbOK) End Sub 自然数平方和 Private Sub Form_Click() For i = 1 To 10 s = s + (-1) ^ (n + 1) * i ^ 2 Next i Picture1.Cls Picture1.Print s End Sub