华南理工大学VB实验1-14答案.doc

实验一实验目的1掌握启动和退出VS.NET的方法。2掌握进入VB.NET集成开发环境的方法，并熟悉VB.NET集成开发环境。3初步掌握标题栏、菜单栏、工具栏、解决方案资源管理器窗口、编辑窗口和输出窗口等的使用。4初步掌握上机调试控制台应用程序的方法，掌握开发一个应用程序的基本步骤。实验内容1完成课本第9页的例1-1，输入课本第12页上的代码。2、把语句：WriteLine(圆周长=0:f,2*PI*r) 分别修改为： （1）WriteLine(圆周长=0:f3,2*PI*r) （2）WriteLine(圆周长=0:f5,2*PI*r) （3）WriteLine(圆周长=0:3f,2*PI*r) （4）WriteLine(圆周长=0:e,2*PI*r) （5）WriteLine(圆周长=0,6:f,2*PI*r) （6）WriteLine(圆周长=0,5:f2,2*PI*r)注意：每修改一次，都要运行程序，并且输入不同的半径（如1，1234，567898.2345），并仔细观察输出结果有 什么不同。把你的总结写在以下框内并提交。改成（1），则输出的圆周长保留3位小数。改成（2），则输出的圆周长保留5位小数。改成（3），则输出的圆周长变为3f。改成（4），则输出的圆周长用科学计数法表示。改成（5），则输出的圆周长结果大于等于6，结果位数小时留有空白。改成（6），则输出的圆周长结果大于等于5.3、仿照例1-1，把程序功能修改成：输入矩形的长和宽，计算并输出矩形的周长和面积。结果如下图所示：程序设计经常出现的错误及解决方法实验二 表达式及控制台输入输出实验内容请注意：每道作业要单独提交。可以多次提交作业，只保留最后一次提交的作业内容。1先熟悉以下表达式的写法：（1） 1/(1+(1/(1+1/(x+y)（2） x*(x*(x*(a*x+b)+c)+d)+e（3） 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)把以下表达式写成VB表达式，然后提交。- 作业成绩: A -(1)2*COS(1/2)*(+)*cos(1/2)*(-)(2)3*x2+sqrt(1+x)/(1-x)(3)Log2(1+5*x3+sinx/cos(2*x)- 参考答案 -(1)2*cos(0.5*(a+b)*cos(0.5*(a-b)(2)3*x*x+(1+x)/(1-x)0.5 或 3*x*x+sqrt(1+x)/(1-x)(3) log(1+5*x*x*x+sin(x)/cos(2*x)/log(2)或 log10(1+5*x*x*x+sin(x)/cos(2*x)/log10(2)2、熟悉以下关系表达式的写法(习题2.7）：条件VB.NET表达式i 整除 j i Mod j=0n是小于正整数k的偶数 n k And n Mod 2 = 01=x101 = x And x10x，y其中有一个小于zx z Or y z坐标点(x,y)落在以(10,20)为圆心，以35为半径的圆内 Sqrt(x-10) 2+(y-20) 2)35年份year能被4整除，但不能被100整除或者能被400整除 Year Mod 4=0 And year Mod 1000 Or Year Mod 400=0用关系表达式或逻辑表达式写出以下条件：（1） x不在区间(a,b)内（2）字符s是大写字母（3）以三个正整数a,b,c为边可以构成一个三角形(请在小于或大于号前后都加上空格，否则提交作业会出错。如 ac 要写成 a c)- 作业成绩: A -(1) x = b(2)Asc(s) = 65 And Asc(s) c and a+c b And b+c a And a-b c And a-c b And c-b a- 参考答案 -(1） x b(2) s =A And s c And a+c b And b + c a3输入一个三位数，将它反向输出。程序如下，请认真阅读：请认真阅读以上程序，然后写一个程序：求一元一次方程ax+b=0的根，请参考例子，然后把代码复制到以下框内，并。- 作业成绩: A -Imports System.ConsoleImports System.MathModule Module1 Sub Main() Dim a As Double, b As Double, x As Double Write(请输入a的值:) a = Val(ReadLine() Write(请输入b的值:) b = Val(ReadLine() x = -b / a WriteLine(a*x+b=0) WriteLine(x=0, x) End SubEnd Module- 参考答案 -Imports System.ConsoleModule Module1 Sub Main() Dim a, b As Single Write(请输入系数a的值:) a = Val(ReadLine() Write(请输入系数b的值:) b = Val(ReadLine() WriteLine() 输出一个空行 WriteLine(你输入的方程是: 0x+1=0, a, b) WriteLine(它的解是: x=0, -b / a) End SubEnd Module实验三 分支结构程序设计实验内容1以下程序的功能：输入三个数，输出三者之中的最大值。运行程序，找出程序错误的原因，提交修改后的正确程序。Dim a, b, c, maxWrite(请输入第 1 个数：)a = ReadLine()Write(请输入第 2 个数：)b = ReadLine()Write(请输入第 3 个数：)c = ReadLine()max = a 设a为最大值比较后保留最大值If b max Then max = bIf c max Then max = cWriteLine(0、1与2之中最大值是：3, a, b, c, max) - 作业成绩: A -Dim a As Double, b As Double, c As Double, max As Double Write(请输入第 1 个数：) a = Val(ReadLine() Write(请输入第 2 个数：) b = Val(ReadLine() Write(请输入第 3 个数：) c = Val(ReadLine() max = a If b max Then max = b If c max Then max = c WriteLine(0、1与2之中最大值是：3, a, b, c, max)- 参考答案 -变量定义语句 Dim a,b,c没有指定变量的类型，这是一种不好的用法。当不明确指定类型时，在变量使用时才确定变量的类型：a = ReadLine()b = ReadLine()c = ReadLine()由于ReadLine()函数的返回类型是字符串，所以a,b,c的类型都是字符串此时，程序是功能是对字符串进行比较。当分别输入5，10，20时，进行的是以下比较：5 20 10程序修改：把Dim a,b,c 改成 Dim a,b,c As Single或把 a = ReadLine()改成 a = Val(ReadLine()2输入a,b,c三个数，按从小到大的顺序输出这三个数。比如输入10，5，20则输出结果为5 10 20。 - 作业成绩: A -Dim a As Double, b As Double, c As Double, temp1 As Double, temp2 As Double, temp3 As Double Write(请输入a的值:) a = Val(ReadLine() Write(请输入b的值:) b = Val(ReadLine() Write(请输入c的值:) c = Val(ReadLine() temp1 = a If b temp1 Then temp1 = b If c temp1 Then temp1 = c temp3 = a If b temp3 Then temp3 = b If c temp3 Then temp3 = c If temp3 a Then temp2 = a If temp3 b Then temp2 = b If temp3 c Then temp2 = c WriteLine(a ,b,c 三个数按从小到大排序:0,1,2, temp3, temp2, temp1)- 参考答案 -方法1：列出可能情况If a=b And b=c Then WriteLine(“0,1,2”,c, b, a)If a=c And c=b Then WriteLine(“0,1,2”,b, c, a)If b=c And c=a Then WriteLine(“0,1,2”,a, c, b)If b=a And a=c Then WriteLine(“0,1,2”,c, a, b)If c=a And a=b Then WriteLine(“0,1,2”,b, a, c)If c=b And b=a Then WriteLine(“0,1,2”,a, b, c)方法2：分步判断 If a=b Then If b=c ThenWriteLine(“0 1 2”,c, b, a)ElseIf c=a Then WriteLine(“0 1 2”,b, a, c) ElseWriteLine(“0 1 2”,b, c, a)End IfElse If c=b Then WriteLine(“0 1 2”,a, b, c) ElseWriteLine(“0 1 2”,a, c, b)End IfEnd If方法3：交换两个数据 Dim d as Integer If a=b Thend = aa = bb = d End If If c=b ThenWriteLine(“0 1 2”, a, b, c) ElseWriteLine(“0 1 2”, a, c, b) End If方法4：先求出最大值和最小值 Dim max,min as Integermax = aIf b max Then max=bIf c max Then max=cmin = aIf b min Then min=bIf c min Then min=cWriteLine(“0 1 2”,min, a+b+c-max-min, max)3输入a,b,c的值，求一次二次方程的根，请参考课本82页的提示。、 - 作业成绩: A -Dim a As Double, b As Double, c As Double Write(请输入a的值:) a = Val(ReadLine() Write(请输入b的值:) b = Val(ReadLine() Write(请输入c的值:) c = Val(ReadLine() If a 0 Then If (b * b - 4 * a * c) 0 Then WriteLine(方程ax2+bx+c=0有两个不同的解，且x1=0,x2=1, (-b + Sqrt(b * b - 4 * a * c) / (2 * a), (-b - Sqrt(b * b - 4 * a * c) / (2 * a) End If If a = 0 Then WriteLine(方程ax2+bx+c=0不是二次方程)- 参考答案 -Imports System.ConsoleImports System.MathModule 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 = 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 Module实验五 循环结构的使用实验内容1（P83第9题）求S=1-1/2+1/3-1/4+.+1/99-1/100的值。 - 作业成绩: A -Imports System.ConsoleModule Module1 Sub Main() Dim a#, S#, i! S = 0 For i = 1 To 100 a = (-1) (i + 1) * (1 / i) S = S + a Next WriteLine(S=0, S) End SubEnd Module- 参考答案 -方法一Imports System.ConsoleModule Module1 Sub Main() Dim i As Integer, s As Single For i = 1 To 100 s = s + (-1) (i + 1) / i Next WriteLine(s=0, s) End SubEnd Module方法二Imports System.ConsoleModule Module1 Sub Main() Dim i As Integer, s As Single For i = 1 To 100 Step 2 s = s + 1 / i Next For i = 2 To 100 Step 2 s = s - 1 / i Next WriteLine(s=0, s) End SubEnd Module2.参考课本P70例3-14的程序，输出以下图形： - 作业成绩: A -Imports System.ConsoleModule Module1 Sub Main() Dim a#, i# Write(请输入行数:) a = Val(ReadLine() For i = 1 To (2 * a - 1) If i = 1 Then Write(Space(2 * a - 2) For j = 1 To 2 * a - 2 If j Mod 2 = 1 Then Write(*) Else Write(Space(1) End If Next ElseIf i = (2 * a - 1) Then For k = 1 To 2 * a - 2 If k Mod 2 = 1 Then Write(*) Else Write(Space(1) End If Next ElseIf i Mod 2 = 0 Then WriteLine() ElseIf i Mod 2 = 1 Then Write(Space(2 * a - 1 - i) For q = 1 To 2 * a - 3 If q = 1 Then Write(*) ElseIf q = 2 * a - 3 Then Write(*) Else Write(Space(1) End If Next End If Next WriteLine() WriteLine() End SubEnd Module- 参考答案 -Imports System.ConsoleModule Module1 Sub Main() Dim i, j, line As Integer Write(请输入行数:) line = Val(ReadLine) 输出第一行 For i = 1 To line - 1 Write( ) Next For i = 1 To line Write(* ) Next WriteLine() 输出第2行到倒数第二行 For j = 2 To line - 1 For i = 1 To line - j Write( ) Next Write(*) For i = 1 To line - 2 Write( ) Next WriteLine( *) Next 输出最后一行 For i = 1 To line Write(* ) Next WriteLine() End SubEnd Module实验六 数组实验内容1（P117第3题）编一程序，使用随机函数产生20个两位整数并存放到一维数组中，输出该数组（每行显示5个数据），然后求这组数中的最大值及最大值在数组中的位置。 - 作业成绩: A -Imports System.ConsoleModule Module1 Sub Main() Dim a(20) As Integer, b#, i#, j# Randomize() For i = 1 To 20 a(i) = Int(90 * Rnd() + 10 Next i WriteLine(下列数组中：) For i = 1 To 20 Write(a(0)=1 , i, a(i) If Int(i / 5) = i / 5 Then WriteLine() Next i b = 1 For j = 1 To 20 If a(j) a(b) Then b = j Next j WriteLine(最大值为0,它在数组中的位置为1, a(b), b) End SubEnd Module- 参考答案 -Imports System.ConsoleModule Module1 Sub Main() Dim a(20), i, j, max As Integer For i = 1 To 20 a(i) = Int(Rnd() * 90) + 10 Next For i = 1 To 20 Write(0,5, a(i) If i Mod 5 = 0 Then WriteLine() Next max = 1 For i = 2 To 20 If a(i) a(max) Then max = i Next WriteLine(最大值是0,它是第1个, a(max), max) End SubEnd Module2. 编写程序，使用随机函数产生100个0-9之间的整数并存放到一维数组中，按每行10个数据输出。编程找出出现次数最多的一位数。- 作业成绩: 未评定 -Imports System.ConsoleModule Module1 Sub Main() Dim n As Integer = 100 Dim a(n) As Integer Dim i, j, max, z As Integer Dim b(n) As Integer Randomize() For i = 1 To n a(i) = Int(10 * Rnd() Next For i = 1 To n Write(0,1 , a(i) If Int(i / 10) = i / 10 Then WriteLine() Next WriteLine() For j = 0 To 9 For i = 1 To n If a(i) = j Then b(j) = b(j) + 1 End If Next WriteLine(0 出现 1 次 , j, b(j) Next max = b(0) For j = 0 To 9 If b(j) = max Then max = b(j) z = j End If Next Write(出现次数最多的是0, z) Write(出现了0次, max) End SubEnd Module- 参考答案 -Imports System.ConsoleModule Module1 Sub Main() Dim a(100), i, j, k As Integer Dim b(10) As Integer Randomize() For i = 1 To 100 a(i) = Int(10 * Rnd() Next 输出 For i = 1 To 100 Write(0 , a(i) If i Mod 10 = 0 Then WriteLine() Next 查找出现的次数 For i = 1 To 100 b(a(i) = b(a(i) + 1 Next 显示同时求出现次数最多的数 j = 0 For i = 0 To 9 WriteLine(0 出现 1,2 次, i, b(i) If b(i) b(j) Then j = i Next WriteLine(出现次数最多的数是0，出现了 1,2 次, j, b(j) WriteLine() End SubEnd Module实验七 二维数组和结构实验内容1（P117第2题）使用随机函数产生10个1-100之间的随机整数并存放在一维数组a中，输出该一维数组，然后在数组a中指定位置插入一个指定数组元素，并将插入数组元素后的一维数组a所有元素输出。(提示：要用Redim语句) - 作业成绩: A -Imports System.ConsoleModule Module1 Sub Main() Dim n As Integer = 10 Dim a(n) As Integer Dim s!, m! Randomize() WriteLine(原数组为:) For i = 1 To 10 a(i) = Int(100 * Rnd() + 1) Write(0,5, a(i) Next WriteLine() Write(请输入要插入的位置：) s = Val(ReadLine() Write(请输入要插入的数:) m = Val(ReadLine() ReDim Preserve a(11) For i = 11 To s + 1 Step -1 a(i) = a(i - 1) Next a(s) = m WriteLine(插