tceic.com
学霸学习网 这下你爽了
相关文章
当前位置:首页 >> IT/计算机 >>

第8章习题解答


习题 8
1. 简答题 1)什么是算法?算法有什么特性?如何表示一个算法? 2)什么是结构化程序设计?它的三种基本结构是什么?它们有什么特点? 3)分支和循环语句中的条件是什么表达式表示? 4)Do While 型循环结构的程序构造中,对循环结构的要求是什么? 5)VBA 过程有哪四种?过程与函数的定义、调用有哪些不同,调用的传值与传址有哪 些不同? 6)什么是全局变量、私有变量、静态变量,如何使用?

2. 求程序运行结果题 1)试写出下列程序运行结果
Public Sub Fig1() Dim i As Integer Debug.Print Tab(10); "*" For i = 1 To 5 Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*" Next i For i = 4 To 1 Step -1 Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*" Next i Debug.Print Tab(10); "*" End Sub

2)求下列程序运行结果
Public Sub 作业 2() Dim x, y, i As Double x = 0: y = 0 For i = 1 To 8 If i Mod 2 <> 0 Then x = x - i Else

y = y + i End If Next Debug.Print "i="; i Debug.Print "x="; x Debug.Print "y="; y End Sub i= 9 x=-16 y= 20

3)求下列程序的运行结果
Public Sub 作业 3() Dim m, s, k As Double m = 28 s = 0 k = 1 Do While k <= Int(m / 2) If Int(m / k) = m / k Then Debug.Print k s = s + k End If k = k + 1 Loop Debug.Print "s="; s End Sub 1 2 4 7 14 s= 28

4)当 n=10 时,求下列程序运行结果
Public Sub 作业 4() Dim n, a1, a2, a3, i As Double n = Val(InputBox("请输入 n,要求 n>=3")) If n <= 2 Then Exit Sub End If a1 = 1 a2 = 1 Debug.Print a1; a2 For i = 2 To n - 1 a3 = a1 + a2 a1 = a2

a2 = a3 Debug.Print a3 Next End Sub

解:n=10
1 2 3 5 8 13 21 34 55 1

3. 改错题 1)程序改错,下面的每个程序均有两个错误,试调试修改正确。 (1)计算 1+2+3+…+N 的值。
Public Sub Sum() Dim i, n, s, y, k As Double n = Val(InputBox("请输入 n")) i = 1: s = 1 ‘s=0 Do While i < n s = s + i i = i + 1 Loop Debug.Print "S="; s End Sub ‘i<=n

(2)程序的功能是计算公式 Y=1-1/3!+1/5!-1/7!…,式中除第 1 项外,其余各项可 用 1/(2N+1)表示。 Public Sub 作业 5() Dim mm, n, p, y, k As Double mm = Val(InputBox("请输入计算公式中 1 后面的项目个数")) n = 1: p = 1: y = 1 Do While n <= mm k = 2 * n + 1 p = p * (k - 1) * k y = y + (-1) / p n = n + 1 Loop Debug.Print "Y="; y End Sub

4. 编程题 1)已知
ìX +Y ? 当X < Y ? ? ? X * Y * Sgn (Y ) 当X = Y Z = í ? ? ? 当X > Y 且 Y   0 ?X / Y ?

试编成求 Z 的值,请分别使用 Select Case 和 If…ElseIf…EndIf 编写程序。 解 1: : Public Sub P172_4_1if1 () Dim x,y,z As Integer x = Val(InputBox("请输入一个整数给 X:")) y=Val(InputBox("请输入一个整数给 Y")) if x<y then z=x+y end if if x=y then z=x*y*sgn(y) end if if x>y and y<>0 then z=x/y end if msgbox(“z=”&str(z)) end sub 解 2: : Public Sub P172_4_1if2() Dim x, y, z As Integer x = Val(InputBox("请输入一个整数给 X:")) y = Val(InputBox("请输入一个整数给 Y")) If x < y Then z=x+y ElseIf x = y Then z = x * y * Sgn(y) ElseIf x > y And y <> 0 Then z=x/y End If MsgBox ("z=" & Str(z)) End Sub 解 3: : Public Sub P172_4_1Select Case () Dim x,y,z As Integer x = Val(InputBox("请输入一个整数给 X:")) y=Val(InputBox("请输入一个整数给 Y")) Select Case X<Y OR X=Y OR X>Y AND Y<>0

