VB用户界面设计实验报告

合集下载

VB程序设计的实验报告

VB程序设计的实验报告

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

vb用户界面设计实验报告(共9篇)

vb用户界面设计实验报告(共9篇)

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时,变成灰色,禁止用户选择。

vb程序实验报告

vb程序实验报告

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 属性为“结果:”等。

VB用户界面设计实验报告

VB用户界面设计实验报告

一、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实验报告一2024

VB实验报告一2024

VB实验报告一(二)引言概述:VB(VisualBasic)是一种面向对象的程序设计语言,广泛应用于Windows操作系统中的软件开发。

本实验报告旨在详细介绍VB实验一(二)的内容与实验结果,并对其进行分析和总结。

正文内容:一、实验目的1.1学习VB语言的基本语法和开发环境的使用;1.2熟悉VB的界面设计和事件处理;1.3掌握VB语言中的数据类型、循环结构和条件语句。

二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio;2.1.2配置VB开发环境。

2.2界面设计2.2.1创建一个新的WindowsForms应用程序;2.2.2在设计窗口中添加控件,如按钮、文本框等;2.2.3设置控件的属性和事件。

2.3事件处理2.3.1编写相应按钮的Click事件处理程序;2.3.2实现按钮的功能,如计算、跳转等。

2.4数据类型的应用2.4.1声明和初始化变量;2.4.2使用不同数据类型进行计算和赋值。

2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能;2.5.2利用条件语句实现条件判断。

三、实验结果3.1搭建VB开发环境成功;3.2界面设计符合预期,控件添加和属性设置正确;3.3事件处理程序编写无误,按钮功能正常;3.4数据类型的应用正确,计算和赋值结果准确;3.5循环结构和条件语句的实现正确。

四、分析与讨论4.1在搭建VB开发环境的过程中,可能会遇到版本兼容性问题,需要根据实际情况进行相应的配置和调整;4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用;4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性;4.4在应用不同数据类型进行计算和赋值时,要注意数据类型的转换和溢出的问题;4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构,提高代码的可读性和可维护性。

五、总结通过本次VB实验一(二)的学习和实践,我对VB语言的基本语法和开发环境的使用有了更加深入的了解。

VB实验报告11

VB实验报告11
RichTextBox1.LoadFile(.FileName,RichTextBoxStreamType.RichText)
EndIf
EndWith
EndSub
PrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.Click
EndSub
EndClass
(4)点击 ,启动调试
2.创建如图11-24所示的窗体界面,单击“添加1000项”按钮,在组合框中添加1000项,结果如图11-25所示
实验步骤:
(1)进入visual studio 2010环境
(2)在窗体中放入1个Button控件,1个组合框。放进去后的页面如下:
(3)双击这个按钮,在出现的代码区中输入以下代码:
ListBox2.Items.Remove(ListBox2.Text)
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
ListBox2.Items.Clear()
(9)设计一个最简单的画图程序,程序运行时,按住鼠标右键移动画圆,按住鼠标左键移动画线。
(10)编写一个程序,按Alt+F5组合键可终止程序的运行。
(11)通过打开文件对话键,选择一个BMP位图文件,在图形框中显示该图片。
三、主要设备及软件
计算机一台
Visual 平台
Visual Studio 2008

西安财经学院 VB 实验七用户界面设计

西安财经学院 VB 实验七用户界面设计
(2)设计一个如图A7.5所示的应用程序。当单击【改变标签标题颜色】按钮后,打开【颜色】对话框,为标签标题选择一个颜色;当单击【编辑文本文件】按钮后,打开【打开文件】对话框,选择一个文本文件后调用记事本程序编辑该文件。
(3)设计一个如图A7.6所示的应用程序。当选择选项卡中不同选项后可以对文本框内两个数字进行相应的运算,结果在窗体右边的标签内显示。文本框中数字值可以通过单击箭头进行改变,每次单击可以改变量是2。
Next i
If Check2.Value = 1 Then Sum = Sum - Min
If Check1.Value = 1 Then Sum = Sum - Max
Select Case Index
Case 0
Picture1.Print Sum
Case 1
Picture1.Print Sum / 5
menitalic.Checked = False
End If
End Sub
Private Sub mensize_Click(Index As Integer)
Select Case Index
Case 0
Text1.Foked = True
mensize(1).Checked = False
Label1(i).Top = Label1(i - 1).Top + Label1(i).Height + 100
Label1(i).Caption = "第" & i + 1 & "个成绩"
Label1(i).Visible = True
Next i
End Sub
Private Sub Option1_Click(Index As Integer)

