浙江計(jì)算機(jī)等級考試二級vb上機(jī)練習(xí)題-資料下載頁
2025-03-25 05:37本頁面
【正文】 eger Dim i As Integer, j As Integer For i = 1 To 10 a(i)= 1 Next i For i = 1 To 9 2 If a(i) a(j) Then 3 End If Next j a(i) Next i 4 End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub。該模塊中的PrintArray過程是用于打印一個5行5列的數(shù)字方陣，并使兩對角線上元素均為1，其余均為2。要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行。 程序如下：Public Sub PrintArray() 39。下面程序用于打印5行5列的數(shù)字方陣 39。使兩對角線上元素均為1，其余均為2 39。要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行 39。只要修改標(biāo)出出錯位置的下面那一條語句 Dim a(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 39。******** 錯誤1 ********* If i j Or i 6 j Then a(i, j) = 2 Else a(i, j) = 1 End If 39。******** 錯誤2 ********* a(i, j) + Space(3)。 Next j 39。******* 錯誤3 ******* Next iEnd Sub。該模塊中的Combination過程是用于計(jì)算在m個數(shù)據(jù)中取出n個數(shù)據(jù)的排列組合值，計(jì)算公式為Cmn=m!/(n!*(mn)!)。!。 程序如下：Public Sub Combination() Dim m As Integer Dim n As Integer Dim Cmn As Long Do m = Val(InputBox(請輸入一個整數(shù)m)) n = Val(InputBox(請輸入一個整數(shù)n(n=m))) 39。****** 錯誤1 ****** Loop While m = n 39。必須保證輸入的兩個數(shù)m=n 39。****** 錯誤2 ****** Cmn = nFactor(m) / nFactor(n) * nFactor(m n) 排列組合數(shù)為。 CmnEnd SubPublic Function nFactor(ByVal n As Integer) As Double Dim i As Integer Dim temp As Double temp = 1 For i = 1 To n temp = temp * i Next i 39。******錯誤 3 ****** nFactor(n) = temp 39。****** 錯誤4 ******End Sub。該模塊中的FindMax過程是用于查找一批數(shù)據(jù)中的最大數(shù)，并打印出最大數(shù)的值及最大數(shù)在數(shù)組中的下標(biāo)值，但不完整，請?jiān)跈M線上填入必要的內(nèi)容，使其完整。[1500]之間的隨機(jī)整數(shù)并5個一行打印出來。 程序如下：Dim a(30) As IntegerPublic Sub FindMax() Dim Position As Integer 39。最大數(shù)在數(shù)組中的下標(biāo) Dim max As Integer 39。最大數(shù) Dim i As Integer GenerateData max = 1 Position = 2 For i = 2 To 30 If a(i) max Then max = 3 Position = 4 End If Next i 最大值= amp。 Str(max) 最大值的下標(biāo)= amp。 Str(Position)End SubPublic Sub GenerateData() Dim i As Integer For i = 1 To 30 a(i) = Int(500 * Rnd() + 1) a(i), If i Mod 5 = 0 Then Next iEnd Sub。該模塊中的 Prime 過程是求出100到200之間所有的素?cái)?shù)，并打印出來，但不完整，請?jiān)跈M線上填入必要的內(nèi)容，使其完整。程序如下：Public Sub prime() 39。打印出100到200之間所有的素?cái)?shù)，并統(tǒng)計(jì)素?cái)?shù)的個數(shù) Dim i As Integer Dim j As Integer Dim k As Integer Dim t As Integer 39。統(tǒng)計(jì)素?cái)?shù)的個數(shù) Dim b As Boolean For i = 100 To 200 b = True 1 j = Int(Sqr(i)) Do While k = j And b If i Mod k = 0 Then 2 End If 3 Loop if 4 then t = t + 1 i End If Next i t=。 tEnd Sub。該模塊中的Transpose過程用于產(chǎn)生一個轉(zhuǎn)置矩陣（所謂轉(zhuǎn)置是指將二維數(shù)組中所有行和對應(yīng)列的元素進(jìn)行交換），但不完整，請?jiān)跈M線上填入必要的內(nèi)容，使其完整。 程序如下：Public Sub Transpose() 39。產(chǎn)生一個66的轉(zhuǎn)置矩陣，將二維數(shù)組中所有行和對應(yīng)列的元素進(jìn)行交換 Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer 原始數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) a(i, j)。 Next j Next i For i = 2 To 6 For j = 1 To 1 2 Next j Next i 轉(zhuǎn)置后數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 3 Next j Next iEnd SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub。該模塊中的JiSuan過程是用于計(jì)算1(1/2)+(1/3)...+(1/99)(1/100)的值并打印出來。程序如下：Public Sub JiSuan() 39。計(jì)算1(1/2)+(1/3)...+(1/99)(1/100)的值并打印出來 Dim i As Integer 39。****** 錯誤1 ******* Dim k As Integer Dim s As Single s = 0 39。******* 錯誤2 ******* For i = 1 To 100 k = 1 / i s = s + k 39。******* 錯誤3 ******* k = 1 / i + 1 s = s + k Next i s=。 s歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進(jìn)步的動力。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時候離光明最近？那就是你覺得黑暗太黑的時候。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。
公司管理相關(guān)推薦
鄂ICP備17016276號-1