Case X<Y Z=X+Y Case X=Y Z=X*Y*SGN(Y) Case X>Y AND Y<>0 Z=X/Y END SELECT MSGBOX(“Z=”& STR(Z)) END SUB 2)编写程序,求一元二次方程 Ax2+Bx+C = 0 的解,输入为系数 A,B 和 C。 Public Sub P172_4_2() '求方根 Dim a, b, c As Integer a = Val(InputBox("输入系数 a:")) b = Val(InputBox("输入系数 b:")) c = Val(InputBox("输入系数 c:")) d=b^2-4*a*c If d > 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) MsgBox ("x1=" & Str(x1)) MsgBox ("x2=" & Str(x2)) ElseIf d = 0 Then x1 = -b / (2 * a) x2 = -b / (2 * a) MsgBox ("x1=" & Str(x1)) MsgBox ("x2=" & Str(x2)) Else MsgBox ("x1 = x2=无解") End If End Sub 3)用整数 0-6 依次表示星期日、星期一、……、星期六,编程实现下列功能: 用键盘输入一个整数, 在显示器上输出对应的中文表示星期几, 如果键入的整数范围不 在-1 到 6 之内,则显示“输入数据错误” ,返回要求再次键入正确数字。当键入-1 时,程序 终止。 解 1: : Public Sub SelectCaseP172_4_3() Dim a As Integer a = Val(InputBox("请输入一个整数")) Select Case a Case 0 MsgBox ("星期日")

Case 1 MsgBox ("星期一") Case 2 MsgBox ("星期二") Case 3 MsgBox ("星期三") Case 4 MsgBox ("星期四") Case 5 MsgBox ("星期五") Case 6 MsgBox ("星期六") Case -1 End Case Else MsgBox ("输入数据错误") End Select End Sub 解 2: : Public Sub SelectCaseP172_4_3() Dim a As Integer Do While True a = Val(InputBox("请输入一个整数")) Select Case a Case 0 Debug.Print MsgBox("今天是星期天", vbDefaultButton1, "今日提示") Case 1 Debug.Print MsgBox("今天是星期一", vbDefaultButton1, "今日提示") Case 2 Debug.Print MsgBox("今天是星期二", vbDefaultButton1, "今日提示") Case 3 Debug.Print MsgBox("今天是星期三", vbDefaultButton1, "今日提示") Case 4 Debug.Print MsgBox("今天是星期四", vbDefaultButton1, "今日提示") Case 5 Debug.Print MsgBox("今天是星期五", vbDefaultButton1, "今日提示") Case 6

vbYesNoCancel + vbExclamation +

vbYesNoCancel + vbExclamation +

vbYesNoCancel + vbExclamation +

vbYesNoCancel + vbExclamation +

vbYesNoCancel + vbExclamation +

vbYesNoCancel + vbExclamation +

