vb程序設(shè)計(jì)強(qiáng)化復(fù)習(xí)主題講座(1)-文庫(kù)吧在線文庫(kù)
【正文】 錯(cuò)誤 2 ********* a(i, j) + Space(3)。該過程從一個(gè)含有 10個(gè)數(shù)組元素的數(shù)組中刪除一個(gè)指定的數(shù)據(jù)，若該數(shù)據(jù)不存在，則給出提示。排序后的字符組成新字符串 y= For I=1 to L 5 Next I 原始字符串 。例如輸入a4fkze5，重新組合的字符串為 45aefkz。 。 private Sub form_click() Dim a(1 To 100) As Integer Dim x(0 To 9) As Integer Dim i As Integer, p As Integer For i = 1 To 100 a(i)=int(rnd*100) Next i For i = 1 To 100 p = a(i) mod 10 _______________ Next i 統(tǒng)計(jì)結(jié)果 For i = 0 To 9 Print 個(gè)位數(shù)為 + Str(i) + 共 + Str(x(i)) + 個(gè) Next i End Sub ? 練習(xí)題 ： 產(chǎn)生 100個(gè)互不相等的三位正整數(shù) 獲得三位整數(shù) n=Int(Rnd*900)+100 解題思路 每產(chǎn)生一個(gè)數(shù)，就到已有的數(shù)中查找是否存在該數(shù)，若不存在，就把該數(shù)放入數(shù)組中，若已存在，則該數(shù)不放入數(shù)組中，重新產(chǎn)生一個(gè)數(shù)，直到 100個(gè)數(shù)滿為止。字符串長(zhǎng)度 Dim i as Integer , j As Integer, temp As String X=InputBox(輸入一個(gè)字符串 ) L=1 2 As String For I=1 to L 39。輸出插入后數(shù)組 x(i)。下面程序用于打印 5行 5列的數(shù)字方陣 ,使兩對(duì)角線上元素均為 1，其余均為 2 39。 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 i End Sub Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 將一個(gè)二維數(shù)組行和列元素交換，存到另一個(gè)二維數(shù)組中 Dim a(1 To 2, 1 To 3) AS Integer Dim b(1 To 3, 1 To 2) AS Integer Dim i, j AS Integer For i = 1 To 2 For j = 1 To 3 a(i, j)=InputBox(請(qǐng)輸入第 amp。給數(shù)組 a賦初值 For i = 1 To n + 1 a(i) = 0 Next i 39。 練習(xí) 產(chǎn)生 100個(gè)互不相等的三位正整數(shù) 用隨機(jī)函數(shù)產(chǎn)生三位數(shù)的偶數(shù) 100個(gè)，再將這 100個(gè)數(shù)從小到大排序 ,按每行 10個(gè)輸出； 編制程序，用隨機(jī)函數(shù)產(chǎn)生 20個(gè)兩位數(shù)的整數(shù)，存于 4行 5列的二維數(shù)組中，將數(shù)組按矩陣形式輸出到窗體，并求出其是最大元素及它的行、列坐標(biāo)。 39。 , amp。******** 錯(cuò)誤 1 ********* If i j Or i 6 j Then a(i, j) = 2 Else a(i, j) = 1 39。 Next i 主題五：兩列已排序的
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1