VB程序设计实验-学生成绩管理系统电子教案

河南工业大学计算机上机实习报告

姓名:张翼飞

序号：11

学号:201048060413

班级:食工 1004班

指导老师: 任老师张老师

日期:2011-03-05

目录

一：系统名称:学生成绩管理系统的设计与实现

二：设计目的

三：程序摘要

四：系统设计流程

五：相关数据列表

六：小结

七：程序代码

（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 xscjb

xh As String

xm As String

cj(1 To 5) As Integer

aver As Single

mc As Integer

End Type

Type kechen

编号As Integer

课程名称As String

课程学分As Single

aver As Single

VB程序设计实验报告

《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 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题：

70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回

VB课程实验报告

山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val

If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：

S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

《VB程序设计》实验报告

台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

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 = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

VB设计计算器实验报告

VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日

设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作

实验报告VB程序设计

实验报告3: VB程序设计 二、计算二元一次方程。 1、目的和要求 （1）熟练掌握控件的使用。 （2）复习巩固系统给用户提供算数函数的用法。 2、内容和步骤 （1）创建窗体 窗体forml 由二个命令按钮command1、command2、四个标签labell、Iabel2、Iabel3、Iabel4、三个文本框textl、text2、text3组成 （2）设计窗体界面及属性 属性设置： （3）编写代码 Private Sub Comma nd1_Click() Dim a As Long, b As Long, c As Long Dim d As Long, t As Si ngle Dim x1 As Single, x2 As Single, x3 As Single, x4 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 The n If b = 0 The n If c = 0 The n Label4.Caption = “方程有无穷多解“ 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 ="方程有两个实数根: Else x3 = (-b) / (2 * a) x4 = t / (2 * a) Label4.Caption ="方程有两个复数根: End If End If End Sub Private Sub Comma nd2_Click() Textl.Text ="" Text2.Text ="" Text3.Text ="" Label4.Captio n ="" End Sub (4)保存工程，运行程序 3、调试过程及运行结果 4、实验心得 (1)要把求解过程中遇到的情况考虑全面。 (2)要善于利用系统提供的计算函数。x1=" & x1 & " x2=" & x2 x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4 & "i"

(完整版)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的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量

大一《VB面向对象程序设计》作业及实验报告书_答案

实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一

A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j

VB程序设计实验报告

《VB程序设计》实验单元 实验报告 专业班级：新闻班姓名：学号：指导教师：完成时间：2013.5 、实验题目 数组和自定义类型 、实验环境 Visual Basic6.0 程序软件 、实验目的 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题: 0 Foi rnl

70 53 57 最大值81 4 41 86 最大值96 52 76 5 最大值76 82 82 58 最大值98 28 30 77 最小值1 79 37 96 最小值4 59 46 29 最小值5 98 91 22 最小值22 87 62 69 10 76 81 平均值 5 94 平均值 64 26 平均值 70 54, 3 36 56? 98 24 53 平均值67.7 79 28 4 99 1 平均值36. 5 29 38 30 94 97 40 27 16 16 64 最大值97 最小值 16 平均值45. 1 41 41 71 32 63 20 18 58 8 45 Q Forml L 70 53 57 28~~77 1 76 81~70 最大值81 最小值1 平均值54, 3 最小值 平均值39. 7 8 最大值71

VB实验报告(含答案)分析

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。 图1.1 实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption 我的第一个vb程序窗体 Form1 caption 请输入姓名标签 Label1 text ““文本框 Text1 caption 显示命令按钮Command1 caption 清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些？ Label1.Caption=“请输入姓名” Label1.fontsize=24 Label1.fontbold=True 2.两个按钮所使用的是什么事件？代码分别是什么？ Private Sub Command1_Click() Text1.text=“姓名”

实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1 Caption Inputbox与msgbox应用窗体

《VB语言程序设计》实验报告

广西工学院鹿山学院 《VB语言程序设计》实验报告 系别： 专业班级： 姓名： 学号： 指导教师： 二〇一三年六月六日

一. 实验目的 了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。 二. 实验内容 请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中各窗体功能包含如下： 1.首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口； 2.个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点 击成绩统计按钮可以跳转至成绩统计窗口； 3.成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分 和最低分。 三. 程序设计界面 1.首页登录窗口： 2. 个人信息录入窗口

3.成绩统计 四. 程序实现代码 1.首页登录窗口代码： Private Sub Command1_Click() If Text2.Text = 123456 Then cao2.Show Else MsgBox "请重新输入密码" Text2.Text = " " Text2.SetFocus End If End Sub Private Sub Command2_Click() End End Sub 2.个人信息录入 Private Sub Command1_Click() If Text1.Text = " " Then Exit Sub End If Dim strAdd As String strAdd = Text1.Text & " " & Text2.Text & " " & Combo1.Text & " " & Combo2.Text & " " List1.AddItem strAdd End Sub Private Sub Command2_Click() If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex End If

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：信息管理，信息的浏览、信息的修改、信息的添加以及删除等主功能。

