(完整版)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实验报告(含答案)

VB实验报告(含答案)
End If
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三.实验结果:对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四.实验思考:
1.标签label控件设置的属性代码有哪些?
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四.实验思考:
1.模拟简易计算器Command1命令的单击事件的程序代码是什么?
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then

VB程序设计实验报告

VB程序设计实验报告

(此文档为word格式,下载后您可任意编辑修改!) 湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林1实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1:创建应用程序。

要求:单击窗体可弹出输入框,任意输入三个数,然后按从小到大的顺序输出到窗体上。

程序2:创建应用程序。

要求:单击窗体可弹出一输入框,任意输入一个正整数,在窗体上显示该整数是否为素数的字样。

2、循环语句程序3:创建应用程序。

要求:单击窗体可显示一个由“*”组成的平行四边形图案。

程序4:创建应用程序,其功能是显示所有的水仙花数。

三、实验记录程序1如下:Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数:")) '给a赋值b = Val(InputBox("请输入第2个数:")) '给b赋值c = Val(InputBox("请输入第3个数:")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b,把a的值赋给t,b的值赋给a,t的值赋给bIf b > c Then '嵌套,如果b>ct = b: b = c: c = t '把b的值赋给t,b的值赋给c,t的值赋给cIf a > b Then '再次嵌套,如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下:Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数:")) '给n输入值i = 2 'i初始值为2k = Int(n 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k,输出n的值是素数,否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下:Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1,当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1,当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下:Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100,当i大于999,停止循环 m = i \ 100 'i除以100,结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k3sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1:在窗体上建立两个标签、两个文本框和两个命令按钮,运行界面如左图所示。

VB程序设计课程设计报告完整版

VB程序设计课程设计报告完整版

VB程序设计课程设计报告完整版VB程序设计课程设计报告摘要:本课程设计报告旨在介绍一个完整的VB程序设计项目,该项目主要以某个实际问题为背景,通过使用VB编程语言进行设计和实现。

报告主要包括需求分析、设计方法、编程实现、测试和总结等内容。

一、引言VB(Visual Basic)是一种面向对象的事件驱动编程语言,它广泛用于Windows操作系统平台上的软件开发。

VB具有简单易学、强大的功能和丰富的开发工具,被广大开发者用于各种程序设计领域。

本课程设计旨在通过一个实际问题,让学生掌握VB程序设计的基本方法和技巧。

项目要求学生设计一个小型图书管理系统,实现对图书的添加、查询、借阅和归还等功能。

二、需求分析1. 功能需求:a) 添加图书:包括图书名称、作者、出版社等信息。

b) 查询图书:根据图书名称或作者查询图书信息。

c) 借阅图书:借阅图书并更新库存信息。

d) 归还图书:归还已借阅的图书并更新库存信息。

2. 数据需求:a) 图书信息:包括图书名称、作者、出版社、ISBN号码和库存数量等。

b) 借阅信息:包括图书名称、借阅人、借阅日期和归还日期等。

3. 用户界面需求:a) 主界面:显示各种操作选项。

b) 添加图书界面:用于输入图书信息。

c) 查询图书界面:用于输入查询条件并显示查询结果。

d) 借阅图书界面:显示已借阅图书信息并提供借阅操作。

e) 归还图书界面:显示已借阅图书信息并提供归还操作。

三、设计方法1. 模块划分:根据功能需求将程序划分为若干模块,包括主模块、添加图书模块、查询图书模块、借阅图书模块和归还图书模块等。

2. 数据结构设计:使用适当的数据结构存储图书和借阅信息。

3. 界面设计:根据用户界面需求,设计相应的窗体,并在窗体上放置控件,实现各种操作功能。

4. 事件处理:根据用户的操作,编写相应的事件处理程序,实现各种功能。

四、编程实现1. 程序架构:使用VB的Windows Forms应用程序模板创建项目,并按照模块划分设计程序结构。

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程序设计实验报告

《VB程序设计》实验单元二实验报告专业班级:新闻班姓名:学号:指导教师:完成时间:一、实验题目数组和自定义类型二、实验环境Visual 程序软件三、实验目的1.掌握数组的声明、数组元素的引用。

2.掌握固定长度数组和动态数组的使用差别。

3.掌握数组常用的操作和常用算法。

4.掌握列表框和组合框的使用。

