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) = e Then WriteLine(方程有两个相同的实根:x1=x2=0, -b / (2 * a) E