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

回

第2题:

Cl For ml -V J -V J -

\J

r

5

7

8 9

9 t-i

2 6

19 6

7 48 7

5 14 3 5 9

71

30828788

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