华工版VB习题答案.doc

VB.NET语言程序设计习题答案 第1章 概述11填空题1答案：低级语言、高级语言2答案：编译、解释3答案：编译、运行、逻辑12 问答题 略13 编程题1 解答:Imports System.ConsoleModule Module1 Sub Main() WriteLine(欢迎使用Visual Basic！) End SubEnd Module2. 解答:Imports System.ConsoleModule Module1 Sub Main() Dim x,y As Double Write(请输入的矩形的长: ) x = ReadLine() Write(请输入的矩形的宽: ) y = ReadLine() WriteLine(圆周长 = 0:f, 2*x+2*y)计算输出周长 WriteLine(圆面积 = 0:f, x * y)计算输出面积 End SubEnd Module第2章 基本数据类型与表达式21 填空题1答案：关键字 2. 答案：标识符3答案：4、8、4、8、164答案：整、单精度浮点、货币5答案：函数运算、算术运算、关系运算、逻辑运算6答案：Round(1234.567, 0)7答案：Mid(“Visual BASIC 6.0”,8,5)8答案：Int(b-a+1)*Rnd+a)22 选择题1答案：c2 答案：d3答案：c4答案：c 5答案：b6答案：a7答案：c8答案：a9答案：d10答案：b23 下列变量名哪些是正确的，哪些是错误的？答：1. n 正确。 2. 3x 错误。 变量名必须以字母为开始。 3. Abs 错误。不能和关键字同名。 4. 85 错误。 变量名必须以字母开始。 5. print_56 正确 6. 名称 正确。 7. ab# 正确。#是类型说明符。8. My Name 错误。 变量名内不能有空格字符。9.“年龄” 错误。这是字符串常量。10. 学校$ 正确。$是类型说明符。24 把下列数学表达式写成VB表达式。答案：1. 1/(1+(1/(1+1/(x+y)2. x*(x*(x*(a*x+b)+c)+d)+e3. Log(1+Abs(a+b)/(a-b) 10)4. Sqrt(1+3.14159/2*Cos(48*3.14159/180)5. 1/Tan(1-x*x)/(1+x*x)或者Cos(1-x*x)/(1+x*x)/Sin(1-x*x)/(1+x*x)6. Log10(a*a+a*b+b*b)25 写出下列函数的值。答案：1. -12346 2. 1234 3. 12.34 4. 1234.57 5. 1006. 2 7. Visual 8. 0 9. $ 26 写出下列表达式的值。答案：1. 4 2. 0 3. abc123abc 4. True 5. True 6. True 7. False 8. True27 用关系表达式或逻辑表达式表示下列条件。答案：1. i Mod j=0 2. nk And n Mod 2=03. 1=x And x10 4. xz Or yz5. Sqr(x-10) 2+(y-15) 2)356. Year Mod 4=0 And year Mod 4000 Or Year Mod 400=028 问答题略29阅读下列程序，写出执行结果1. 答案：-3 Visual Basic False 0.75 x= 12.34 2. 答案： 3E8 1.000000E003 1,000.00 x=1000，y=12.34, x*y= 12340210 编程题1. 解答:Imports System.ConsoleModule Module1 Sub Main() Dim x%, i%, j%, k% Write(请输入x的值:) x = ReadLine() i = x 100 j = (x-i * 100)/10 k = x-i * 100-j*10 WriteLine(012, k, j, i) 或WriteLine(0, 100*k+10*j+i) End SubEnd Module2. 解答:Imports System.ConsoleModule Module1 Sub Main() Dim x As Single, y As Single, b As Boolean Write(请输入x的值:) x = ReadLine() Write(请输入y的值:) y = ReadLine() b = (-2 = x) And (x = 2) And (-2 = y) And (y 0 Then s1=s1+x Else s2=s2+x5答案：If x0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-16答案：If a=b Then Print “a is equal to b” End7答案：If Asc(ch)=97 And Asc(ch)= 85 Then WriteLine(Very good!) ElseIf score = 60 Then WriteLine(Good!) Else WriteLine(No good!) End If End Sub End Module2.解答 Imports System.Console Imports System.Math Module Module1 Sub Main() Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! Const e! = 0.000001 Write(请输入a的值:) : a = ReadLine() Write(请输入b的值:) : b = ReadLine() Write(请输入c的值:) : c = ReadLine() If Abs(a) = e Then WriteLine(方程不是一个二次方程！) Else disc = b 2 - 4 * a * c If Abs(disc) 0.000001 Then x1 = (-b + Sqrt(disc) / (2 * a) x2 = (-b - Sqrt(disc) / (2 * a) WriteLine(方程有两个实根：x1=0x2=1, x1, x2) ElseIf disc = 1 And x = 5 Then Select Case x Case Is 2 y = 3 * x - 5 Case Is 4 y = 2 * Cos(x) + 1 Case Is = 0 Then Write(请输入运算标志C(计算周长),A(计算面积),B(两者都计算):) f = ReadLine() f = UCase(f) Select Case f Case C WriteLine(半径r=0 y=圆周长=1 , r, 2 * r * pi) Case A WriteLine(半径r=0 y=圆面积=1 , r, r * r * pi) Case B WriteLine(半径r=0 y=圆周长=1 , r, 2 * r * pi) WriteLine(半径r=0 y=圆面积=1 , r, r * r * pi) Case Else WriteLine(输入的运算标志错！) End Select Else WriteLine(半径不能是负数！) End If End SubEnd Module5. 解答Imports System.ConsoleModule Module1 Sub Main() Dim n%, s& n = 0 : s = 0 While s 1000的最小n值为:0, n) End SubEnd Module 6解答 (1) 用Do WhileLoop语句Imports System.ConsoleModule Module1 Sub Main() Dim a!, s! Write(请输入a的值:) : a = ReadLine() Do While a = 0 s = s + a Write(请输入a的值:) : a = ReadLine() Loop WriteLine(输入的正实数之和为：0, s) End SubEnd Module(2) 用Do Until Loop语句Imports System.ConsoleModule Module1 Sub Main() Dim a!, s! Write(请输入a的值:) : a = ReadLine() Do Until a = 0.00000001 WriteLine(圆周率的近似值为:0, Sqrt(6 * s) End SubEnd Module8.解答Imports System.ConsoleImports System.MathModule Module1 Sub Main() Dim x0!, x1! x1 = 0 Do x0=x1 x1=x0 -(x05-3 * x02+2*x0+1)/(5*x04-6*x0+2) Loop Until Abs(x1 - x0) max Then max = a(i) Next i WriteLine(最大值为：0, max) WriteLine(最大值所在数组元素的下标为：) For i = 1 To 20 If a(i) = max Then Write(0 , i) Next i WriteLine() End Sub End Module 4 解答:Imports System.ConsoleModule Module1 Sub Main() Dim a() As Single = 1, 2, 7, 8, b() As Single = 3, 4, 8, 8, 9, 10, 12, 12, c%(11) Dim i%, j%, k% i = 0 : j = 0 : k = 0 While i 4 And j b(j) Then c(k)=b(j):k=k+1:j=j+1 比较a和b中的元素，把较大的元素移到 Else c中，直到其中一个数组搬空为止 c(k)=a(i):k=k+1:i=i+1 End If End While While i 4 c(k)=a(i):i=i+1:k=k+1 把a中剩余的元素搬到c中 End While While j max Then max = a(i, j) 求最大值 Next j Next i min = a(1, 1) For i = 1 To m For j = 1 To n If a(i, j) max Then max = s(i).Score Next i WriteLine(最高分数：0, max) WriteLine(分数最高者：) For i = 1 To n If s(i).score = max Then WriteLine(0,8, s(i).name) End If Next i End SubEnd Module第5章 过 程51 填空题1答案：传值参数、引用参数2. 答案：相同或一致3. 答案：整个应用程序所有模块4答案：该模块5答案：作用域6答案：全局级过程或项目级过程7. 答案：该过程8. 答案：该模块。9. 答案：整个应用程序或整个项目52 选择题1答案：d2答案：c3. 答案：c4答案：c5答案：a6答案：d7答案：b53 问答题 略54 阅读程序，写出输出结果。1答案： * * * * *2. 答案： max=4803答案： a=5 b=-5 x=10 y=5 a=5 b=10 4. 答案：sum=555. 答案： 10 30 30 20 306. 答案： x=1 y=1 x=1 y=2 x=1 y=355 编程题 1解答:Imports System.ConsoleModule Module1 Sub Main() Dim m&, n&, cmn#, c1&, c2&, c3& Write(n=) n = ReadLine() Write(m=) m = ReadLine() Call fac(m, c1) : Call fac(n, c2) : Call fac(m - n, c3) cmn = c1 / (c2 * c3) WriteLine(cmn=0 , cmn) End Sub Private Sub fac(ByVal k&, ByRef f&) Dim t&, i& t = 1 For i = 1 To k t = t * i Next i f = t End SubEnd Module2 解答:Imports System.ConsoleModule Module1 Sub Main() Dim a!, b!, c!, m# Write(a=) a = ReadLine() Write(b=) b = ReadLine() Write(c=) c = ReadLine() m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c) WriteLine(m=0 , m) End Sub Private Function max(ByVal x!, ByVal y!, ByVal z!) As Single Dim ma! If x y Then ma = x Else ma = y If z ma Then ma = z Return ma End FunctionEnd Module3Imports System.ConsoleImports System.MathModule Module1 Sub Main() Dim x!, y! Write(x=) x = ReadLine() Write(y=) y = ReadLine() WriteLine(g=0