5.掌握自定义类型及数组的使用。

四、实验内容1.随机产生30—100(包括30、100)的10个正整数,求最大值、最小值、平均值,并显示整个数组的只和结果。

2.随机产生20个学生成绩,统计各分数段人数。

即0~59、60~69、70~79、80~89、90~100,并显示结果。

五、实验步骤1.打开VB界面,建立工程2.在窗体窗口设置界面3.属性窗口控件对象属性设置4.编写程序代码5.运行程序及调试6.程序建立,保存工程文件六、实验结果第1题:第2题:七、实验体会编程虽然有些复杂,但是在一步步的学习探索中我也找到了其中的乐趣,看着自己一点点地在进步,真的很兴奋很激动。

2.在这次实验课题中,我在学习、参考书中的案例的同时,还上网查询了一些小的课外知识,例如:如何改变Print之后的字体颜色、字号、位置等并加以尝试、应用。

在我实验成功时,内心真的是抑制不住地开心。

3.当然,实验的过程,并不是一帆风顺的,然而,只要静下心来,仔细思考,问题总能解决的。

“世上无难事,只怕有心人”,在今后的学习中,我也要敢于面对困难、着力解决,把困难看成挑战,努力超越自我。

4.数组很奇妙,我想更进一步地了解它、用VB使用它,掌握常用的操作和算法。

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程序实习报告【精选5篇】

大学vb程序实习报告【精选5篇】

大学vb程序实习报告【精选5篇】大学vb程序实习报告【篇1】一、学习VB程序设计的方法(1)保持良好的学习心态1、要有自信,自强,积极主动学习。

2、克服畏难情绪,树立学好程序设计的信心(2)要有良好的学____惯1、课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。

2、VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。

(3)学习程序设计要注重理解一些重要的概念。

VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念。

但要真正能进行程序设计,需要深入理解这些概念。

因此,在程序入门阶段还是应该重视概念的学习。

(4)自己动手编写程序程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法。

因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力。

(5)阅读,借签别人设计的好程序多看别人设计好的程序代码,包括教材上的例题程序。

在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西,帮助自己提高自身水__。

(6)VB程序设计学习的重点1、程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的。

2、只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容。

等你在编写大量程序之后,我想过二级肯定没问题,不过能不能做到真知灼见,运用自如我就不敢说了。

3、动手能力的培养是这门课和以往课程最大的不同之处。

重点放在思路,算法,编程构思和程序实现上。

语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用。

)上机调试程序应注意的几点:1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)2、每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学。

VB程序实验报告

VB程序实验报告

学院 电子电气 班级 1 班 ** 20220804 实验日期 2022. 批次 1 地点 教师年 月 日1.掌握表达式、赋值语句的正确使用与书写规则。

2.掌握常用函数的使用。

3.掌握 InputBo*与MsgBo*函数〔过程〕的使用。

4.掌握各种数据类型5.掌握 VB 程序根本的输入输出方法。

1.必做题:全做 2.选做题:无实验 2-2b具体操作步骤如下:1、 翻开 VB 程序,创立一个新的标准窗口2、 在窗口的相应位置,分别建立 4 个 label 。

并在属性框中的label 的 caption 处 更改 label 的名称。

〔label1 更名为:输入原文: 。

Label2 更名为:转换后: 。

Label3 更名为:字 串长:。

Label4 更名为:去空格后:〕 3、 分别在以上建立的 4 个 label 后再建立 4 个 te*t 。

〔te*t1、te*t2、te*t3、te*t4〕并在属 性框中一一去除其 caption 后的名称。

4、 在窗口的最后建立 3 个按钮。