Debug.Print MsgBox("今天是星期六", vbYesNoCancel + vbExclamation + vbDefaultButton1, "今日提示") Case -1 Exit Do Case Else MsgBox ("你输入的数据错误!") End Select Loop End Sub 4)乘火车旅行的行李收费标准如下:成年人可免费携带重量 20 公斤的行李,未成年人 可免费携带 10 公斤的行李,超出这个重量,火车站将加收费用,收费标准是每公斤每百公 里收费为 0.20 元,不足百公里按百公里记。试编程按不同类型的人和行李重量来记收费用。 Public Sub P172_4_4 行李收费() Dim a, w, m, s, y As Integer a = Val(InputBox("请输入乘客年龄")) w = Val(InputBox("请输入乘客行李重量")) m = Val(InputBox("请输入行驶公里数")) y = Int(m / 100) If a >= 18 Then ‘成年人 If w <= 20 Then ‘行李小于等于 20 公斤免费 s=0 ElseIf (m Mod 100) = 0 Then s = 0.2 * (w - 20) * y ‘行李大于 20 公斤每公斤每百公里收费为 0.20 元 Else s = 0.2 * (w - 20) * (y + 1) ‘不足百公里按百公里记 End If End If Else If w <= 10 Then ‘未成年人行李小于等于 10 公斤免费 s=0 else If (m Mod 100) = 0 Then s = 0.2 * (w - 10) * y ‘行李大于 20 公斤每公斤每百公里收费为 0.20 元 Else s = 0.2 * (w - 10) * (y + 1) ‘不足百公里按百公里记 End If End If End If Debug.Print "应付费用:" & Str(s) End Sub 5) 编写程序完成求和 S=1+(1+2)+(1+2+3)+…+ (1+2+…+10) 如果求 S=1! + 2! + 3! + … 。 + 10!,试编写程序并比较其同异。 方法 1:Public Sub P172_4_5 累加累加和() :

Dim x, s, t, i As Integer s=0 t=0 For i = 1 To 10 s=s+i t=t+s Next Debug.Print s Debug.Print t End Sub

5_2 、S=1! + 2! + 3! + … + 10!, , Public Sub 求阶乘和() Dim i, j, p, s As Double s=0 For i = 1 To 10 p=1 For j = 1 To i p=p*j '循环不变式,完成累乘。 Next j Debug.Print Str(i) & "的阶乘是:" & Str(p) s=s+p Next i Debug.Print Str(i) & "的阶乘和是:" & Str(s) End Sub 6) 编程求 100 到 200 之间即能被 3 整除又能被 5 整除的正整数的个数, 并显示这些数。 Public sub 整除 整除() n=0 for i=100 to 200 if i mod 3=0 and i mod 5=0 then ‘或 i mod 15=0 n=n+1 Debug.print i endif Next Debug.print n End sub 7)编程完成下列图形的打印。其中第一个*所在列为第 10 行,第 20 列。 * * ****** *** *** ****** ***** **** ****** ******* ***** ****** ****** ******

Public Sub 三角形 1() For i = 10 To 14 Debug.Print Tab(20); "*"; For j = 1 To 2 * (i - 9) - 2 Debug.Print "*"; Next j Debug.Print Next i End Sub

Public Sub 三角形 2() Dim i, j As Integer For i = 1 To 9 Debug.Print Next Debug.Print Spc(19); "*" For i = 1 To 4 Debug.Print Spc(18 - i); "*"; For j = 1 To i + 1 Debug.Print "*"; Next Debug.Print Next End Sub

Public Sub 平行四边形输出() Dim i, j As Integer For i = 10 To 14 Debug.Print Tab(30 - i); "*"; For j = 1 To 5 Debug.Print "*"; Next j Debug.Print Next i End Sub

8)使用数组输入十个评委的评分,要求去除最高分、最低分,求应试者的最后得分。 解: Public Sub P172_4_8() Dim mark!, aver!, i%, max1!, min1! aver = 0 For i = 1 To 10 mark = Val(InputBox("请输入第" & i & "位评委的打分")) If i = 1 Then max1 = mark: min1 = mark Else If mark < min1 Then min1 = mark ElseIf mark > max1 Then Maxl = mark End If End If aver = aver + mark Next i aver = (aver - max1 - min1) / 8 MsgBox aver End Sub 9)编程求 2 到 100 间的所有素数,并求它们的和。 Public Sub 求素数个数() Dim w, n, j, s As Double s=0 j=0 For w = 3 To 99 Step 2 For n = 2 To Int(Sqr(w)) '判断 W 是否为素数

If w Mod n = 0 Then Exit For End If Next If n > Int(Sqr(w)) Then Debug.Print w s=s+w j=j+1 End If

'能整除时说明不是素数结束内循环

'说明是素数 ' 累加素数 '统计素数的个数

