VB程序设计实验报告
VB程序设计的实验报告
VB程序设计的实验报告VB程序设计的实验报告引言：VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它具有简单易学、功能强大的特点，被广泛用于开发各种桌面应用程序。
本文将介绍我在VB程序设计实验中的学习和实践经验。
一、实验目的本次实验的主要目的是让我们学习并掌握VB程序设计的基本知识和技巧，通过实践编写简单的应用程序，提升我们的编程能力和解决问题的能力。
二、实验环境在实验中，我们使用了Visual Studio作为开发工具。
Visual Studio是一款功能强大的集成开发环境，它提供了丰富的开发工具和调试功能，极大地方便了我们的开发工作。
三、实验内容在实验中，我们主要完成了以下几个实验任务：1. 界面设计：首先，我们需要设计程序的界面，包括窗体、按钮、文本框等控件的布局和样式。
通过拖拽控件、设置属性等操作，我们可以快速创建出一个漂亮的界面。
2. 事件处理：接下来，我们需要为各个控件添加事件处理程序。
当用户点击按钮或输入文本时，我们的程序需要做出相应的反应。
通过编写事件处理程序，我们可以实现各种功能，如计算、数据处理等。
3. 数据存储：在实验中，我们还学习了如何使用VB提供的数据库连接工具，将数据存储到数据库中。
通过编写SQL语句，我们可以实现数据的增删改查等操作，方便我们对数据进行管理和分析。
四、实验心得通过本次实验，我对VB程序设计有了更深入的了解和掌握。
在实验中，我遇到了一些困难和问题，但通过不断尝试和学习，我最终成功完成了实验任务。
首先，我学会了如何使用VB的开发工具和调试功能。
Visual Studio提供了许多方便的功能，如自动补全、调试器等，它们大大提高了我们的开发效率和代码质量。
其次，我学会了如何设计程序的界面。
一个好的界面设计可以使用户更加方便地使用我们的程序，并提升用户体验。
通过实验，我学会了如何合理布局控件、设置属性，使界面更加美观和易用。
最重要的是，我学会了如何编写事件处理程序。
VB实验报告01
实验报告01：熟悉Visual Basic 6.0编程环境一、实验目的1．熟悉Visual Basic 6.0编程界面。
2．掌握编写VB6.0程序的基本过程。
3．能够建立VB工程，制作应用程序界面，输入程序代码，并执行程序和生成EXE可执行程序。
二、实验内容1．熟悉VB编程界面2．编写程序。
（1）在使用VB系统设计应用程序时，一般包括两个阶段，分别是界面设计阶段和代码设计阶段。
（2）一个完整的VB工程包括一个工程文件（*.vbp）、至少一个窗体文件（*. frm ）。
（3）某个程序的界面设计如图所示：其中在窗体上显示文字的是标签控件。
需要将窗体的Caption 属性设置为“欢迎窗口”。
3．设计一个简单的VB程序，界面和各个对象属性初值如下：对象属性初值按钮1（Command1）Caption 确定按钮2（Command3）Caption 结束标签1（Label1）Caption 请输入你的姓名标签2（Label2）Caption 空文本框（Text1）Text 空要求：输入姓名后，单击“确定”按钮，将在下方Lable2标签中显示文本框中姓名&“，祝你学好VB程序设计！”（1）界面设计：向窗体中添加两个按纽（C ommand1、Command2）、二个标签（Lable1、Lable2）、一个文本框（Text1）。
（2）设置好各对象属性值。
（3）编写两个命令按钮的事件代码。
（4）调试运行程序。
（5）在桌面上建立文件夹，保存工程，工程文件命名为sy1_1.vbp，窗体文件命名为sy1_1.frm。
三、思考题1．VB采用了面向对象的程序设计思想。
2．窗体上有一个文本框Text1，为了在该文本框中显示“Hello！”，所使用的语句是Text1.Text=”Hello!”。
3．用户在输入程序代码时，是否需要区分大小写？词与词之间的空格是否可以删除？答：不需要区分大小写。
词与词之间的空格不可以删除。
4．简单说明VB应用程序的开发步骤答：（1）创建工程（2）建立用户界面（3）设置各个对象的属性（4）编写事件过程代码（5）运行调试程序（6）保存程序（7）生成可执行文件。
vb程序实验报告
vb程序实验报告《vb 程序实验报告》一、实验目的通过本次实验，熟悉 Visual Basic（VB）程序设计的基本操作和开发流程，掌握常用控件的使用方法，理解事件驱动编程的概念，提高编程逻辑思维和问题解决能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容（一）界面设计1、打开 Visual Basic 60 开发环境，创建一个新的标准 EXE 工程。
2、在窗体上添加了文本框（TextBox）、命令按钮（CommandButton）、标签（Label）等控件，用于实现用户输入、操作触发和结果显示。
3、合理调整控件的大小、位置和字体属性，使界面美观、简洁、易用。
（二）功能实现1、编写代码实现简单的加法运算在文本框中输入两个数，点击“计算”按钮，将两数相加的结果显示在另一个文本框中。
代码如下：｀｀｀vbPrivate Sub Command1_Click(）Dim num1 As DoubleDim num2 As Doublenum1 ＝ Val(Text1Text)num2 ＝ Val(Text2Text)Text3Text ＝ num1 ＋ num2End Sub｀｀｀2、实现字符串处理功能输入一个字符串，点击“反转”按钮，将字符串反转后显示。
代码如下：｀｀｀vbPrivate Sub Command2_Click(）Dim str As Stringstr ＝ Text4TextText5Text ＝ StrReverse(str)End Sub｀｀｀3、制作一个简单的登录界面输入用户名和密码，点击“登录”按钮，判断输入是否正确，如果正确显示“登录成功”，否则显示“登录失败”。
代码如下：｀｀｀vbPrivate Sub Command3_Click(）Dim username As StringDim password As Stringusername ＝ Text6Textpassword ＝ Text7TextIf username ＝＂admin" And password ＝＂123456" ThenLabel8Caption ＝＂登录成功"ElseLabel8Caption ＝＂登录失败"End IfEnd Sub｀｀｀（三）错误处理与优化1、在代码中添加了必要的错误处理机制，如对输入数据的合法性进行判断，防止程序因非法输入而崩溃。
(最新版)VB程序设计实验报告
湖北文理学院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>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; c End 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后的值赋给ksxh = 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 程序实验报告一、实验目的通过本次实验，深入了解和掌握 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程序设计
Else
Label4.Caption = "方程无解"
End If
Else
x1 = (-c) / b
Label4.Caption = "方程有一个解：" & x1
End If
Else
d = b * b - 4 * a * c
t = Sqr(Abs(d))
If (d >= 0) Then
x1 = (-b + t) / (2 * a)
x2 = (-b - t) / (2 * a)
Label4.Caption = "方程有两个实数根： x1=" & x1 & " x2=" & x2
Else
x3 = (-b) / (2 * a)
x4 = t / (2 * a)
Text3.Text = ""
Label4.Caption = ""
End Sub
（4）保存工程，运行程序
3、调试过程及运行结果
4、实验心得
（1）要把求解过程中遇到的情况考虑全面。
（2）要善于利用系统提供的计算函数。
Label4.Caption = "方程有两个复数根： x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4 & "i"
End If
End If
VB程序设计实验报告
VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。
2. 掌握单分支与双分支条件语句的使用。
3. 掌握多分支条件语句的使用。
4. 掌握情况语句的使用及与多分支条件语句的区别。
二﹑实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。
奖学金一等奖评定标准如下：(1) 平均分大于95分者。
(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。
5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。
要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。
6．输入一个数字（1～7），用英文显示对应的星期一～星期日。
提示：用Select语句来实现。
三﹑实验步骤4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下:Private Sub command1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5，打开VB后，建立4个Lebel标签，4个Text文本框，2个Command按钮，如上图。
编辑代码如下：Private Sub Command1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6, 打开VB后，建立1个Text文本框，1个Command按钮。
vb实验报告实验一
vb实验报告实验一VB实验报告实验一引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
本实验旨在通过实际操作，了解VB的基本语法和开发环境，并通过一个简单的案例来展示VB的应用。
一、实验目的本实验的主要目的是让学生熟悉VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。
二、实验内容本实验的主要内容包括：1. VB开发环境的安装与配置；2. VB的基本语法和控件的使用；3. 通过一个简单的案例来展示VB的应用。
三、实验步骤1. 安装VB开发环境：根据教材提供的安装包，按照步骤进行安装，并进行必要的配置。
2. 创建新项目：打开VB开发环境，点击“新建项目”，选择Windows应用程序，并设置项目名称和保存路径。
3. 设计界面：在VB的设计界面中，通过拖拽控件的方式，设计出所需的界面布局，并设置控件的属性。
4. 编写代码：在VB的代码编辑器中，编写相应的代码，实现界面与功能的交互。
5. 调试运行：点击“调试”菜单中的“开始调试”选项，运行程序，并检查是否达到预期效果。
6. 保存项目：在调试运行成功后，及时保存项目并进行备份。
四、实验案例本实验以一个简单的学生成绩管理系统为例，通过VB实现以下功能：1. 学生信息录入：通过输入学生的姓名、学号、成绩等信息，将其保存到数据库中。
2. 学生信息查询：根据学号或姓名等关键字，从数据库中查询学生的信息，并在界面中显示出来。
3. 学生成绩统计：根据数据库中保存的学生信息，计算出平均成绩、最高分和最低分，并在界面中显示出来。
实验结果：经过以上步骤的实验操作，我们成功地实现了一个简单的学生成绩管理系统。
通过该系统，我们可以方便地录入、查询和统计学生的成绩信息。
实验总结：通过本次实验，我们深入了解了VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。
通过实际操作，我们掌握了VB开发的基本流程，提高了编程能力和解决问题的能力。
VB程序设计实验1实验报告
《VB程序设计》实验报告一、实验目的及要求（见实验书，要求手填）：1.了解系统对计算机软件、硬件的要求。
2.掌握启动与退出的方法。
3.掌握建立、编辑和运行应用程序的全过程。
4.掌握常用控件的使用，如文本框、标签、命令按钮、图片框。
二、实验完成情况：三、界面设计与程序代码要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下：1、创建一个程序步骤：①在窗体上建立3个标签、一个命令按钮和一个文本框。
②在代码窗口中选择Button1对象Click事件，在Button1-Click事件模板内输入代码。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计②程序代码Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel3.Text = TextBox1.TextEnd Sub ③运行结果2、左右移动文字步骤：①在窗体上建立1个标签、1个命令按钮、1个定时器。
②在代码窗口分别对3个控件编写代码，最后编写左右移动的单位。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计②程序代码Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTimer1.Enabled = FalseCall mymove()End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickCall mymove()End SubSub mymove()Label1.Left = Label1.Left + 50If Label1.Left > Me.Height Then Label1.Left = 0End SubEnd Class③运行结3、统计鼠标单击窗口的次数步骤：①在窗体上建立一个标签、一个文本框。
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 Caption=”实验2”Label1 复制文本Label2 输入文本Text1 Text=“VB功能强大,但要下功夫学习才能学好。
” (每个同学文本框中内容可以不同)Text2 Text=””Command1 Caption=”隶书25磅”Command2 Caption=”复制=>”四、实验步骤1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击vb6、0经典版打开标准 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程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了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程序设计实验要求及报告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所示的计算程序, 要求: 窗体显示字体、大小默认, 参数输入用文本框, 结果显示用标签框。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。
实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。
该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。
通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。
2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。
通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。
3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。
通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。
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程序设计》实验报告专业：信息管理与信息系统班级：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实验报告(含答案)
实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。
VB程序设计实验报告
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、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
长江大学计算机上机实习报告姓名:梁智荣序号：11学号:200903812班级:油工 10905班指导老师: 任老师张老师日期:2010-12-16目录一：系统名称:学生成绩管理系统的设计与实现二：设计目的三：程序摘要四：系统设计流程五：相关数据列表六：小结七：程序代码（1）模块代码（2）窗体代码一.系统名称:学生成绩管理系统的设计与实现二.设计目的1. 熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2. 主要掌握VB语言中的结构体﹑指针及文件操作等内容3. 了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.三.程序摘要先在记事本中创建2个文本文档,分别输入本班24名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放班级的成绩表.2．分别统计全班每门课的平均分和标准差,并计算各分数段(90分以上;80～90;70～79;60～69;60分以下)的学生数3．用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格.4．打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB语言,物理,化学5．屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)6．屏幕显示优等生名单(含学号,N门课成绩,平均分,名次),优等生条件:a) 平均分>=90分b) 名次在本班位于前三名c) 平均分>=85分,并且至少有一门课的成绩>=95四、系统设计流程五.相关数据列表1、原始成绩表2、课程及学分3、计算加权平均分4、按平均分排名次5、打印每位同学的成绩条6、打印不及格的人7、打印优等生情况8、每门课的平均分9、各分数段人数六．小结在这次上机实习过程中，我了解了程序在Visual VB 6.0中调试并运的方法，并上机实践解决了一些平时没有机会解决和一些曾经被自己忽视的问题，如程序的排序对结果显示影响，标点符号对程序结果的影响，并养成了仔细检查程序的好习惯，加强了自己动手的能力。
但通过这次上机让我看到了自己在VB学习中的漏洞，不过看到自己亲自编出的程序，心里非常高兴，这要特别感谢我的辅导老师们的耐心讲解，细心的帮助我调试程序。
感谢学校老师给我们这样的机会，它有利于培养我们独立思考，求异思维的能力。
我深信这次课程设计，对我的VB学习以及今后的计算机等级考试的学习和考试会起到很大的促进作用，我从中看到了自己还有很多的不足，在这里真心的感谢两位老师的耐心的指点，今后我会更加努力学好计算机方面的知识！总之，这次实习让我受益良多，我更深的体会了细节决定成败，无论在以后上机还是学习做事中，我一定注意细节。
希望学校多给我们这样动手实践的机会，让我们在实践中发现问题，解决问题。
我会珍惜加倍这样难得的机会七、程序代码1、模块代码Type xscjbxh As Stringxm As Stringcj(1 To 5) As Integeraver As Singlemc As IntegerEnd TypeType kechen编号As Integer课程名称As String课程学分As Singleaver As SingleEnd TypePublic stu() As xscjbPublic ke() As kechenPublic N%, M%, Zxf% '总人数，课程数,总学分Public str As String2、窗体代码Private Sub Form_Load()Dim st1$(), str1$Open App.Path + "\chengji.txt" For Input As #1 Open App.Path + "\kecheng.txt" For Input As #2N = 0: M = 0: Zxf = 0 '总人数，课程数，总学分Line Input #2, str1Do While Not EOF(2)M = M + 1ReDim Preserve ke(M)Line Input #2, str1'Text1 = Text1 & vbCrLf & str1str1 = Trim(str1)str1 = space1(str1)st1 = Split(str1, " ")'Print st1(0), st1(1)ke(M).编号= st1(0)ke(M).课程名称= st1(1)ke(M).课程学分= st1(2)Zxf = Zxf + ke(M).课程学分LoopLine Input #1, str1'Text1 = str1Do While Not EOF(1)N = N + 1ReDim Preserve stu(N)Line Input #1, str1'Text1 = Text1 & vbCrLf & str1str1 = Trim(str1)str1 = space1(str1)st1 = Split(str1, " ")stu(N).xh = st1(0)stu(N).xm = st1(1)stu(N).cj(1) = st1(2)stu(N).cj(2) = st1(3)stu(N).cj(3) = st1(4)stu(N).cj(4) = st1(5)stu(N).cj(5) = st1(6)stu(N).aver = 0stu(N).mc = 0LoopEnd SubPublic Function space1(ByVal sss As String)Dim x%x = InStr(sss, " ")Do While x > 0sss = Replace(sss, " ", " ")x = InStr(sss, " ")Loopspace1 = sssEnd FunctionPrivate Sub yuancj_Click()Dim i%ClsPrint "学号姓名化学工程制图线代VB 物理" For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77)Next iEnd SubPrivate Sub Average_Click() '计算加权平均分Dim i%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iClsPrint "学号姓名平均分"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(26); stu(i).averNext iEnd SubPrivate Sub GRS_Click() '统计各分数段人数Dim chengji(1 To 5, 1 To 5) As IntegerClsFor j = 1 To MFor i = 1 To NSelect Case stu(i).cj(j)Case Is >= 90chengji(1, j) = chengji(1, j) + 1Case 80 To 89chengji(2, j) = chengji(2, j) + 1Case 70 To 79chengji(3, j) = chengji(3, j) + 1Case 60 To 69chengji(4, j) = chengji(4, j) + 1Case Is < 60chengji(5, j) = chengji(5, j) + 1End SelectNext iNext jPrint " 范围化学工程制图线代VB 物理"Print "90分以上"; Tab(12); chengji(1, 1); Tab(24); chengji(1, 2); Tab(37); chengji(1, 3); Tab(47); chengji(1, 4); Tab(55); chengji(1, 5)Print "80-89分"; Tab(12); chengji(2, 1); Tab(24); chengji(2, 2); Tab(37); chengji(2, 3); Tab(47); chengji(2, 4); Tab(55); chengji(2, 5)Print "70-79分"; Tab(12); chengji(3, 1); Tab(24); chengji(3, 2); Tab(37); chengji(3, 3); Tab(47); chengji(3, 4); Tab(55); chengji(3, 5)Print "60-69分"; Tab(12); chengji(4, 1); Tab(24); chengji(4, 2); Tab(37); chengji(4, 3); Tab(47); chengji(4, 4); Tab(55); chengji(4, 5)Print "59分以下"; Tab(12); chengji(5, 1); Tab(24); chengji(5, 2); Tab(37); chengji(5, 3); Tab(47); chengji(5, 4); Tab(55); chengji(5, 5)End SubPrivate Sub minci_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1For j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsPrint "学号姓名名次"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).mcNext iEnd SubPrivate Sub MPJ_Click()Dim i%, j%For j = 1 To Mke(j).aver = 0For i = 1 To Nke(j).aver = ke(j).aver + stu(i).cj(j)Next ike(j).aver = Round(ke(j).aver / N, 2)Next jClsPrint " 化学工程制图线代VB 物理"Print ke(1).aver; Tab(13); ke(2).aver; Tab(26); ke(3).aver; Tab(36); ke(4).aver; Tab(45); ke(5).averEnd SubPrivate Sub Print59_Click()ClsPrint "学号姓名课程名称课程学分成绩"For i = 1 To NFor j = 1 To MIf stu(i).cj(j) <= 59 ThenPrint stu(i).xh; Tab(12); stu(i).xm; Tab(21); ke(j).课程名称; Tab(35); ke(j).课程学分; Tab(47); stu(i).cj(j)End IfNext jNext iEnd SubPrivate Sub printall_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfClsPrint "学号姓名化学工程制图线代VB 物理平均分名次"For i = 1 To NPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Spc(6); stu(i).mcNext iEnd SubPrivate Sub PrintCJD_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsFor i = 1 To NPrint "学号姓名化学工程制图线代VB 物理平均分名次"Print stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Tab(85); Tab(90); stu(i).mcNext iEnd SubPrivate Sub PrintGood_Click()Dim i%, j%, k%, ti%, ts$, tsn!, ii%, ave!, kk%For i = 1 To Nstu(i).aver = 0For j = 1 To Mstu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).课程学分Next jstu(i).aver = Round(stu(i).aver / Zxf, 2)Next iFor i = 1 To N - 1k = iFor j = i + 1 To NIf stu(k).aver < stu(j).aver Then k = jNext jts = stu(k).xh: stu(k).xh = stu(i).xh: stu(i).xh = tsts = stu(k).xm: stu(k).xm = stu(i).xm: stu(i).xm = tstsn = stu(k).aver: stu(k).aver = stu(i).aver: stu(i).aver = tsnFor ii = 1 To Mti = stu(k).cj(ii): stu(k).cj(ii) = stu(i).cj(ii): stu(i).cj(ii) = tiNext iiNext ik = 1: ave = stu(1).averFor i = 1 To NIf stu(i).aver = ave Thenstu(i).mc = kElseave = stu(i).averk = k + 1stu(i).mc = kEnd IfNext iClsPrint "学号姓名化学工程制图线代VB 物理平均分名次"For i = 1 To NFor j = 1 To MIf stu(i).cj(j) >= 95 And stu(i).aver >= 85 Then s = s + 1Next jflag = s >= 2 Or stu(i).aver >= 90 Or stu(i).mc <= 3If flag ThenPrint stu(i).xh; Tab(12); stu(i).xm; Tab(22); stu(i).cj(1);Print Tab(36); stu(i).cj(2); Tab(46); stu(i).cj(3); Tab(57); stu(i).cj(4);Print Tab(66); stu(i).cj(5); Tab(77); stu(i).aver; Tab(85); Tab(90); stu(i).mc End Ifs = 0Next iEnd SubPrivate Sub yaunkc_Click()Dim i%ClsPrint "编号课程名称课程学分"For i = 1 To MPrint ke(i).编号; Tab(7); ke(i).课程名称; Tab(22); ke(i).课程学分Next iEnd Sub。