vb 五道代码.docVIP

水仙花数： Private Sub Command1_Click() Dim x As Long，y As Long，z As Long，h As Long，Dim f As Long For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 h = x * 100 + y * 10 + z * 1 If x ^ 3 + y ^ 3 + z ^ 3 = h Then f = f + 1 Print 第 f 个三位水仙花数为： h End If Next z Next y Next x End Sub 求1—100之间的全部素数： Private Sub Form_Load() Dim i As Integer, j As Integer Print Print 1～100之间的素数有： Print For i = 2 To 100 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For End If Next j If j Sqr(i) Then Print i; End If Next i End Sub 用户输入十个数后求其最大值： Private Sub Command1_Click() Dim i As Long，x As Long，max As Long，str As String x = Val(InputBox(A=)) max = x For i = 1 To 9 x = Val(InputBox(A=)) str = str x If x max Then max = x End If Next i Print Max=; max Unload Form1 MsgBox 您输入的十个数是： str Chr(13) 最大值是： max End Sub 累加累乘： Private Sub Command1_Click() Dim i As Long , sum As Long ，n As Long n = Val(Text1.Text) sum = 0 For i = 1 To n sum = sum + i Next i Label1.Caption = 累加的结果是： Str(sum) End Sub Private Sub Command2_Click() Dim i As Long, f As Long n, f As Long n = Val(Text1.Text) f = 1 For i = 1 To n f = f * i Next i Label1.Caption = 阶乘的结果是： Str(f) End Sub Private Sub Command3_Click() Dim i As Long , f As Long ，sum As Long ，n As Long n = Val(Text1.Text) f = 1: sum = 0 For i = 1 To n f = f * i sum = f + sum Next i Label1.Caption = 累加阶乘的结果是： Str(sum) End Sub 比较大小： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then If a c Then Max = c Else Max = a End If Else If b c Then Max = b Else Max = c End If End If Text4.Text = Max End Sub Private Sub Command2_Click() Dim a As Integer，b As Integer，c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then If a c Then Min = a Else Min = c End If Else If b c Then Min = b Else Min = c End If End If Text5.Text = Min End Sub 判断闰年： Priva