Next Debug.Print "S="; s, "素数的个数"; j End Sub 10)使用循环嵌套语句编程求:在 0 至 999 的范围内,找出所有这样的数,其值等于该 数中各位数字的立方和。如:153=13+53+33 之间水仙花数。 求 0~999 之间水仙花数。 3 3 3 水仙花数:指一个三位数,其各位数字立方之和等于该数本身。 (水仙花数:指一个三位数,其各位数字立方之和等于该数本身。如:153=1 +5 +3 ) 算法思路:解此题的关键是要知道如何分离出一个三位数中的各位数字。 算法思路:解此题的关键是要知道如何分离出一个三位数中的各位数字。本题采取将 求余,所得余数就是数值最右边得一个数码。 后的数截尾取整, 指定的数除 10 求余,所得余数就是数值最右边得一个数码。接着将除 10 后的数截尾取整, 得到的就是去掉最右边一个数码后的数值,以此类推,每次都可以截得一个最右边的数码, 得到的就是去掉最右边一个数码后的数值,以此类推,每次都可以截得一个最右边的数码, 将该三位数的各位数码分别截取出来并进行立方求和,如等于原数,则原数为水仙花数; 将该三位数的各位数码分别截取出来并进行立方求和,如等于原数,则原数为水仙花数; 否则原数不是水仙花数 否则原数不是水仙花数。 Public Sub sxh() For N = 0 To 999 Dim A(3) I=1 M=N Do While I <= 3 A(I) = M Mod 10 M = Int(M / 10) I=I+1 Loop If N = A(1) ^ 3 + A(2) ^ 3 + A(3) ^ 3 Then Debug.Print N End If Next End Sub

11)有一个分数数列:

2 3 5 8 13 21 , , , , , ,? 求出这个数列前 20 项之和。 1 2 3 5 8 13

扩充题 11_2)求数列:1,1/2,2/3,3/5,5/8......前 1000 项的数据和

11_1) 2 , 3 , 5 , 8 , 13 , 21 ,? 前 20 项之和
1 2 3 5 8 13

Public Sub fsl() i = 1: k = 2: m = 1 s=0 For i = 1 To 5 s=s+k/m t=k k=m+t m=t Next Debug.Print "前 20 项的数据和 s=" + Str(s) End Sub

11_2)求数列:1,1/2,2/3,3/5,5/8......前 1000 项的数据和 Public Sub sl() i = 1: k = 1: m = 1 ss = 0 For i = 1 To 1000 ss = ss + k / m t=m m=m+k k=t Next Debug.Print "前 1000 项的数据和 ss=" + Str(ss) End Sub

12)已知二年期人民币整存整取年利率为 2.25%,王大妈选择二年期整存整取,存款金 额 10000 元,她希望有 1000 元以上的净利息。由于银行对最后的利息征 20%所得税,故至 少要税前为 1250 元利息,才有 1000 元的净利息。请你编程帮王大妈算一算,要存几年才能 达到她的目标。 13)编写一个过程 Swap,实现两个数据交换功能。调用该过程求随机生成的 60-100 间 30 个数中最大数和最小数。 Public Sub P172_4_13() '产生 60_100 的随机数并找出最大和最小数 Dim x As Integer, i As Integer Do x = Int(Rnd(2) * 1000) Loop Until x >= 60 And x <= 100 Debug.Print x; " "; max = x min = x For i = 1 To 30 Do x = Int(Rnd(2) * 1000) Loop Until x >= 60 And x <= 100 Debug.Print x; " "; If x > max Then max = x End If If x < min Then min = x End If Next i

