实验二：VB.NET编程基础练习
一．实验目的：
1．掌握VB.NET下控制台应用程序的输入输出。
2．熟悉VB.NET的数据类型、
流程
快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计
控制、数组与字符串、过程与异常处理。
二．实验内容：
1. 生成控制台应用程序进行基本输入输出。
2. 利用信用卡分类识别或字符分类识别练习选择结构；利用密码通关或计算进入循环次数练习循环结构。
3. 利用Array类练习数组排序。
4. 使用Try…Catch…Finally来进行除数为0或运行时数组索引值超出界限的异常处理。
三．实验过程:
1.控制台应用程序进行基本输入输出。
（1）源代码
Module Module1
Sub Main()
Console.Write("请输入你的名字:")
Dim yourname As String
yourname = Console.ReadLine()
Console.WriteLine("Hello,{0}", yourname)
Console.Write("请输入你的年龄：")
Dim age As Integer
age = Console.ReadLine
Console.WriteLine("{0} 你好！，你是{1}岁", yourname, Str(age))
Console.ReadLine()
End Sub
End Module
（2）运行结果
2.利用密码通关或计算进入循环次数练习循环结构。
（1） 源代码
Module Module1
Sub Main()
Dim passWord As String
Dim times As Integer = 3
Console.WriteLine("请输入密码：")
passWord = Console.ReadLine
If passWord = "5168" Then
times -= 1
Console.WriteLine("Pass.....")
Else
Console.WriteLine("No Pass....")
times += 1
End If
Console.ReadLine()
End Sub
End Module
（2）运行结果
3.利用Array类练习数组排序。
（1）源代码
Module Module1
Sub Main()
Dim c, car(4) As String
car(0) = "Lancer"
car(1) = "Modeo"
car(2) = "Telcel"
car(3) = "Sentra"
car(4) = "Corona"
Console.WriteLine("排序前================")
For Each c In car
Console.Write(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
（2） 运行结果
4.使用Try…Catch…Finally来进行除数为0或运行时数组索引值超出界限的异常处理。
（1）源代码
Module Module1
Sub Main()
Dim i As Integer
Dim score() = {1, 2, 3}
For i = 1 To 3
Console.Write("score(" + Str(i) + ")=")
Try
Console.WriteLine(score(i))
Catch ex As Exception
Console.WriteLine()
Console.WriteLine("异常处理类型：" + ex.GetType.ToString)
Console.WriteLine("错误信息：" + ex.Message)
Console.WriteLine("程序或对象名称：" + ex.Source)
Console.WriteLine("产生错误过程：" + ex.TargetSite.Name)
Console.WriteLine("错误之处：" & ex.StackTrace)
Finally
Console.WriteLine("index =" + Str(i))
End Try
Next
Console.ReadLine()
End Sub
End Module
（2）运行结果
四．实验小结
在这次实验过程中遇到了一些问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
，具体如下：
（1）.在做密码通关实验时，我把if...then...写在一行，结果出现了错误，后来改成两行写就解决了这个错误，原来有else时要换行。
（2）.在做数组排序实验时，声明car是一个含有5个整形的数组，下标是0到4，在声明时我写成了car(5),结果出现了调试错误，改成car(4)后就解除了错误。所以从这个错误中我知道了，声明时括号内的数字代
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
数组下标范围的最大值，而不是数组元素的个数。
浙公网安备 33021202002483