VB基础代码.doc

1、最大公约数 2、最小公倍数 Private Sub Command1_Click() Private Sub Command1_Click() Dim a As Long Dim a As Long Dim b As Long Dim b As Long Dim c As Long Dim c As Long a = Val(Text1.Text) Dim d As Long b = Val(Text2.Text) a = Val(Text1.Text) Do b = Val(Text2.Text) c = a Mod b x = a a = b y = b b = c Do Loop Until c = 0 c = a Mod b Text3.Text = a a = b End Sub b = c Private Sub Command2_Click() Loop Until c = 0 Text1.Text = d = a Text2.Text = Text3.Text = d * (x / d) * (y / d) Text3.Text = End Sub Text1.SetFocus Private Sub Command2_Click() 同1 略 End Sub Private Sub Command3_Click() 同1 略 Private Sub Command3_Click() End End Sub 3、阶乘 4、因数 Private Sub Command1_Click() Private Sub Command1_Click() Dim a As Long, i As Integer, s As Integer Dim x As Integer, k As Integer a = Val(Text1.Text) Dim s As String s = 1 k = 2 i = 1 x = Val(Text1.Text) If a 0 Then Do Text2.Text = cuowu If x Mod k = 0 Then ElseIf a = 0 Then s = s k × Text2.Text = 1 x = x \ k ElseIf a 0 Then Else: k = k + 1 For i = 1 To a End If s = s * I Loop Until x = 1 Next i List1.AddItem Text1.Text Text2.Text = s = Left(s, Len(s) - 1) End If End Sub 5、质数 6、逆序 Private Sub Command1_Click()