《华工版VB习题答案.docx》由会员分享，可在线阅读，更多相关《华工版VB习题答案.docx（68页珍藏版）》请在三一文库上搜索。
1、VB.NET语言程序设计习题答案第 1 章概述11 填空题1答案：低级语言、高级语言2答案：编译、解释3答案：编译、运行、逻辑12 问答题略13编程题1 解答 :Imports System.ConsoleModule Module1Sub Main()WriteLine(欢迎使用 Visual Basic！)End SubEnd Module2. 解答 :Imports System.ConsoleModule Module1Sub Main()Dim x,y As DoubleWrite(请输入的矩形的长 : )x = ReadLine()Write(请输入的矩形的宽 : )y = Rea
2、dLine()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答案： c5答案： b6答案：
3、 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. Lo
4、g(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. 12343. 12.34 4. 1234.57 5. 1006.27. Visual8. 0 9. $26 写出下列表达式的值。答案：1.42. 03. abc123abc4. True5.True6. True7. False8. True27用关系表达
5、式或逻辑表达式表示下列条件。答案：1. i Mod j=02. nk And n Mod 2=03. 1=x And x104. 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.342. 答案：3E8 1.000000E003 1,000.00x=1000 ，y=12.34, x*y= 12340210 编程题1. 解答 :Imports System
6、.ConsoleModule Module1Sub Main()Dim x%, i%, j%, k%Write( 请输入 x的值 :)x = ReadLine()i = x 100j = (x-i * 100)/10k = x-i * 100-j*10WriteLine(012, k, j, i) 或WriteLine(0, 100*k+10*j+i)End SubEnd Module2. 解答 :Imports System.ConsoleModule Module1Sub Main()Dim x As Single, y As Single, b As BooleanWrite( 请输入
7、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 ThenPrint“a is equal to b”End7答案： If Asc(ch)=97 And Asc(ch)= 85 ThenWriteLine(Very good!)ElseIf score = 60 T
8、henWriteLine(Good!)ElseWriteLine(No good!)End IfEnd SubEnd Module2. 解答Imports System.ConsoleImports System.MathModule Module1Sub Main()Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart!Const e! = 0.000001Write(请输入 a的值 :) : a = ReadLine()Write(请输入 b的值 :) : b = ReadLine()Write(请输入 c的值 :) : c = Read
9、Line()If Abs(a) = e ThenWriteLine(方程不是一个二次方程！)Elsedisc = b 2 - 4 * a * cIf Abs(disc) 0.000001 Thenx1 = (-b + Sqrt(disc) / (2 * a)x2 = (-b - Sqrt(disc) / (2 * a)WriteLine(方程有两个实根： x1=0x2=1, x1, x2)ElseIf disc = 1 And x = 5 ThenSelect Case xCase Is 2y = 3 * x - 5Case Is 4y = 2 * Cos(x) + 1Case Is = 0
10、ThenWrite(请输入运算标志 C(计算周长 ),A( 计算面积 ),B( 两者都计算 ):)f = ReadLine()f = UCase(f)Select Case fCase CWriteLine(半径 r=0 y=圆周长 =1 , r, 2 * r * pi)Case AWriteLine(半径 r=0 y=圆面积 =1 , r, r * r * pi)Case BWriteLine(半径 r=0 y=圆周长 =1 , r, 2 * r * pi)WriteLine(半径 r=0 y=圆面积 =1 , r, r * r * pi)Case ElseWriteLine(输入的运算标志
11、错！ )End SelectElseWriteLine(半径不能是负数！ )End IfEnd SubEnd Module5. 解答Imports System.ConsoleModule Module1Sub Main()Dim n%, s&n = 0 : s = 0While s 1000的最小 n值为 :0, n)End SubEnd Module6解答(1) 用Do While Loop 句Imports System.ConsoleModule Module1Sub Main()Dim a!, s!Write(Do While a = 0s = s + a 入 a的 :) : a =
12、 ReadLine()Write(Loop 入 a的 :) : a = ReadLine()WriteLine( 入的正 数之和 ：0, s)End SubEnd Module(2)用 Do UntilLoop 句Imports System.ConsoleModule Module1Sub Main()Dim a!, s!Write(请输入 a的值 :) : a = ReadLine()Do Until a = 0.00000001WriteLine(圆周率的近似值为 :0, Sqrt(6 * s)End SubEnd Module8. 解答Imports System.ConsoleImp
13、orts System.MathModule Module1Sub Main()Dim x0!, x1!x1 = 0Dox0=x1x1=x0 -(x05-3 * x02+2*x0+1)/(5*x04-6*x0+2)Loop Until Abs(x1 - x0) max Then max = a(i)Next iWriteLine( 最大值为： 0, max)WriteLine( 最大值所在数组元素的下标为：)For i = 1 To 20If a(i) = max Then Write(0, i)Next iWriteLine()End SubEnd Module4 解答 :Imports S
14、ystem.ConsoleModule Module1Sub 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 = 0While i 4 And j b(j) Thenc(k)=b(j):k=k+1:j=j+1 比较 a和 b中的元素，把较大的元素移到Else c中，直到其中一个数组搬空为止c(k)=a(i):k=k+1:i=i+1End IfEnd WhileWhile i 4c(k)=a(i):i=i+1
15、:k=k+1 把a中剩余的元素搬到c中End WhileWhile j max Then max = a(i, j) 求最大值Next jNext imin = a(1, 1)For i = 1 To mFor j = 1 To nIf a(i, j) max Then max = s(i).ScoreNext iWriteLine( 最高分数： 0, max)WriteLine( 分数最高者： )For i = 1 To nIf s(i).score = max ThenWriteLine(0,8, s(i).name)End IfNext iEnd SubEnd Module第 5 章过程
16、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=5b=-5x=10y=5a=5b=104. 答案： sum=555. 答案： 10303020306.答案：x=1y=1x=1y=2x=1y=355 编程题1 解答 :Imports Syste