vb实验报告总结

vb实验报告总结

vb实验报告总结
《VB实验报告总结》
在本次实验中,我们使用VB(Visual Basic)进行了一系列的实验,旨在探索其
功能和应用。

通过实验,我们得出了一些结论和总结,希望能对大家有所启发。

首先,我们发现VB具有强大的图形用户界面设计能力。

通过VB,我们可以轻
松地创建各种窗体、按钮、文本框等控件,并进行定制化的设计。

这使得我们
能够快速地搭建出一个直观、易用的用户界面,为用户提供良好的操作体验。

其次,VB还具有丰富的数据处理和操作功能。

我们可以通过VB连接数据库,
进行数据的读取、存储和处理。

这为我们的应用程序提供了强大的数据支持,
使得我们能够更好地满足用户的需求。

此外,VB还支持丰富的第三方组件和扩展,使得我们能够轻松地集成各种功能和服务。

这为我们的应用程序提供了更多的可能性,使得我们能够更加灵活地
开发出符合市场需求的产品。

总的来说,通过本次实验,我们对VB的功能和应用有了更深入的了解。

它不
仅是一个强大的开发工具,还能够为我们的应用程序提供丰富的功能和良好的
用户体验。

相信在未来的开发过程中,VB将会发挥越来越重要的作用。

希望我们能够进一步深入学习和探索,发挥VB的潜力,为我们的项目和产品带来更
大的成功。

vb实训报告

vb实训报告

vb实训报告一、引言VB,即Visual Basic,是一种基于事件驱动的编程语言,由微软公司开发。

通过VB,程序员可以使用图形用户界面(GUI)来创建应用程序。

本报告将详细介绍我在VB实训课程中所学到的知识和经验,以及我的实训项目的设计和实现过程。

二、实训项目概述我的实训项目是一个学生管理系统,旨在帮助学校管理学生的信息和成绩。

通过该系统,学校可以方便地浏览、添加、修改和删除学生的个人信息和成绩记录。

三、系统设计与实现1. 界面设计我采用了经典的菜单栏和工具栏布局,以及直观明了的界面设计。

通过菜单栏和工具栏可以实现对学生信息和成绩的增删改查等基本操作。

2. 数据库设计为了存储学生的信息和成绩,我设计了一个学生数据库。

数据库包括两个表,一个是学生信息表,包含学生ID、姓名、年龄等字段;另一个是成绩表,包含学生ID、科目、分数等字段。

3. 功能实现根据实训要求,我实现了以下功能:- 显示学生列表:从数据库中读取学生信息,并在界面上以表格的形式展示出来,方便用户查看。

- 添加学生:用户可以通过输入学生信息,并点击添加按钮将学生信息保存到数据库中。

- 修改学生信息:用户可以选择某个学生,并对其信息进行修改。

- 删除学生:用户可以选择某个学生,点击删除按钮将其从数据库中删除。

- 成绩输入与查询:用户可以输入学生的科目和分数,并保存到成绩表中。

用户也可以查询某个学生的成绩信息。

四、实训总结通过本次VB实训,我深入了解了VB的基本原理和应用技巧。

我学会了如何设计和实现一个功能完善的学生管理系统,并对数据库操作、界面设计和逻辑编程等方面有了更深入的了解。

在实训过程中,我遇到了一些挑战和困难。

例如,数据库操作时需要注意事务的处理,以保证数据的完整性;界面设计需要符合用户的思维习惯,以提高用户体验。

通过解决这些问题,我不仅提高了自己的技能水平,也对项目开发的重要性有了更深入的认识。

在未来的学习和工作中,我将继续学习和掌握VB以及其他相关技术,不断提高自己的编程能力和项目开发能力。

VB实验报告1-9

VB实验报告1-9

实验一:设计简单的VB 应用程序一、实验目的1.掌握Visual Basic 启动和退出的方法。

