1、0VB.NET 语言程序设计习题答案第 1章 概述11 填空题1答案：低级语言、高级语言2答案：编译、解释3答案：编译、运行、逻辑12 问答题 略13 编程题1 解答:Imports System.ConsoleModule Module1Sub Main()WriteLine(“欢迎使用Visual Basic！“)End SubEnd Module2. 解答:Imports System.ConsoleModule Module11Sub Main()Dim x,y As DoubleWrite(“请输入的矩形的长: “)x = ReadLine() Write(“请输入的矩形的宽: “)
2、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)222 选择题1答案：c2答案：d3答案：c4答案：c 5答案
3、：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 表达式。答案：31. 1/(1+(1/(1+1/(x+y)2. x*(x*(x*(a*x+b)+c)+d)
4、+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
5、. False 8. True27 用关系表达式或逻辑表达式表示下列条件。答案：1. i Mod j=0 2. n0 Or Year Mod 400=028 问答题略29 阅读下列程序，写出执行结果1. 答案：-3 Visual Basic False 0.75x= 12.342. 答案：3E8 1.000000E003 1,000.00x=1000，y=12.34, x*y= 12340210 编程题1. 解答:Imports System.ConsoleModule Module1Sub Main()Dim x%, i%, j%, k%Write(“请输入x的值:“)x = ReadLin
6、e()i = x 100j = (x-i * 100)/10k = x-i * 100-j*10WriteLine(“012“, k, j, i) 或WriteLine(“0“, 100*k+10*j+i)5End SubEnd Module2. 解答:Imports System.ConsoleModule Module1Sub Main()Dim x As Single, y As Single, b As BooleanWrite(“请输入x的值:“)x = ReadLine()Write(“请输入y的值:“)y = ReadLine()b = (-2 0 Then s1=s1+x El
7、se 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 ThenWriteLine(“Very good!“)ElseIf score = 60 ThenWriteLine(“Good!“)2ElseWriteLine(“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 = ReadLine()If Abs(a) = e ThenWriteLine(“方程不是一个二次方程！“)Elsedisc = b 2 - 4 * a * c
