中国海洋大学vb期末考试二十题及答案.docVIP

1．某数组有20个元素，其值为随机产生的两位整数。要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。使用Picture控件输出数组原数组值和对换后各元素值。 Dim a(1 To 20) As Integer, i As Integer, j As Integer, p As Integer, n As Integer Private Sub Form_Load() Show For i = 1 To 20 Step 1 Randomize a(i) = Int(Rnd * 90 + 9) Next i Picture1.Print 原数组为： cbcrlf For i = 1 To 20 Step 1 Picture1.Print a(i) ; n = n + 1 If n Mod 10 = 0 Then Picture1.Print vbCrLf Next i Picture1.Print 新数组为： cbcrlf For i = 1 To 10 j = 21 - i p = a(i): a(i) = a(j): a(j) = p Next i For i = 1 To 20 Picture1.Print a(i) ; n = n + 1 If n Mod 10 = 0 Then Picture1.Print vbCrLf Next i End Sub 2．从数组中删除一个数。先定义一个一维数组，大小、数组元素值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中” 注意：1如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除 Option Explicit Dim a() As Integer, i As Integer, n As Integer, j As Integer, m As Integer, x As Integer, k As Integer, b As Boolean, c As Integer Private Sub Form_Load() Show ReDim a(10) As Integer Print 原数组为： For i = 0 To 9 Step 1 a(i) = Val(InputBox(请输入第 (i + 1) 个元素, 输入数据, 5)) Print a(i) ; n = n + 1 If n Mod 5 = 0 Then Print Next i m = InputBox(请输入要删除的数据, , 6) i = 0: b = False Do While (i = UBound(a)) If a(i) = m Then j = i: b = True For k = j To UBound(a) - 1 a(k) = a(k + 1) Next k c = UBound(a) ReDim Preserve a(c - 1) i = i - 1 End If i = i + 1 Loop If b = False Then MsgBox m 不在数组中 Else Print 删除 m 后的数组是: If UBound(a) = 0 Then Print Else For i = 0 To UBound(a) Print a(i) ; x = x + 1 If x Mod 5 = 0 Then Print Next i End If End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数x插入到数组中，插入后数组仍有序。 注意：要求利用动态数组，能够实现多次插入 Dim a() As Variant, p As Integer, t As Integer, i As Integer, j As Integer, m As Integer, x As Integer Private Sub command1_Click() ReDim Preserve a(UBound(a) + 1) m = InputBox(请输入要插入的数据, 插入数据, 28) If m = a(0) Then For j = UBound(a) To 1 Step -1 a(j) = a(j - 1) Next j a(0) = m End If If m = a(UBound(a)