VBnet 实验报告

北京电子科技学院（BESTI）实验报告课程：可视化程序设计班级：0921姓名： 马畅学号：20092109成绩：指导教师：徐日实验日期：20114.20实验密级：/ 预习程度：实验时间：15:3018:00仪器组次：A03必修/选修：选修实验序号：(二)实验名称：可视化基础编程实验目的与要求：1. 熟悉VB.NET基本窗体编程和基本控件应用；2. 培养运用VB.NET编程解决问题的能力，提高计算机编程能力；3. 引导和培养具有严谨的实验态度和勇于实践的学习精神。实验仪器：名称型号数量微机联想M8001一 实验内容1. 平均值生成器从窗口输入若干个数（每次输入一个数），求出输入数据的个数及它们的平均值。要求：不允许窗口最大化、不允许调整窗口大小。用户单击【开始】后，可以通过单击【确定】按钮或敲【Enter】键完成每个数的输入。当用户单击【取消】按钮或按【Esc】键时停止输入，停止输入时要显示已输入的数据，并计算显示出他们的平均值。用户输入数据较多时，为能显示所有数据及计算平均值的结果，在必要时要开启滚动条以方便用户浏览。2字符分离器 从程序窗口输入任意字符，程序自动将字母、数字、汉字等分离开，并在程序窗口中显示分离结果。要求：不允许窗口最大化、不允许调整窗口大小。用户输入后，单击【确定】按钮或敲【Enter】键都能完成字符分离。输入过程中窗体要随着键盘敲击而改变颜色。3. 电子钟 编程实现一个电子钟，以显示当前日期、星期、时间。要求：不允许窗口最大化、不允许调整窗口大小。 打开后电子钟能持续、实时的显示当前时间。 要求界面美观，鼠标单击电子钟界面时会更换显示颜色的前、背景色。二 实验步骤1. 平均值生成器各控件属性：确定代码：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim nums() As Integer Dim i As Integer Dim Sum As Integer Dim Avg As Integer Sum = 0 n = Val(InputBox(输入总的个数) TextBox1.Text = TextBox1.Text & 参与平均数的总的个数 & n & vbCrLf ReDim nums(n - 1) TextBox1.Text = TextBox1.Text & 输入的数 & vbCrLf For i = 0 To n - 1 nums(i) = Val(InputBox(请输入第 & Str(i) + 1 & 个参加求平均的数数) TextBox1.Text = TextBox1.Text & nums(i) & Next i TextBox1.Text = TextBox1.Text & vbCrLf For i = 0 To n - 1 Sum = Sum + nums(i) Next i Avg = Sum / n TextBox1.Text = TextBox1.Text & 求的平均数 & vbCrLf For i = 0 To n - 1 TextBox1.Text = TextBox1.Text & Avg & Next i End SubEnd Class界面截图：2. 、字符分离器： 代码：Public Class Form1 Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim a, b, c As Integer a = Int(Rnd() * 255) b = Int(Rnd() * 255) c = Int(Rnd() * 255) Me.BackColor = Color.FromArgb(a, b, c) End Sub Private Sub y_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim InputStr As String Dim i As Integer Dim CaseStr As Char InputStr = TextBox1.Text For Each CaseStr In InputStr CaseStr = Mid(InputStr, i, 1) If (AscW(CaseStr) 64 And AscW(CaseStr) 96 And AscW(CaseStr) 123) Then TextBox3.Text = TextBox3.Text & CaseStr ElseIf AscW(CaseStr) 47 Then TextBox4.Text = TextBox4.Text & CaseStr Else TextBox2.Text = TextBox2.Text & CaseStr End If Next End SubEnd Class控件属性：结果截图：3、 实验体会：在上次实验中，我初步体会到了VB的与众不同。本次试验第一次实现背景转换，感到收获很大。在今后的实验设计中还要多加努力，是设计的更加完美。 而且在本次实验中，开始有很多的错误，比如求平均数的时候，for循环从1开始取， 导致结果不对。后来在设计字符分离器的时候，开始是字符串形式，发现分离不开。后来使