vb源程序代码.doc

Vb源代码（周至县第五中学 710402 数学组 唐永鸽）1 Private Sub Form_Click() Dim n As Integer, f1 As Double, f2 As Double, f3 As Double Dim i As Integer n = Val(InputBox(输入要输出的项数：, 输出斐波那契数列, 20) f1 = 0 f2 = 1Print Tab(8); f1Print Tab(8); f2For i = 3 To n f3 = f2 + f1 Print Tab(8); f3 f1 = f2 f2 = f3 NextEnd Sub2 Private Sub Form_Click() Dim n As Integer, f1 As Double n = 1 For n = 1 To 66f1 = 15 * n Print f1 NextEnd Sub3 Private Sub Form_Click()Dim a1 As Double, n As Double, i As Integera1 = Val(InputBox(请输入第1个数, 找最大数)Print Tab(5); a1For i = 2 To 5n = Val(InputBox(请输入第 & i & 个数)Print Tab(5); nIf n a1 Then a1 = nNextPrint Print 最大数为; a1End Sub4、 Private Sub Form_Click()Dim year As Longyear = InputBox(请输入年份) If year Mod 4 = 0 Then If year Mod 100 = 0 Then If year Mod 400 = 0 Then Print year; 年是闰年 Else Print year; 不年是闰年 End If Else Print year; 年是闰年 End If Else Print year; 不年是闰年End IfEnd Sub5、 Private Sub form_Click() Dim year As LongFor year = 2000 To 2500 If year Mod 4 = 0 Then If year Mod 100 = 0 Then If year Mod 400 = 0 Then Print year; 年是闰年, Else Print year; 年不是闰年, End If Else Print year; 年是闰年, End If Else Print year; 年不是闰年, End IfNextEnd Sub6、Option Base 1Private Sub Form_Click()Const n = 10Dim a(n) As SingleMax = 0 k = 0For i = 1 To na(i) = Val(InputBox(请输入第 & i & 个数, 找最大数)Print Tab(5); 第 & i & 个数为：; a(i)Next i For i = 1 To n If Max a(i) Then Max = a(i) k = i End If Next Print Print 最大数为第 & k & 个数; MaxEnd Sub7 、 方法1、 Private Sub Form_Click() Dim n As Integer, f1 As Integer, f2 As Integer, f3 As IntegerFor n = 100 To 999 f1 = Int(n / 100) f2 = Int(n / 10) Mod 10 f3 = n Mod 10 If f1 3 + f2 3 + f3 3 = n Then Print n; 为水仙花数 End IfNextEnd Sub 方法2、Private Sub Form_Click() Dim n As Integer, f1 As Integer, f2 As Integer, f3 As Integer n = 100Do While n = 999 f1 = Int(n / 100) f2 = Int(n / 10) Mod 10 f3 = n Mod 10 If f1 3 + f2 3 + f3 3 = n Then Print n; 为水仙花数 End If n = n + 1LoopEnd Sub8 、 Private Sub Form_Click()Dim n As Integer, s As Integer n = 1 s = 0 Do s = s + n n = n + 1Loop While s = 200 n = n - 2 Print nEnd Sub9、二分法 方法1、 Public Function f(x As Double) As Double f = x 3 - x - 1End Function Private Sub command1_Click() Dim a As Double, b As Double, p As Single a = 1 b = 1.5 p = 0.00001Do If f(a + b) / 2) = 0 Then Exit Do Else If f(a) * f(a + b) / 2) = p Label1.Caption = 方程的根是 & (a + b) / 2End SubPrivate Sub Command2_Click()Label2.Caption = 求方程 f = x 3 - x - 1的近似解End Sub方法2、 Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)e = Val(Text3.Text)fa = (a * a - 1) * a - 1fb = (b * b - 1) * b - 1If fa * fb = 0 ThenText4.Text = 求解范围错！ElseDox = (a + b) / 2f = (x * x - 1) * x - 1If f * fa 0 Thena = x: fa = fElseb = x: fb = fEnd IfLoop Until f = 0 Or Abs(b - a) eText4.Text = (a + b) / 2End IfEnd Sub10、冒泡排序Private Sub Command1_Click()Dim C(6) As DoubleFor n = 1 To 6C(n) = InputBox(输入需要排序的数, 6个数的冒泡排序, )Next nFor i = 1 To 6 For j = 6 To i Step -1 If C(j) C(j - 1) Then a = C(j): C(j) = C(j - 1): C(j - 1) = a End If Next jNext iFor i = 1 To 6Print , C(i)Next iEnd Sub11、求1222321002的算法 Private Sub Form_Load()Dim n As Long, s As Longn = InputBox(请输入 n:, 从1到n求平方和, 100)s = 0i = 1While i = ns = s + i * ii = i + 1WendForm1.ShowPrint , 1 到 ; n; 的平方和是：; sEnd Sub12、辗转相除法求最大公因数Private Sub Form_Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)n1 = Abs(a)n2 = Abs(b)Do While n1 Mod n2 0 tt = n1 Mod n2 n1 = n2 n2 = ttLoop Label1.Caption = a & 和 & b & 的最大公因数为 & n2End Sub13、用秦九韶算法求多项式的值Private Sub Command1_Click()Dim C(5) As Doublex = InputBox(请输入求值数, )C(0) = -0.8: C(1) = 1.7: C(2) = -2.6: C(3) = 3.5: C(4) = 2: C(5) = 5n = 1v = C(5)While n = 5v = v * x + C(5 - n)n = n + 1WendPrint 所求的值是; vEnd Sub14 .判断素数Private Sub Form_Click() Dim n As Long Dim i As Long Dim r As Single n = Val(InputBox(请输入一个数, 判断素数)For i = 2 To n - 1 r = n Mod i If r = 0 Then Print Print n; 不是素数 GoTo 17 End IfNext Print Print n; 为素数17 End Sub15 Private Sub Form_Click() Dim i As Integer, sum As Double sum = 1 For i = 1 To 64 sum = sum + 2 i Next i Print sumEnd Sub16、猜字游戏Private Sub Command1_Click() Randomize Dim Num As Long Dim RightAnswer As Boolean Dim InputNum As Long Text1.Text = Num = Int(Rnd * 10) + 1 RightAnswer = False Text1.Text = Text1.Text + Heres a number between 1 and 10. Can you guess it? + vbNewLine While RightAnswer = False InputNum = InputBox(Enter a number) If InputNum = Num Then Text1.Text = Text1.Text & InputNum & & You guessed it! & vbNewLine RightAnswer = True ElseIf InputNum Num Then Text1.Text = Text1.Text & InputNum & & Too Large & vbNewLine End If WendEnd Sub17、石头、剪刀、布Private Sub Form_Activate()Option1.Caption = 石头Option2.Caption = 剪刀Option3.Caption = 布Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub Option1_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox 对方也出石头！继续！Case 1: MsgBox 哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！Case 2: MsgBox 你输了！对方出的是布哦！不好意思，苹果给对方了哈！End SelectOption1.Value = FalseEnd SubPrivate Sub Option2_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox 你输了！对方出的是石头哦！不好意思，苹果给对方了哈！Case 1: MsgBox 对方也出剪刀！继续！Case 2: MsgBox 哈哈！你赢了！对方出的是布！奖励你一个苹果！End SelectOption2.Value = FalseEnd SubPrivate Sub Option3_Click()RandomizeSelect Case Int(3 * Rnd)Case 0: MsgBox 哈哈！你赢了！对方出的是石头！奖励你一个苹果！Case 1: MsgBox 你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！Case 2: MsgBox 对方也出布！继续！End SelectOption3.Value = FalseEnd Sub18、选择题计分程序Private Sub Command1_Click() 提交按钮CommandButton1Dim sum As Integersum = 0If Text1.Text = A Then sum = sum + 5 Image1.Picture = LoadPicture(E:课件素材图片对号.jpg)Else Image1.Picture = LoadPicture(E:课件素材图片错号.jpg)End IfIf Text2.Text = B Then sum =