VBNET实验指导.doc

VB.NET实验指导  目录 实验一 VB.NET环境熟悉 2 实验二 顺序结构 5 实验三 选择结构、循环结构程序设计 9 实验四 单重循环结构 13 实验五 多重循环结构 16 实验六 一维数组 19 实验七 二维、多维数组 24 实验八 过程 28 实验九 过程+数组+循环 31 实验十 常用控件 35 实验十一 对话框与菜单程序设计 42 实验十二 综合练习 48 实验一 VB.NET环境熟悉 实验目的 掌握启动与退出VB.NET的方法。 掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 掌握常用控件（文本框、标签、命令按钮）的应用。 实验要求 根据实验内容要求编写一个简单的应用程序，学会使用VB .NET 中的常用控件并设置控件的属性，运行程序并保存文件。 实验范例 启动VB.NET，创建一个“Windows应用程序”类型的应用程序。要求：在屏幕上的文本框里面输入你的名字，按回车键以后，输入的名字在窗体上自左向右移动，若内容超出窗体范围时，从左侧再开始。 步骤一、打开VB.NET，选择“新建项目”选项，就能看到如下的“新建项目”窗口，选择“Windows应用程序”。 步骤二、在窗体上面放置所需要的控件对象。Label1,label2,textbox1,timer1 Label1.text=”信息登陆” Label2.text=”请输入你的姓名” 步骤三、输入代码 Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox1.Focus() 设置焦点在文本框上，即让光标在文本框跳跃 Timer1.Enabled = False 定时器设置为不可用 End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then 检测用户是否在文本框输入了回车 Label1.Text = TextBox1.Text vbCrLf 把用户在文本框输入的内容显示在标签上 Timer1.Enabled = True 开启定时器 End If End Sub Sub MyMove() Label1.Left = Label1.Left + 10 自左向右移动标签 If Label1.Left Me.Width Then 检测标签是否移动出窗体边界 Label1.Left = 0 - Label1.Width 当标签移动出窗体边界，则设置标签到最左侧 End If End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = 200 设置定时器时间 Call MyMove() 调用移动标签的过程 End Sub End Class Textbox1.font=new font(“隶书”，25) Button2：text内容为“幼圆15磅”，代码类似 Button3：Text内容为“复制=〉”，要求复制在Textbox1中选中的内容以及字体格式。选中的内容通过Textbox1的.SelectedText属性；字体通过Font直接赋值。 实验提示 利用Application.StartupPath()可获取启动应用程序的路径，在默认情况下是该项目的“bin”的子文件夹，因此插入的图片可以存放在此文件夹下。 实验二 顺序结构 实验目的 掌握表达式、赋值语句的正确书写规则 掌握常用函数的使用 掌握inputbox与MsgBox的使用 实验要求 根据要求编写完整的应用程序，学会定义各种数据类型变量的定义方法，掌握InputBox、MsgBox等语句的使用。 实验范例 编一个华氏温度与摄氏温度之间转换的程序，运行界面如图所示，装换显示保留两位小数。 根据题目要求设计界面如下： 代码如下： Public Class