并在属性框的caption 中分别更改名称为:转换成大写、 转换成小写、统计字串长 5、 双击按钮,对按钮发展编程: 〔输入程序如下〕 Private Sub Command1_Click() Te*t2 = UCase(Te*t1) End SubPrivate Sub Command2_Click() Te*t2 = LCase(Te*t1)教 师评 语End SubPrivate Sub Command3_Click() Te*t3 = Len(Te*t1)Te*t4 = Len(Trim(Te*t1)) End SubPrivate Sub Form_Load()End Sub1.写出实验中的代码:⑴Private Sub Command1_Click()Te*t2.Te*t=2*3.14*V al(Te*t1)End SubPrivate Sub Command2_Click()Te*t3.Te*t=3.14*V al(Te*t1)^2End SubPrivate Sub Form_Load()End SubPrivate S ub Te*t1_LostFocus()IfNot IsNumeric(Te*t1) Theni = MsgBo*("输入了非法字符! ", 64, "提示") Te*t1 = ""Te*t1.SetFocusEnd IfTe*t2 = ""Te*t3 = ""End Sub⑵代码是:Private Sub Command1_Click()Const pi = 3.14159Dim r A s S ingle,l A s S ingle,s A s S ingler = InputBo*("请输入半径:", "输入半径")s=p i*r^2l=2*p i*rLabel2 = Label2 & rLabel3=L abel3+S tr(l)label4=l abel4+S tr(s)End Sub2.代码是:Private Sub Command1_Click() Te*t1.ForeColor = RGB(255, 0, 0) Te*t2.ForeColor = RGB(255, 0, 0) Te*t2.PasswordChar = ""Te*t1 = (Te*t1 = "2022000")Te*t2 = (Te*t2 = "TJin1234") End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Te*t1_GotFocus() Te*t1 = ""Te*t1.ForeColor = RGB(0, 0, 0) End SubPrivate Sub Te*t2_GotFocus() Te*t2 = ""Te*t2.ForeColor = RGB(0, 0, 0) Te*t2.PasswordChar = "*" End Sub3.2-2b 代码是:Private Sub Command1_Click() Te*t2 = UCase(Te*t1)End SubPrivate Sub Command2_Click() Te*t2 = LCase(Te*t1)End SubPrivate Sub Command3_Click() Te*t3 = Len(Te*t1)Te*t4 = Len(Trim(Te*t1))End SubPrivate Sub Form_Load() End Sub4.5Private Sub Command1_Click() Dim *%, y%* =T e*t1: y=T e*t2* = yTe*t3 = *Te*t4 = yEnd SubPrivate Sub Command2_Click() Dim *%, y%* =T e*t1: y=T e*t2y = *Te*t3 = *Te*t4 = yEnd SubPrivate Sub Command3_Click() Dim *%, y%* =T e*t1: y=T e*t2* =*+1Te*t3 = *Te*t4 = yEnd SubPrivate Sub Command4_Click() Dim *%, y%* =T e*t1: y=T e*t2* =*+yTe*t3 = *Te*t4 = yEnd SubPrivate Sub Command5_Click()Dim *%, y%* =T e*t1: y=T e*t2*=y:y=*Te*t3 = *Te*t4 = yEnd SubPrivate Sub Command6_Click()Dim *%, y%, t%* =T e*t1: y=T e*t2t=*:*=y:y=tTe*t3 = *Te*t4 = yTe*t5 = tEnd SubPrivate Sub Form_Load()End Sub6.Private Sub Command1_Click()Dim r1!,r2!,r3!,*!r1=V al(Te*t2):r2=V al(Te*t3):r3=V al(Te*t4)*=1/(1/r1+1/r2+1/r3)Label5 = "计算结果:" & *End Sub在实验 2-3b 中:需题目的公式是一张图片。

VB实验报告

VB实验报告

VB实验报告《VB程序设计》实验单元一实验报告专业班级:姓名学号 2指导教师:王云侠完成时间: 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。

提示:对窗口编写两个事件:Form_Load事件对文本框初值设为空;Form_Click事件对文本框计数。

对文本框计数:Text1=Val(text1)+1 。

2、命令按钮、字号、内容和格式的复制练习。

按钮1:使得Text1中的文本按要求改变。

按钮2:将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大,但要下功夫学习才能学好。

” (每个同学文本框中内容可以不同) Text2 Command1 Command2 四、实验步骤1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。

从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox,Label的caption改为“你单击窗体的次数”,TextBox 的text改为空,然后编写代码如图点击运行即可。

2、命令按钮、字号、内容和格式的复制练习。

从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton,Label的caption改为“输入内容”和“复制效果”,TextBox的text改为“任意文字”和“空”,CommandButton的caption改为“隶书25磅”和“复制=>”。

VB程序设计课程设计实验报告

VB程序设计课程设计实验报告

福建农林大学计算机与信息学院(程序设计类课程)实验报告课程名称:Visual Basic程序设计教程姓名:系:计算机与信息学院专业:计算机应用技术年级:05级学号:指导教师:职称:讲师2007年6月 2 日实验项目列表系:计算机与信息学院专业:计算机应用技术年级: 05级姓名:学号: 0 计算机号 67实验时间: 2007、3、28 实验地点:综南附307 指导教师签字:实验一Visual Basic环境和程序设计初步一、实验目的和要求1、了解Visual Basic系统对计算机软件、硬件的要求。

2、掌握启动与退出Visual Basic的方法。

3、熟悉Visual Basic的集成开发环境(IDE)。

4、掌握在窗体上添加控件的各种方法。

5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。

二、实验内容和原理1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。

2、在窗体上画一文本框个一个命令按钮,在文本框中显示“VB程序设计”,然后执行如下操作:(1)编写适当事件过程,当单击命令按钮时,文本框内容消失。

(2)单击“文件”—“生成工程”并退出。

在windows环境下运行该工程。

用户界面:实验代码:Private Sub Command1_Click()Text1.Text = ""End Sub3、创建一个“标准EXE”类型的应用程序。

要求:程序运行时在屏幕上显示“欢迎您的到来!”,并输入您的名字,当按回车键时弹出如下对话框:用户界面:代码:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来"End IfEnd Sub4、创建如图所示的应用程序,要求:单击“确定”按钮后,第一个文本框显示系统日期,第二个文本框显示星期。

vb程序设计实验报告

vb程序设计实验报告

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

VB程序设计实验报告

VB程序设计实验报告

一、目的与要求1、目的:(1)要求达到熟练掌握VB语言的基本知识和技能;(2)基本掌握程序设计的基本思路和方法;(3)能够利用所学的基本知识和技能,解决简单程序设计问题。

2、基本要求:(1)要求利用函数调用的方法以及VB语言的编程思想来完成系统的设计;(2)要求在设计的过程中,建立清晰的层次结构;3、创新要求:在基本要求达到后,可进行创新设计。

4、写出设计说明书二、课程的主要内容(1)选题(2)进行系统分析(3)程序设计实现(4)系统测试(5)编写、上交课程设计报告四、设计方法和基本原理1.系统概述随着学校的规模不断扩大,学生数量急剧增加,有关学生的各种信息量也成倍增长。

面对庞大的信息量,需要有学生信息管理系统来提高学生管理工作的效率。

通过这样的系统,可以做到信息的规范管理、科学统计和快速的查询,从而减少管理方面的工作量。

2.功能要求要求完成以下功能:(1)系统有良好的安全性,需要用户登录和密码的保密等等。

(2)从屏幕上读出若干个学生的信息(包括姓名、学号、电话等等)。

(3)能够添加新信息源并记录在案。

(4)能将指定的个人信息删除。

(5)能按学号直接查询个人信息。

(6)系统过程间的衔接与提示要明确。

3.系统的窗体以及各模块的功能系统开发的总任务是实现学生信息关系的系统化、规范化和自动化。

系统主要由五部分组成:系统用户的管理、学生信息的管理、学生学籍信息的管理、信息的查询,其中还包括登录界面。

3.1各窗体如下:⏹Form1: 登录界面,需要有效的用户名和登录密码。

⏹Form2:信息管理,信息的浏览、信息的修改、信息的添加以及删除等主功能。

Form3:对学生信息进行全部浏览五、系统设计图1.总体结构设计2.数据库设计六、系统的实现现在已经完成了程序各个功能模块的创建,现在可以进行系统的实现了。

1.登录界面第一个界面,登录的实现。

需要存在的用户名和有效的密码,才能成功的进入学生信息管理系统。

通过以下代码来实现:Private Sub Command1_Click()Dim i As IntegerIf Text2.Text <> "182533" Theni = MsgBox("密码错误", 5 + vbExclamation, "警告")If i <> 6 ThenText2.Text = ""Text2.SetFocusEnd IfElseForm1.HideForm2.ShowEnd IfEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 12Text2.Text = ""Text2.MaxLength = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "账号必须为数字", , "警告"Text1.Text = ""Text1.SetFocusEnd IfEnd Sub2.主管理窗口主管理窗口包含绝大多数的功能,来实现与操作整个学生信息管理系统。

vb程序设计实验报告

