2022年2022年江西财大数据库课后习题答案 .pdf

《2022年2022年江西财大数据库课后习题答案 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年江西财大数据库课后习题答案 .pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 答案不一定正确，参考时一定要自己运行一下。(1)题 if 结构Public Sub Z_X_Y() Dim x, y, z As Double x = Val(InputBox( 请输入 x) y = Val(InputBox( 请输入 y) If x y Then z = x + y Debug.Print z ElseIf x = y Then z = x * y * Sgn(y) Debug.Print z ElseIf y 0 Then z = x / y Debug.Print z Else Debug.Print z 没有值 End If End Sub (1)题 case结构

2、Public Sub Z_X_Y2() Dim x, y, z, a As Double x = Val(InputBox( 请输入 x) y = Val(InputBox( 请输入 y) a = y - x Select Case a Case Is 0 z = x + y Debug.Print z Case 0 z = x * y * Sgn(y) Debug.Print z Case Else If y 0 Then z = x / y Debug.Print z Else Debug.Print z 没有值 End If End Select End Sub (2)题Public S

3、ub 一元二次方程 () Dim a, b, c, deta, x1, x2 As Double a = Val(InputBox( 请输入系数a) b = Val(InputBox( 请输入系数b) c = Val(InputBox( 请输入系数c) deta = b * b - 4 * a * c If deta = 1 And x = 6 Then Debug.Print 星期 & Str(x) Exit Do ElseIf x = -1 Then Exit Do Else MsgBox (输入数据错误 ) End If Loop End Sub 单循环嵌套单分支结构：4（6） （9）

4、（10） （14）(6)题Public Sub 整除 3 或 5() Dim i, n As Integer n = 0 For i = 100 To 200 Step 5 If i / 3 = Int(i / 3) Then n = n + 1 Debug.Print i End If Next Debug.Print 个数为 + Str(n) End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - 2 (4)题Pub

5、lic Sub 行李收费 () Dim an, cn, weight, s_w, distance, fee As Double an = Val(InputBox( 请输入成年人数量) cn = Val(InputBox( 请输入未成年人数量) weight = Val(InputBox( 请输入行李重量 ) distance = Val(InputBox( 请输入距离 ) s_w = weight - 20 * an - 10 * cn If s_w max Then max = a(i) End If If a(i) min Then min = a(i) End If Next s =

6、 (s - max - min) / 8 Debug.Print s End Sub (9)题Public Sub 素数 2_100() Dim n, s, i As Integer Dim flag As Boolean s = 0 For n = 2 To 100 flag = True For i = 2 To Int(n / 2) If n / i = Int(n / i) Then flag = False Exit For End If Next i If flag Then s = s + n Debug.Print n; 是素数 End If Next n Debug.Prin

7、t 素数的和是 ; s End Sub (10)题Public Sub 水仙花数 () Dim i, j, k As Integer For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i * 100 + j * 10 + k = i 3 + j 3 + k 3 Then Debug.Print i * 100 + j * 10 + k End If Next k Next j Next i End Sub (11)题Public Sub 数列() Dim m, n, i As Integer Dim s As Double m = 2 n = 1

8、s = m / n For i = 2 To 20 m = m + n n = m - n s = s + m / n Next Debug.Print s End Sub (12)题 这个题目涉及银行利息等金融知识，我不懂，大家自己思考我的想法是， 2 年存款得到的利息，会成为下一个两年存款的本金Public Sub 存款() Dim bj, lx, y As Double bj = 10000 y = 0 Do While bj a(j) Then Call swap(a(i), a(j) End If Next j Next i Debug.Print a(1); a(30) End S

9、ub Public Function swap(n, m) Dim t As Integer t = n n = m m = t End Function 12、15 、18 的最大公约数是3，最小公倍数是180(14)最大公约，最小公倍数Public Sub 公约数公倍数 () Dim m, n, big, small, temp, gy, gb As Integer m = Val(InputBox( 输入 m) n = Val(InputBox( 输入 n) If m = n Then big = m small = n Else big = n small = m End If Do

10、While True temp = big Mod small If temp = 0 Then Debug.Print 最大公约数是 ; small Exit Do End If big = small small = temp Loop Debug.Print 最小公倍数是 ; m * n / small End Sub (15)题Public Sub 约瑟夫问题 () Dim m, n, i, s, number As Integer m = Val(InputBox( 输入 m) n = Val(InputBox( 输入 n) number = m ReDim a(1 To m) As

11、 Integer For i = 1 To m a(i) = 1 Next s = 0 i = 1 Do While number 0 If i = m + 1 Then i = 1 End If s = s + a(i) If s = n Then Debug.Print i a(i) = 0 number = number - 1 s = 0 End If i = i + 1 Loop End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -