數(shù)據(jù)庫(kù)3錯(cuò)題集-資料下載頁(yè)
2025-03-25 02:56本頁(yè)面
【正文】 且能被3整除的3位數(shù)共有多少個(gè)？下面程序用于解決這一問(wèn)題，在劃線處填入合適的語(yǔ)句或表達(dá)式，設(shè)共有n個(gè)這樣的數(shù)，Visual Basic程序如下：Sub Command1_Click() Dim i As Integer, n As Integer m = 106 n = _______ Do While m = 996 If m Mod 3 = 0 And _______ Then n = n + 1 m = _______ Loop = nEnd Sub參考答案 第1空：0第2空：mm/10*10=6第3空：m+1猴子吃桃問(wèn)題。猴子第一天摘下若干個(gè)桃子，當(dāng)即吃了一半，還不過(guò)癮，又多吃了一個(gè)。第二天早晨又將剩下的桃子吃了一半，又多吃了一個(gè)。以后每天早上都吃了前一天剩下的一半零一個(gè)。到第十天早上再想吃時(shí)，見(jiàn)只剩一個(gè)桃子了。問(wèn)：第一天猴子共摘了多少個(gè)桃子。為了實(shí)現(xiàn)這一目標(biāo)，完善下面的VB程序，在劃線處填入合適的語(yǔ)句或表達(dá)式。Visual Basic 程序如下：Private Sub Command1_Click() Dim i, s As Intege_______ For i = 1 To 9 _______ Next i Text1 = sEnd Sub參考答案 第1空：s=1第2空：s=(s+1)*2完善以下VB程序，使其能輸出：12+34+56+...+99100的值。程序如下：Private Sub Command1_Click() s = _______ For i = 1 To _______ s = s + ((1) ^ ( _______)) * i Next i Print sEnd Sub參考答案 第1空：0第2空：100第3空：i1在數(shù)據(jù)組a中存放10個(gè)整數(shù)：10,30,13,5,92,70,87,45,4,56，下面的代碼實(shí)現(xiàn)求a數(shù)組元素的最大值，并使用信息提示框顯示，完成該操作。Private Sub Form_Click() Dim max As Integer Dim a(1 To 10) As Integer a(1) = 10: a(2) = 30: a(3) = 13 a(4_______ For i = 2 To 10 If _______ Then max = a(i) Next MsgBox a數(shù)組中的最大值為： amp。 _______End Sub參考答案 第1空：a(1)第2空：a(i)max第3空：max以下VB窗體添加了兩文本框TextText2，用于輸入N值和輸出N!值；兩個(gè)命令按鈕CommandCommand2用于計(jì)算N!值和清空文本框。有函數(shù)fact用于實(shí)現(xiàn)求N!。請(qǐng)給下面代碼中的劃線處填上適當(dāng)?shù)膬?nèi)容，以完成操作?！?對(duì)計(jì)算按鈕寫(xiě)代碼Private Sub Comma_______ ’調(diào)用函數(shù) Text2 = mEnd Sub’對(duì)“清空”按鈕寫(xiě)代碼Private Sub Command2_Click()_______ Else For k = 1 To n fact = _______ Next k End IfEnd Function參考答案 第1空：fact(n)第2空：Exit Function第3空：k*fact在VB中，以下程序?qū)?shí)現(xiàn)[1，10]的奇數(shù)平方和賦給x，偶數(shù)平方和賦給變量y，并輸出x與y的值。完成該程序。Private Sub Form_Click() Dim x As Integer, y As Integer Do While i = 10 If _______ Then _______ Loop Print _______ ’數(shù)據(jù)以“,”分隔End Sub參考答案 第1空：i Mod 2=1第2空：i=i+1第3空：y,x依照中華人民共和國(guó)《機(jī)動(dòng)車駕駛員駕車時(shí)血液中酒精含量規(guī)定》，；。以下程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒(méi)有違法。請(qǐng)?jiān)诔绦騽澗€處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，以補(bǔ)充完整。Private Sub Command1_Click() Dim x As Single x = Val(Text1) _______ Then = 你屬于醉酒駕車 ’標(biāo)簽Label1用于顯示違規(guī)信息 Else If x = Then = 你屬于酒后駕車 _______ = 恭喜你沒(méi)有違規(guī) End If End IfEnd Sub參考答案 第1空：x=1第2空：Else兔子繁殖問(wèn)題：第1個(gè)月買來(lái)1對(duì)兔子，兩個(gè)月后，這對(duì)兔子就會(huì)生1對(duì)小兔子，以后每個(gè)月都會(huì)生一對(duì)小兔子；而生下來(lái)的這對(duì)小兔子，兩個(gè)月后又會(huì)開(kāi)始生1對(duì)小兔子。依此類推，問(wèn)幾個(gè)月后，兔子將超過(guò)50對(duì)？分析兔子繁殖規(guī)律：第2個(gè)月為1對(duì)兔子，從第3個(gè)月開(kāi)始，以后每月兔子對(duì)數(shù)都是它相鄰的前面2個(gè)月的兔子對(duì)數(shù)之和。以下VB程序解決上述問(wèn)題，請(qǐng)?jiān)趧澗€處填入合適的語(yǔ)句或表達(dá)式，將程序補(bǔ)充完整。Private Sub Command1_Click() Dim a_______ a(n) = _______ Loop Print n amp。 個(gè)月后, 兔子數(shù)= amp。 a(n)End Sub參考答案 第1空：1+n第2空：a(n2)+a(n1)我國(guó)2007年初人口總數(shù)已達(dá)13億5千萬(wàn)。%，則從2007年起多少年后我國(guó)人口就會(huì)達(dá)到或超過(guò)15億。以下VB代碼解決上述問(wèn)題，在劃線處填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。Private Sub Command1_Click() Dim n As Integer, r As Single Dim p As Double r = / 100 p = n = _______ n = n + 1 _______ Text1 = nEnd Sub參考答案 第1空：p=(r+1)*p第2空：Loop下面VB程序的功能是：計(jì)算表達(dá)式1+1/3+1/5+…+1/99的值，并在文本框Text1中輸出該表達(dá)式的值。為了實(shí)現(xiàn)這一功能，程序中劃線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，以完善程序。Private Sub Command1_Click() Dim sum As Single, i As Integer sum = 0 For i = 1 To 99 Step _______ sum = _______ Next Text1 = sumEnd Sub參考答案 第1空：2第2空：1/i+sum下面的代碼段實(shí)現(xiàn)對(duì)鍵盤(pán)輸入的任意十個(gè)整數(shù)（存貯在a數(shù)組中），輸出其平均值。Dim i As Integer，sum As IntegerDim _______ As Integer ’ 定義數(shù)組aFor i=0amp。nbs_______Next iPrint _______ 參考答案 第1空：a(9)第2空：a(i)+sum第3空：sum/10假設(shè)有x、y、z三個(gè)數(shù)，現(xiàn)利用函數(shù)Max將x、y、z中較大的值輸出到窗體。函數(shù)Max求兩個(gè)數(shù)中大者。Private Sub Form_Click() x=3:y=5:z=1 m = Max( _______ ) m = Max(m, z) Print x,y,z中的最大值為。 _______End SubPrivate Function Max(x As Integer, y As Integer) As Integer If x y Then Max = x Else Max = _______ End IfEnd Function參考答案 第1空：y,x第2空：m第3空：y下面的代碼實(shí)現(xiàn)從1到N的求和。Private Sub Command1_Click() N= sum=0 for i=1 to _______ _______ Next iEnd Sub參考答案 第1空：Val(Text1)第2空：sum=i+sum47
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1