VB基础代码.doc

1、最大公约数 2、最小公倍数 Private Sub Command1_Click() Private Sub Command1_Click()Dim a As Long Dim a As LongDim b As Long Dim b As LongDim c As Long Dim c As Longa = Val(Text1.Text) Dim d As Longb = Val(Text2.Text) a = Val(Text1.Text)Do b = Val(Text2.Text)c = a Mod b x = aa = b y = bb = c DoLoop Until c = 0 c = a Mod b Text3.Text = a a = bEnd Sub b = cPrivate Sub Command2_Click() Loop Until c = 0Text1.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()EndEnd Sub3、阶乘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 Integera = Val(Text1.Text) Dim s As Strings = 1 k = 2i = 1 x = Val(Text1.Text)If a 0 Then Else: k = k + 1For i = 1 To a End Ifs = s * I Loop Until x = 1Next iList1.AddItem Text1.Text &Text2.Text = s= & Left(s, Len(s) - 1)End IfEnd Sub5、质数6、逆序Private Sub Command1_Click() Private Sub Command1_Click()Dim N As LongDim s As String, a As StringN = Val(Text1.Text)Dim i As IntegerFor i = 2 To Sqr(N)s = Text1.TextIf N Mod i = 0 ThenFor i = 1 To Len(s)Text2.Text = noa = Mid(s, i, 1) & aExit ForNext iElse: Text2.Text = yesText2.Text = aEnd IfEnd SubNextEnd