VB实验报告四

实验报告四 实验目的 （1）掌握Function过程和Sub过程的定义与调用 （2）理解参数按址传递和按值传递的本质 （3）理解变量和过程的作用域 （4）能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n！。程序界面如下图所示。（5分） 掌握函数过程的定义及使用 实验结果： 【实验1 代码】 Private Sub Command1_Click() Dim x As Integer x = Val(T ext1.T ext) T ext2.T ext = f(x) End Sub Public Function f(x As Integer) As Single a = 1 For i = 1 T o x

a = a * i Next i f = a End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n！。程序界面同上题。（5分）掌握Sub子过程的定义及使用 实验结果： 【实验2 代码】 Private Sub Command1_Click()

Dim x As Integer x = Val(T ext1.T ext) Call f(x) End Sub Private Sub Command2_Click() End End Sub Public Sub f(x As Integer) a = 1 For i = 1 T o x a = a * i Next i T ext2.T ext = a End Sub 【实验2 典型结果】

VB程序设计实验报告

长江大学 计算机上机实习报告 姓名:梁智荣 序号：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 四、系统设计流程

VB程序实验报告

VB程序设计》实验报告 实验二顺序结构程序设计 Text3 = Len(Text1) Text4 = Len(Trim(Text1)) End Sub

Private Sub Form_Load() End Sub 计算机技术基础（VB）实验报告——实验二 四、思考并回答1．写出实验中的代码：⑴2-1a 代码是：Private Sub Command1_Click() Text2.Text = 2 * 3.14 * Val(Text1) End Sub Private Sub Command2_Click() Text3.Text = 3.14 * Val(Text1) ^ 2 End Sub Private Sub Form_Load() End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then i = MsgBox("输入了非法字符！", 64, "提示") Text1 = "" Text1.SetFocus End If Text2 = "" Text3 = ""

End Sub ⑵2-1b 代码是： Private Sub Command1_Click() Const pi = 3.14159 Dim r As Single, l As Single, s As Single r = InputBox(" 请输入半径:", " 输入半径") s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 & r Label3 = Label3 + Str(l) label4 = label4 + Str(s) End Sub 2．2-2a 代码是： Private Sub Command1_Click() Text1.ForeColor = RGB(255, 0, 0) Text2.ForeColor = RGB(255, 0, 0) Text2.PasswordChar = "" Text1 = (Text1 = "2006000") Text2 = (Text2 = "TJin1234") End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Text1_GotFocus() Text1 = "" Text1.ForeColor = RGB(0, 0, 0) End Sub Private Sub Text2_GotFocus() Text2 = "" Text2.ForeColor = RGB(0, 0, 0) Text2.PasswordChar = "*" End Sub 3．2-2b 代码是： Private Sub Command1_Click() Text2 = UCase(Text1) End Sub Private Sub Command2_Click() Text2 = LCase(Text1) End Sub

VB实验一 实验报告-2016

实验报告一 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握常用函数的使用方法 （4）掌握常用输入、输出语句 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（20分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Baidc 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动 实验结果： 【请将你的代码粘贴到下面】 Private Sub Command1_Click() Cls Form1.Caption = "你好" T ext1.T ext = "欢迎使用visual basic"

End Sub Private Sub Command2_Click() Cls T ext1.T ext = "" Form1.Caption = "" End Sub Private Sub Command3_Click() End End Sub 【请将你的典型结果的截图粘贴到下面】 【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。（20分） 通过该程序掌握变量的定义、变量名与变量值的含义。

VB程序设计实验报告

〈〈VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名:学号：_指导教师: 完成时间：2013.5 一、实验题目 数组和白定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 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题：

r O 回X 「Q Forml 70 53 5728 3077176 8170 最大值81最小值1平均值54. 3 4 41 8679 379687 5 9436 最大值96最小值4平均值56. 5 52 76 559 46296264 2627 实 最大值76最小值5平均值44.6 82 82 5898 91226998 24 53 最大值98最小值22平均值67.7验 10 99 67 1 57101079 284 最大值99最小值1平均值36. 5E 29 38 3094 97402716 16 64 最大值97最小值16平均值45. 1 41 41 7132 63201858 845 最大值71最小值8平均值39. 7 ------------------ /

郑州大学vb实验报告书参考答案

郑州大学VB实验报告书参考答案 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程

1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "、白云、绿水、青山" End Sub 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load

font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg") End Sub Private Sub Command2_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg") End Sub Private Sub Command3_Click() Picture1.Visible = False End Sub 2-3 Private Sub Command1_Click() Label3 = Text1 * Text2