vb 二十道上机题 答案.docVIP

上机操作练习题2011-11 某数组有20个元素，其值为随机产生的两位整数。要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。使用Picture控件输出数组原数组值和对换后各元素值。 Private Sub Command1_Click() Dim a(20), i As Integer, b As Integer Picture1.Print 原数组为： Picture1.Print For i = 1 To 20 随机产生两位数的整数 a(i) = Int(Rnd * 90 + 10) Picture1.Print a(i); Next i Picture1.Print For i = 1 To 10 元素互换 b = a(i): a(i) = a(21 - i): a(21 - i) = b Next i Picture1.Print 互换后的数组为： Picture1.Print For i = 1 To 20 互换后元素输出 Picture1.Print a(i); Next i End Sub 2．从数组中删除一个数。先定义一个一维数组，大小、数组元素值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中” 注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除； 2）能实现多次删除 Option Explicit Option Base 1 Dim a() Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Integer, c As Integer n = Text1.Text For i = 1 To UBound(a) If n = a(i) Then For j = i To UBound(a) - 1 a(j) = a(j + 1) Next j i = i - 1 c = c + 1 End If Next i Print If c = 0 Then MsgBox (您输入的数不在该数组中) Else ReDim Preserve a(UBound(a) - c) Print 删除元素后的数组为： For i = 1 To UBound(a) Print a(i); Next i End If End Sub 赋值 Private Sub Form_Load() Dim i As Integer a = Array(10, 20, 30, 30, 40, 50, 60, 70, 80, 90) Print 原数组为： For i = 1 To UBound(a) Print a(i); Next i End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数x插入到数组中，插入后数组仍有序。 注意：要求利用动态数组，能够实现多次插入 Private Sub Command1_Click() Dim b As Integer, c As Integer, i As Integer, j As Integer, k As Integer j = 1 定义j=1 Option Explicit Option Base 1 Dim a() Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, find As Boolean n = InputBox(请输入数n：) Print Print 插入元素后的数组为 Print For i = 1 To UBo