2.熟悉Visual Basic 的集成开发环境。

3.掌握Visual Basic 程序设计的基本步骤,了解VB 程序的编写、保存和编译的方法过程。

4.初步了解几个常用基本控件控件(标签、命令按钮和文本框)的使用方法。

二、实验类型综合三、实验时间:2013-3-8四、实验任务1、启动Visual Basic ,然后创建一个“标准 EXE ”工程(保存在D 盘以自己学号命名的文件夹中,文件名和窗体名均为SJT ),并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序,计算任意输入的正整数的平方根。

3、编写一个应用程序,界面如图1-1所示。

窗体中文字“VB 应用程序!”为一标签控件,单击标题为“放大”的命令按钮,则“VB 应用程序!”的字号放大一号,单击“缩小”按钮则反之;同时,窗体中还有4个含某种指向图案的按钮,若单击某个按钮,则使“VB 应用程序!”向该按钮所指向的方向移动50Twip 。

(提示:四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到,名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico )五、实验要求 写出实验报告,内容是:1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果(输入与输出)。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结:你在编程过程中花时多少?时间是怎么分配的?多少时间在思考问题?遇到了哪些难题?你是怎么克服的?你对你的程序的评价?你的收获有哪些?)图1-1 实验1-2程序运行实验二:数据的输入和输出一、实验目的1.掌握常量和变量、表达式的基本概念和正确书写格式。

2.掌握基本语句(Print语句、赋值语句、Dim语句等)的使用;3、掌握常用函数的正确使用方法;4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

vb程序设计实验报告

vb程序设计实验报告

vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中,程序设计是一项至关重要的技能。

Visual Basic (VB)作为一种强大的编程语言,被广泛应用于软件开发领域。

本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。

二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序,加深对VB语言的理解和掌握。

通过这个实验,我将学习如何使用VB语言进行界面设计、事件处理和数据处理。

三、实验过程1. 界面设计在实验开始时,我首先进行了界面设计。

通过VB的可视化设计环境,我选择了合适的控件,布局了用户界面。

我使用了文本框、标签、按钮等控件,使用户能够输入数据并进行相应的操作。

2. 事件处理在界面设计完成后,我开始编写事件处理程序。

我为按钮添加了点击事件,当用户点击按钮时,程序会执行相应的操作。

例如,当用户点击“计算”按钮时,程序会读取用户输入的数据,并进行计算操作。

通过编写事件处理程序,我学会了如何响应用户的操作,并进行相应的逻辑处理。

3. 数据处理在实验中,我还学习了如何进行数据处理。

我使用了VB的变量和运算符,对用户输入的数据进行计算和处理。

通过编写算法和逻辑,我实现了对用户输入数据的验证和处理,确保程序能够正确运行。

四、实验结果经过一段时间的设计和调试,我成功完成了VB程序的实现。

我的程序可以根据用户输入的数据进行相应的计算,并将结果显示在界面上。

通过这个实验,我不仅巩固了VB语言的基础知识,还提高了自己的编程能力。

五、实验总结通过这次VB程序设计实验,我收获了很多。

首先,我学会了如何使用VB语言进行界面设计,掌握了一些常用的控件和布局方法。

其次,我学习了如何编写事件处理程序,响应用户的操作,并进行相应的逻辑处理。

最后,我还学习了如何进行数据处理,使用变量和运算符对数据进行计算和处理。

在实验过程中,我遇到了一些问题和挑战。

例如,我曾经遇到过界面布局不合理导致用户体验不佳的情况,但通过不断的调整和改进,最终解决了这个问题。

用户界面vbnet实验报告甘政法

