VB程序設計題庫(全)(同名21559)

1、VB程序設計題庫（全）（同名21559）VB程序設計練習題第一題、題目：（事件）單擊窗體（響應）求50以內所有偶數的和，并在窗體 上輸出來。將結果存入變量S中。代碼：Dim I As IntegerFor i = 2 To 50If （i Mod 2）=0 ThenS=s+iEnd IfNextPrint （CStr（s）第二題題目：（事件）雙擊窗體（響應）求 s=1+1*2+1*2*3+.+1*2*3* .*10 并將結果存入變量S中 代碼：Dim i,j As IntegerDim k As Longk=1s=0Fori =1To 10For j=1 To ik=k*jNexts=s+kk

2、=1NextPrint(CStr(s)第三題題目：(事件)單擊窗體(響應)求100以內偶數的和，并將結果輸出 在窗體上。將結果存入變量SUM3代碼：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四題題目：(事件)單擊窗體(響應) 編寫程序求10*11*12+11*12*13+ .+15*16*17 的結果并將結果輸出到窗體上。將結果存入變量M中。代碼：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=

3、s*jNextm=m+s第五題題目：（事件）雙擊窗體（響應）求100以內奇數的和，并將結果輸出 在窗體上。將結果存入變量SUM3。代碼：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六題題目：（事件）單擊窗體（響 應） 已 知S=1+1/4+1/9+1/16+1/25+ - +1/100,Next代碼：Dim s As SinglePrint (CStr(m)For i=1 To 10結果輸出在窗體上a=i*iSum =1/a + SumNextPrint Sum第八題題目：(

4、事件)單擊窗體(響應)求 1 1/2+1/3 1/4+.+1/99 1/100的值。將結果存入變量J中代碼：Dim j As SingleDim i As Singlej=0For i = 1 To 100k=(-1)八(i+1)/ij=k+jNext iPrint j第九題題目：（事件）雙擊窗體（響應）s=20+21+22+263，求s的值，并將 結果存儲到變量S中。代碼：Dim s As Longs=20For s= 21 To 263b=s+1Sum=Sum+bNextPrint Sum第十題題目：（事件）單擊窗體（響應）求出100以內所有素數的和，并將結 果輸出到窗體上，并存入所給變量

5、SU的代碼： Dim sum As IntegerFor i = 1 To 100Forj = 2 To i- 1Exit ForNext jNext iIf i Mod j = 0 Then End IfIf j - i Then sum = sum + i End If Print sum 第十二題 題目：（事件）單擊窗體（響應）求1020之間所有素數的乘積并輸出 在窗體上。將結果存入變量L中代碼：Dim l As Longl=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i Thenl

6、=l*iEnd IfNext iPrint lNextPrint s第十五題題目：（事件）單擊窗體（響應）求200300之間既能被3整除又能被 7整除的數。并求出所有數之和存入變量 SU時。代碼： Dim sum As Integersum = 0For i = 200 To 30013第十八題If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum +iEnd IfNextPrint sum第十七題題目：（事件）雙擊窗體（響應）求1!+2!+3!+4!+5!并將結果輸出到窗 體上。結果存入變量S中代碼：Dim s As Integers = 0t = 1For

7、 i = 1 To 5t = i*tSum = sum + tNextPrint Sum題目：（事件）雙擊窗體（響應）求 3+6+9+12+15+18+.+300 的和, 并將結果輸出到窗體上。將結果存入變量SUM3代碼： Dim sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第十九題題目：（事件）單擊窗體（響應）求10!的值，并將結果輸出在窗體上。將結果存入變量SUM3代碼： Dim sum As LongDim i As Integer sum = 1For i = 1 To 10sum = i*

8、sumNextPrint sum第二十二題題目：（事件）單擊窗體（響 應） 已 知S=1+1/4+1/9+1/16+1/25+ - +1/100 ,結果輸出在窗 體上。將結果存入變量S中代碼：Dim i As Integers=0For i = 1 To 10s = s + 1/（iAi）NextPrint（s）第二十三題題目：（事件）單擊窗體（響應）在窗體上打印數列2/1,3/2,5/3,8/5,13/8.的前10項，并求其和。代碼： Dim i ,j,k,m As Integer s=0i=2j=1For k = 1 To 10 m = jPrint j = i i=i+m s=s+i/j

9、 Next(CStr(i)& “/" & CStr(j)第二十四題題目：（事件）單擊窗體（響應）一球從 地返回。原高度的一半,100米高度自由落下，每次落 求第10次落地時，共經過多少米？并將結果在窗體上輸出 代碼：Dim j,i As Integers=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s)第二十七題題目：(事件)單擊窗體。(響應)求出1000-9999之間具有如下特點的 四位數字，它的平方根恰好就是它中間的兩位數字， 例如，2500開平方為50,恰為2500的中間兩位， 找出所有這樣的

10、四位數。并求出所有這樣的數的和 存入SUMK代碼：Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i), 2, 2)If j 八 2 = i Then Print i, sum = sum + iEnd If Next 第二十八題 題目：(事件)雙擊窗體(響應)把一元鈔票換成一分、二分、和五分 的硬幣(每種至少有一枚)，求出其所有的換法，把 結果輸出在窗體上。將所有的換法的數目存入變量 N 中 代碼：Dim i, j,k As Integer For i = 1 To 100 For j = 1

11、To 50 For k = 1 To 20If (i+2*j +k*5)=100) Then Print (CStr(i)Print (CStr(j)Print (CStr(k) n=n+1End IfNextNextNext第三十一題題目：(事件)單擊窗體。(響應)生成一個一維數組(10個數組元素依 次為：15、23、72、43、96、23、3、65、88、17), 寫程序求出這個數組中的最大值、最小值和平均值， 并輸出在窗體上。將最大值，最小值，平均值分別 存入變量 Max,Min,Aver中。Dim aDim i, s As Integera = array(15,23,72,43,96

12、,23,3,65,88,17)Max = a(0)Min = a(0)s = 0For i = 0 to 90If a(i)>max Then max = a(i)End IfIf a(i)<min Thenmin = a(i)End Ifs = s + a(i)Nextaver = Int(s/10)Print (CStr(max)Print (CStr(min)Print (CStr(aver)第三十二題題目：(事件)單擊窗體。(響應)在窗體上輸出100200之間的所有合 數。求出所有數之和存入 SU附。代碼： Dim i,j,s As IntegerFor i = 100 T

13、o 200For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print(CStr(i) sum = sum + iElseEnd IfIf i Mod 2 = 0 ThenExit Forj= j - 1 / iEnd IfPrint jEnd IfNextNextPrint sum第三十八題第三十九題題目：（事件）：單擊窗（響應）：求1+2體。+3+4+100的值，并把結果題目:（事件）：單擊窗體的值。 代碼:For i = 1 To 100NextNextIf i Mod 2 = 1 ThenPrint Sum第四十題題目：（事件）：雙擊窗體。(響應)：求

14、 1-1/2+1/3-1/4+ -+1/99-1/100將結果存入變量J中。Dim i As Integer輸出在窗體上。結果存入變量 SUM代碼：Dim i As IntegerFor i = 1 To 100Sum = Sum + i(響應):求1+2+3+5+8+13+.的前20項和, 并將結果在窗體上輸出。將結果存入變量SUMo代碼：Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = 1 Else j(i) = j(i - 1) + j(i - 2) End IfSum = Sum + j(i)NextPrint Sum第四十三題題目：(事件)：雙擊窗體。(響應)：求1+5+10+15+500的和，并將結 果輸出在窗體上。將結果存入變量 SUM*fro 代碼：Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 ThenSum = Sum + iEnd IfNextPr