VB程序填空題.doc

1、下列程序的功能是從鍵盤上任意輸入一個(gè)數(shù)，判斷這個(gè)數(shù)是正數(shù)、負(fù)數(shù)、還是零，并輸出判斷結(jié)果。程序中有三處錯(cuò)誤，請更正。程序如下：Private Sub Command1_Click() Dim a As Single Dim py As String a=Val(Text1) If a0 Then py=正數(shù) If a=0 Then py=零 If a= a(i) Then List1.AddItem Str(a(i) _ End If i = i + 1LoopEnd Sub12、有一個(gè)單擊按紐過程，其作用是產(chǎn)生50個(gè)60100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個(gè)數(shù)，并將這些數(shù)輸出。請補(bǔ)充下面的程序：Private Sub command1_click() Dim X, N As Integer Dim counter As Integer counter 用來保存能被6整除余2的數(shù)據(jù)的個(gè)數(shù) Randomize Timer 隨機(jī)數(shù)初始化，以時(shí)鐘為隨機(jī)數(shù)種子 For N = 1 To 50 X = _+ int(Rnd * 40) 隨機(jī)產(chǎn)生50個(gè)60100的隨機(jī)數(shù) If X Mod 6 = 2 Then List1.AddItem Str(X) _ End If Next NPrint counterEnd Sub13、下面是一個(gè)檢測密碼的程序（界面如圖74，其功能是：當(dāng)用戶輸入的密碼正確時(shí)，在窗體上顯示“歡迎您使用本系統(tǒng)”；否則顯示“密碼錯(cuò)誤！請重新輸入密碼：”。正確的密碼是0123456789。 仔細(xì)閱讀程序，請問程序中劃線處的語句應(yīng)為_。Private Sub Form_Load() Text1.Text = : Text1.MaxLength = 10 Text1.PasswordChar = * 表示密碼用*顯示 Label2.Caption = : Label2.Alignment = 2End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label2.Caption = If KeyAscii = 13 Then KeyAscii=13表示是回車鍵 If _ Then Label2.Caption = 歡迎您使用本系統(tǒng)! Else Label2.Caption = _ 以下兩語句的作用是使程序能自動選中錯(cuò)誤的密碼，使用戶可直接重新輸入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End If End Sub14、猴子吃桃問題。猴子第一天摘下若干個(gè)桃子，當(dāng)即吃了一半，還不過癮，又多吃了一個(gè)。第二天早晨又將剩下的桃子吃了一半，又多吃了一個(gè)。以后每天早上都吃了前一天剩下的一半零一個(gè)。到第十天早上再想吃時(shí)，見只剩一個(gè)桃子了。問：第一天猴子共摘了多少個(gè)桃子。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。Visual Basic 程序如下： Sub Command1_Click( ) Dim i, s As Integer _ For i=1 to 9 _ Next i Text1.Text = Str(s)End Sub15、下面程序（界面如圖7-3）的功能是：將0到255之間的十進(jìn)制整數(shù)轉(zhuǎn)換為二進(jìn)制整數(shù)的表示形式。在如圖中上面的文本框（Text1）中輸入一個(gè)0到255之間的十進(jìn)制整數(shù)，單擊“轉(zhuǎn)換”按鈕，該十進(jìn)制整數(shù)的二進(jìn)制形式會顯示在下面的文本框（Text2）中。為了實(shí)現(xiàn)這一目標(biāo)，程序中劃線處的語句應(yīng)為_.Private Sub Command1_Click()Dim a As IntegerDim s As StringDim i As IntegerDim c(1 To 8) As Integera =val( Text1.Text)If a 255 Then Text2.Text = 輸入數(shù)據(jù)錯(cuò)誤，請重新輸入！Else For i = 1 To 8 c(i) = a Mod 2 a = _ s = Str(c(i) + s Next i Text2.Text = sEnd IfEnd Sub16、個(gè)位數(shù)字是6，且能被3整除的3位數(shù)共有多少個(gè)？下面程序用于解決這一問題，在劃線處填入合適的語句或表達(dá)式，設(shè)共有n個(gè)這樣的數(shù)，Visual Basic程序如下：Sub Command1_Click()Dim i As Integer, n As Integerm = 106n = _Do While m n；(2) m除以n得余數(shù)r；(3) 若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)；(4) mn，nr，再重復(fù)執(zhí)行(2)。例如: 求 m=14 ,n=6 的最大公約數(shù). m n r14 6 26 2 0請根據(jù)以上思路補(bǔ)充下面的程序代碼：Private Sub Command1_Click()m = InputBox(m=)n = InputBox(n=)If m n Then t = m: m = n: n = tr = _Do While (r 0)m = nn = rr = m Mod nLoopPrint 最大公約數(shù)=, nEnd Sub18、以下程序的功能是：從鍵盤上輸入若干個(gè)學(xué)生的考試分?jǐn)?shù)，統(tǒng)計(jì)并輸出 最高分?jǐn)?shù)和最低分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，輸出結(jié)果，請將程序補(bǔ)充完 整。 Private Sub Form_Click() Dim x, amax, amin As Single x = InputBox(Enter a score) amax = x amin = x Do While _ If x amax Then amax = x End If If _ Then amin = x End If x = InputBox(Enter a score) Loop Labe1.Text= amax Label2.Text=_ End Sub 19、從鍵盤鍵入一個(gè)整數(shù)x，將x插入到一列有序數(shù)據(jù)：5，3，4，12，20，45，70中，并使數(shù)據(jù)序列仍保持有序，試求出x應(yīng)插入的位置。為了實(shí)現(xiàn)這一目標(biāo)，請參照右邊的流程圖，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。Dim a(1 To 8) As IntegerDim n, i, j, x As IntegerPrivate Sub Command1_Click()x = Val(Text2.Text)If x a(n) Then_Elsei = 1Do While x a(i)_LoopEnd IfText3.Text = Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenn = n + 1a(n) = Val(Text1.Text)List1.AddItem Str(a(n)Text1.Text = : Text1.SetFocusEnd IfEnd Sub20、輸入100個(gè)數(shù)，統(tǒng)計(jì)其中負(fù)數(shù)、零及正數(shù)的個(gè)數(shù)。 Private Sub Form_Click() Dim i , fs, zs, ns As Integer fs, ns, zs分別代表負(fù)數(shù)、零及正數(shù)的個(gè)數(shù) Dim k As Double For i = 1 To 100 k = Val(InputBox(輸入一個(gè)數(shù)據(jù)) If k 0 Then _ ElseIf k ji，可以避免重復(fù)尋找 sum = 0 For i = 1 To 100 For j = 1 To 100 For k = j To 100 If _ Then List1.AddItem (Str(i) + Str(j) + Str(k) sum = sum + 1 統(tǒng)計(jì)個(gè)數(shù) End If Next k Next j Next i Label1.Caption = 組數(shù)： + Str(sum)End Sub 23、隨機(jī)產(chǎn)生10個(gè)1100之間的正整數(shù)，按從小到大的次序排序并輸出。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)：Sub Command1_Click()Const n = 10Dim i As Integer, j As Integer, t As IntegerDim a(1 To 100) As IntegerFor i = 1 To 10a(i) = 100 * Rnd(1) + iNext iFor i = 1 To n - 1 For j = i + 1 To n If _ Then k = a(i): a(i) = a(j): a(j) = k End IfNext jNext iFor i = 1 To 10 List1.AddItem Str(a(i)Next iEnd Sub24、有30個(gè)人，其中有男人、女人和小孩。他們在一家飯館里花去500元。已知，每個(gè)男人花30元，每個(gè)女人花20元，每個(gè)小孩花10元。問：男人、女人、小孩各為多少人。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語句或表達(dá)式，完成程序設(shè)計(jì)。Private Sub Command1_Click()Dim man As Integer, woman As Integer, child As IntegerFor man = 1 To 15 For woman = 1 To 23 child = _ s = 30 * man + 20 * woman + 10 * child If _ Then List1.AddItem Str(man) + + Str(woman) + + Str(child) End If Next woman Next manEnd Sub25、在我國古代孫子算經(jīng)中曾經(jīng)提出這樣一個(gè)問題。原文是這樣的：“今有物，不知其數(shù)，三三數(shù)之，剩二；五五數(shù)之，剩三；七七數(shù)之，剩二；問物幾何？”試用枚舉法來解決這一問題?，F(xiàn)分析如下，所尋找之?dāng)?shù)為滿足如下條件的自然數(shù)：以3除余2，以5除余3，以7除余2，程序?qū)淖匀粩?shù)1開始依次尋找，逐一判斷某一自然數(shù)是否滿足全部條件，直至在指定范圍內(nèi)找到滿足條件的所有自然數(shù)。程序代碼如下，請補(bǔ)充完整： Private Sub Command1_Click() Dim sum As Integer sum用來統(tǒng)計(jì)符合條件的自然數(shù)個(gè)數(shù) Dim n, max As Integer List1.Clear sum = 0 max = _ 指定查找范圍的最大自然數(shù)，在text1框中輸入 n = 0 Do While n = max n = n + 1 從自然數(shù)1開始不斷往上尋找 If _ Then List1.AddItem Str(n) 找到后在list1中顯示結(jié)果 _ End If Loop List1.AddItem (共計(jì) + Str(sum) + 個(gè)) End Sub26、下面程序若用于計(jì)算s=1!+2!+3!+4!+5!+6!7!+8!+9!+10!，則程序中劃線處的語句應(yīng)為_ 。 s = 0: t = 1For i = 1 To 10 _ s = s + tNext i27、用VB編寫一個(gè)計(jì)算S11/3!+1/5!1/7!+（1）n-1/（2n1）！ 的程序，程序代碼如下，請補(bǔ)充完整： Private Sub Command1_Click() Dim i, n As Integer Dim j, s As Double j = 1 s = 1 n = Val(Text1.Text) For i = 2 To n j = _ 計(jì)算1/(2*i-1)! s = _ 累加通項(xiàng)式 Next i Text2.Text = Str(s) 結(jié)果顯示到文本框text2中End Sub28、設(shè)有n盞燈，放在一排，從1n依次順序編號。有n個(gè)人也從1到n依次編號。第1個(gè)人（1號）將燈全部關(guān)閉，第2個(gè)人（2號）將凡是2的倍數(shù)的燈打開，第3個(gè)人（3號）將凡是3的倍數(shù)的燈做相反處理（該燈如為打開的，則將它關(guān)閉，如關(guān)閉的則將它打開），以后的人都和3號一樣，將凡是自己號數(shù)倍數(shù)的燈做相反處理。試計(jì)算，當(dāng)n個(gè)人操作后，哪幾盞燈是亮的。（提示：亮燈為0，關(guān)閉為1）為了實(shí)現(xiàn)這一目標(biāo)，完善下面的