用户界面vbnet实验报告甘政法
实验题目
用户界面设计
小组合作
姓名
班级
学号
一、实验目的:
1、学会使用通过对话框控件进行编程;
2、掌握下拉式菜单和弹出式菜单的设计方法;
3、掌握创建多重窗体程序的有关技术;
4、了解鼠标和键盘事件及其事件过程的编写;
5、综合应用所学的知识,编制具有可视化界面的应用程序。
二、实验环境:
1、操作系统:Windows XP
2、应用软件
三、实验内容与步骤:
1、设计一个如图所示的对话框,当单击“设置标签颜色”按钮后,弹出颜色对话框,为上面标签的文字选择一种颜色,当单击“编辑文体文件”按钮后,弹出打开文件对话框,选择一个文本文件后调用记事本程序编辑该文件。
设计界面如下:
部分核心代码如下:
运行结果如下:
可以对原文本文件进行编辑,并保存
再次打开时后显示如下图所示:
2、设计一个如图所示的菜单系统,并为菜单项编写有关的程序代码。
设计界面如下:
部分核心代码为:
运行结果如下:
输入文字:
斜体效果:
粗体效果:
清除文本框文字:
3、在题2的基础上,设计一个弹出式菜单。
设计界面:
部分核心代码:
运行结果如下:
输入文字并单击右键,弹出打开文件等弹出式菜单
五、指导教师评语及成绩:
实东
成绩
批阅日期
2012-12-14
单击打开文件选项时,弹出打开对话框,如下:
斜体,粗体,12号字等都会使文本框中的文字发生相应改变。
4、选择若干个做过的实验,将它们整合一个整体,当选择某个菜单项就去弹出相应程序的窗体。
设计界面如下:
Button事件核心代码:

大一计算机VB程序设计实验要求及报告7

大一计算机VB程序设计实验要求及报告7

实验7 用户界面设计一、实验目的1.掌握常用控件、通用对话框。

2.掌握菜单设计、多重窗体。

二、实验要求三、在C:\下建立子文件夹“VB实验7”, 按照题目要求, 在该文件夹下为各题保存相应的文件, 如本实验中的第一题, 需保存的文件有: 工程文件(71.vbp)、窗体文件(71.frm) 及可执行文件(71.exe), 本实验中的第二题, 需保存的文件有: 工程文件(72.vbp)、窗体文件(72.frm) 及可执行文件(72.exe), 其余实验依此类推。

四、撰写实验过程中出现了哪些问题、错误, 你是如何解决的, 做一个小结。

实验内容:设计如图7-1所示的应用程序。

它能利用LostFocus事件过程对输入的内存大小进行合法性检查, 确保最后2个字符是“MB”, 其余的都是数字字符。

当用户单击“Ok”按钮后, 在右边的文本框中显示所选择的信息。

要求:窗体显示字体、大小默认。

图7-1答案:Private Sub Command1_Click()Text2 = ""Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLfIf Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLfIf Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLfIf Option3.Value Then Text2 = Text2 + Option3.Caption + vbCrLfIf Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLfIf Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLfIf Check3.Value Then Text2 = Text2 + Check3.CaptionEnd SubPrivate Sub Text1_LostFocus()Dim a$, b$a = Left(Text1.Text, Len(Text1.Text) - 2)b = Right(Text1.Text, 2)If Not IsNumeric(a) Or b <> "MB" ThenMsgBox "请重新输入内存", , "71"Text1 = ""Text1.SetFocusEnd IfEnd Sub设计如图7-2所示的计算程序, 要求: 窗体显示字体、大小默认, 参数输入用文本框, 结果显示用标签框。

2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】

2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】

2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】体会是指将学习的东西运用到实践中去,通过实践反思学习内容并记录下来的文字,近似于经验总结。

好的心得体会对于我们的帮助很大,所以我们要好好写一篇心得体会接下来我就给大家介绍一下如何才能写好一篇心得体会吧,我们一起来看一看吧。

vb程序设计实训报告心得体会vb课程设计报告篇一这是我第一次系统与完整的接触软件设计。

我们组的题目是关于“俄罗斯方块游戏”的设计。

我在组内主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。

在这次课程设计中,我的能力得到了锻炼,自己也有许多体会。

这次的课程设计是自己第一次全面接触软件的制作过程。

以前仅仅是对软件的开发有一个大体的印象,通过这次的课程设计,我对软件的开发有了切身的体会。

软件并不像我原来所想的那样十分神秘,而是有着一个相对固定的模式和流程。

我们只要按照这个模式和流程,就能够比较规范的完成一个软件的制作。

软件的制作是一个系统的工程,需要我们掌握多方面的知识。

在这次课程设计中,我觉得自己的知识面依然有所欠缺。

因此我需要在以后的学习中加以注意,要不断的提高自己的知识面与知识层次。

我在这次课程设计中主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。

