中国海洋大学VB上机试题Word格式.docx

1、 j = 21 - i t = a（i）: a（i） = a（j）: a（j） = t For i = 1 To 20 Next iEnd Sub2从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除Dim a（） As IntegerPrivate Sub Command1_Click（）Dim i As Integer, j As Integer, n As Integer, k As Integer, m A

2、s Integer, flag As Booleann = InputBox（查找的数是：）i = 0: flag = FalseDo If a（i） = n Then j = i: flag = 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 + 1Loop While （i a（j） Then Next j Print a（n） End Sub Private Sub Command2_Click（）n = n + 1R

3、eDim Preserve a（n）m = InputBox（输入一个正整数插入; m;后的数组为 If a（1） m Then For i = 2 To n - 2 If a（i） = m Then j = i: Exit Fora（j + 1） = mPrint a（i）;If m = a（10） Then a（n） = m For i = 1 To nDim a（） As Integer, i As Integer, k As Integer, m As Integer, n As Integer, j As Integer, t As Integerm = Val（InputBox（请

4、输入要插入的数据） a（i） Then Exit ForFor k = n To i - 1 Step -1a（k） = a（k - 1）Next ka（k） = mn = 8ReDim a（n）a（1） = 5: a（2） = 10: a（3） = 15: a（4） = 20: a（5） = 30: a（6） = 90: a（7） = 108: a（8） = 102546个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如： 歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70

5、分Private Type cj 自定义类型 na As String * 3fs As IntegerEnd TypeDim a（4, 6） As SingleDim i As Integer, j As IntegerFor i = 1 To 4 For j = 1 To 6 a（i, j） = InputBox（请第 j &位评委给第 i &位选手打分Dim i As Integer, j As Integer, b（4） As cjDim max As Single, sum As Single, min As Single, ave As Single, t As cj max =

6、a（i, 1）: sum = 0 min = a（i, 1）: ave = 0 If a（i, j） max Then max = a（i, j） If a（i, j） min Then min = a（i, j） sum = sum + a（i, j） ave = （sum - max - min） / 4b（i）.na = 歌手 i: b（i）.fs = aveFor i = 1 To 3 For j = i + 1 To 4 If b（i）.fs 0 Then X1 = （-1） * b + （b 2 - 4 * a * c） 0.5） / （2 * a） X2 = （-1） * b - （b 2 - 4 * a * c） 0.5） / （2 * a） getresult = x1= CStr（X1） & Chr（9） &x2= cstr（X2） X = （-1） * b / （2 * a） If b 2 = 4 * a * c Thenx= CStr（X） Else y = （4 * a * c - b 2） 0.5 CStr（X） &+ CStr（y） &i-End Function6. 任意输入一组字符，统计出大写字母多少