(完整版)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 '定义整形变量
i,k,n
n = Val(InputBox("任意输入一个整数：")) '给n输入值
i = 2 'i初始值为2
k = Int(n / 2) '为整形的二分之一n的值赋给k
Do While i <= k '当i小于且等于k
If n Mod i = 0 Then '如果n模除i 为0
Exit Do '退出循环
Else
i = i + 1 '否则i加1
End If
Loop
If i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End Sub
Private Sub Command2_Click()
End ' 退出程序
End Sub
程序3如下：
Private Sub Form_Click()
Dim m As Integer, n As Integer '定义整形变量m,n
Cls '清屏
For 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 n
Print "" '输出空格
Next m
End 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,sxk
For i = 100 To 999 'i赋初始值为100，当i大于999，停止循环
m = i \ 100 'i除以100，结果赋给m
n = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n
k = i Mod 10 'i模除10后的值赋给k sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算
If sxh = i Then '如果sxh等于i
Print i, '输出i的值
End If
Next i
End Sub
Private 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 Sub
Private Sub Command1_Click()
Text2.Text = Text1.SelText '在Text1中选定文本赋给Text2
End Sub
Private Sub Command2_Click()
End '程序结束
End Sub
程序2如下：
Private Sub Command1_Click()
If Text1 = "" Then
'如果Text1没有输入，当前的激活文本区（焦点）在Text1
Text1.SetFocus
Exit Sub '退出过程
End If
If Text2 = "" Then
'如果Text2没有输入，当前的激活文本区（焦点）在Text2
Text2.SetFocus
Exit Sub '退出过程
End If
If Text3 = "" Then
'如果Text3没有输入，当前的激活文本区（焦点）在Text3
Text3.SetFocus
Exit Sub '退出过程
End If
If Text4 = "" Then
'如果Text4没有输入，当前的激活文本区（焦点）在Text4
Text4.SetFocus
Exit Sub '退出过程
End If
If Text5 = "" Then
'如果Text5没有输入，当前的激活文本区（焦点）在Text5
Text5.SetFocus
Exit Sub '退出过程
End If
End '退出程序
End Sub
Private Sub Text2_LostFocus()
If Text2.Text <> "" Then '如果Text2有输入
If Text2.Text <> "男" And Text2.Text <> "女" Then
'如果Text2输入的内容不是
“男”和“女”
Text2.Text = "" '则Text2不输出
Text2.SetFocus '当前的激活文本区（焦点）在
Text2
End If
End If
End Sub
Private Sub Text4_LostFocus()
If Text4.Text <> "" Then '如果Text4有输入
If Len(Text4.Text) <> 6 Or Not IsNumeric(Text4.Text) Then '如果Text4输入的内容不是数值或者字符串的长度
不为6
Text4.Text="" '则Text4不输出
Text4.SetFocus '当前的激活文本区（焦点）在
Text4
End If
End If
End Sub
Private Sub Text5_LostFocus()
If Text5.Text <> "" Then '如果Text5有输入
If Len(Text5.Text) <> 8 Or Not IsNumeric(Text5.Text) Then
'如果Text5输入的内容不是数值或者字符串的长度不为8
Text5.Text="" '则Text5不输出
Text5.SetFocus '当前的激活文本区（焦点）在Text5
End If
End If
End Sub
程序3界面设计(程序设计界面和运行结果界面)：
程序3如下：
Private Sub Option1_Click()
Text1.FontName = "宋体" 'Text1中的内容为宋体
End Sub
Private Sub Option2_Click()
Text1.FontName = "黑体" 'Text1中的内容为黑体
End Sub
Private Sub Option3_Click()
Text1.FontSize = 10 'Text1中的内容为字号大小为10号
End Sub
Private Sub Option4_Click()
Text1.FontSize = 12 'Text1中的内容为字号大小为12号
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then '如果Check1被选中
Text1.FontBold = True 'Text1中的内容变为粗体
Else
Text1.FontBold = False 'Text1中的内容不变
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then '如果Check2被选中
Text1.FontItalic = True 'Text1中的内容变为斜体
Else
Text1.FontItalic = False 'Text1中的内容不变
End If
End Sub
程序4如下：
Private Sub Command1_Click()
Dim i As Integer, Last As Integer '定义i和Last为整型变量 Last = List1.ListCount - 1
'将List1.ListCount - 1 中被选中的内容赋給Last
For i = 0 To Last '统计i大于Last 时停止循环List2.AddItem List1.List(Last - i)
'将List2中被选中的内容添加到List1中
List1.RemoveItem Last - i '将List1中被选中的内容删除Last - i个
Next i
Command1.Enabled = False 'Command1按钮无效
Command2.Enabled = True 'Command2按钮有效
End Sub
Private Sub Command2_Click()
Dim i As Integer, Last As Integer '定义i和Last为整型变量Last = List2.ListCount - 1
'将List2.ListCount - 1 中被选中的内容赋給Last
For i = 0 To Last '统计i大于Last 时停止循环
List1.AddItem List2.List(Last - i)
'将List1中被选中的内容添加到List2
List2.RemoveItem Last - i '将List2中被选中的内容删除Last - i个
Next i
Command1.Enabled = True 'Command1按钮有效
Command2.Enabled = False 'Command2按钮无效
End Sub
Private Sub Command3_Click()
Unload Me '程序退出
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9 '统计i大于9 时停止循
环
Randomize
List1.AddItem Int((90 * Rnd) + 10) '给List1中添加内容
Next i
End Sub
程序5如下：
Private Sub Combo1_Change()
If Combo1.Text <> "" Then '如果Combo1输入内容不为空 Command1.Enabled = True 'Command1按钮点击有效
Command1.Default = True 'Command1为默认按钮
Else
Command1.Enabled = False '否则，Command1按钮点击无效，成灰色状态
End If
End Sub
Private Sub Combo1_Click()
Command2.Enabled = True 'Command2按钮点击有效
Command2.Default = True 'Command2为默认按钮
Combo1.SetFocus '赋焦点光标在停放Combo1里End Sub
Private Sub Command1_Click()
Combo1.AddItem Combo1.Text '添加内容到Combo1中
Combo1.Text = "" 'Combo1输入内容为空
Combo1.SetFocus '赋焦点光标在停放Combo1里End Sub
Private Sub Command2_Click()
x = Combo1.ListIndex '将Combo1中的内容赋給x
Combo1.RemoveItem x '将Combo1中的内容中的x删除 If x < Combo1.ListCount Then '如果x小于Combo1.ListCount 中的值
Combo1.ListIndex = x '将x中的内容赋給Combo1
Else
If x > 0 Then '否则，如果x大于0
Combo1.ListIndex = x - 1 'x-1赋给Combo1
Else
Command2.Enabled = False '否则，Command2按钮点击无效Command2.Default = False 'Command2不为默认按钮
End If
End If
Text1.SetFocus '赋焦点光标在停放text1里End Sub
Private Sub Command3_Click()
Text1.Text = Combo1.ListCount '将Combo1中的内容赋給Text1 Combo1.SetFocus '赋焦点光标在停放Combo1里End Sub
Private Sub Command4_Click()
End '程序结束
End Sub
程序6如下：
Private Sub Command1_Click()
HScroll1.Value = 0 '将数值0赋给滚动条HScroll1
HScroll2.Value = 0 '将数值0赋给滚动条HScroll2
HScroll3.Value = 0 '将数值0赋给滚动条HScroll3
End Sub
Private Sub HScroll1_Change()
Label5.Caption = HScroll1.Value
'滚动条HScroll的数值显示在标签
Label5上
Average '求其平均值
End Sub
Private Sub HScroll2_Change()
Label6.Caption = HScroll2.Value
'滚动条HScrol2的数值显示在标签
Label6上
Average '求其平均值
End Sub
Private Sub HScroll3_Change()
Label7.Caption = HScroll3.Value
'滚动条HScrol3的数值显示在标签
Label7上
Average '求其平均值
End Sub
Private Sub Average()
Dim Temp As Double '定义双精度变量Temp
Temp = (HScroll1.Value + HScroll2.Value + HScroll3.Value) / 3
'将滚动条HScroll，HScroll2，HScroll3的平均值之和除以3,结果赋给Temp
Label8.Caption = CStr(Temp) 'Temp的均值显示在标签Label8上
End Sub
程序7如下：
Private Sub Form_Load()
Label1.Caption = Time '在窗体上，将现在的时间赋给标签Label1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
'在时间控件Time1把现在的时间显示在标签Label1上
End Sub
四、实验总结
实验三、过程
一、实验目的
1．掌握过程的定义和调用的方法
2．掌握典型问题的算法求解
二、实验内容
1、过程的定义和调用
程序1：创建应用程序，要求对输入的非负整数m和n，如果m>=n，
则显示组合数的值，否则显示数据出错。
二、典型问题的算法
程序2：利用下列两式求得圆周率π的近似值，忽略级数式中绝对值小于0.000001的项。
...9753tan 9
7531
-+-+-=-x x x x x x 以及 程序3：如下图所示，求2-200之间的所有素数，要求每输出五个数据换一行。
程序4：利用随机函数产生20个-500到500的随机整数（包括-500和500），单击窗体时，在窗体上输出这20个数，同时在窗体上显示输出从大到小排好序的这些数。要求以每行5个数的格式显示，如下图所示。
三、实验记录
程序1如下：
Private Sub Command1_Click()
If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then '如果Text1没有输入或者不是字符串
MsgBox "请输入一个非负整数！", , "提示"
'弹出消息框标题为“提示”，内容为"请输入一个非负整数！"
Exit Sub '退出过程
End If
If Text2.Text = "" Or Not IsNumeric(Text2.Text) Then '如果Text2没有输入或者不是字符串
MsgBox "请输入一个非负整数！", , "提示"
'弹出消息框标题为“提示”，内容为"请输入一个非负整数！"
Text2.SetFocus '此刻焦点指在Text2 Exit Sub '退出过程
End If
If CInt(Text1.Text) > CInt(Text2.Text) Then
'如果输入Text1的整形函数值大于Text2的整形函数值 MsgBox "数据出错，请重新输入！", , "警告"
'弹出消息框标题为“警告”，内容为"数据出错。请重新输入！"
Text1.Text="" 'Text1不输出
Text2.Text="" 'Text1不输出
Text1.SetFocus '此刻焦点指在Text1 Exit Sub '退出过程
End If
n=CInt(Text1.Text) 'Text1的整形函数值赋给n
m=CInt(Text2.Text) 'Text2的整形函数值赋给m
Text3.Text = CStr(Fac(m) / Fac(n) / Fac(m - n))
'组合数做运算，利用阶乘
End Sub
Private Function Fac(ByVal n As Integer) As Double
'函数的调用，定义双精度变量Fac（），整形变量n
Dim i As Integer, Temp As Double '定义整形变量i, Temp
Temp=1 'Temp初值为1 For i = 1 To n '做循环
Temp = Temp * i '做乘积运算
Next i
Fac = Temp '把Temp的值赋给Fac
End Function '结束函数
Private Sub Command2_Click()
End '结束程序
End Sub
程序2如下：
Private Sub Form_Click()
Dim Pi As Double '定义双精度变量Pi
Pi = 6 * Arctan(1 / Sqr(3)) 'Pi的等式
Print Pi '输出Pi
End Sub
Private Function Arctan(ByVal x As Double) As Double
'函数的调用，定义双精度变量 Arctan（），双精度变量x
Dim m As Long, Temp As Double, s As Double
'定义长整形变量m，双精度变量Temp，s
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实验报告8
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
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实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 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.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
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环境和可视化编程基础
大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果
①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：
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实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 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所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
VB实验报告答案
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
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面向对象程序设计》作业及实验报告书_答案
实验一 一 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程序设计
实验报告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实验报告书参考答案。。 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的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 locked 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
(完整版)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实验报告答案全(2)(1)
实验一问答题： 1、答： 常见的有visual Basic、C++、Java、SQL。 用途特点：（参考课本4-5页） 2、答： 代码是一行或几行命令。 程序是针对某个任务编写的有序代码的集合。 软件是程序和文档的集合。 它们的关系是：代码 < 程序 < 软件 3、答： 面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。 4、答： 参考课本第9页 5、答： 类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。 对象——是类的一个实例，继承了类的属性、方法。 控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。 事件——响应对象的动作，它发生在用户与程序交互时。如单击控件、鼠标移动、键盘按下。 过程——指附在该对象上的程序代码，是事件的处理程序。 6、答： 参考课本12页到17页。 实验二问答题： 1、答 通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。 2、答 标签label是用来显示信息的，不具有输入功能。属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。 文本框用来输入、输出数据，编辑文本。属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。 3、答 结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。4、答 要保存2次，分别是工程文件.vbp和窗体文件.frm。
VB实验报告(含答案)
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=“姓名” End Sub
实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 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应用窗体 Command1 Caption 温度转换命令按钮 2、三种除法运算(/ 、\、Mod)做计算
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实验四 实验报告 - 2018
实验报告四 实验目的 （1）掌握Function过程和Sub过程的定义与调用 （2）理解参数按址传递和按值传递的本质 （3）理解变量和过程的作用域 （4）能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n！。程序界面如下图所示。（5分） 掌握函数过程的定义及使用 实验结果： 【实验1 代码】 Private Sub Command1_Click() n = Val(T ext1.T ext) T ext2.T ext = jiecheng(n) End Sub Private Function jiecheng(a) t = 1 For i = 1 T o a t = t * i Next i
jiecheng = t End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n！。程序界面同上题。（5分）掌握Sub子过程的定义及使用 实验结果： 【实验2 代码】 Private Sub Command1_Click()
n = Val(T ext1.T ext) Call jiecheng(n, t) T ext2.T ext = t End Sub Sub jiecheng(a, t) t = 1 For j = 1 T o a t = t * j Next j End Sub Private Sub Command2_Click() End End Sub 【实验2 典型结果】
《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