在这次课程设计之前,我对vb的编程不是特别的熟悉,这次的课程设计,我是一边学习,一边总结,一边进步。

在编程的过程中,我体会到其实各种计算机语言是有相通之处的。

在以前的学习中,我只接触过c语言,这次在vb课程设计中,我发现c语言中的许多知识可以应用到vb中,两者具有相通的数据结构。

所以我认为现在对计算机语言的学习,不要贪多,而应耐心的学好一门主要的计算机语言,在这个基础上,去学习其他的语言,这样会使学习效率大大提高。

VB实验报告(含答案)

VB实验报告(含答案)
除数
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四.实验思考:
1.温度转换中的Command1命令的单击事件的程序代码是什么?
Private Sub Command1_Click()
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二.实验内容:
1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图1.1所示。
For i = 1 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
图5-1窗体界面
三.实验结果:对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮

大一vb的实验报告

大一vb的实验报告

大一vb的实验报告一、实验目的掌握VB语言的基础知识和编程技巧,并通过实践掌握VB的常用控件和事件处理方法。

二、实验材料1.计算机2.VB开发环境三、实验步骤1.搭建VB开发环境在计算机上安装VB开发环境,并进行必要的配置。

2.创建一个新的VB项目打开VB开发环境,点击“新建项目”按钮,选择“Windows桌面应用程序”模板,填写项目名称并确定。

3.设计用户界面在VB的设计器中,拖动控件到窗体上,设置其属性,并进行布局设计。

4.添加事件处理程序对每个控件添加相应的事件处理程序,以实现交互功能。

例如,对于按钮控件,可以添加点击事件的处理程序。

5.编写VB代码在VB的代码编辑器中,编写处理事件的代码,以实现所需的功能。

可以使用VB的基础语法、分支结构、循环结构等。

6.调试与运行对代码进行调试,确保程序运行没有错误,然后点击运行按钮,查看程序的运行效果。

四、实验结果通过以上步骤,成功实现了一个基础的VB程序,具备一定的交互功能和相应的逻辑处理。

五、实验总结通过本次实验,我学会了如何搭建VB开发环境,编写VB代码,设计用户界面,以及添加事件处理程序。

这些都是VB编程的基础知识和技能,对于以后的学习和应用都具有重要的意义。

通过不断的实践和探索,我相信自己能够在VB编程方面有更深入的理解和应用。

六、实验心得本次实验对我来说是一次很好的学习机会。

通过亲自动手实践,我加深了对VB语言和开发环境的了解,对于如何设计用户界面和编写代码也有了一定的经验。

实验过程中,我遇到了不少问题,但通过查阅资料和请教同学,我一一解决了这些问题。

实验不仅让我学到了知识,还培养了我的动手能力和解决问题的能力。

我会继续努力学习,提升自己的编程水平。

VB实验报告(实验5)

VB实验报告(实验5)

电子信息工程学系实验报告课程名称:面向对象程序设计实验项目名称:实验5 Function过程实验时间:2011-10-17班级:姓名:学号:实验目的:1)掌握Function过程的定义和调用。

2)掌握变量的有效范围和静态存储。

3)掌握递归过程的定义和调用。

实验环境:Windows XPVisual 2003实验内容及过程:使用静态变量用数组计算乘法口诀1、新建一个“Vusual Basic”项目2、界面设计如图1所示图1 界面设计3、编写程序代码Dim a(9) As IntegerDim x As IntegerPrivate Sub txtX_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ txtX.TextChangedx = Val(txtX.Text)txtResult.Text = ""End SubPrivate Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_cmdStart.ClickDim i As Integer, j As IntegerFor i = 1 To xa(i - 1) = func(x)NextFor i = 1 To xtxtResult.Text = txtResult.Text & i & "x" & x & "=" & a(i - 1) & " "NextEnd SubFunction func(ByVal k As Integer)Static s As Integers = k + sfunc = sEnd FunctionPrivate Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.Click EndEnd Sub4、保存项目5、运行结果(图2 所示)图2 运行结果实验心得:通过本次实验让我熟悉了Function过程的运用和静态变量的运用,通过此次实验,让我更加深刻体会到了过程运用的重要性,它对简化程序的编写起着至关重要的意义。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

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

相关文档
最新文档