Debug.Print Debug.Print "max="; max Debug.Print "min=" & Str(min) End Sub Public Sub P172_4_13_2() '产生 30 个 200-300 的随机数 并求累加和均值 的随机数,并求累加和均值 产生 Dim x As Integer, i As Integer Dim sum As Integer, cnt As Integer Dim avg As Single sum = 0 cnt = 0 For i = 1 To 30 Do x = Int(Rnd(2) * 1000) Loop Until x >= 200 And x <= 300 Debug.Print x; " "; cnt = cnt + 1 sum = sum + x Next i Debug.Print If cnt > 0 Then avg = sum / cnt Else avg = 0 End If Debug.Print "sum="; sum Debug.Print "avg="; avg Debug.Print "count="; cnt End Sub 14)输入两个正整数 m 和 n,求其最大公约数和最小公倍数。

解题思路: 解题思路
最大公约数 采用辗转相除法可以获得, 最小公倍数 就是 x*y/最大公约数 了 .... 用辗转相除法求两个数的最大公约数的步骤如下: 先用小的一个数除大的一个数,得第一个余数; 再用第一个余数除小的一个数,得第二个余数; 又用第二个余数除第一个余数,得第三个余数; 这样逐次用后一个数去除前一个余数,直到余数是 0 为止。那么,最后一个除数就是所求的 最大公约数(如果最后的除数是 1,那么原来的两个数是互质数)。 例如求 1515 和 600 的最大公约数, 第一次:用 600 除 1515,商 2 余 315; 第二次:用 315 除 600,商 1 余 285; 第三次:用 285 除 315,商 1 余 30;

第四次:用 30 除 285,商 9 余 15; 第五次:用 15 除 30,商 2 余 0。 1515 和 600 的最大公约数是 15。 Public Sub gys() '求两个正整数的最大公约数和最小公倍数 Dim m, n, r, gb As Integer m = Val(InputBox("输入一个数")) n = Val(InputBox("输入一个数")) x = m: y = n Do While (n <> 0) '或者 while(n)求两个正整数的最大公约数 r = m Mod n m=n n=r Loop gb = x * y / m '最小公倍数 Debug.Print "最大公约数 " & Str(m) Debug.Print "最小公倍数为:" & Str(gb) End Sub 15)有 M 个人围成一圈,每人—个的编号(1,2,3,…,M) ,从第—个人数起,报 到 N 时这个人就出圈,再继续数,报到第 N 个又出圈,出圈人的位置不再数,直到只剩下 一个人为止,排出出圈人的顺序。 Private a(1 To 13) As Integer Public Sub 出圈顺序 出圈顺序() Dim i, p, s As Integer '将数组所有元素赋值为 1,表示其没有出圈。 将数组所有元素赋值为 ,表示其没有出圈。 For i = 1 To 13 a(i) = 1 Next Debug.Print "出圈顺序:" 出圈顺序: 出圈顺序 p=1 s=0 Do While True '下面 for 循环的功能是发现第 5 个为 1 的元素位置 下面 For i = 1 To 4 '第二处错误,原来为 for i=1 to 5 第二处错误, 第二处错误 'debug.print p; 'a' '有时使用简单的输出变量值语句可以发现错误 有时使用简单的输出变量值语句可以发现错误 p = findnext(p) 'debug.print p; '有时使用简单的输出变量值语句可以发现错误 有时使用简单的输出变量值语句可以发现错误 Next Debug.Print p; '输出被选中的 输出被选中的 a(p) = 0 s=s+1 If s = 13 Then Exit Do End If

p = findnext(p) Loop Debug.Print "end"

'第五处错误,原来为 p=p+1 第五处错误, 第五处错误

