1、 a（j） = t For i = 1 To 20 If i Mod 10 = 0 Then Print Next iEnd Sub2从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除ReDim a（9） As Integerm = 1原来数组为：For i = 0 To 9 a（i） = InputBox（请输入第 & m & 个数：） m = m + 1n = InputBox（查找的数是：i = 0: fl
2、ag = 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 - 1End If i = i + 1Loop While （i = UBound（a）If flag = False Then MsgBox n &不在该数组中Else删除 n &后的数组是: For i = 0 To UBound（a） Print a（i）; Next i3数组a中存放着升序排列的数据，使用array赋
3、值，将inputbox输入的新数插入到数组中，插入后数组仍有序。要求利用动态数组，能够实现多次插入n = 8: ReDim a（n）a = Array（5, 15, 23, 52, 68, 88, 90, 99）n = n + 1: ReDim Preserve a（n）m = InputBox（请输入要插入的数据:For i = 1 To n - 1 If m singer（i）.fenshu（k） Then t = singer（i）.fenshu（j） singer（i）.fenshu（j） = singer（i）.fenshu（k） singer（i）.fenshu（k） = t En
4、d If Next Next For j = 2 To 5 singer（i）.score = singer（i）.score + singer（i）.fenshu（j） singer（i）.pingjun = singer（i）.score / 4 For i = 1 To 3 For j = i To 4 If singer（i）.score max Then max = a（i, j） If a（i, j） min Then min = a（i, j） sum = sum + a（i, j） Next j ave = （sum - max - min） / （n - 2） b（i） =
5、ave For j = i + 1 To n If b（i） b（j） Then t = b（i）: b（i） = b（j）: b（j） = t End If Next j选手的得分由高到低为： Print b（i）;5编写函数求一元二次方程ax2+bx+c=0的解。要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As SingleDim s As Singlea = InputBox（请输入ab = InputBox（请输入bc = InputBox（请输入cs = b 2 - 4 * a * cIf s 47 And A
6、sc（Mid（a, i, 1） 96 And Asc（Mid（a, i, 1） 123 Then 64 And Asc（Mid（a, i, 1） 91 Then p = p + 1 End If7随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。Dim a（5, 5） As IntegerDim s As IntegerFor i = 1 To 5 For j = 1 To 5 If i = j Or i = 6 - j Then a（i, j） = 1 Else a（i, j） = Int（Rnd * 1000） Text1.Text = Text1.Text & a（i, j） s = s + a（i, j） Text1.Text = Text1.Text & vbCrLf & vbCrLfList1.AddItem （s）8编写一个函数，能将字母按下列规律译成密码：AZ azBY by即第1个字母与第26个字母互换，第i个字母与第（26-i+1）个字母互换。在文本框中任意输入一个字符串，调用该函数将密码显示在另一个文本框中。Dim s1 As Strings1 = Text1.Text Text2.Text = co
