VB程序設計-總復習ppt課件

1、. SCS- (VB)2021-11-52. SCS- (VB)2021-11-53. SCS- (VB)2021-11-54冒泡法冒泡法. SCS- (VB)2021-11-55比較交換法比較交換法. SCS- (VB)2021-11-56. SCS- (VB)2021-11-57. SCS- (VB)2021-11-58. SCS- (VB)2021-11-59. SCS- (VB)2021-11-510IIf條件，當條件為條件，當條件為True時的值，當條件為時的值，當條件為False時的值時的值Max = IIfx y，x，y. SCS- (VB)2021-11-51110010010

2、00cos) 14(02xxxxxxxy. SCS- (VB)2021-11-5121001001000cos) 14(02xxxxxxxyx = Val(InputBox(x)If x =0 And x=100 Then y = (4 * x + 1) 2 + Cos(x)Else y = Sqr(Abs(100 - x)End IfPrint x, yx = Val(InputBox(x)Select Case xCase Is 100 y = Sqr(Abs(100 - x)End SelectPrint x, y. SCS- (VB)2021-11-513. SCS- (VB)2021

3、-11-514For i = 1 To 5 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print *; Next j PrintNext iFor i = 4 To 1 Step -1 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print *; Next j PrintNext i. SCS- (VB)2021-11-515. SCS- (VB)!/1! 2/1! 1/11neDim e As Single, t As Single Print e: n = 0n = n + 1: e = 1LoopDo Wh

4、ile t 0.00001t = 1t = t / ne = e + t, n As Single2021-11-516. SCS- (VB)2021-11-517. SCS- (VB)2021-11-518求求S = A! + B! + C!. SCS- (VB)2021-11-519調用過程調用過程fs a, a1 : fs b, b1 : fs c, c1 S = a1 + b1 + c1求求S = A! + B! + C!. SCS- (VB)Private Function s(n) For i = 2 To n - 1 If n Mod i = 0 Then Exit for Ne

5、xt i if in-1 then s=True else s=False End ifEnd FunctionPrivate Sub Form_Click() For i = 100 To 200 If s(i)=True Then Print i End If Next iEnd Sub. SCS- (VB)Function f(n) t = 1 For i = 1 To n t = t * i Next i f = tEnd Functione = 1n = 0Do n = n + 1 t = 1 / f(n) e = e + tLoop Until t = 0.00001Print e

6、!/1! 2/1! 1/11ne. SCS- (VB)Function h(s As String) As Boolean Dim i%, L% h = True：L = Len(s)For i = 1 To L 2 If Mid(s, i, 1) Mid(s, L + 1 - i, 1) Then h = False Exit Function End IfNext iEnd FunctionPrivate Sub Form_Click() Dim a As String a = InputBox(“請輸入字符串！請輸入字符串！) If h(a) = True Then Print a; 是

7、回文！是回文！“ Else Print a; 不是回文！不是回文！“ End If End Sub2021-11-522. SCS- (VB)計算組合數計算組合數Function嵌套嵌套Function f (n) t = 1 For i = 1 To n t = t * i Next i f = tEnd FunctionFunction c(n, m) c = f (n) / (f(m) * f (n - m)End Function2021-11-523. SCS- (VB)計算組合數計算組合數Sub嵌套嵌套Sub fs(n, k) t = 1 For i = 1 To n t = t

8、* i Next i k = tEnd SubSub cs(n, m, h) Call fs(n, a) Call fs(m, b) Call fs(n - m, d) h = a /(b* d)End Sub2021-11-524. SCS- (VB)Public Sub gcd( ByVal m%, ByVal n%, ByRef k%) r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop k = nEnd SubPrivate Sub Command1_Click() Dim x%, y%, k% x = Val(InputBox(請輸入請輸入x：) y = Val(InputBox(請輸入請輸入y：) If x b + 1 Or c d And b Mod ca = 2 : b = 3 : c = 4Print Not a = c Or 4 * a = b