vb程序设计实验报告

vb程序设计实验报告VB程序设计实验报告实验目的:通过VB程序设计,掌握基本的程序设计方法和技巧,提高编程能力。

实验内容:本次实验主要是通过VB程序设计,实现一个简单的学生成绩管理系统。

该系统可以实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。

实验步骤:1. 设计界面:首先,我们需要设计一个简洁易用的界面,包括学生信息的录入、查询、修改和删除功能。

通过VB的窗体设计工具,我们可以轻松地实现界面的布局和美化。

2. 编写代码:接下来,我们需要编写VB程序代码,实现学生成绩管理系统的各项功能。

通过VB的编程语言,我们可以实现学生信息的录入、查询、修改和删除功能,以及成绩的计算和排名功能。

3. 调试程序:完成代码编写后,我们需要对程序进行调试,确保程序的各项功能能够正常运行。

通过调试,我们可以及时发现和解决程序中的bug,提高程序的稳定性和可靠性。

4. 测试程序:最后,我们需要对程序进行测试,验证程序的各项功能是否能够满足实际需求。

通过测试,我们可以发现程序中可能存在的问题,并及时进行修复和优化。

实验结果:经过一段时间的努力,我们成功地实现了一个简单的学生成绩管理系统。

该系统能够实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。

通过本次实验,我们不仅掌握了基本的程序设计方法和技巧,还提高了自己的编程能力。

结论:通过本次实验,我们深刻认识到了程序设计的重要性,以及通过VB程序设计可以实现复杂功能的能力。

同时,我们也意识到了编程过程中需要细心和耐心,以及对程序进行不断地调试和测试,才能确保程序的质量和稳定性。

希望通过不断地实践和学习,我们能够不断提高自己的编程能力,为实现更多复杂功能的程序做好准备。

VB程序设计实验报告

VB程序设计实验报告

中南财经政法大学实验报告
实验课名称:__ _VB程序设计 ___ 学生姓名:__ _ ____张琳___________ 专业班级:__ _信息0904班_____ 学号:__ __
开课时间:2010-2011学年第1学期
教务处制
《VB程序设计》实验报告
实验序号:1 实验项目名称:VB程序设计基础、三种基本结构、输入输出、常用控件和函数
《VB程序设计》实验报告实验序号:2 实验项目名称:用户交互、数组
《VB程序设计》实验报告
实验序号:3 实验项目名称:子过程和函数过程、字符串和日期时间
《VB程序设计》实验报告
实验序号:4 实验项目名称:处理图形、设计用户界面、文件系统、数据库、网络编程、多媒体。

大一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程序设计实验报告

VB程序设计实验报告

《VB程序设计》实验报告专业:信息管理与信息系统班级:1502班学号:姓名:日期:2016年12月20日一、实验题目:记事本程序的设计二、实验目的1、掌握菜单编辑器的使用方法。

2、掌握菜单事件的编程方法。

3、初步掌握多窗体程序设计方法。

三、实验内容与步骤1、实验内容:设计一个记事本程序。

2、界面设计(贴出对象属性表和界面设计图)。

①在窗体frmPad上添加一个文本框text1,并根据下表修改窗体及控件属性。

对象窗体属性设置对象名属性值FrmPad Caption “记事本”Text1 MultiLine True ScrollBars 2-Vertical Text 清空②使用菜单编辑器在窗体上建立菜单:选中窗体frmpad后,单击“工具”菜单的“菜单编辑器”命令,弹出“菜单编辑器“对话框,如下图所示。

③根据下表设置菜单。

菜单设置菜单项标题菜单项名称快捷键其他属性编辑mnuEdit···剪切mnuCut Ctrl+X···复制mnuCopy Ctrl+C···粘贴mnuPaste Ctrl+V文本风格mnuStyle···粗体(&B)mnuBold "复选"属性为True ···斜体(&I)mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut···复制popCopy···粘贴popPaste设计好程序窗体如下图所示。

菜单编辑器界面设计3、编写程序代码。

