上机试题与答案Word下载.docx

1、 & m & 个数：） m = m + 1n = 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 - 1End If i = i + 1Loop While （i = UBound（a）If flag = False Then MsgBox n &不在该数组中Else删除 n &后的数组是: For i = 0 To UBo

2、und（a）3数组a中存放着升序排列的数据，使用array赋值，将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

3、（k） singer（i）.fenshu（k） = t End If 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 - mi

4、n） / （n - 2） b（i） = ave For j = i + 1 To n If b（i） b（j） Then t = b（i）: b（i） = b（j）: b（j） = t选手的得分由高到低为： 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

5、 And Asc（Mid（a, i, 1） 96 And Asc（Mid（a, i, 1） 123 Then 64 And Asc（Mid（a, i, 1） 91 Then p = p + 17随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。Dim a（5, 5） As IntegerDim s As IntegerFor i = 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

6、, j） s = s + a（i, j） vbCrLf & vbCrLfList1.AddItem （s）8编写一个函数，能将字母按下列规律译成密码：AZ azBY by即第1个字母与第26个字母互换，第i个字母与第（26-i+1）个字母互换。在文本框中任意输入一个字符串，调用该函数将密码显示在另一个文本框中。Dim s1 As Strings1 = Text1.Text Text2.Text = convert（s1）Private Function convert（s1 As String） As StringFor i = 1 To Len（s1） If Asc（Mid（s1, i, 1

7、） 64 Then convert = convert & Chr（91 - Asc（Mid（s1, i, 1） + 64） ElseIf Asc（Mid（s1, i, 1） 96 Then Chr（123 - Asc（Mid（s1, i, 1） + 96）End Function9编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。Text1 = : Text2 = Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then Text2.SetFo

8、cusPrivate Sub Text2_KeyPress（KeyAscii As Integer）Dim m As Integer, n As Integer, r As Integer, t As Integer, xClsIf KeyAscii = 13 Then m = Text1.Text n = Text2.Text n Then t = m: m = n: n = t r = m Mod n While r 0 n = r: Wend Print 0 Or n x = MsgBox（请输入正数, vbCritical + vbOKCancel） If x = vbCancel T

9、hen End Text1 = Text1.SetFocus Print Text1.Text &和 Text2.Text &的最大公约数是：; n10. 编写计算阶乘的Function过程，利用ex的下列公式计算e（直到最后一项小于10-6为止）的近似值。ex1+x/1!+x2/2!+x3/3!+xn/n! Option ExplicitDim x As Integer, n As Integer, s As Doublex = InputBox（请输入一个数：n = 1: s = 1 s = s + x n / （jiecheng（n）Loop Until x n / （jiecheng（

10、n） i Then a（i, j） = 0 If i = j Then a（i, j） = a（i - 1, j） + a（i - 1, j - 1） If a（i, j） = 0 Then Exit For Picture1.Print Tab（g）; a（i, j）; g = g + 10 Picture1.PrintPrivate Sub Picture1_Click（）12编写一个过程，输出以下菱形图形： A BBB CCCCC DDDDDDD主程序输入一个奇数（3），调用过程在窗体上输入图形。Dim n As IntegerIf n Mod 2 = 0 Or n = 3 Then错误

11、 Call draw（n）Sub draw（n As Integer）For i = 1 To （n + 1） / 2 s = Chr（64 + i） Print Tab（41 - i + 1）; String（2 * （i - 1） + 1, s）c = 1For j = （n - 1） / 2 To 1 Step （-1） c = c + 1 s = Chr（64 + i - c） Print Tab（41 - i + c + 1）; String（2 * （j - 1） + 1, s）13编写一个将十进制转换为二进制字符串输出的函数。调用函数计算用户输入一个十进制数，在文本框中输出二进制

12、值。输入数据为负数，应该将符号位输出如 -13 结果 -1101Dim a（）Private Function convert（y） As StringDim i As Integeri = 1ReDim a（i）x = Abs（y）Do While x ReDim Preserve a（i） a（i） = x Mod 2 If a（i） = 1 Then x = （x - 1） / 2 x = x / 2Loop ReDim Preserve a（UBound（a）If y a（j） ThenPrivate Sub Command2_Click（） For j = 1 To n - i If

13、 a（j） a（j + 1） Then t = a（j）: a（j） = a（j + 1）: a（j + 1） = t15编写程序，在窗体上输出3100之间的所有素数。要求每行显示4个数。Dim f As Boolean, c As IntegerFor i = 3 To 100 f = False For j = 2 To Int（Sqr（i） If i Mod j = 0 Then f = True: If f = False Then Print i; If c Mod 4 = 0 Then16把文本框1、文本框2指定的范围内的所有素数添加到列表框中，并选中列表框数据中最后一位是9的所有数据（设定selected属性），把它们的和值输出。Public a As IntegerPrivate Function fact（n） As Long If n = 1 Then fact = 1 ElseIf n = 2 Then fact = 1 Else: fact = fact（n - 2） + fact（n - 1）请输入nPrint fact（n）Private Function s（n） As Longs1 = 1: s2 = 1For i = 1 To n - 2 s = s1 + s2: t = s2: s2 = s: s1