实验项目二：VB.NET编程基础练习
实验目的：
1．掌握VB.NET下控制台应用程序的输入输出。
2．熟悉VB.NET的数据类型、流程控制、数组与字符串、过程与异常处理。 实验内容：
1. 生成控制台应用程序进行基本输入输出。
Module Module1
Sub Main()
Console.WriteLine(\"请输出你的名字?\") Dim yourName As String yourName = Console.ReadLine()
Console.WriteLine(\"hello,{0}\", yourName) Console.ReadLine() End Sub End Module
2. 利用信用卡分类识别或字符分类识别练习选择结构；
Module Module1 Sub Main()
Dim mycheck As Char, strl As String Console.Write(\"请输入一个字符\") mycheck = Console.ReadLine() Select Case mycheck Case \"A\" To \"Z\" strl = \"大写字母\" Case \"a\" To \"z\" strl = \" 小写字母\" Case \"0\" To \"9\"
strl = \" 阿拉伯数字\" Case Else
strl = \"非字母数字\"
End Select
Console.WriteLine(\"你输入的字符属于：\" & strl) Console.ReadLine() End Sub End Module
利用密码通关或计算进入循环次数练习循环结构。
Module Module1
Sub Main()
Dim passWord As String Dim times As Integer = 5 Console.WriteLine(\"请输入码?\") passWord = Console.ReadLine() If passWord = \"123\" Then times -= 1
Console.WriteLine(\"pass\") Else : Console.WriteLine(\"no,pass\") End If
Console.ReadLine() End Sub End Module
3. 利用Array类练习数组排序。
Module Module1 Sub Main()
Dim c, car(4) As String car(0) = \"lancer\" car(1) = \"modeo\" car(2) = \"relcel\" car(3) = \"sentra\" car(4) = \"corona\"
Console.WriteLine(\"排序前\") For Each c In car
Console.WriteLine(c & \".\") Next
Console.WriteLine() : Console.WriteLine() Array.Sort(car)
Console.WriteLine(\"排序后\") For Each c In car
Console.Write(c & \".\") Next
Console.ReadLine() End Sub End Module
4. 利用过程重载定义一个求两数或三数和的sum函数。
Module Module1
Sub Main()
Console.WriteLine(sum(1, 2)) Console.WriteLine(sum(1, 2, 3)) Console.WriteLine(sum(\"a\", \"b\")) Console.WriteLine(sum(\"a\", \"b\", \"c\")) Console.ReadLine() End Sub
Function sum(ByVal x As String, ByVal y As String) Return (x + y) End Function
Function sum(ByVal x As String, ByVal y As String, ByVal z As String) Return (x + y + z) End Function
Function sum(ByVal x As Single, ByVal y As Single) Return (x & y) End Function
Function sum(ByVal x As Single, ByVal y As Single, ByVal z As Single) Return (x & y & z) End Function End Module
5. 使用简单例子1+2+…+n<9,找出n值进行单步跟踪或断点设置。
Module Module1 Sub Main()
Dim n, sum As Integer sum = 0 n = 1
Do While (True) sum += n
If (sum >= 9) Then sum -= n
Console.WriteLine(\"1+2+...+\" & n & \"=\" & sum & \"<\" & 9) Exit Do End If n += 1 Loop
Console.ReadLine() End Sub End Module
6. 使用Try…Catch…Finally来进行除数为0或运行时数组索引值超出界限的异常处理。
Module Module1 Sub Main()
Dim i As Integer Dim score() = {1, 2, 3} For i = 1 To 3
Console.WriteLine(\"score(\" + Str(i) + \")=\") Try
Console.WriteLine(score(i)) Catch e As IndexOutOfRangeException Console.WriteLine()
Console.WriteLine(\"异常处理类型\" + e.GetType.ToString) Console.WriteLine(\"错误信息\" + e.Message) Console.WriteLine(\"程序对象名称\" + e.Source) Console.WriteLine(错误之处\" + e.StackTrace) Finally
Console.WriteLine(\"index=\" + Str(i)) End Try Next
Console.ReadLine() End Sub End Module
主要仪器：微机（安装VB.NET开发环境） 教学方式：讲授与指导
预习要求：阅读教材初步了解VB.NET编程基础知识并和其它语言对比学习。
阅读教材初步了解VB.NET集成开发环境和完整上机过程。
实验小结：
1. 在过程重载定义求两个数或者三个数的sum时，书上的例子有用到overloads结果老出现
错误，
解决方法：问老师，老师说10版的.Net平台不需要用overloads，一下解决了问题 2.因为老师给的题目书上都有例子，所以只要好好看书都可以完成，很多时候都是看错造成的错误，只要认真点就可以完成。
