VisualBasic程序设计上机考试试题及答案.docVIP

1. 某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。 Option Explicit Dim a(1 To 20) As Integer, i As Integer, j As Integer, t As Integer Private Sub Form_Load() Show Print 原始数组是： Randomize For i = 1 To 20 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print Print 现在数组是： For i = 1 To 10 j = 21 - i t = a(i): a(i) = a(j): a(j) = t Next i For i = 1 To 20 Print a(i); Next i End Sub 2. 从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中” 注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除； 2）能实现多次删除 Option Explicit Dim a() As Integer, i As Integer, j As Integer, n As Integer, k As Integer, m As Integer Dim f As Boolean Private Sub Command1_Click() n = InputBox(查找的数是：, 请输入) i = 0: f = False Do If a(i) = n Then j = i: f = True For k = j To UBound(a) - 1 a(k) = a(k + 1) Next k ReDim Preserve a(UBound(a) - 1) i = i - 1 End If i = i + 1 Loop While (i = UBound(a)) If f = False Then MsgBox n 不在该数组中 Else Print 删除 n 后的数组是: For i = 0 To UBound(a) Print a(i); Next i End If Print End Sub Private Sub Form_Load() Show ReDim a(9) As Integer m = 1 Print 原来数组为： For i = 0 To 9 a(i) = InputBox(请输入第 m 个数：) Print a(i); m = m + 1 Next i Print End Sub 3. 数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。 注意：要求利用动态数组，能够实现多次插入 Option Explicit Dim a() As Variant, i As Integer, n As Integer, j As Integer, b As Integer, c As Integer Private Sub Command1_Click() Print ReDim Preserve a(c + 1) n = InputBox(插入的数是, 请输入) For i = 0 To c b = n - a(i) If b = 0 Then For j = c + 1 To i + 1 Step -1 a(j) = a(j - 1) Next j a(i) = n Exit For End If Next i If i = c + 1 Then a(c + 1) = n For i = 0 To c + 1 Print a(i); Next i c = UBound(a) End Sub Private Sub Form_Load() Show ReDim a(9) a = Array(3, 6, 9, 11, 15, 19, 33, 44, 56, 67) c = UBound(a) For i = 0 To c Print a(i); Next i End Sub 4. 6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。 如： 歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分 Opt