Private Sub Form_Load()Text1.FontSize = 16Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = FalseEnd Sub'剪切Private Sub mnuCut_Click() Clipboard.ClearClipboard.SetText Text1.SelText Text1.SelText = ""End Sub'复制Private Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText Text1.SelTextEnd Sub'粘贴Private Sub mnuPaste_Click()Text1.SelText = Clipboard.GetTextEnd Sub'粗体Private Sub mnuBold_Click()mnuBold.Checked = Not mnuBold.CheckedText1.FontBold = mnuBold.CheckedEnd Sub'斜体Private Sub mnuItalic_Click()mnuItalic.Checked = Not mnuItalic.CheckedText1.FontItalic = mnuItalic.CheckedEnd Sub'弹出菜单Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu popMenu End IfEnd SubPrivate Sub popCopy_Click() mnuCopy_ClickEnd SubPrivate Sub popCut_Click() mnuCut_ClickEnd SubPrivate Sub popPaste_Click() mnuPaste_ClickEnd Sub4、运行结果。

VB程序设计实验报告

VB程序设计实验报告
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案
1一个富翁试图与陌生人做一笔换钱生意;换钱规则为:陌生人每天给富翁10万元钱;直到满30天为止;而陌生人每天给富翁一分钱;第二天2分;第三天4分;............富翁每天给陌生人的钱是前一天的2倍;直到满一个月..分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少
VB是一种可视化的程序语言..具有基于对象的可视化设计工具;事件驱动的编程机制;提供易于学习易用程序集成开发环境;结构化程序设计语言;强大的网络数据库多媒体功能;完备的联机帮助功能..
本次做的这个实验虽然中间遇到许多困难;但在我的坚持不懈中还是自己独立完成了本次试验;唯一不足的是没有办法把做的实验结果放到本次实验报告中..
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案
五、实验步骤
1private sub form-click
Dim x%; y%; z%; w%
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案..
二实验环境
在宿舍用自己的电脑做出的
三实验目的
1掌握for语句的使用..
2掌握do语句的形式使用..
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1:创建应用程序。

要求:单击窗体可弹出输入框,任意输入三个数,然后按从小到大的顺序输出到窗体上。

程序2:创建应用程序。

要求:单击窗体可弹出一输入框,任意输入一个正整数,在窗体上显示该整数是否为素数的字样。

2、循环语句程序3:创建应用程序。

要求:单击窗体可显示一个由“*”组成的平行四边形图案。

程序4:创建应用程序,其功能是显示所有的水仙花数。

三、实验记录程序1如下:Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数:")) '给a赋值b = Val(InputBox("请输入第2个数:")) '给b赋值c = Val(InputBox("请输入第3个数:")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b,把a的值赋给t,b的值赋给a,t的值赋给bIf b > c Then '嵌套,如果b>ct = b: b = c: c = t '把b的值赋给t,b 的值赋给c,t的值赋给cIf a > b Then '再次嵌套,如果a>b t = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下:Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,nn = Val(InputBox("任意输入一个整数:")) '给n输入值i = 2 'i初始值为2k = Int(n / 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于kIf n Mod i = 0 Then '如果n模除i 为0Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k,输出n的值是素数,否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下:Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1,当m大于6停止Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1,当n大于6停止Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下:Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege'定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100,当i大于999,停止循环m = i \ 100 'i除以100,结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给nk = i Mod 10 'i模除10后的值赋给k sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1:在窗体上建立两个标签、两个文本框和两个命令按钮,运行界面如左图所示。

要求在运行时,两个文本框中的内容均不允许用户编辑;如果用户在“原文”的文本框中选定所需的内容,单击“复制”命令按钮,则在“输出”文本框中输出选定的内容;如果单击“结束”命令按钮,则结束程序的运行。

程序2:建立如下图所示的窗体,要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验(性别只允许输入“男”或“女”,邮政编码必须是6位数字,电话号码必须是8位数字)。

如果输入的数据不符号要求,则清空相应的文本框,并将插入点置于该框中。

所有的校验工作可以在单击“退出”按钮后进行,此时,程序检查所有文本框,如有空白或内容错误,要求继续输入,否则结束程序。

2、复选框、单选按钮及框架控件的使用程序3:在窗体中有一个标签,内有若干文字,要求通过窗体中的复选框或单选按钮确定标签中文字的字体(宋体或黑体)、字号(10号或12号)和字形(是否粗体、是否斜体),请建立应用程序。

3、列表框和组合框控件的使用程序4:编写程序。

要求:程序运行初期,在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数,单击窗体中“右移”按钮,则左边列表框的10个数移动到右边的列表框中,并由大到小排列,此时“左移”按钮变为有效。

