vb程序設(shè)計(jì)強(qiáng)化復(fù)習(xí)主題講座(1)-文庫(kù)吧資料
2025-01-18 23:32本頁(yè)面
【正文】 39。 Next i 主題五：兩列已排序的數(shù)合并 Private Sub Form_Click() Dim x(5) As Integer, y(5) As Integer, z(10) As Integer x(1) = 18: x(2) = 16: x(3) = 14: x(4) = 13: x(5) = 11 y(1) = 29: y(2) = 27: y(3) = 25: y(4) = 22: y(5) = 20 i = 1: j = 1: k = 1 While i = 5 And j = 5 If x(i) = y(j) Then z(k) = x(i)： i = i + 1 Else z(k) = y(j)： j = j + 1 End If k = k + 1 Wend If i 5 Then For m = j To 5 z(k) = y(m)： k = k + 1 Next m Else For m = i To 5 z(k) = x(m)： k = k + 1 Next m End If For k = 1 To 10 Print z(k) Next k End Sub 主題六：刪除數(shù)列中的指定的數(shù)據(jù) Public Sub Del() 39。輸出插入后數(shù)組 x(i)。請(qǐng)?jiān)跈M線上填入必要的內(nèi)容。 x 重新組合的字符串 。字符排序 For j=4 If c(i)c(j) Then Temp=c(i) C(i)=c(j) C(j)=temp End If Next j Next I 39。字符串長(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。重新組合的字符串 Dim c() As String 39。 Public Sub sortchar() Dim x As String 39。 If i Mod 10 = 0 Then Print Next i End Sub 求一維數(shù)組 X中的最大值 ,及 所在下標(biāo) Private Sub Form_Click() Dim x(10) As Integer,k as integer,max as integer for i=1 to 10 x(i)=inputbox(“”) next i Max = x(1) For i = 2 To 10 If x(i) Max Then Max = x(i) Next i Print Max End Sub 主題二：最大數(shù)、最小數(shù)、及所在下標(biāo) 求二維數(shù)組 X中的最大值 ,及 所在下標(biāo) Private Sub Form_Click() Dim x(2, 3) As Integer,m%,n% x(1, 1) = 8: x(1, 2) = 3: x(1, 3) = 1: x(2, 1) = 6: x(2, 2) = 4: x(2, 3) = 13 Max = x(1, 1) : _______________________ For i = _ To 2 For j = _ To 3 If x(i, j) Max Then Max = x(i, j) ___________ Next j, i Print Max End Sub ?求二維數(shù)組 X中主對(duì)角線上的最大值 Private Sub Form_click() Dim
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1