VB二級期末考試VB二級實(shí)驗(yàn)考題課件VIP

1、VB.求一個四位數(shù)的各位數(shù)字的立方和。Private Function fun(n As Integer) as longDim d as integer, I as integer, s as integerFor i = 1 to 4d = val ( mid (n,I,l)s = s+dA3Next iFun = sEnd function.求1到100之間的偶數(shù)之積。Private Function fun(m As Integer) as doubleDim y as double , i as integery= 1m=100For i =1 to mif i mod 2 = 0

2、Theny = y* 1End ifNextFun = yEnd function.計算n門課程的平均值，計算結(jié)果作為函數(shù)值返回。Private Function fun(a() As Integer,! as integer ) as doubleDim i as integer , y as singleFor i = 1 to ny = y + a(i)Nextfun = y / nEnd function.計算0到100范圍內(nèi)所有偶數(shù)的平方和。Private sub command l_click()d = fun ()Text 1.text = dSave DataEnd subFu

3、nction fun()Sum = 0For i =0 to 100 step 2Sum = sum + i * INext I fun=sumEnd function.計算輸出給定整數(shù)n的所有因子之和(不包括1馬自身)，規(guī)定n的值不大于1000。Private function fun (n as integer ) as integerDim s as integer , i as integerFor i = 2 to n -1If n mod i = 0 thenEnd ifNextfun = sEnd function.判斷一個數(shù)是否是素數(shù)的函數(shù)primePrivate Functi

4、on prime (n As Integer) As BooleanDim i As IntegerIf n =1 then exit functionFori = 2Ton-lIf n Mod i= 0 Then Exit ForNext iIf i = n Then Prime = TrueEnd Function.將字符串逆序的函數(shù)resersePrivate function reverse(n as string ) as stringDim i as integerFor i = 1 to len(n)Reverse = mid(n,I,l)&reverseNext iEnd fu

5、nction.求兩個數(shù)最大公約數(shù)的函數(shù)gedPrivate function gcd(m as integer, n as integer) as integerDim r as integerDo r = m mod nm = nn = rLoop while r 0ged = mEnd function.求n!的值的函數(shù)factPrivate Function fact (n as integer) As longDim i As Integerfact - 1For i = 1 To nfact = fact * iNext iEnd Function.求一維數(shù)組元素之和的過程。Private function total(a() as integer) as integerDi