单击“左移”按钮,右边列表框中的数又被移到左边的列表框中。

单击“退出”按钮或按ESC键,可退出程序。

窗体示意图如下。

程序5:建立应用程序,窗体如下图所示,有一个简单组合框、三个命令按钮、一个文本框和一个标签。

要求:●单击“添加”按钮可将输入的内容添加到组合框中●单击“删除”按钮可删除组合框中选定的项目●单击“统计人数”按钮,可将组合框中的项目总数输出到右边的文本框●单击“退出”或按ESC键退出程序4、滚动条和定时器控件的使用程序6:编写程序,运行时的界面如下图所示。

要求:无论是拖动滚动条上的滚动框,还是单击滚动箭头(数值递增或递减1)或滚动条(数值递增或递减10),均可以在相应的标签中反映当前数值,并动态计算出均值;单击“Reset”按钮,可将各滚动条上的滚动框复位。

程序7:利用定时器控件设计一个数字式时钟应用程序。

三、实验记录程序1如下:Private Sub Form_Load()Text1.Text = "文本框是一个多功能控件,可以显示或者接收用户输入的文本信息。

" '给文本框指定内容End SubPrivate Sub Command1_Click()Text2.Text = Text1.SelText '在Text1中选定文本赋给Text2End SubPrivate Sub Command2_Click()End '程序结束End Sub程序2如下:Private Sub Command1_Click()If Text1 = "" Then'如果Text1没有输入,当前的激活文本区(焦点)在Text1Text1.SetFocusExit Sub '退出过程End IfIf Text2 = "" Then'如果Text2没有输入,当前的激活文本区(焦点)在Text2Text2.SetFocusExit Sub '退出过程End IfIf Text3 = "" Then'如果Text3没有输入,当前的激活文本区(焦点)在Text3Text3.SetFocusExit Sub '退出过程End IfIf Text4 = "" Then'如果Text4没有输入,当前的激活文本区(焦点)在Text4Text4.SetFocusExit Sub '退出过程End IfIf Text5 = "" Then'如果Text5没有输入,当前的激活文本区(焦点)在Text5Text5.SetFocusExit Sub '退出过程End IfEnd '退出程序End SubPrivate Sub Text2_LostFocus()If Text2.Text <> "" Then '如果Text2有输入If Text2.Text <> "男" And Text2.Text <> "女" Then'如果Text2输入的内容不是“男”和“女”Text2.Text = "" '则Text2不输出Text2.SetFocus '当前的激活文本区(焦点)在Text2End IfEnd IfEnd SubPrivate Sub Text4_LostFocus()If Text4.Text <> "" Then '如果Text4有输入If Len(Text4.Text) <> 6 Or Not IsNumeric(Text4.Text) Then '如果Text4输入的内容不是数值或者字符串的长度不为6Text4.Text="" '则Text4不输出Text4.SetFocus '当前的激活文本区(焦点)在Text4End IfEnd IfEnd SubPrivate Sub Text5_LostFocus()If Text5.Text <> "" Then '如果Text5有输入If Len(Text5.Text) <> 8 Or Not IsNumeric(Text5.Text) Then'如果Text5输入的内容不是数值或者字符串的长度不为8Text5.Text="" '则Text5不输出Text5.SetFocus '当前的激活文本区(焦点)在Text5End IfEnd IfEnd Sub程序3界面设计(程序设计界面和运行结果界面):程序3如下:Private Sub Option1_Click()Text1.FontName = "宋体" 'Text1中的内容为宋体End SubPrivate Sub Option2_Click()Text1.FontName = "黑体" 'Text1中的内容为黑体End SubPrivate Sub Option3_Click()Text1.FontSize = 10 'Text1中的内容为字号大小为10号End SubPrivate Sub Option4_Click()Text1.FontSize = 12 'Text1中的内容为字号大小为12号End SubPrivate Sub Check1_Click()If Check1.Value = 1 Then '如果Check1被选中Text1.FontBold = True 'Text1中的内容变为粗体ElseText1.FontBold = False 'Text1中的内容不变End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then '如果Check2被选中Text1.FontItalic = True 'Text1中的内容变为斜体ElseText1.FontItalic = False 'Text1中的内容不变End IfEnd Sub程序4如下:Private Sub Command1_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量 Last = List1.ListCount - 1'将List1.ListCount - 1 中被选中的内容赋給LastFor i = 0 To Last '统计i大于Last 时停止循环List2.AddItem List1.List(Last - i)'将List2中被选中的内容添加到List1中List1.RemoveItem Last - i '将List1中被选中的内容删除Last - i个Next iCommand1.Enabled = False 'Command1按钮无效Command2.Enabled = True 'Command2按钮有效End SubPrivate Sub Command2_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量Last = List2.ListCount - 1'将List2.ListCount - 1 中被选中的内容赋給LastFor i = 0 To Last '统计i大于Last 时停止循环List1.AddItem List2.List(Last - i)'将List1中被选中的内容添加到List2List2.RemoveItem Last - i '将List2中被选中的内容删除Last - i个Next iCommand1.Enabled = True 'Command1按钮有效Command2.Enabled = False 'Command2按钮无效End SubPrivate Sub Command3_Click()Unload Me '程序退出End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 9 '统计i大于9 时停止循环RandomizeList1.AddItem Int((90 * Rnd) + 10) '给List1中添加内容Next iEnd Sub程序5如下:Private Sub Combo1_Change()If Combo1.Text <> "" Then '如果Combo1输入内容不为空 Command1.Enabled = True 'Command1按钮点击有效Command1.Default = True 'Command1为默认按钮ElseCommand1.Enabled = False '否则,Command1按钮点击无效,成灰色状态End IfEnd SubPrivate Sub Combo1_Click()Command2.Enabled = True 'Command2按钮点击有效Command2.Default = True 'Command2为默认按钮Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command1_Click()Combo1.AddItem Combo1.Text '添加内容到Combo1中Combo1.Text = "" 'Combo1输入内容为空Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command2_Click()x = Combo1.ListIndex '将Combo1中的内容赋給xCombo1.RemoveItem x '将Combo1中的内容中的x删除 If x < Combo1.ListCount Then '如果x小于Combo1.ListCount 中的值Combo1.ListIndex = x '将x中的内容赋給Combo1ElseIf x > 0 Then '否则,如果x大于0Combo1.ListIndex = x - 1 'x-1赋给Combo1ElseCommand2.Enabled = False '否则,Command2按钮点击无效Command2.Default = False 'Command2不为默认按钮End IfEnd IfText1.SetFocus '赋焦点光标在停放text1里End SubPrivate Sub Command3_Click()Text1.Text = Combo1.ListCount '将Combo1中的内容赋給Text1 Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command4_Click()End '程序结束End Sub程序6如下:Private Sub Command1_Click()HScroll1.Value = 0 '将数值0赋给滚动条HScroll1HScroll2.Value = 0 '将数值0赋给滚动条HScroll2HScroll3.Value = 0 '将数值0赋给滚动条HScroll3End SubPrivate Sub HScroll1_Change()Label5.Caption = HScroll1.Value'滚动条HScroll的数值显示在标签Label5上Average '求其平均值End SubPrivate Sub HScroll2_Change()Label6.Caption = HScroll2.Value'滚动条HScrol2的数值显示在标签Label6上Average '求其平均值End SubPrivate Sub HScroll3_Change()Label7.Caption = HScroll3.Value'滚动条HScrol3的数值显示在标签Label7上Average '求其平均值End SubPrivate Sub Average()Dim Temp As Double '定义双精度变量TempTemp = (HScroll1.Value + HScroll2.Value + HScroll3.Value) / 3'将滚动条HScroll,HScroll2,HScroll3的平均值之和除以3,结果赋给TempLabel8.Caption = CStr(Temp) 'Temp的均值显示在标签Label8上End Sub程序7如下:Private Sub Form_Load()Label1.Caption = Time '在窗体上,将现在的时间赋给标签Label1End SubPrivate Sub Timer1_Timer()Label1.Caption = Time'在时间控件Time1把现在的时间显示在标签Label1上End Sub四、实验总结实验三、过程一、实验目的1.掌握过程的定义和调用的方法2.掌握典型问题的算法求解二、实验内容1、过程的定义和调用程序1:创建应用程序,要求对输入的非负整数m和n,如果m>=n,则显示组合数的值,否则显示数据出错。

相关文档
最新文档