




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、Vb專項(xiàng)練習(xí)第一套題目1、打開“考生文件夾96工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:假設(shè)有一個(gè)5位數(shù)密碼。只記得密碼為678,其中百位和十位的數(shù)字記不清了,但知道該密碼能夠被78整除,也能被67整除。請完善算法幫忙找出這個(gè)密碼。 67008 x Next x''請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() Dim x As Long For x = To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print End If En
2、d Sub2、“考生文件夾51工程1.vbp”是采用“窮舉法”求出所有水仙花數(shù)的程序,請完善程序并保存。說明:若一個(gè)三位數(shù)abc,滿足:abc=a3+b3+c3,則稱abc為水仙花數(shù)。如三位數(shù)153滿足:13+53+33=1+125+27=153,則153是水仙花數(shù)。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 999 i mod 10 end ifPrivate Sub Command1_Click() Dim i, a, b As Integer For i = 100 To a = i 100 b = (i - a * 100) 10 c = If a *
3、 a * a + b * b * b + c * c * c = i Then Print CStr(i) Next iEnd Sub3、打開“考生文件夾12工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:在Text1中輸入一個(gè)代表秒數(shù)的整數(shù)后,單擊“計(jì)算”按鈕后,在Label1、Label2、Label3中顯示對應(yīng)的小時(shí)、分鐘和秒數(shù)。如在Text1中輸入“3672”,Label1、Label2、Label3中分別顯示“1”、“1”、“12”,即1小時(shí)1分12秒。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 text1.text ss3600 60Private S
4、ub Command1_Click() Dim h, m, s, ss As Integer ss = Val() h = m = (ss - h * 3600) 60 s = (ss - h * 3600) Mod Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub4、打開“考生文件夾50工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:在文本框text1、text2、text3中輸入3根小木棒的長度(假設(shè)都是整數(shù)),判斷能否用它們搭成一個(gè)三角形,并把結(jié)果輸出到文本框text4中。操作要
5、求:(1)在窗體中加載“CommandButton”控件,命名為“Command1”并設(shè)置該控件“Caption”屬性值為“判斷”;(2)完善程序,執(zhí)行command1_click事件,判斷出結(jié)果,如果能搭成三角形則在文本框text4中輸出“OK”,否則輸出“NO”。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 integer end ifPrivate Sub Command1_Click() Dim a, b, c As Let a = Val(Text1.Text) Let b = Val(Text2.Text) Let c = Val(Text3.Tex
6、t) If (a + b > c) And (a + c > b) And (b + c > a) Then Let Text4.Text = "OK" Else Let Text4.Text = "NO" End Sub5、打開“考生文件夾40工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:將一張100元面值的人民幣換成若干5元、1元、5角面值的人民幣,但要求100元換成的零錢共100張,且要求每種面值不少于1張,問5元、1元、5角各多少張,請輸出每種可能的組合。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善
7、Private Sub Command1_Click() Dim Wuyuan As Integer 100 yiyuan end if Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To Wujiao = 100 - Wuyuan - If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" &
8、 Yiyuan & ",Wujiao=" & Wujiao Next Yiyuan Next Wuyuan End SubVb專項(xiàng)練習(xí)第二套1、打開“考生文件夾716”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作后并保存。某同學(xué)欲設(shè)計(jì)一個(gè)“水電費(fèi)管理系統(tǒng)”,其功能如下:水按每噸4元收取,電按每度0.5元收取,輸入用水量和用電量,輸出應(yīng)付款。請打開工程1.vbp文件,按如下要求完成下列操作。(1)請?jiān)诖绑w中添加兩個(gè)控件,使程序運(yùn)行時(shí),用其輸入耗水量和耗電量。(2)請把下列代碼補(bǔ)充完整 Text1.text Text2.text 4*a+0.5*b sPriv
9、ate Sub Command1_Click()Dim a As Single, b As Single, s As Singlea = Val()b = Val()s = Label4.Caption = Str() + "元"End Sub2、打開“考生文件夾723”文件夾中的文件:“工程1.vbp” 進(jìn)行以下操作后并保存。中國郵政的EMS國際快遞業(yè)務(wù):中國寄往澳大利亞的快遞收費(fèi)標(biāo)準(zhǔn)是:首個(gè)0.5公斤收費(fèi)210元,其余的重量按55元/千克計(jì)算,(總重不足0.5千克按210元收費(fèi))下面是自動(dòng)計(jì)算寄費(fèi)的程序,請完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'
10、;中國郵政的EMS國際快遞業(yè)務(wù):中國寄往澳大利亞的快遞收費(fèi)標(biāo)準(zhǔn)是:'首個(gè)0.5公斤收費(fèi)210元,其余的重量按55元/每千克計(jì)算,(總重不足'0.5千克按210元收費(fèi))下面是自動(dòng)計(jì)算寄費(fèi)的程序,請你完善程序。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() x end if text2.text Dim x As Single, y As Single y = 0 = Val(Text1.Text) If x > 0.5 Then y = 210 + (x - 0.5) * 55 Else
11、y = 210 = Str(y)End Sub3、打開“考生文件夾91工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:隨機(jī)生成100個(gè)整數(shù),統(tǒng)計(jì)偶數(shù)的個(gè)數(shù)。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Dim a(100) As Integer total=0 total=total+1 a(i)Private Sub Command1_Click() Dim total As Integer For i = 1 To 100 If a(i) Mod 2 = 0 Then End If Next i Print CStr(total)End SubPrivate Su
12、b Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub4、打開文件“考生文件夾725工程1.vbp”, 進(jìn)行以下操作后保存。這是打印九九乘法表的程序,請你完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'這是打印乘法九九表的程序,請完善程序。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Form_click() 9 i next iDim i As Integer, j As IntegerFor i = 1 To For j = 1
13、To Print Tab(j - 1) * 12);Print j; "*" i; "=" i * j;Next jPrintEnd Sub5、打開“考生文件夾4工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:用窮舉法找出所有的3位水仙花數(shù)的程序并保存。3位水仙花數(shù)是指一個(gè)三位數(shù),其各個(gè)數(shù)位上的數(shù)字之立方和為該數(shù)。例如:153=13+53+33。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Inte
14、ger, c As Integer 100 100 next i For i = 100 To 999 a = i b = (i - a * ) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i End SubVb專項(xiàng)練習(xí)第三套1、打開“考生文件夾731”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作后并保存。本題是青蛙躍井問題:井底蛙欲沿濕滑井壁上躍至地面,若井深h尺,蛙上躍3尺下滑1尺,請給出井深h值,計(jì)算蛙上躍次數(shù)n。請你完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'本題是青蛙躍井問題:井底蛙欲沿濕滑井壁'
15、上躍至地面,若井深h尺,蛙上躍3尺下滑1尺,'請給出井深h值,計(jì)算蛙上躍次數(shù)n。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click()Dim h As Single, n As Integer text1.text 1 nh = Val()If h > 3 Then If h Mod 2 = 0 Then n = h / 2 Else n = (h - 1) / 2 End IfElse n = End IfText2.Text = End Sub2、打開“考生文件夾729”文件夾中的文件:“工程1.v
16、bp”進(jìn)行以下操作后并保存。運(yùn)行程序能夠顯示數(shù)字金字塔,請完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'運(yùn)行程序能夠顯示數(shù)字金字塔,請完善程序。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 i print Print Tab(10 - i); For j = 1 To Print Str(i); Next j Next iEnd Sub3、打開“考生文件夾733”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作
17、后并保存。本題是在文本框Text1中輸入一位十六進(jìn)制數(shù)碼(若是字母要大寫),運(yùn)行程序后能譯出它表示的十進(jìn)制數(shù)的程序。請你完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'本題是在text1中輸入一位十六進(jìn)制數(shù)碼(若是字母要大寫),'運(yùn)行程序后能譯出它表示的十進(jìn)制數(shù)的程序。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() text1.text end select m Dim m As String m = Select Case m Case "A" m = &quo
18、t;10" Case "B" m = "11" Case "C" m = "12" Case "D" m = "13" Case "E" m = "14" Case "F" m = "15" Text2.Text = End Sub4、打開“考生文件夾732”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作后并保存。本題是從字符串中找出所有大寫字母,并把找出的大寫字母顯示在text2中。請
19、你完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張)'本題是從一串只含有字母或數(shù)字的字符串中找出所有大寫字母,'并把找出的大寫字母顯示在text2中。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 text1.text n yPrivate Sub Command1_Click() Dim x As String, y As String Dim i As Integer, n As Integer x = n = Len(x) For i = 1 To If Asc(Mid(x, i, 1) < 91 And Asc(Mid(x, i
20、, 1) > 64 Then y = y + Mid(x, i, 1) End If Next i Text2.Text = End Sub5、打開“考生文件夾730”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作后并保存。運(yùn)行程序能夠顯示數(shù)字金字塔,請完善程序。完成后按“Ctrl+W”保存程序。(詳見樣張) '運(yùn)行程序能夠顯示數(shù)字金字塔,請完善程序。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 j j next jPrivate Sub Form_Click()Dim i As Integer, j As IntegerFor = 1 To 5
21、Print Tab(10 - j); For i = 1 To Print Str(i); Next i Print End SubVb專項(xiàng)練習(xí)第4套1、打開“考生文件夾735”文件夾中的文件:“工程1.vbp” 進(jìn)行以下操作后并保存。完善程序,使之在運(yùn)行程序后,能在窗體上顯示樣張所示的圖形。完成后按“Ctrl+W”保存程序。(詳見樣張)'完善程序,使之在運(yùn)行程序后,能在窗體上顯示樣張所顯示的圖形。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 200 255,0,0 600Private Sub Form_Click()Line (600, 200)-(
22、1500, ), RGB(255, 0, 0)Line (1500, 200)-(1500, 1000), RGB(0, 0, 255)Line (1500, 1000)-(600, 1000), RGB()Line (, 1000)-(600, 200), RGB(0, 0, 255)End Sub2、打開“考生文件夾36工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:給出三角形的三邊邊長a,b,c(輸入保證能構(gòu)成三角形,無需判斷正確性),輸出三角形面積。三角形面積計(jì)算公式:'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Cl
23、ick() a sqr s Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single = Val(InputBox("請輸入邊長a的值:") b = Val(InputBox("請輸入邊長b的值:") c = Val(InputBox("請輸入邊長c的值:") q = (a + b + c) / 2 s = (q * (q - a) * (q - b) * (q - c) Print End Sub3、打開“考生文件夾60工程1.vb
24、p”,完善程序并保存。實(shí)現(xiàn)功能:從文本框t1中輸入一個(gè)圓的半徑,計(jì)算圓的面積,把結(jié)果輸出到文本框t2中。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() dim t1.text s Const pi = 3.14 r, s as Single r = Val() s = pi * r * r T2.Text = End Sub4、打開“考生文件夾32工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:從鍵盤上輸入一個(gè)三位數(shù),然后將它反向輸出。例如輸入“123”,輸出結(jié)果為“321”。'請不要更改源程序的結(jié)構(gòu),刪
25、除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer text1.text b text2.text Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b)End Sub5、打開“考生文件夾736”文件夾中的文件:“工程1.vbp”進(jìn)行以下操作后并保存
26、。該題求丟番圖年齡問題:丟番圖生命的1/6是童年,又過了生命的1/12長胡子,再過了生命的1/7結(jié)婚,婚后5年生兒子,兒子活了父親年齡的一半死亡,之后丟番圖又過了4年死亡。求丟番圖年齡。完善程序,使之在運(yùn)行程序后,能在text1中顯示丟番圖年齡。完成后按“Ctrl+W”保存程序。(詳見樣張) '該題是求丟番圖年齡問題:丟番圖生命的1/6是童年,'又過了1/12長胡子,再過了的1/7結(jié)婚,婚后5年生兒子,'兒子活了父親年齡的一半死亡,之后丟番圖又過了4年死亡。'求丟番圖年齡。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private
27、 Sub Command1_Click() n while text1.textDim n As Integern = 0Do = n + 1Loop n < n / 6 + n / 12 + n / 7 + 5 + n / 2 + 4 = Str(n)End SubVb專項(xiàng)練習(xí)第五套1、打開“考生文件夾178工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:用遞歸法求3!+5!+7!的值。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Public Function Fac(a As Integer) As IntegerIf a = 1 Then 1 Fac 5
28、 Fac = Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub2、打開“考生文件夾122工程1.vbp”,完善程序并保存。王曉珊家距離學(xué)校S1公里,某天她和李明各自同時(shí)從家里步行出發(fā)上學(xué),王曉珊步行V1公里/小時(shí),李明步行V2公里/小時(shí),結(jié)果他們同時(shí)到達(dá)學(xué)校。實(shí)現(xiàn)功能:輸入S1,V1,V2,輸出李明家與學(xué)校之間的距離S2。'請不
29、要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 s1/v1 v2 s2Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = Val(InputBox("請輸入王曉珊家離學(xué)校的距離:") V1 = Val(InputBox("請輸入王曉珊步行速度:") V2 = Val(InputBox("請輸入李明步行速度:") T = S2 = * T Print
30、End Sub3、打開“考生文件夾43工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:用遞歸法求斐波那契數(shù)列1,1,2,3,5,8,第10項(xiàng)的值。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Public Function Fib(n As Integer) As Integer 1 end if 10 If (n = 1) Or (n = 2) Then Fib = Else Fib = Fib(n - 1) + Fib(n - 2) End FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fib(
31、) Print "S=" & CStr(S)End Sub4、打開“考生文件夾175工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:用遞歸法求1+2+3+100的值。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Public Function S(n As Integer) As Integer 1 n 100 If n = 1 Then S = Else S = + S(n - 1) End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Pr
32、int "Sum=" & CStr(Sum)End Sub5、打開“考生文件夾68工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:在文本框Text1和Text2中分別輸入兩個(gè)整數(shù),單擊“交換”按鈕后,兩個(gè)文本框中的數(shù)字進(jìn)行交換。''請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() b t a b Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t =
33、 a a = b = Text1.Text = Text2.Text = End SubVb專項(xiàng)練習(xí)第六套1、打開"考生文件夾30工程1.vbp",完善程序并保存。實(shí)現(xiàn)功能:'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 x y end ifPrivate Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox("請輸入x的值") If x < 0 Then = x + 5 * a Else y = x - 2 * b
34、 Print "y=" CStr(y)End Sub2、打開“考生文件夾596工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:當(dāng)在文本框Text1中輸入圓的半徑后,單擊“計(jì)算”按鈕,計(jì)算圓的周長,并在文本框Text2中顯示出來。'填空完成程序,使得當(dāng)在Text1中輸入圓的半徑后,單擊"計(jì)算"按鈕,計(jì)算圓的周長,并在Text2中顯示出來。'注:請不要更改原程序結(jié)構(gòu),刪除、,并在對應(yīng)的位置填寫正確代碼Private Sub Command1_Click() text1.text r*2 text2.text Const pi = 3.14
35、9;定義符號常量 Dim c As Single '定義周長c為單精度型 Dim r As Single '定義半徑r為單精度型 r = Val() c = pi * = CStr(c) End Sub3、打開“考生文件夾611工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:當(dāng)單擊“顯示”按鈕后,Text1、Text2分別顯示交換后的變量x、y值。'填空完成程序,使得單擊"顯示"按鈕時(shí),Text1、Text2分別顯示變量x、y的值。'注:請不要更改原程序結(jié)構(gòu),刪除、,并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click(
36、) Dim x, y As Integer x = 10 y = 100 If x < y Then x t x '以下三條語句交換x,y的值 t = x = y y = End If Text1.Text = Text2.Text = CStr(y) End Sub4、打開“考生文件夾41工程1.vbp”,完善程序并保存。某超市為了對蘋果進(jìn)行促銷,規(guī)定購買2公斤以上可以在原價(jià)每公斤6.80元的基礎(chǔ)上打8折。實(shí)現(xiàn)功能:輸入購買的蘋果公斤數(shù),輸出應(yīng)付款。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click(
37、) Dim x As Single Dim cost As Single x*6.8 end if cost x = Val(InputBox("請輸入蘋果公斤數(shù):") If x <= 2 Then cost = Else cost = x * 6.8 * 0.8 Print End Sub5、打開“考生文件夾20工程1.vbp”,完善程序并保存。某超市蘋果價(jià)格每斤4元,購買10斤以上(包括10斤)將享受8折優(yōu)惠。實(shí)現(xiàn)功能:使得在Text1中輸入重量并單擊“計(jì)算”按鈕后,在Label1中顯示對應(yīng)的價(jià)格。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,
38、使程序完善Private Sub Command1_Click() x>=10 x*0.8 s Dim x, s As Single x = Val(Text1.Text) If Then s = 4 * Else s = 4 * x End If Label1.Caption = CStr()End SubVb專項(xiàng)練習(xí)第七套1、打開“考生文件夾614工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:當(dāng)單擊“顯示”按鈕后,隨機(jī)產(chǎn)生10個(gè)屬于區(qū)間0,100)的自然數(shù),并保存于數(shù)組a中,然后在窗體上顯示這10個(gè)數(shù)中的最大值。(注:學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致)'(注:學(xué)生運(yùn)算結(jié)果有
39、可能跟樣圖中數(shù)值不一致。)'注:請不要更改原程序結(jié)構(gòu),刪除、,并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer 9 a(i) max Me.Cls Print Randomize For i = 0 To Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max < a(i) Then max = End If Next i Print
40、 "這10個(gè)自然數(shù)中的最大值=" CStr() End Sub2、打開“考生文件夾15工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:單擊按鈕后打印出下面所示的圖案。(第一行的第一個(gè)“*”從第5列開始輸出) '請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() 4 4 “*” Dim i, j As Integer For i = 1 To Print Tab(6 - i); For j = 1 To Print ; Next j Print Next iEnd Sub3、打開“考生文件夾598工程
41、1.vbp”,完善程序并保存。舉重比賽中,60公斤級選手體重不能超過60公斤。實(shí)現(xiàn)功能:填空完成程序,使得在文本框Text1中輸入一個(gè)大于60的數(shù)時(shí),標(biāo)簽Label1顯示“超重!不能參賽!”;當(dāng)輸入一個(gè)小于等于60的數(shù)時(shí),標(biāo)簽Label1顯示“合格,可以參賽!”。'舉重比賽中,60公斤級選手體重不能超過60公斤。'填空完成程序,使得在文本Text1中輸入一個(gè)大于60的數(shù)時(shí),標(biāo)簽Label1顯示"超重!不能參賽!";'當(dāng)輸入一個(gè)小于等于60的數(shù)時(shí),標(biāo)簽Label1顯示"合格,可以參賽!"。'注:請不要更改原程序結(jié)構(gòu),刪除、,
42、并在對應(yīng)位置填寫正確的代碼Private Sub Command1_Click() Dim t As Single '定義變量t,值由文本框Text1讀入 text1.text t>60 end if t = Val() If Then Label1.Caption = "超重!不能參賽!" Else Label1.Caption = "合格,可以參賽!" End Sub4、打開“考生文件夾108工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:判斷從文本框Text1中輸入的數(shù)據(jù),如果該數(shù)據(jù)滿足條件:除以3余2,除以5余3,除以7余4,則輸出在窗
43、體上。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() x = Val(Text1.Text) x mod 5 x mod 7=4 x If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End IfEnd Sub5、打開“考生文件夾181工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:從鍵盤輸入10個(gè)學(xué)生的測試成績,輸出最高分和最低分。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Comman
44、d1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox("請輸入10個(gè)學(xué)生的成績", "成績輸入") Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) > max Then max = cj(i) cj(i)<min cj(i) End If If Then min = End If Next i
45、 Print CStr(max), CStr(min)End SubVb專項(xiàng)練習(xí)第八套1、打開“考生文件夾117工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:當(dāng)單擊窗體后,計(jì)算224262N<1500的N的最大值。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Form_Click() Dim s As Integer n n+20 n-20 Dim N As Integer N = 22 s = 0 Do s = s + N = Loop Until s > 1500 Print "N=" & CStr
46、()End Sub2、打開“考生文件夾9工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:輸入10個(gè)數(shù),存放在數(shù)組中,并按輸入的逆序輸出在窗體上。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() s(i) -1 s(i) Dim s(9) As Single For i = 0 To 9 = Val(InputBox("請輸入一個(gè)數(shù)") Next i For i = 9 To 0 Step Print Next iEnd Sub3、打開“考生文件夾87工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:通
47、過鍵盤輸入10個(gè)數(shù),統(tǒng)計(jì)這10個(gè)數(shù)的和。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善 to 10 s=s+x sPrivate Sub Command1_Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 x = Val(InputBox("NO." & i) Print CStr(x) Next i Print "total:" & 4、打開“考生文件夾116工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:計(jì)算1+3+5+9
48、9的值。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() Dim i As Integer i i+2 s Dim s As Integer i = 1 s = 0 Do While i <= 99 s = s + i = Loop Print "s=" & End Sub5、打開“考生文件夾80工程1.vbp”,完善程序并保存。一群猴子摘了一堆桃子,每天吃掉當(dāng)天剩余桃子數(shù)的一半,每次又忍不住多吃一個(gè),這樣到了第十天就剩下一個(gè)桃子可以吃了。實(shí)現(xiàn)功能:計(jì)算猴子最初一共摘了多少個(gè)桃
49、子。'請不要更改源程序的結(jié)構(gòu),刪除原題里的、。填寫正確的代碼,使程序完善Private Sub Command1_Click() 1 9 (tz+1) tz Dim tz As Integer 'tz是桃子數(shù) Dim ts As Integer 'ts是天數(shù) tz = For ts = 1 To tz = * 2 Next ts Print "最初共有桃子" & End SubVb專項(xiàng)練習(xí)第九套1、打開“考生文件夾601工程1.vbp”,完善程序并保存。實(shí)現(xiàn)功能:當(dāng)單擊窗體后,計(jì)算出1+2+3+N<500的N的最大值,并在文本框Text
50、1中顯示出來。 '填空完成程序,使得單擊窗體后,計(jì)算出1+2+3+N<500的N的最大值,并在文本框Text1中顯示出來。'注:請不要更改源程序結(jié)構(gòu),刪除、,并在對應(yīng)位置填寫正確的代碼Private Sub Form_Click() Dim s As Integer '變量s存放和 Dim n As Integer 0 0 S+n '為n賦初值 n = '為s賦初值 s = Do While s < 500 n = n + 1 s = Loop Text1.Text = CStr(n - 1)End Sub2、打開“考生文件夾183工程1.vbp”,完善程序并保存。
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025至2030中國男士襯衣行業(yè)發(fā)展分析及競爭格局與發(fā)展趨勢預(yù)測報(bào)告
- 2025至2030中國生姜產(chǎn)品行業(yè)市場占有率及投資前景評估規(guī)劃報(bào)告
- 2025至2030中國甑炭行業(yè)需求動(dòng)態(tài)及發(fā)展前景研究報(bào)告
- 點(diǎn)菜技巧培訓(xùn)
- 新人法律培訓(xùn)
- 商業(yè)成功背后的學(xué)生動(dòng)機(jī)分析
- 校園智慧體育設(shè)施的建設(shè)現(xiàn)狀及挑戰(zhàn)
- 情緒智力在教育心理學(xué)中的核心地位
- 醫(yī)療行業(yè)中的科技應(yīng)用與師資培訓(xùn)模式研究
- 商業(yè)環(huán)境下的教育創(chuàng)新與青少年運(yùn)動(dòng)培訓(xùn)的融合研究
- 智慧農(nóng)業(yè)項(xiàng)目建設(shè)方案
- 人工智能模擬題
- 2024年下半年江蘇南通啟東市部分事業(yè)單位選調(diào)工作人員14人易考易錯(cuò)模擬試題(共500題)試卷后附參考答案
- 教師資格考試小學(xué)美術(shù)面試試題及答案指導(dǎo)(2025年)
- 住家保姆合同協(xié)議書模板
- AI如何賦能藝術(shù)教育-筆記
- DB11T 485-2020 集中空調(diào)通風(fēng)系統(tǒng)衛(wèi)生管理規(guī)范
- 《人力資源管理》全套教學(xué)課件
- Unit 6 Craftsmanship Reading 教案-2023-2024學(xué)年中職英語高教版(2023修訂版)基礎(chǔ)模塊2
- 2023-2024學(xué)年山東省菏澤市東明縣八年級(下)期末數(shù)學(xué)試卷(含答案)
- 初高中物理銜接講座(初高中物理對比)
評論
0/150
提交評論