2010VB上机.docVIP

2010VB上机 1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。 Option Base 1 Dim a() As Integer Dim i As Integer, j As Integer Private Sub Command1_Click() Picture1.Cls ReDim a(20) As Integer Randomize For i = 1 To 20 a(i) = Int(Rnd * （ 99 – 10 + 1 ）+ 10) Next i Picture1.Print 初始化数组元素为： For i = 1 To 20 Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub Command2_Click() For i = 1 To 10 j = a(i): a(i) = a(21 - i): a(21 - i) = j Next i Picture1.Print 互换后数组元素为： For i = 1 To 20 Picture1.Print a(i); Next i Picture1.Print End Sub 2．从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中” 注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除； 2）能实现多次删除 Option Explicit Option Base 1 Dim i As Integer, j As Integer, n As Integer, msg As String Dim a() As Integer Private Sub Command1_Click() Randomize n = 10 ReDim a(n) As Integer For i = 1 To n a(i) = Val(Int(Rnd * 89 + 10)) Next i Picture1.Cls Picture1.Print 生成数组为： For i = 1 To n Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub Command2_Click() Dim t As Integer, f As Boolean f = True msg = 请输入删除的元素 + Chr(13) + 输入1则退出 t = InputBox(msg, 删除的元素, 1) If t = 1 Then Exit Sub For i = n To 1 Step -1 If a(i) = t Then f = False For j = i To n - 1 a(j) = a(j + 1) Next j n = n - 1 End If Next i If f Then MsgBox 该数不在数组中, vbCritical + vbOKOnly, Title: Exit Sub ReDim Preserve a(n) As Integer Picture1.Print 删除元素后数组为： For i = 1 To n Picture1.Print a(i); Next i Picture1.Print End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。 注意：要求利用动态数组，能够实现多次插入 Option Explicit Option Base 1 Dim i As Integer, j As Integer, n As Integer Dim a() As Integer Private Sub Command1_Click() Dim t As Integer Randomize n = 10 ReDim a(n) As Integer For i = 1 To n a(i) = Val(Int(Rnd * 89 + 10)) Next i 排序 For i = 1 To n -