VB实验报告7-用户界面设计

VB程序设计的实验报告VB程序设计的实验报告引言：VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它具有简单易学、功能强大的特点，被广泛用于开发各种桌面应用程序。

本文将介绍我在VB程序设计实验中的学习和实践经验。

一、实验目的本次实验的主要目的是让我们学习并掌握VB程序设计的基本知识和技巧，通过实践编写简单的应用程序，提升我们的编程能力和解决问题的能力。

二、实验环境在实验中，我们使用了Visual Studio作为开发工具。

Visual Studio是一款功能强大的集成开发环境，它提供了丰富的开发工具和调试功能，极大地方便了我们的开发工作。

三、实验内容在实验中，我们主要完成了以下几个实验任务：1. 界面设计：首先，我们需要设计程序的界面，包括窗体、按钮、文本框等控件的布局和样式。

通过拖拽控件、设置属性等操作，我们可以快速创建出一个漂亮的界面。

2. 事件处理：接下来，我们需要为各个控件添加事件处理程序。

当用户点击按钮或输入文本时，我们的程序需要做出相应的反应。

通过编写事件处理程序，我们可以实现各种功能，如计算、数据处理等。

3. 数据存储：在实验中，我们还学习了如何使用VB提供的数据库连接工具，将数据存储到数据库中。

通过编写SQL语句，我们可以实现数据的增删改查等操作，方便我们对数据进行管理和分析。

四、实验心得通过本次实验，我对VB程序设计有了更深入的了解和掌握。

在实验中，我遇到了一些困难和问题，但通过不断尝试和学习，我最终成功完成了实验任务。

首先，我学会了如何使用VB的开发工具和调试功能。

Visual Studio提供了许多方便的功能，如自动补全、调试器等，它们大大提高了我们的开发效率和代码质量。

其次，我学会了如何设计程序的界面。

一个好的界面设计可以使用户更加方便地使用我们的程序，并提升用户体验。

通过实验，我学会了如何合理布局控件、设置属性，使界面更加美观和易用。

最重要的是，我学会了如何编写事件处理程序。

vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。

A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。

A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。

A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。

Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。

A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。

A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。

A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。

A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。

软件开发环境与工具实验报告实验二实验题目: 用户管理及登陆程序设计实验类型:验证性指导老师：王琦专业班级:计算机科学与技术系1001班学号: 2010100152姓名:陈振北2012年 11月 17日一、实验题目用户管理及登录程序设计二、实验目的通过本次实验，进一步掌握五大对象及其功能，掌握利用对数据库进行存取的两种方法，并利用，采用分层架构，实现一个完整的用户管理及登录程序。

两种连接方式。

三、实验功能要求实验功能要求：1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。

2、实现完整的用户登录系统。

3、对敏感数据进行加密处理。

4、用.NET分层架构设计。

四、实验步骤1.把连库的基本参数放到APP.CONFIG中<appSettings><add key="server" value="LIU-PC\SQLSERVER2005"/><add key="uid" value="sa"/><add key="pwd" value=""/><add key="database" value="vb_net"/></appSettings>2.新建一个类库为myCommon并新建一个类clsStrconn 在里面设置连库的基本语句Public Shared Function getStrConn() As StringDim strConn As StringstrConn = "server=" &System.Configuration.ConfigurationManager.AppSettings("server") & ";"strConn &= "uid=" &System.Configuration.ConfigurationManager.AppSettings("uid") & ";"strConn &= "pwd=" &System.Configuration.ConfigurationManager.AppSettings("pwd") & ";"strConn &= "database=" &System.Configuration.ConfigurationManager.AppSettings("database")Return strConnEnd Function3．新建一个类库，并新建一个类clsuser在类内设置增，删，改，查的基本语句，并且为一个为一个function，要声明命名空间和根例：Public Function getall2dr(ByVal strWhere As String) AsSqlClient.SqlDataReaderDim conn As New SqlClient.SqlConnectionconn.ConnectionString = myCommon.clsStrconn.getStrConn Dim cmd As New SqlClient.SqlCommandcmd.Connection = connIf strWhere = "" ThenmandText = "select * from login"ElsemandText = "select * from login where " & strWhereEnd Ifconn.Open()Returncmd.ExecuteReader(CommandBehavior.CloseConnection)End Function搜索stewhere所对应的记录并且在相应的类中声明一系列变量，把值传回这个类，并进行相应的应用4.设置一个主窗体，为登陆界面并用MD5进行加密主代码如下Sys_姓?名? = UsernameTextBox.TextAutumn_password =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.PasswordTextBox.Text, "MD5")Dim dr As SqlClient.SqlDataReaderdr = o.getall2dr("")Dim i As Integeri = 0While dr.Readi = i + 1If Autumn_password = dr!u_pwd ThenSys_姓?名? = dr.Item("u_name")Sys_uid = dr("state")End IfEnd Whiledr.Close()5设置一个主界面进行增删改查的选择，如图：6.设置相应的增，删，改，查的界面核心代码： add.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox_uid.Texto.dUser_Name = Me.TextBox_uname.Texto.dUser_Pwd =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.TextBox_upwd.Text, "MD5")o.dUser_sname = Me.TextBox_usname.Texto.dUser_DeptID = Me.TextBox_usdept.TextDim sr As Stringsr = o.saveIf sr = "1" ThenMsgBox("保存成功")ElseMsgBox("保存失败" & sr)End IfEnd SubUpdata.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox1.Texto.dUser_Name = Me.TextBox2.TextDim sr As Stringsr = o.updateIf sr = "1" ThenMsgBox("成功更新")ElseMsgBox(“失败更新” & sr)End IfEnd SubEnd Classdel_l.vbDim o As New er.clsUserPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicko.dUser_id = Me.TextBox1.Text Dim sr As Stringsr = o.deleteIf sr = "1" ThenMsgBox("成功删除")ElseMsgBox("失败删除" & sr) End IfEnd Sub7.运行如图：六、实验总结通过本次实验，懂得了连库的基本方法，及一些基本应用。

vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。

二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。

2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。

3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。

4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。

同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。

5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。

四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。

（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。

（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。

一、Public Class _7_1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickColorDialog1.ShowDialog()Label1.ForeColor = ColorDialog1.ColorEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.ClickShell("C:\WINDOWS\system32\notepad.exe", 1)End SubEnd Class二、Public Class _7_2Private Sub清除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles清除ToolStripMenuItem.ClickTextBox1.Text = ""End SubPrivate Sub结束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles结束ToolStripMenuItem.ClickMe.Close()End SubPrivate Sub号ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles号ToolStripMenuItem.ClickTextBox1.Font = New Font(, 8)End SubPrivate Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ToolStripMenuItem2.ClickTextBox1.Font = New Font(, 12)End SubPrivate Sub粗体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles粗体ToolStripMenuItem.ClickTextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)End SubPrivate Sub斜体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles斜体ToolStripMenuItem.ClickTextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic)End SubEnd Class三、在实验2中继续添加下列代码Private Sub号字体ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles号字体ToolStripMenuItem1.ClickTextBox1.Font = New Font(, 8)End SubPrivate Sub斜体ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles斜体ToolStripMenuItem2.ClickTextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic)End SubPrivate Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.ClickTextBox1.Font = New Font(, 12)End SubPrivate Sub粗体ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles粗体ToolStripMenuItem2.ClickTextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)End SubPrivate Sub打开文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles打开文件ToolStripMenuItem.ClickDim inputdata As StringOpenFileDialog1.FileName = "*.txt"OpenFileDialog1.InitialDirectory = "d:\"OpenFileDialog1.Filter = "text files(*.txt)|*.txt|all files(*.*)|*.*"OpenFileDialog1.FilterIndex = 2OpenFileDialog1.ShowDialog()FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)TextBox1.Text = ""Do While Not EOF(1)inputdata = LineInput(1)TextBox1.Text = TextBox1.Text + inputdata + vbCrLfLoopFileClose(1)End SubEnd Class四、Public Class Sy7_6Private Sub实验11ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles实验11ToolStripMenuItem.ClickSy1_1.Show()End SubPrivate Sub实验12ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles实验12ToolStripMenuItem.ClickSy1_2.ShowDialog()Private Sub实验311ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles实验311ToolStripMenuItem1.ClickSy3_11.ShowDialog()End SubPrivate Sub退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles退出ToolStripMenuItem.ClickMe.Close()End SubEnd Class五、实验总结通过本次实验我了解到用户界面是应用程序的一个重要组成部分，并能够设计出简单、易用的界面，编写各控件的事件过程，对以后的学习垫定了一定的基础。

台州学院《VB程序设计》实验报告实验七：常用控件班级： 10 物理 2学号：姓名：实验日期： 2011一、实验目的和要求1．掌握基本控件的重要属性、事件；2．熟练掌握在窗体上建立上述控件的操作方法；3．熟练掌握事件过程代码的编写；4．初步掌握建立基于图形界面的应用程序的过程。

二、实验主要仪器和设备计算机一台，Windows XP 操作系统， Visual Basic 环境。

三、实验内容实验 7.1 设计一个字体修饰的程序，界面如图7-1 所示。

要求：框架 1 中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架 2 中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签 Label1 的文字内容为“ Visual Basic 程序设计”，宋体，常规，三号；文字对齐方式为居中。

图 7-1 字体修饰实验 7.2 设计一个点菜的程序，界面如图7-2 所示。

要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；图7-2 点菜实验 7.3 设计一密码修改程序，要求。

1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“ admin”，则继续执行步骤 2；否则弹出消息框，提示用户出错，并让用户重新输入。

2）比较“新密码 (N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。

否则弹出错误消息，并让用户重新输入。

3）当单击“取消”按钮后，程序终止执行。

图7-3密码修改实验 7.4（选做）设计一个拨号盘的程序。

界面如图成数字键，单击数字键按钮，将拨号的内容显示在文本框现原来的拨号过程；（提示：再现过程由定时器实现）定时器的时间间隔为个字符。

7-4 所示。

要求：命令按钮数组构Text1 中；单击“重拨”按钮，再0.5 秒；设置文本框最多接受10图7-4 拨号盘四、实验原始纪录实验 7.1程序的界面设计。