资源预览内容
第1页 / 共40页
第2页 / 共40页
第3页 / 共40页
第4页 / 共40页
第5页 / 共40页
第6页 / 共40页
第7页 / 共40页
第8页 / 共40页
第9页 / 共40页
第10页 / 共40页
亲,该文档总共40页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
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
收藏 下载该资源
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号