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和
Text2），其初始文本为空，设置适当的属性使文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。运行时，在文本框Text1中输入一个字符串，单击窗体，则将Text1中的文本复制到Text2中。
图1-3 运行界面
5.按图1-4在标题为“标签内容显示”的窗体Form1上画一个标题为空、带有单边框的标签Label1,再画两个标签分别为“显示”和“清空”的命令按钮（Command1和Command2）。运行时，单击“显示”按钮，则在标签Label1中显示“欢迎使用Visual Basic
6.0！”；单击“清空”按钮，则Label1的标题为空。
图1-4 运行界面
三、实验步骤
1、实验内容1的操作步骤：
（1）单击“开始”按钮，在“程序”中执行“Microsoft Visual Basic6.0中文版”命令，系统将自动显示“新建工程”对话框。
（2）在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就可以打开Visual Basic集成开发环境（IDE）。
（3）观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。（4）将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。
（5）分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的“关闭”按钮，将其全部关闭。
（6）执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”
及“工具箱”命令，分别打开相应的窗口。
2、实验内容2的操作步骤：
（1） 新建一个“标准EXE ”类型的工程，然后在窗体Form1上添加两个标签和
一个文本框。 （2）各控件属性设置如下：
（3
）各控件的布局如下：
（4） 单击“文件︱保存工程”菜单项，以Fe.frm 为窗体文件名和为Fe.vbp
为工程文件名保存在 VB 实验 文件夹中。
3、实验内容3的操作步骤：
（1） 新建一个新建一个“标准EXE ”类型的工程，然后在窗体Form1上添加三
个命令按钮，并将它们名称分别改为C1、C2和C3。 （3）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Command3.Enabled = False ’禁止使用C3命令按钮 End Sub
Private Sub Command2_Click()
Command3.Enabled = True ’允许使用C3命令按钮 End Sub
（5） 单击“文件︱保存工程”菜单项，以Cs.frm 为窗体文件名和为Cs.vbp
为工程文件名保存在 VB 实验 文件夹中。
4、实验内容4的操作步骤：
（1） 新建一个“标准EXE ”类型的工程，然后在窗体Form1上添加两个文本框。 （2） 各控件属性设置如下：
（3）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Form_Click()
Text2.Text = Text1.Text ’把Text1中的文本信息复制到Text2 End Sub
（5） 单击“文件︱保存工程”菜单项，以Copy.frm 为窗体文件名和为Copy.vbp
为工程文件名保存在 VB 实验 文件夹中。
5、实验内容5的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和
两个命令按钮。
（3）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Label1.Caption = "欢迎使用VISUAL BASIC 6.0" ’显示文本信息
End Sub
Private Sub Command2_Click()
Label1.Caption = "" ’退出程序
End Sub
（5）单击“文件︱保存工程”菜单项，以Es.frm为窗体文件名和为Es.vbp 为工程文件名保存在VB实验文件夹中。
四、实验环境
1.硬件：PC机
2.软件：Windows操作系统、Visual Basic 6.0
五、实验结果
五个实验都能按照要求做出相应的结果，结果都正确。
六、总结
1、掌握了的启动与退出，熟悉了的集成开发环境（IDE）；
2、掌握了应用程序建立、编辑、运行和保存的全过程；
3、了解了系统的基本控件的简单应用。
福建农林大学食品科学学院实验报告
学院：食品科学学院专业：食品科学与工程年级： 2010级
姓名：邹丽平学号： 102258016001 实验室号：宝玲楼304_计算机号： 01 实验时间： 2012.3.12 指导教师签字：黄红兵成绩：
实验二顺序结构程序设计
一、实验目的
1、掌握常用内部函数的使用。
2、掌握表达式、赋值语句的正确书写规范。
3、掌握InputBox与MsgBox的使用。
4、掌握Print方法的使用。
二、实验内容
1、在立即窗口中运行下列表达式的值:
(1)16/4-2^5*8/4mod5\2
(2)Int(198.555*100+0.5)/100
(3)123+Mid(“123456”,3,2)
(4)123&Mid(“123456”,3,2)
(5)Ucase(Mid(“123456”,3,4))
2、设计图2-1所示的窗体Form1，其标题为“Print方法”。运行时，自动在窗体上显示图2-1所示的图形。
图2-1 运行界面
【提示】
（1）将窗体的Caption属性设置为“Print方法”，AutoRedraw属性设置为Ture。
（2）在Form-Load()事件中输入代码，用Print语句及Tad()函数和Spc()函数实现。
3、请按图2-2所示在窗体Form1上创建一个初始文本为“Visual Basic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮（Command1和Command2）。运行时，单击“放大”按钮，将文本框中显示的字符串放大2倍或3倍（随机数）；单击“还原”按钮，则文本框中显示的字符串大小还原。
【提示】
（1）字体缩放使用FontSize属性。
（2）要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量来保存放大前的字体大小。
（3）放大2倍或3倍可以用随机数：Int(Rnd*2+2)实现
图2-2 运行界面
4、请按图2-3所示在标题为“日期时间函数应用”的窗体Form1上添加两个标题分别为“当前日期”和“当前星期”的标签（Label1和Label2），两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“确定”和“退出”的命令按钮（Command1和Command2）。运行时，单击“确定”按钮，则在文本框Text1和Text2中分别显示当前系统日期和当前星期；单击“退出”按钮，则结束程序运行。
图2-3 运行界面
【提示】
使用Date()、Weekday()以WeekdayName()及函数来实现。
5、请按图2-4所示在标题为“计算”的窗体Form1上添加三个标题分别为“半径”、“周长”和“面积”的标签（Label1、Label2和Label3）以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“输入半径”和“计算”的命令按钮（Command1和Command2）。运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径；单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。
【提示】
（1）使用InputBox()及函数实现数据输入，为了使程序正常运行应通过Val()函数将InputBox()的函数值转换为数值型。
（2）求周长公式为：L=2∏R,求面积公式为：S=∏R2,其中∏可以定义为一
个符号常量，用PI来表示。
图2-4 运行界面
三、实验步骤
1、实验内容1的操作步骤：
（1）启动Visual Basic，在“视图”的菜单下单击打开“立即窗口”。（2）在“立即窗口”下输入：
？16/4-2^5*8/4mod5\2 并按回车；
得出结果：-600
？Int(198.555*100+0.5)/100 并按回车；
得出结果：198.56
？123+Mid(“123456”,3,2) 并按回车；
得出结果：157
？123&Mid(“123456”,3,2) 并按回车；
得出结果：123 34
？Ucase(Mid(“abcdefgh”,3,4)) 并按回车。
得出结果：CDEF
2、实验内容2的操作步骤：
（1）新建一个“标准EXE”类型的工程。
（2）各控件属性设置如下：
（3）双击窗体，打开代码窗口，输入如下代码：
Private Sub Form_Load()
Print Tab(10); "※" ’打印第一行显示内容 Print Tab(10); "※※" ’打印第二行显示内容 Print Tab(10); "※"; Spc(2); "※" ’打印第三行显示内容 Print Tab(10); "※"; Spc(4); "※" ’打印第四行显示内容 Print Tab(10); "※"; Spc(6); "※" ’打印第五行显示内容 Print Tab(10); "※"; Spc(8); "※" ’打印第六行显示内容 Print Tab(10); "※"; Spc(10); "※" ’打印第七行显示内容 Print Tab(10); "※"; Spc(12); "※" ’打印第八行显示内容 Print Tab(10); "※※※※※※※※※" ’打印第九行显示内容
End Sub
（4）单击“文件︱保存工程”菜单项，以Pr.frm为窗体文件名和为Pr.vbp为工程文件名保存在 VB实验文件夹中。
3、实验内容3的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框（Text1）和两个命令按钮（Command1和Command2）。
（2）各控件属性设置如下：
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
f = Int(Rnd * 2 + 2) ’生成随机数2或3
If f = 2 Then Text1.FontSize = 20 ’文本字号放大为初始值的2倍
If f = 3 Then Text1.FontSize = 28 ’文本字号放大为初始值的3倍End Sub
Private Sub Command2_Click()
Text1.FontSize = 12 ’还原文本字号为初始值
End Sub
Private Sub Form_Load()
Text1.Text = "Visual Basic" ’Text1初始文本信息为Visual Basic End Sub
（5）单击“文件︱保存工程”菜单项，以Fs.frm为窗体文件名和为Fs.vbp 为工程文件名保存在 VB实验文件夹中。
4、实验内容4的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。
（2）各控件属性设置如下：
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Text1.Text = Date ’获得当前日期
t = Weekday(Date) ’获得当前星期
Text2.Text = WeekdayName(t)
End Sub
Private Sub Command2_Click()
End ’退出程序
End Sub
（5）单击“文件︱保存工程”菜单项，以Dwq.frm为窗体文件名和为Dwq.vbp 为工程文件名保存在 VB实验文件夹中。
5、实验内容5的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、两个文本框和两个命令按钮。
（2）各控件属性设置如下：
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Dim StrName As String * 30 ’定义变量
Dim radius As String
Dim leng As Double
Dim area As Double
Private Sub Command1_Click()
radius = Val(InputBox$("请输入圆的半径", "圆半径", "3", 100, 100)
’弹出input窗口，输入圆半径 Label4.Caption = radius
End Sub
Private Sub Command2_Click()
leng = 2 * 3.14 * radius ’计算圆周长
area = 3.14 * radius * radius ’计算圆面积
Text1.Text = leng ’显示结果
Text2.Text = area
End Sub
（5）单击“文件︱保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp 为工程文件名保存在VB实验文件夹中。
四、实验环境
1.硬件：PC机
2.软件：Windows操作系统、Visual Basic 6.0
五、实验结果
前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox 的窗口没有，经过与同学的讨论，解决了问题。
六、总结
1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用；
2、掌握了表达式、赋值语句的正确书写方式；
3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力
有了进一步的提高。
福建农林大学食品科学学院实验报告
学院：食品科学学院专业：食品科学与工程年级： 2010级
姓名：邹丽平学号： 102258016001 实验室号：宝玲楼304_计算机号： 01 实验时间： 2012.3.19 指导教师签字：黄红兵成绩：
实验三选择结构程序设计
一、实验目的
1、掌握逻辑表达式的正确书写形式。
2、掌握If语句的使用。
3、掌握情况语句的使用，以及情况语句与多分支条件语句区别。
二、实验内容
1、请按图3-1所示在窗体上Form1上添加两个标题分别为“行李重量”和“应付款”的标签（Label1和Label2），再添加两个初始文本为空的文本框（Text1和Text2）以及两个标题分别为“计算”和“清除”的命令按钮（Command1和Command2)。运行时，在Text1中输入行李的重量，单击“计算”按钮，计算应付的行李费（行李费的收费标准是50kg以内（包括50kg）0.20元/kg，超过部分0.50元/kg），并在Text2中显示计算结果；单击“清除”按钮，将文本框Text1和Text2中文本清空。
图3-1 运行界面
【提示】
（1）既可以用单分支结构实现，也可以用多分支结构实现。
（2）将行李重量是否大于50作为If语句的条件。
2、请按图3-2所示在窗体Form1上添加两个标题分别为“百分制”和“五分制”的标签（Label1和Label2），再添加两个初始文本为空的文本框（Text1和Text2）以及两个标题分别为“鉴定”和“退出”的命令按钮（Command1和Command2)。运行时，在Text1中输入百分制的成绩，单击“鉴定”按钮，将百分制成绩转化为五分制，并在Text2中显示结果；单击“退出”按钮，则结束程序运行。
【提示】
（1）既可以用多分支结构实现，也可以用情况语句Select Case实现。
（2）百分制成绩转化为五分制规则：90～100分为优秀；80～89分为良好；
70～79分为中等；60～69分为及格;60以下为不及格。
图3-2 运行界面
3、请按图3-3所示在标题为“成绩查询”的窗体Form1上添加两个标题分别为“请输入您的成绩：”和“总分”的标签（Label1和Label2）以及一个标题为空的的标签Label3，然后再添加三个初始文本为空的文本框（Text1、Text2和Text3），最后添加一个标题为“请查询”的命令按钮Command1。运行时，在文本框Text1、Text2和Text3中输入成绩，单击“请查询”按钮，根据输入的成绩，通过输出对话框显示奖励情况。奖励条件如下：三门总分不低于270分（含270分）为特等奖；三门总分在240分（含240分）～270分（不含270分）之
间为优秀奖；总分低于240分，但某一单科成绩不低于95分为特别奖。
图3-3 运行界面
【提示】
（1）可以用多分支结构If…Then…ElseIf语句实现。
（2）可以定义四个整型变量，分别存储三科成绩和总成绩。
（3）用MsgBox语句显示奖励情况，如：MsgBox”您获得特等奖”，48，”获奖通知”。
4、请在标题为“简易计算器”的窗体Form1上添加五个标题分别为“操作数1”、“操作符”、“操作数2”、“计算结果”和“=”的标签（Label1、Label2、Label3、Label4和Label5），然后再添加四个初始文本为空的文本框（Text1、Text2、Text3和Text4），最后添加两个标题分别为“计算”和“结束”的命令按钮（Command1和Command2）。运行后，在文本框Text1和Text13输入两个操作数，在文本框Text2输入操作符，单击“计算”按钮，则根据操作符对操作数1和操作数2进行+－×和÷四种运算，并将计算结果显示在文本框Text4中，而且具有基本的数据合法性和运算符合法性检验报错能力；单击“结束”按钮，则结束程序运行。
图3-3 运行界面
【提示】(1)可以用情况语句Select Case实现。
(2)为了使程序运行正确，存放操作符的文本框Text2，应使用Trim()
函数，去掉运算符两边的空格，而且需要对非加、减、乘和除的运算
符采用MsgBox进行报错提示。
（3）除法运算要检查分母是否为零。
三、实验步骤
1、实验内容1的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。
（2）各控件属性设置如下：
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Dim WEIGHT As Single ’定义变量
Dim PAY As Single
WEIGHT = Val(Text1.Text)
PAY = Val(Text2.Text)
If WEIGHT <= 50 Then ’当行李重量<=50时，计算费用
PAY = WEIGHT * 0.2
If WEIGHT > 50 Then ’当行李重量>50时，计算费用
PAY = 50 * 0.2 + (WEIGHT - 50) * 0.5
Text1.Text = (WEIGHT) ’在Text1.Text输入重量信息
Text2.Text = (PAY) ’在Text2.Text显示结果
End Sub
Private Sub Command2_Click()
Text1.Text = "" ’清除text1和text2中的数据
Text2.Text = ""
End Sub
（5）单击“文件︱保存工程”菜单项，以Wp.frm为窗体文件名和为Wp.vbp 为工程文件名保存在VB实验文件夹中。
2、实验内容2的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。
（2）各控件属性设置如下：
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Dim A% ’定义变量A为整型
A = Val(Text1.Text)
Select Case A ’选择事件
Case 90 To 100 ’表示表达式的值在90-100之间
Text2.Text = "优秀" ’ Text2中显示“优秀”
Case 80 To 89 ’表示表达式的值在80-89之间
Text2.Text = "良好" ’ Text2中显示“良好”
Case 70 To 79 ’表示表达式的值在70-79之间
Text2.Text = "中等" ’ Text2中显示“中等”
Case 60 To 69 ’表示表达式的值在60-69之间
Text2.Text = "及格" ’ Text2中显示“及格”
Case Is < 60 ’表示表达式的值<60
Text2.Text = "不及格" ’ Text2中显示“不及格”
End Select
End Sub
Private Sub Command2_Click()
End ’结束程序
End Sub
（5）单击“文件︱保存工程”菜单项，以Sc.frm为窗体文件名和为Sc.vbp 为工程文件名保存在VB实验文件夹中。
3、实验内容3的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、三个文本框和一个命令按钮。
（2）各控件属性设置如下：
（3）各控件布局如下：
VB实验报告
VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I
End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：
在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：
二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub
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环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日
一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机
四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图
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+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环境和可视化编程基础
大学学生实验报告 开课学院及实验室：地理科学学院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实验报告模板
课程编号：B080103140 https://www.360docs.net/doc/6e6934407.html,程序设计 实验报告 东北大学软件学院
1.实验目的 （1）练习https://www.360docs.net/doc/6e6934407.html,的控件的综合运用。熟悉https://www.360docs.net/doc/6e6934407.html,的集成开发环境，掌握https://www.360docs.net/doc/6e6934407.html, 编程技巧和开发过程。 （2）训练学生对https://www.360docs.net/doc/6e6934407.html,的基本语句、控件、文件等的综合运用。 2.实验内容 （1）https://www.360docs.net/doc/6e6934407.html,控件综合应用。 （2）https://www.360docs.net/doc/6e6934407.html,文件操作——具体的名称（需要替换并变为黑色）。 3.程序中使用的控件及其命名 把程序中用到的控件类型及对应的名称以表格的形式给出，表格的行数可以根据需要进行扩充。 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。 （1）实验1的控件及命名 （2）实验2的控件及命名 4.系统实现与调试 把主要实现的功能用语言进行描述，并给出调试时的截图（主要是功能验证的截图，在结算时，是否能正确的找零等） 如果包含图片，图片要居中，而且图片的高度不能超过页面高度的1/3。 （1）实验1的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。
（2）实验2的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 5.创新点及存在问题 列举出主要的创新点和存在的问题。正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 6.实验总结 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。
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实验四 实验报告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 典型结果】 【实验3】编写计算n! 的函数过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：
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） 实验学期2010 至2011 学年第 2 学期 学生所在系部安全工程学院 年级大一专业班级采矿B101 学生姓名朱寅学号201010014112 任课教师李芙玲 实验成绩
《计算机技术基础（VB）》课程综合性实验报告 开课实验室：基础实验室2010 年7 月6日实验题目Visual Basic综合应用程序开发 一、实验目的 1、掌握数组的应用： （1）数组的定义 （2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。 2、会使用过程编程和字符串操作 （1）sub过程的定义与调用 （2）function过程的定义调用 （3）字符串的大小写转换操作 3、掌握基本控件的使用 包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。 4、掌握菜单和工具栏的使用 二、设备与环境 硬件：多媒体计算机 软件：Windows 2000以上的操作系统、Visual Basic集成开发环境 三、实验内容 1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％） 2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜 单，并提供相关工具栏或命令按钮。（10％） 3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所 示。（35％，每个按钮功能为5％）。 题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下： （1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。 （2）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。 （3）输入完毕后，“输入”按钮变灰，其他变为可用状态。 （4）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。 （5）单击“清空”按钮将所有文本框清空。 4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所 示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。 5、单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）
VB实验三 实验报告 - 2016
实验报告三 实验目的 （1）掌握一维数组（静态、动态）定义及使用 （2）掌握二维数组（静态、动态）定义及使用 （3）掌握“控件数组”的使用 （4）掌握数组相关算法（求最值，排序，查找） （5）通过数组巩固循环及多重循环程序设计 实验内容 【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分） 掌握一维静态数组的定义及使用 实验结果： 【实验1 代码】 Option Base 1 Dim A(1 T o 10) As Integer Private Sub Command1_Click() Dim i As Integer For i = 1 T o 10 A(i) = 2 * i - 1 Next i End Sub
Private Sub Command2_Click() Dim i As Integer For i = 1 T o 10 Print A(i) Next i End Sub Private Sub Form_Load() End Sub 【实验1 典型结果】 【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分） 掌握一维动态数组的定义及使用 实验结果：
【实验2 代码】 Option Base 1 Dim a Private Sub Command1_Click() a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) End Sub Private Sub Command2_Click() Dim i As Integer For i = 1 T o 10 Print a(i); Next i End Sub Private Sub Form_Load() End Sub 【实验2 典型结果】 【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分）
大一《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程序设计》实验报告 实验七：常用控件 班级：10物理2 学号： 姓名： 实验日期：2011 一、实验目的和要求 1．掌握基本控件的重要属性、事件； 2．熟练掌握在窗体上建立上述控件的操作方法； 3．熟练掌握事件过程代码的编写； 4．初步掌握建立基于图形界面的应用程序的过程。 二、实验主要仪器和设备 计算机一台，Windows XP操作系统，Visual Basic环境。 三、实验内容 实验设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“Visual Basic 程序设计”，宋体，常规，三号；文字对齐方式为居中。 图7-1字体修饰 实验设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来； 图7-2 点菜 实验设计一密码修改程序，要求。 1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。 2）比较“新密码(N) ”和“新密码(S) ”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。 3）当单击“取消”按钮后，程序终止执行。 图7-3 密码修改 实验（选做）设计一个拨号盘的程序。界面如图7-4所示。要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程； （提示：再现过程由定时器实现）定时器的时间间隔为秒；设置文本框最多接受10个字符。 图7-4 拨号盘
郑州大学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实验报告答案全(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）Ⅰ 实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□ 综合性√设计性□ 实验室名称：校计算中心 班级：学号： 姓名：组别： 同组人：成绩： 实验日期：
实验报告撰写要求 一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1．实验目的 2．实验用仪器设备、器材或软件环境 3．实验原理、方案设计、程序框图、预编程序等 4．实验过程中需要记录的实验数据表格 二、实验过程中，要认真观察，仔细记录 三、完成实验后用实验报告纸撰写实验报告，包括以下内容 1．仪器设备型号及编号 2．实验器材或软件环境 3．实验步骤、程序调试方法 4．实验数据处理及结果分析 5．实验中存在的问题 6．体会及思考题 四、报告撰写时，要求格式规范、书写整齐
预习报告成绩：指导教师审核（签名）：年月日 预习报告 （一）实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 （二）实验仪器及软件环境： 普通台式电脑、m i c r o s o f t v i s u a l b a s i c 6.0标准环境下 （三）实验原理： 利用R n d函数产生80个随机整数，再利用F o r循环将产生的随机整数存入到数组中，最后用I f语句按每行10个数输出到第一个文本框中；用I f语句和M o d函数判断是否为奇偶数，后利用冒泡排序法将奇偶数排序分别输出到二、三文本框中。调用F u n c t i o n函数判断素数，利用F o r循环和I f函数输出，用累计求和法将素数的个数求出放入第四、五个文本框中。 （四）方案设计： 界面设计如下：
VB实验报告
华北科技学院计算机学院综合性实验 实验报告 课程名称程序设计语言(VB) 实验学期2012至2013学年第二学期学生所在系部管理学院 年级2012级专业班级会计B121 学生姓名XXX学号20120404xxxx 任课教师李芙玲 实验成绩 计算机学院制
《程序设计语言（VB）》课程综合性实验报告 开课实验室：基础四2013年6月21日 实验题目Visual Basic综合应用程序开发 一、实验目的 1、掌握数组的应用： （1）数组的定义 （2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。 2、会使用过程编程和字符串操作 （1）sub过程的定义与调用 （2）function过程的定义调用 （3）字符串的大小写转换操作 3、掌握基本控件的使用 包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。 4、掌握菜单和工具栏的使用 二、设备与环境 硬件：多媒体计算机 软件：Windows2000以上的操作系统、Visual Basic集成开发环境 三、实验内容 1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％） 2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％） 3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。 题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下： （1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。 （2）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。输入完毕后，“输入”按钮变灰，其他变为可用状态。 （3）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。 （4）单击“清空”按钮将所有文本框清空。 4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％） 题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。 5、单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%） 题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为
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)做计算