版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、真誠為您提供優(yōu)質(zhì)參考資料,若有不當(dāng)之處,請指正。VB程序設(shè)計練習(xí)題第一題、題目:(事件)單擊窗體 (響應(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
2、k=k*j Next s=s+k k=1 Next 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
3、 To 15 s=1 For j = i To 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=
4、i*i Sum =1/a + Sum 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第九題題目:(事件)雙擊窗體 (響應(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第
5、十題題目:(事件)單擊窗體 (響應(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 sum第十二題題目:(事件)單擊窗體 (響應(yīng))求1020之間所有素數(shù)的乘積并輸出在窗體上。 將結(jié)果存入變量L中代碼:Dim l As Long l=1 For i=10 To 20 For j=2 To i-1 If
6、 i Mod j = 0 Then Exit For End If Next j If j = i Then l=l*i End If Next i Print l 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 End If Next Print sum第十七題題目:(事件)雙擊窗體 (響應(yīng))求1!+
7、2!+3!+4!+5!并將結(jié)果輸出到窗體上。 結(jié)果存入變量S中代碼:Dim s As Integer s = 0 t = 1 For i = 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 第十九題題目:(事件)單擊窗體 (響應(yīng))求10!的值,并將結(jié)果輸出在窗體
8、上。 將結(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))已知S=1+1/4+1/9+1/16+1/25+1/100,結(jié)果輸出在窗體上。 將結(jié)果存入變量S中代碼:Dim i As Integer s=0 For i = 1 To 10 s = s + 1/(ii) Next Print(s)第二十三題題目:(事件)單擊窗體 (響應(yīng))在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8.的前10項,并求其和。代
9、碼:Dim i ,j,k,m As Integer s=0 i=2 j=1 For k = 1 To 10 m = j Print (CStr(i))& “/” & CStr(j) j = i i=i+m s=s+i/j Next第二十四題題目:(事件)單擊窗體 (響應(yīng))一球從100米高度自由落下,每次落地返回。原高度的一半,求第10次落地時,共經(jīng)過多少米?并將結(jié)果在窗體上輸出。代碼:Dim j,i As Integer s=0j=100For i = 2 To 10j=j / 2s=s+2*jNexts=100+sPrint(CStr(s)第二十七題題目:(事件)單擊窗體。 (響應(yīng))求出10
10、00-9999之間具有如下特點的四位數(shù)字,它的平方根恰好就是它中間的兩位數(shù)字,例如,2500開平方為50,恰為2500的中間兩位,找出所有這樣的四位數(shù)。并求出所有這樣的數(shù)的和存入SUM中。代碼:Dim i As Integer Dim j As IntegerFor i = 1000 To 9999j= Val(Mid(Trim( Str(i), 2, 2)If j 2 = i ThenPrint i,sum = sum + iEnd IfNext第二十八題題目:(事件)雙擊窗體 (響應(yīng))把一元鈔票換成一分、二分、和五分的硬幣(每種至少有一枚),求出其所有的換法,把結(jié)果輸出在窗體上。將所有的換
11、法的數(shù)目存入變量N中代碼:Dim i, j,k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If (i+2*j +k*5)=100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k) n=n+1End IfNextNextNext第三十一題題目:(事件)單擊窗體。 (響應(yīng))生成一個一維數(shù)組(10個數(shù)組元素依次為:15、23、72、43、96、23、3、65、88、17),寫程序求出這個數(shù)組中的最大值、最小值和平均值,并輸出在窗體上。將最大值,最小值,平均值分別存入變量Max,Min,
12、Aver中。Dim aDim i, s As Integera = array(15,23,72,43,96,23,3,65,88,17)Max = a(0)Min = a(0)s = 0For i = 0 to 90If a(i)max Thenmax = 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)第三十二題題目:(事件)單擊窗體。 (響應(yīng))在窗體上輸出100200之間的所有合數(shù)。求出所有數(shù)之
13、和存入SUM中。代碼:Dim i,j,s As Integer For i = 100 To 200 For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print(CStr(i) sum = sum + i Exit For End If Next Next Print sum第三十八題題目:(事件):單擊窗體。 (響應(yīng)):求1-1/2+1/3-1/4+1/99-1/100的值。將結(jié)果存入變量J中。代碼:Dim i As IntegerFor i = 1 To 100NextIf i Mod 2 = 1 Thenj = j + 1 / iElseEnd IfI
14、f i Mod 2 = 0 Thenj = j - 1 / iEnd IfPrint j第三十九題題目:(事件):單擊窗體。 (響應(yīng)):求1+2+3+4+100的值,并把結(jié)果輸出在窗體上。結(jié)果存入變量SUM中。代碼:Dim i As IntegerFor i = 1 To 100Sum = Sum + iNextPrint Sum第四十題題目:(事件):雙擊窗體。 (響應(yīng)):求1+2+3+5+8+13+.的前20項和,并將結(jié)果在窗體上輸出。將結(jié)果存入變量SUM中。代碼:Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i 3 Thenj(i) = 1Elsej(i) = j(i - 1) + j(i - 2)End IfSum = Sum + j(i)NextPrint Sum第四十三題題目:(事件):雙擊窗體。 (響應(yīng)):求1+5+10+15+500的和,并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中。代碼:Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 ThenSum = Sum + iEnd IfN
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 隆堯職教中心
- 編制說明《蘋果黑星病綜合防治技術(shù)規(guī)程》編制說明
- 2024光伏面板清掃機(jī)器人用驅(qū)動電機(jī)
- 《物業(yè)公共秩序維護(hù)規(guī)范》(征求意見稿)編制說明
- 小學(xué)英語天氣課件
- 編制說明《城市排水管網(wǎng)修復(fù)技術(shù)指南》
- 2024年家具、建筑用金屬附件及架座合作協(xié)議書
- 2024年傳真保密機(jī)項目合作計劃書
- 2024年殺螨隆項目建議書
- 小班繪本語言想吃蘋果的鼠小弟教案反思
- 《國家安全法》-詳解課件
- 院內(nèi)VTE的預(yù)防策略與診療流程(第二版)
- 電梯事故分析與預(yù)防措施
- 繪制建筑平面圖的步驟
- 籃球裁判課件
- 幼兒社會教育活動設(shè)計與指導(dǎo)(第3版)中職 PPT完整全套教學(xué)課件
- 腹腔鏡下次全子宮切除術(shù)手術(shù)配合
- 學(xué)困生幫扶記錄十八篇
- Module 4 Unit 1 Thanksgiving is my favourite festival(說課稿)-2022-2023學(xué)年英語六年級上冊
- 三年級上數(shù)學(xué)說課稿-筆算三位數(shù)除以一位數(shù)(首位不能整除)-蘇教版
- 全國百強(qiáng)連鎖藥店明細(xì)
評論
0/150
提交評論