End Sub Function findnext(ByVal currentP As Integer) As Integer '功能是在数组 a 中寻找到下一个元素值为 1 的元素, 的元素, 功能是在数组 '并返回该元素所在位置 并返回该元素所在位置 currentP = currentP + 1 '修改的第一处错误,程序不能扫描数组 修改的第一处错误, 修改的第一处错误 Do While True If currentP >= 13 Then '第三处错误,原来为 currentP =13 第三处错误, 第三处错误 If currentP = 13 And a(13) = 1 Then '第四处错误,原来为 if a(13) = 1 第四处错误, 第四处错误 Exit Do Else currentP = 1 End If End If If a(currentP) = 1 Then Exit Do Else currentP = currentP + 1 End If Loop findnext = currentP End Function 扩充题: 扩充题 ,自动判断输入的口令是否与系统的口令一致 16、从键盘输入一串字符(口令) 自动判断输入的口令是否与系统的口令一致。若一 , 、从键盘输入一串字符(口令) 自动判断输入的口令是否与系统的口令一致。 致则显示“欢迎进入本系统!”, 否则显示“口令不正确,请重输 ;否则显示 请重输!”;给予三次重输机会, 致则显示“欢迎进入本系统 , 否则显示“口令不正确 请重输 ;给予三次重输机会,输 ; 入次数超过三次则显示“你无权使用本系统!”的提示 的提示。 入次数超过三次则显示“你无权使用本系统 的提示。 解题思路:这是一道口令验证题,即字符串比较问题。解题的关键有两点: 解题思路:这是一道口令验证题,即字符串比较问题。解题的关键有两点:一是通过 任意一种形式接收用户输入的口令;二是比较用户口令与系统口令是否一致, 任意一种形式接收用户输入的口令;二是比较用户口令与系统口令是否一致,进而决定下 一步的操作 一步的操作。 Public Sub kl() I=1 Do While I <= 3 MPW = Val(InputBox("请输入口令:")) If MPW = "123456" Then Debug.Print "欢迎进入本系统!" Exit Do Else If I >= 3 Then Debug.Print "你无权使用本系统!" Else

Debug.Print "口令不正确,请重输!" End If End If I=I+1 Loop End Sub 17、编程从键盘上输入一个“字符串” 将它们逆序输出。例如输入字符串“ABCD”, 、编程从键盘上输入一个“字符串” 将它们逆序输出。例如输入字符串“ , , 则输出“ 则输出“DCBA”) ) 。 解题思路:本题可以用字符串拆取和合并的方法来解决。 解题思路:本题可以用字符串拆取和合并的方法来解决。首先利用 LEN 函数测得字符 串的长度,并由它确定循环的次数, 串的长度,并由它确定循环的次数,循环中可以用函数 SUBSTR 自左向右或自右向左地逐 个截取字符,然后对截取的字符进行相应地处理, 个截取字符,然后对截取的字符进行相应地处理,最后再逐个将处理后的单个字符通过运 算符“ 合并在一起 合并在一起。 算符“+”合并在一起。 Public Sub zhc() X = InputBox("请输入一个字符串:") C = Space(0) L = Len(X) For I = 1 To L R = Mid(X, I, 1) C=R+C Next Debug.Print "字符串:" + X + " 逆序输出后为:" + C End Sub 18、编程输出下列图形: 编程输出下列图形: 编程输出下列图形 A BBB CCCCC DDDDDDD CCCCC BBB A 算法思路:这是一道图案输出显示的问题,可以通过二重循环嵌套控制来完成的。 算法思路:这是一道图案输出显示的问题,可以通过二重循环嵌套控制来完成的。输 有关,因此对于给出的图案, 出显示的行数与图案的半高 N 有关,因此对于给出的图案,我们可以将它分解为两个三角 上面一个三角形每行中的列是逐行递增的 中的列是逐行递增的, 形,上面一个三角形每行中的列是逐行递增的,而下面一个三角形每行中的列是逐行递减 所以内循环分为两个分别处理的两个三角形。 的,所以内循环分为两个分别处理的两个三角形。 SET TALK OFF CLEAR N=4 P=2*N?1 ? FOR I=1 TO P IF I<=N ?SPACE(N?I+1) ? FOR J=1 TO 2*I?1 ? ??CHR(ASC("A")+I?1) ?

ENDFOR ELSE ?SPACE(I?N+1) ? FOR K=1 TO 2*(2*N?I)-1 ? ??CHR(ASC("A")+2*N?I?1) ?? ENDFOR ENDIF ENDFOR SET TALK ON

任务 2

if-else-endif if-else-

Public Sub 求函数()

