vb程序設計強化復習主題講座(1)(編輯修改稿)
2025-02-08 23:32 本頁面
【文章內(nèi)容簡介】 合的字符串 Dim c() As String 39。拆分出的字符 Dim L as Integer 39。字符串長度 Dim i as Integer , j As Integer, temp As String X=InputBox(輸入一個字符串 ) L=1 2 As String For I=1 to L 39。字符串拆分 C(i)=3 Next I For I=1 to L1 39。字符排序 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。排序后的字符組成新字符串 y= For I=1 to L 5 Next I 原始字符串 。 x 重新組合的字符串 。 y End Sub 主題四：在已排序的數(shù)列中插入數(shù) 以下程序完成下列功能： 有已從小到大排序的數(shù)組 x，從鍵盤輸入一個正數(shù)，找到該數(shù)在原來 9個數(shù)中的插入點，使得該數(shù)插入數(shù)組后，數(shù)組的 10個數(shù)依然是從小到大的順序。請在橫線上填入必要的內(nèi)容。 ins = Val(InputBox(ins=)) pos = 1 For i = 1 To 9 2 pos = i + 1 Next i For j = 9 To pos Step 1 3 Next j 4 For i = 1 To 10 39。輸出插入后數(shù)組 x(i)。 。 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。該過程從一個含有 10個數(shù)組元素的數(shù)組中刪除一個指定的數(shù)據(jù)，若該數(shù)據(jù)不存在，則給出提示。 39。從鍵盤上輸入一個數(shù)，將該數(shù)從數(shù)組中刪除 Randomize Dim x As Integer Dim a(10) As Integer Dim i As Integer, pos As Integer ……….. x = Val(InputBox(輸入刪除的數(shù) x=)) pos = 0 For i = 1 To 10 If x = a(i) Then 1 Exit For
醫(yī)療健康相關推薦
鄂ICP備17016276號-1