版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、(新)024:實現(xiàn)功能:單擊“出題”按鈕后,在label1和label2中各顯示一個隨機的整數(shù),在text1中輸入結(jié)果并單擊“判斷”按鈕后,在label3中顯示“正確”或“錯誤”。暑假,小明的阿姨帶著一個小弟弟到小明家玩,這個小弟弟開學就要上一年級了,阿姨交了一個任務(wù)給小明,要他每天出20道一位數(shù)的加法題給小弟弟做,做完后還要幫小弟弟批改。小明自己的作業(yè)也多,他不想每天花許多時間去重復出題、改題的工作,于是他想到了用計算機幫他出題并批改;Dim a, b, c, x, n As IntegerPrivate Sub Command1_Click() Randomize Label6.Capti
2、on = "第" & n & "道題" a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.Caption = a Label2.Caption = b n = n + 1End Sub答案:text1.textxn=1Private Sub Command2_Click() c = a + b x = Val() If c = Then Label3.Caption = "正確" Else Label3.Caption = "錯誤" End IfEnd SubPr
3、ivate Sub Form_Load() End Sub(新)094:完善程序,實現(xiàn)功能:用選擇排序法將數(shù)組a中的10個整數(shù)按升序排列。Private Sub Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000)答案:9I+110 Next i For i = 1 To For j = To If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j) = a(0) End If Next j Next i For i = 1 To 10 Print C
4、Str(a(i) Next iEnd Sub(新)181:從鍵盤輸入10個學生的測試成績,輸出最高分和最低分Private Sub Command1_Click()Dim cj(10) As SingleDim i As IntegerDim max As SingleDim min As SingleFor i = 1 To 10 cj(i) = Val(InputBox("請輸入10個學生的成績", "成績輸入")Next i答案:cj(i)cj(i) < mincj(i)max = cj(1)min = cj(1)For i = 2 To 1
5、0 If cj(i) > max Then max = End If If Then min = End IfNext iPrint CStr(max), CStr(min)End Sub187:填空完成程序,使得單擊"顯示"按鈕時,Label1、Label2分別顯示30,10。程序代碼:Private Sub Command1_Click() Dim x, y, t As Integer答案:xyt x = 10 y = 30 If x < y Then t = _ x = _ y = _ End If Label1.Caption = Str(x) Labe
6、l2.Caption = Str(y)End Sub188:某公司每年的銷售收入均比前一年增長10個百分點,按此速度,需要多少年可以實現(xiàn)銷售收入翻兩番(即4倍)的目標。填空完成程序,使得當單擊窗體后,在窗體上輸出問題答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '設(shè)s為所求年數(shù),定義為整型,結(jié)果由窗體輸出 i = 1答案:I<4I*(1+0.1)s+1答案:I<4I*(1+0.1)s=s+1 s = 0Do While _ i =_ s=_ Loop Print "s=" sEn
7、d Sub(新)190.打開"考生目錄VB190工程1.vbp" 進行以下操作后并保存!(49套)填空完成程序,使得當單擊"計算5!"按鈕后,Text1顯示5!的值。Private Sub Command1_Click()答案:15a*Ii Dim a As Integer Dim i As Integer a = _ For i = 2 To _ a = _ Next _ Text1.Text = Str(a)End Sub答案:60014001300193:使得單擊"畫圖"按鈕后,在窗體上畫出如圖兩條相互垂直的線段,其中,線段a一
8、端的坐標是(600,1300),長度為1600,b是a 的中垂線,長度為1000 (提供的樣圖與程序畫出的圖形可能不完全相同)。Private Sub Command1_Click() Line (_, 1300)-(2200, 1300) Line (1400, 300)-(_,_)End Sub196:填空完成程序,打印如右圖所示的圖案 (注釋區(qū)別開)。'*'*'*'*'*Private Sub Form_Click() Dim i As Integer '定義i為整型變量 Dim j As Integer '定義j為整型變量答案:a
9、bs(i)print str;i Dim str As String For i = -2 To 2 str = "" For j = 1 To 3 - _ str = str & "*" Next j _ Print '換行 Next _End Sub223:輸出以下圖形:*Private Sub Form_Click()Dim i As Integer '定義i為整型變量答案:abs(i)print “*”;iDim j As Integer '定義j為整型變量For i = -2 To 2 For j = 1 To
10、3 - _ _ Next j Print '換行Next _End Sub604:填空完成程序,編程計算1-1/2+1/3-1/4+.+1/99-1/100,單擊窗體后,在窗體上顯示結(jié)果。注:請不要更改源程序結(jié)構(gòu),刪除(1)、(2)、(3),并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim s As Single Dim i As Integer答案:0100s-1/i s = (1) For i = 1 To (2) Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else s = (3) End I
11、f Next i Print "s=" sEnd Sub607:填空完成程序,使得單擊"顯示"按鈕后,隨機產(chǎn)生10個屬于區(qū)間0,100)的自然數(shù),并保存于數(shù)組a中。然后在窗體上顯示這10個數(shù)的平均值。注:學生運算結(jié)果有可能跟樣圖中數(shù)值不一致。注:請不要更改源程序結(jié)構(gòu),刪除(1)、(2),并在對應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls答案:9s+a(i) s = 0 Randomize For i =
12、 0 To (1) Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = (2) Next i Print "這10個自然數(shù)的平均值=" s / 10End Sub609:填空完成程序,左鍵單擊窗體時打印下面所示的圖案。' *' *' *' *注:請不要更改原程序結(jié)構(gòu),刪除(1)、(2),并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim i As Integer答案:4print Dim j As Integer For i = (
13、1) To 1 Step -1 For j = 1 To i Step 1 Print "*" Next j (2) Next iEnd Sub610:填空完成程序,使得單擊"顯示"按鈕后,顯示下面的圖形:'''''''注:請不要更改原程序結(jié)構(gòu),刪除(1)、(2),并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim i As Integer '定義i為整型變量答案:ij Dim j As Integer '定義j為整型變量 For i = 1
14、To 6 Step 1 For j = 1 To (1) Step 1 Print "" Next (2) Print Next iEnd Sub612:填空完成程序,使得單擊"顯示"按鈕后,在窗體上顯示如圖99乘法表。注:請不要更改源程序結(jié)構(gòu),刪除(1)、(2)、(3),并在對應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim i As Integer答案:9I*j;print Dim j As Integer For i = 1 To (1) Step 1 Print " " For j = 1
15、 To 9 Print (2) Print vbTab; Next j (3) Next iEnd Sub(新)869:打開“考生文件夾869工程1.vbp”,完善程序并保存。實現(xiàn)功能:單擊按鈕后打印下面所示的圖案。(第一行的第一個“”從第1列開始輸出)Private Sub Command1_Click()答案:39” Dim i, j As Integer For i = To 1 Step -1 Print Tab(4 - i); For j = 1 To Print ; Next j Print Next iEnd Sub(新)870:打開“考生文件夾870工程1.vbp”,完善程序并
16、保存。實現(xiàn)功能:小明忘記了自己一個word文檔的打開密碼,只記得是一個4位數(shù)的數(shù)字密碼65,但知道該數(shù)能夠被69整除,也能被95整除。請你完善程序,幫他找出這個密碼。答案:6995anext aPrivate Sub Command1_Click() Dim a As Long For a = 6005 To Step 10 If (a Mod 69 = 0) And (a Mod 95 = 0) Then Print End If End Sub(新)872:打開“考生文件夾872工程1.vbp”,完善程序并保存。實現(xiàn)功能:用遞歸法求5!+6!+7!的值。Public Function Fa
17、c(a As Long) As IntegerIf a = 1 Then Fac = 答案:1fac6Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Long S = Fac(5) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub(新)873:打開“考生文件夾873工程1.vbp”,完善程序并保存。實現(xiàn)功能:當單擊“顯示最小的數(shù)”按鈕后,隨機產(chǎn)生5個屬于區(qū)間0,100的自然數(shù),并保存于數(shù)組a中,然后在窗體上顯示這5個數(shù)中的最小值。(注:學生運算結(jié)果有可能跟樣圖中數(shù)值不一致)Private Sub Command1_Click() Dim a
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2合肥2024年煙囪拆除工程售后服務(wù)合同
- 2024量子通信系統(tǒng)建設(shè)與服務(wù)合同
- 2024電子商務(wù)支付與安全概述
- 專業(yè)保安服務(wù)協(xié)議模板2024年適用版B版
- 標準合同某餐飲企業(yè)與某冷藏設(shè)備供應(yīng)商之間的采購合同(04版)
- 三方合作型企業(yè)2024年度投資運營協(xié)議一
- 2024木地板采購合同范本
- 2024網(wǎng)絡(luò)安全公司與政府機構(gòu)之間的技術(shù)服務(wù)合同
- 2024年:公寓買賣合同樣本
- 2024年網(wǎng)絡(luò)安全防護系統(tǒng)搭建合同
- HAPS系統(tǒng)實現(xiàn)協(xié)同仿真驗證-基礎(chǔ)電子
- 歐洲地下車庫誘導通風系統(tǒng)設(shè)計手冊
- 現(xiàn)代文答題技巧課件2023年中考語文二輪復習
- YS/T 673-2013還原鈷粉
- TY/T 3001-2006中國青少年兒童 手腕骨成熟度及評價方法
- GB/T 32545-2016鐵礦石產(chǎn)品等級的劃分
- 福建省地方標準《先張法預應(yīng)力混凝土管樁基礎(chǔ)技術(shù)規(guī)程》DBJ13-2023
- 危險作業(yè)監(jiān)護人員培訓
- 職業(yè)病防治企業(yè)臺賬樣本
- 最新MARSI-醫(yī)用黏膠相關(guān)皮膚損傷課件
- 工程開工報審表范本
評論
0/150
提交評論