的值: X=val(inputbox('请输入 x 的值:')) =val(inputbox(' inputbox( if abs(x)>=1 then x<=if x<=-1 then y=1/(3y=1/(3-x) else y=1/exp(x) end if else y=1/(2+x*x) end if debug.prnit’f(x)='& debug.prnit’f(x)='& str(y) end sub

*任务 2
clear

do case/endcase

input'请输入 的值: input'请输入 x 的值:' to x

do case x<=case x<=-1 ?'f(x)=',str(1/(3?'f(x)=',str(1/(3-x),9,7) case x>=1 ?'f(x)=',str(1/exp(x),9,7) otherwise ?'f(x)=',str(1/(2+x*x),9,7) endcase return


推荐相关:

第八章 习题解答.pdf

第八章 习题解答 - 习题解答(参考) 8-1 写出 C5H11Cl 的所有同分

信息安全第8章习题答案.doc

信息安全第8章习题答案 - 3. 在本章,我们讨论了访问控制列表(ACL)和访问

第8章习题解答.doc

第8章习题解答 - 第 8 章习题解答 解:H0: 被告无罪,H1: 被告有罪。

第8章习题解答分析.doc

第8章习题解答分析 - 第 8 章 低频功率放大电路 习题8 8.1 由于功率放

第8章思考题和习题解答.doc

第8章思考题和习题解答 - 第八章 变电所二次回路和自动装置 8-1 变电所二次

第8章习题解答.doc

第8章习题解答_理学_高等教育_教育专区。模电习题答案 第8 章 低频功率放大电

第8章习题答案.doc

第8章习题答案_工学_高等教育_教育专区。北京交通大学数电课后习题答案 思考题:

第八章习题解答.doc

第八章习题解答_财会/金融考试_资格考试/认证_教育专区。模拟电子技术答案 8

《电工学(少学时)》第8章习题答案 唐介主编 高等教育出....pdf

《电工学(少学时)》第8章习题答案 唐介主编 高等教育出版社 - 8.2.1 图

第8章课后习题详解.ppt

第8章课后习题详解 - P469 三、已知图(a)所示方框图各点的波形如图(b)

第8章习题答案.doc

第8章习题答案 - 第八章 电磁感应习题(答案) 一、填空题 1. 感应电动势根

第8章习题参考答案.doc

第8章习题参考答案_电脑基础知识_IT/计算机_专业资料。《Access数据库应用与VBA编程》作者:黎升洪 第8章课后习题参考答案 第8 章习题参考答案 2.求程序的运行...

第八章习题解答_图文.ppt

第八章习题解答 - 第八章 电磁感应 电磁场 习题解答 1 8-1 一根无限长直

第八章习题答案_图文.pdf

第八章习题答案 - 运筹学教程(第二版) 习题解答 运筹学教程 第八章习题解答 8.1 证明在9座工厂之间,不可能每座工厂只与其 他3座工厂有业务联系,也不可能...

大学物理 第8章习题解答.doc

大学物理 第8章习题解答 - 第8章 8-1 如习题 8-1 图所示, 一系统由

第8章 习题解答.pdf

第8章 习题解答 - 习题 8 1. ? ? ?0 , ? ? ?0 . 2.C

第8章 带传动习题解答_图文.ppt

第8章 带传动习题解答 - 第八章 带传动 习题解答: 作业一 8-1.V带传动

python核心编程第二版第8章习题答案.doc

python核心编程第二版第8章习题答案_教育学_高等教育_教育专区。python核心编程第二版第8章习题答案 8-1.条件语句。请看下边的代码: # statement A if x > ...

第八章练习及答案.doc

第八章练习答案 - 第八章 练习题 (一)单项选择题 1.首次明确肯定社会主义

第八章 静电场部分习题分析与解答概要_图文.ppt

第八章 静电场部分习题分析与解答 第八章 静电场部分习题分析与解答 8-5 若电

网站首页 | 网站地图
All rights reserved Powered by 学霸学习网 www.tceic.com
copyright ©right 2010-2021。
文档资料库内容来自网络,如有侵犯请联系客服。zhit325@126.com