交院VB程序設(shè)計

1、交院VB程序設(shè)計程序設(shè)計第一題題目：（事件）單擊窗體 （響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來。 將結(jié)果存入變量S中。代碼：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)第二題題目：（事件）雙擊窗體 （響應(yīng)）求s=1+1*2+1*2*3+.+1*2*3*.*10并將結(jié)果存入變量S中代碼：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 N

2、ext Print(CStr(s)第三題題目：（事件）單擊窗體 （響應(yīng)）求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量SUM中代碼：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum第四題題目：（事件）單擊窗體 （響應(yīng)）編寫程序求10*11*12+11*12*13+.+15*16*17的結(jié)果 并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中。代碼：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i T

3、o i +2 s=s*j Next m=m+sNextPrint (CStr(m)第五題題目：（事件）雙擊窗體 （響應(yīng)）求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量SUM中。代碼：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum第六題題目：（事件）單擊窗體 （響應(yīng)）已知S=1+1/4+1/9+1/16+1/25+1/100, 結(jié)果輸出在窗體上代碼：Dim s As Single For i=1 To 10 a=i*i Sum =1/a + Sum Nex

4、t Print Sum第七題題目：（事件）雙擊窗體 （響應(yīng)）求1+1*2+1*2*3+.+1*2*3*.*10, 并將結(jié)果存到變量S中代碼：Dim s As Long j=1 For i = 1 To 10 j= j*i Sum = Sum + j Next Print Sum第八題題目：（事件）單擊窗體 （響應(yīng)）求11/2+1/31/4+.+1/991/100的值。 將結(jié)果存入變量J中代碼：Dim j As Single Dim i As Single j=0 For i = 1 To 100 k=(-1)(i+1)/i j=k+j Next i Print j第九題題目：（事件）雙擊窗體

5、（響應(yīng)）s=20+21+22+263,求s的值，并將結(jié)果存儲到變量S中。代碼：Dim s As Long s=20 For s= 21 To 263 b=s+1 Sum=Sum+b Next Print Sum第十題題目：（事件）單擊窗體 （響應(yīng)）求出100以內(nèi)所有素數(shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量SUM中代碼：Dim sum As IntegerFor i = 1 To 100For j = 2 To i - 1Exit ForNext jNext iIf i Mod j = 0 ThenEnd IfIf j - i Thensum = sum + iEnd IfPrint su

6、m第十一題題目：（事件）單擊窗體 （響應(yīng)）編寫程序求10*11*12+11*12*13+.+15*16*17的結(jié)果 并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中。代碼：Dim m As Long For i = 1 To 6 t =(i+9)*(i+10)*(i+11) m=m+t Next Print m第十二題題目：（事件）單擊窗體 （響應(yīng)）求1020之間所有素數(shù)的乘積并輸出在窗體上。 將結(jié)果存入變量L中代碼：Dim l As Long l=1 For i=10 To 20 For j=2 To i-1 If i Mod j = 0 Then Exit For End If Next j If

7、 j = i Then l=l*i End If Next i Print l第十三題題目：（事件）單擊窗體 （響應(yīng)）求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出來。代碼：Dim s As Integer s = 0 For i = 2 To 50 Step 2 s = s + i Next i Print s第十四題題目：（事件）單擊窗體 （響應(yīng)）在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8.的前十項，并求其和。代碼：Dim s As Single Dim a () Dim b () Dim c () a(1) = 2 b(1) = 1 c(1) = a(1) / b(1) a(2)

8、= 3a(2) = 2a(2) = a(2) / b(2) s=s+c(1)+c(2) For i = 3 To 10 a(i)=a(i-1)+a(i-2) b(i)=b(i-1)+b(i-2) c(i)= a(i)/ b(i) s = s+c(i) Next Print s第十五題題目：（事件）單擊窗體 （響應(yīng)）求200300之間既能被3整除又能被7整除的數(shù)。 并求出所有數(shù)之和存入變量SUM中。代碼：Dim sum As Integer sum = 0 For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then sum = sum +i En

9、d If Next Print sum第十六題題目：（事件）雙擊窗體 （響應(yīng)）求出100200之間，能被5整除，但不能被3整除的數(shù)。 并求出所有數(shù)之和，存入變量SUM中代碼：Dim sum As Integer sum=0 For i = 100 To 200 If i Mod 5 = 0 And i Mod 3<> 0 Then sum = sum +i End If Next Print sum第十七題題目：（事件）雙擊窗體 （響應(yīng)）求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。 結(jié)果存入變量S中代碼：Dim s As Integer s = 0 t = 1 For i

10、= 1 To 5 t = i*t Sum = sum + t Next Print Sum第十八題題目：（事件）雙擊窗體 （響應(yīng)）求3+6+9+12+15+18+.+300的和，并將結(jié)果輸出到窗體上。 將結(jié)果存入變量SUM中代碼：Dim sum As Integer sum = 0 For i = 3 To 300 Step 3 sum= sum +i Next i Print sum 第二種方法：當step為2的時候： Dim s As Integer Dim i As Integer For i=2 To 50 Step 2 s = s+i Next i Print s第十九題題目：（事件

11、）單擊窗體 （響應(yīng)）求10!的值，并將結(jié)果輸出在窗體上。 將結(jié)果存入變量SUM中代碼：Dim sum As Long Dim i As Integer sum = 1 For i = 1 To 10 sum = i*sum Next Print sum第一題'題目：(事件)雙擊窗體。(響應(yīng))求出100200之間，能被5整除，但不能被3整除的數(shù)。并求所有數(shù)之和，存入變量中SUM中。將結(jié)果輸出到窗體Private Sub Form_DblClick()'*Program*For i = 100 To 200If i Mod 5 = 0 And i Mod 3 <> 0

12、ThenSUM = SUM + iEnd IfNext iPrint SUM'* End *第二題'題目：(事件)單擊窗體。(響應(yīng))求10!的值，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。使用for循環(huán)實現(xiàn)Private Sub Form_Click()'*Program*SUM = 1For i = 1 To 10SUM = SUM * iNext iPrint SUM'* End *第三題'題目：(事件)單擊窗體。(響應(yīng))求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上結(jié)果存入變量S中Private Sub Form_Click()'*

13、Program*For i = 1 To 5SUM = 1For j = 1 To iSUM = SUM * iNext js = s + SUMNext iPrint s'* End *第四題'題目：(事件)單擊窗體。(響應(yīng))求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。將結(jié)果存入變量J中。Private Sub Form_Click()'*Program*For i = 1 To 100j = j - 1 / i * (-1) iNext iPrint j'* End *第五題'題目：(事件)單擊窗體(響應(yīng))用輸入框

14、輸入一自然數(shù)，判斷是"正數(shù)"、"負數(shù)"或"零"，并根據(jù)輸入的數(shù)用消息框顯示"正數(shù)"、"負數(shù)" 或"零"。Private Sub Form_Click()'*Program*a = InputBox("輸入一自然數(shù):")If a > 0 Then MsgBox "正數(shù)"If a < 0 Then MsgBox "負數(shù)"If a = 0 Then MsgBox "零"'*

15、End *第六題'題目： (事件)單擊窗體。(響應(yīng))求出100以內(nèi)所有奇數(shù)的和，并將結(jié)果輸出到窗體上,并存入所給變量SUM中。Private Sub Form_Click()'*Program*For i = 1 To 99 Step 2 Sum = i + SumNext iPrint Sum'* End *第七題'題目：(事件)雙擊窗體。 (響應(yīng))求3+6+9+12+15+18+300的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量 SUM中。Private Sub Form_DblClick()'*Program*For i = 3 To 300 Ste

16、p 3 SUM = i + SUMNext iPrint SUM'* End *第八題'題目： (事件)單擊窗體。 (響應(yīng))求從100到1000之間所有是3的倍數(shù)的數(shù)之和，當和大于3000時，停止計算并輸出和。請將結(jié)果輸出到窗體上,并存入所給變量SUM中。使用for.next語句完成程序'*Program*Private Sub Form_Click()For i = 100 To 1000 If i Mod 3 = 0 And SUM <= 3000 Then SUM = SUM + i End IfNext iPrint SUMEnd Sub'* En

17、d *第九題'題目：(事件)單擊窗體。 (響應(yīng))求1+2+3+100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量SUM中。Private Sub Form_Click()'*Program*For i = 1 To 100 Sum = Sum + iNext iPrint Sum'* End *第十題'題目：(事件)單擊窗體。(響應(yīng))在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8的前10項，并求其和，將和保存在變量s中Private Sub Form_Click()'*Program*a = 2b = 1For i = 1 To 10Print a

18、 / bs = s + a / bt = aa = a + bb = tNextPrint sEnd Sub'* End *第十一題'題目：(事件)單擊窗體。(響應(yīng))求數(shù)列1+3+3+9+27+前6項的和，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。要求使用for.next循環(huán)'*Program*Private Sub Form_Click()a = 1b = 3s = a + bFor i = 1 To 4s = s + b * at = bb = b * aa = tNextPrint sEnd Sub'* End *'第十二題'題目：(事

19、件)雙擊窗體。(響應(yīng))求出50以內(nèi)所有奇數(shù)的和。將結(jié)果存入變量SUM中。Private Sub Form_DblClick()'*Program*For i = 1 To 50 If i Mod 2 = 1 Then Sum = Sum + i End IfNext iPrint Sum'* End *'第十三題'題目：(事件)單擊窗體。 (響應(yīng))編寫程序求10×11×12+11×12×13+15×16×17的結(jié)果，并將結(jié)果輸出到窗體上。將結(jié)果存入變量M中Private Sub Form_Click()

20、'*Program*Dim a As Integer, b As Integer, c As Integer, m As Integera = 9: b = 10: c = 11Do a = a + 1 b = b + 1 c = c + 1 m = m + a * b * cLoop Until a > 14Print m'* End *第十四題'題目：(事件)單擊窗體。(響應(yīng))求100以內(nèi)偶數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中Private Sub Form_Click()'*Program*For i = 1 To 100 If i

21、Mod 2 = 0 Then Sum = Sum + i End IfNext iPrint Sum'* End *'第十五題'題目：(事件)單擊窗體。(響應(yīng))求100到500之間奇數(shù)的和，將結(jié)果輸出在窗體上并存入變量SUM中。使用for循環(huán)完成程序''*Program*Private Sub Form_Click()For i = 100 To 500 If i Mod 2 = 1 Then Sum = Sum + i End IfNext iPrint SumEnd Sub'* End *'第十六題'題目： (事件)單擊窗體。

22、 (響應(yīng))已知sum=1-1/4+1/9-1/16+1/25.-1/100,請將sum結(jié)果值輸出到窗體上。使用for.next語句完成程序'*Program*Private Sub Form_Click()For i = 1 To 10 j = j - 1 / i 2 * (-1) iNext iPrint aEnd Sub'* End *'第十七題-'題目： (事件)單擊窗體。 (響應(yīng))求sum=1+1+2+3+5+8+13+.+144的和,請將sum結(jié)果值輸出到窗體上。使用do.loop while語句完成程序'*Program*Private Su

23、b Form_Click()Dim i As Double, f(1 To 20) As Integer, sumf(1) = 1f(2) = 1sum = 2If i > 2 Then Do f(i) = f(i - 1) + f(i - 2) sum = sum + f(i) Loop While f(i) > 145End IfPrint sumEnd Sub'* End *'第十八題'題目： (事件)單擊按鈕。 (響應(yīng))隨機產(chǎn)生N個兩位正整數(shù)（N由輸入對話框輸入，且N>0），求出其中的最大數(shù)和最小數(shù)，并在標簽框Label1上顯示最大數(shù)與最小數(shù)的

24、差。Private Sub Form_Click()Dim a() As Integer, i As Integer, n As Integer, max As Integer, min As Integer, sum As Integern = Val(InputBox("input num:")ReDim a(n)min = 100: max = 1 For i = 1 To n a(i) = CInt(Rnd * 90 + 10) Print a(i);If a(i) > max Then max = a(i)If a(i) < min Then min

25、= a(i)Next ilabel1.caption=max-minEnd Sub'第十九題'題目：(事件)單擊窗體響應(yīng))輸出斐波那契數(shù)列1,1,2,3,5,8,13.第20個數(shù)的值即 f1=1 (n=1)f2=1 (n=2) fn=f(n-1)+f(n-2)(n3)使用for.next語句完成程序，并將結(jié)果存入變量sum中Private Sub Form_click()Dim f(1 To 20) As Integer, i As Integer, sum As Integer f(1) = 1 f(2) = 1 For i = 3 To 20 f(i) = f(i - 1)

26、 + f(i - 2) Next i Print f(20) End Sub'第二十題'題目：(事件)單擊窗體。(響應(yīng))我國現(xiàn)有人口為13億，設(shè)年增長率為1%，計算多少年后增加到20億。并將結(jié)果輸出在窗體上。將結(jié)果存入變量year中。使用while .wend語句完成程序。'*Program*Private Sub Form_click()Dim a As Double, i As Integer, year As Integera = 1300000000#While a <= 2000000000# a = a * (1 + 0.01) Wend year =

27、 Log(a / 1300000000#) / Log(1 + 0.01) Print a; year; 1.01 44 * 13End Sub'第二十一題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制'成績mark（整數(shù)），顯示對應(yīng)五級制的評定。條件如下：'mark大于等于90顯示"優(yōu)秀"'mark小于90且大于等于80顯示"良好"'mark小于80且大于等于70顯示"中等"'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及

28、格"'要求使用IF語句來實現(xiàn)。'-'注意： 請在指定的事件內(nèi)編寫代碼' 代碼只能寫在兩行標識之間' 不得修改已有代碼'保存時不得修改窗體和工程文件的名稱及路徑，否則后果自負。'-Private Function fun(mark As Integer) As String'*Program* If mark >= 90 Then Print "優(yōu)秀" If mark < 90 And mark >= 80 Then Print "良好" If mark <

29、80 And mark >= 70 Then Print "中等" If mark < 70 And mark >= 60 Then Print "及格" If mark < 60 Then Print "不及格" '* End *End FunctionPrivate Sub Form_Load() Show Print fun(90) End Sub第二十二題題目：(事件)單擊窗體。 (響應(yīng))求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。將結(jié)果存入變量J中。Priv

30、ate Sub Form_Click()'*Program*Dim a As Integer, i As Integer, j As DoubleFor i = 1 To 100a = a + 1j = (-1) (i + 1) / a + jNext iPrint j'* End *End Sub第二十三題'題目：編寫過程gcd，求兩個整數(shù)m,n的最大公約數(shù)p,Private Sub Form_Click(),Dim m As Integer, n As Integer,m = Val(InputBox("請輸入一個整數(shù)", , 1),n = Va

31、l(InputBox("請再輸入一個整數(shù)", , 1),Print m; "和" n; "的最大公約數(shù)為：" gcd(m, n),End SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer'*Program*Dim r As IntegerIf m < n Then r = m: m = n: n = rr = m Mod nDo While r <> 0 m = n n = r r = m Mod nLoop

32、gcd = n'* End *End Function'第二十四題'題目： (事件)單擊窗體。 (響應(yīng))已知s=1+1/3!+1/5!+1/7!+1/9!,請將s結(jié)果值輸出到窗體上。使用for.next語句完成程序'*Program*Private Sub Form_Click()Dim i As Integer, sum As Single, j As Integer, a As Singlea = 1For i = 1 To 9 If i Mod 2 <> 0 Then For j = 1 To i a = a * j Next j sum =

33、sum + 1 / a End If Next i Print sumEnd Sub'* End *'第二十五題'題目： (事件)單擊窗體。(響應(yīng))已知sum=1!-2!+3!-4!.-10!,請將sum結(jié)果值輸出到窗體上。使用for.next語句完成程序Private Sub Form_Click()Dim i As Integer, sum As Double, j As Integer, a As Double a = 1 For i = 1 To 10 For j = 1 To i a = a * j Next j sum = sum + (-1) (i - 1

34、) * a Next i Print sumEnd Sub'第二十六題'題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，' 計算如下公式的值:' y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)' 例如：若m=9，則應(yīng)輸出：1.168229'要求：函數(shù)中用到的中間變量必須聲明為Single類型。Private Sub Form_Click()Dim m As Integerm = Val(InputBox("請輸入一個整數(shù)", , 1)Print fun(m)End Sub'*Program*Pri

35、vate Function fun(m As Integer) As SingleDim i As Integer, sum As Single For i = 0 To m sum = sum + 1 / (i + 5) Next i fun = sumEnd Function'* End *第二十七題'題目：編寫函數(shù)fun，函數(shù)的功能是：計算n門課程的平均值，計算結(jié)果作為函數(shù)值返回。例如，若有5門課程的成績是：92，76，69，58，88，則函數(shù)的值為76.6。Private Sub Form_Click()Dim n As Integern = Val(InputBox(

36、"請輸入一個整數(shù)", , 1)Print fun(n)End Sub'*Program*Private Function fun(n As Integer) As Single Dim i As Integer, sum As Integer, a() As Integer n = Val(InputBox("輸入一個數(shù)n") ReDim a(n) For i = 1 To n a(i) = Val(InputBox("輸入第" & i & "個數(shù)") sum = sum + a(i) Ne

37、xt i fun = sum / nEnd Function'* End *'第二十八題'題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，計算如下公式的值：y=1/2!1/4!.1/m!(m是偶數(shù))Private Sub Form_Click(),Dim m As Integer,m = Val(InputBox("請輸入一個整", , 1).Print fun(m)End Sub'*Program*Private Function fun(m As Integer) As Double Dim i As Integer, j As Integ

38、er, a As Double, sum As Double For i = 2 To m Step 2 a = 1 For j = 1 To i a = a * j Next j sum = sum + 1 / a Next i fun = sumEnd Function'* End *第二十九題'題目：(事件)單擊窗體。(響應(yīng))已知S=1+1/4+1/9+1/16+1/25+1/100，結(jié)果輸出在窗體上。Private Sub Form_Click()'*Program*For i = 1 To 10 j = j + 1 / i 2Next iPrint j'

39、;* End *End Sub第三十題'題目：(事件)單擊窗體。(響應(yīng))求200300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中，并輸出到窗體Private Sub Form_Click()'*Program*For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Sum = Sum + i End IfNext iPrint Sum'* End *End Sub第三十一題'題目：(事件)單擊窗體。 (響應(yīng))求50以內(nèi)所有偶數(shù)的和，并在窗體上輸出出來。將結(jié)果存入變量S中。Private

40、 Sub Form_Click()'*Program*For i = 1 To 50 If i Mod 2 = 0 Then s = s + i End IfNext iPrint s'* End *End Sub第三十二題'題目：(事件)雙擊窗體。 (響應(yīng))求s=1+1×2+1×2×3+1×2×3××10，并將結(jié)果存到變量S中，同時將結(jié)果輸出到窗體Private Sub Form_DblClick()'*Program*Dim n%, b, tt = 1: b = 1: n = 2Do b

41、= b * n t = t + b n = n + 1Loop Until n > 10Print t'* End *End Sub第三十三題'題目：(事件)單擊窗體。 (響應(yīng))生成一個一維數(shù)組(10個數(shù)組元素依此為：15、23、72、43、96、23、3、65、88、17)，寫程序求出這個數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中Private Sub Form_Click()'*Program*Dim a() As Variant, i As Integer, min As Integer, max As Integera