vb上机17题.docVIP

1.插入元素 Option Base 1 Dim a() Dim n As Integer Private Sub Command1_Click() Dim i, j, m As Integer m = InputBox(请输入要插入的元素) n = n + 1 ReDim Preserve a(n) For i = 1 To n - 1 If m a(i) Then Exit For End If Next For j = n To i + 1 Step -1 a(j) = a(j - 1) Next a(i) = m Print 插入元素 m 后的数组为： For i = 1 To n Print a(i); Next Print End Sub Private Sub Form_Load() Dim i As Integer, j%, k%, t% ReDim a(10) Show For i = 1 To 10 a(i) = Int(Rnd * 199 + 1) Next n = UBound(a) For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next Next Print 插入前数组： For k = 1 To n Print a(k); Next Print End Sub 2.二进制 Private Sub Command1_Click() Dim n% n = Text1.Text Text2.Text = tran(n) End Sub Private Function tran(n As Integer) As String Dim m As String, r%, flag As Boolean flag = False If n 0 Then n = Abs(n) flag = True End If Do While n = 1 r = n Mod 2 n = n \ 2 m = Str(r) m Loop If flag = True Then m = - m End If tran = m End Function 3.加密 Option Explicit Private Sub Command1_Click() Dim x As String x = Text1.Text Text2.Text = jiami(x) End Sub Function jiami(m As String) As String Dim i As Integer, x As String For i = 1 To Len(m) x = Mid(m, i, 1) If Asc(x) = 65 And Asc(x) = 90 Then jiami = jiami Chr(155 - Asc(x)) ElseIf Asc(x) = 97 And Asc(x) = 122 Then jiami = jiami Chr(219 - Asc(x)) End If Next End Function 4.矩阵 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(5, 5) Dim i As Integer, j As Integer Dim s1 As Integer, s2 As Integer, s3 As Integer, s4 As Integer, s As Integer, m As String For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 9 + 1) End If Next Next For i = 1 To 5 m = For j = 1 To 5 m = m a(i, j) Next List1.AddItem m Next For i = 1 To 5 s1 = s1 + a(i, 1) Next For i = 1 To 5 s2 = s2 + a(i, 5) Next For j = 2 To 4 s3 = s3 + a(1, j) Next For j = 2 To 4 s4 = s4 + a(5, j) Next s = s1 + s2 + s3 + s4 List1.A