VB实验报告（电子版 题目及答案）

编号：

2009－2010学年第二学期

实 验 报 告

实验课程名称

专 业 班 级

学 生 姓 号

学 生 姓 名

实验指导老师

实验项目清单

实验一 程序设计初步 实验二 程序设计基础 实验三 顺序结构程序设计 实验四 分支结构程序设计 实验五 简单循环结构程序设计 实验六 循环结构程序设计深入 实验七 数组与相应算法程序设计 实验八 函数与过程

实验九 命令按钮、标签和文本框 实验十 VBA（一） 实验十一 VBA（二） 实验十二 VBA（三）

浙江大学城市学院实验报告

课程名称 VB程序设计基础实验 实验项目名称 实验一 程序设计初步 学生姓名 专业班级 学号

实验成绩 指导老师（签名 ） 日期

一. 实验目的和要求

1. 2. 3. 4.

熟悉VB开发环境，掌握VB程序设计步骤。

理解基本概念：工程、窗体、属性、事件、方法。 熟悉立即窗口的使用。

掌握Print、赋值语句的正确书写规则。

二. 实验内容和原理

1）在E盘或你的U盘上，建立一个自己的文件夹，准备用来保存VB编程过程中的相关文件。

文件夹的名字是学号。

如 E:\\30908888

2）将窗体文件“1-1.Frm” 和 工程文件“1-1.Vbp”上传到老师的ftp服务器上的

”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。 如：“30908888传媒0901张三”. 3）练习1-2，1-3，1-4，1-5 也同样将窗体文件和工程文件上传到老师的

ftp服务器上。 谢谢！

【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。研究下面的代码段，考虑应填入什么内容？ Private Sub Form_Click

Form1.Print \这是我的第一个VB实验\ End Sub

Private Sub Form_DblClick Cls

End Sub 上机实践

调试运行以上程序，在同一文件夹下保存工程1-1.vbp和窗体文件1-1.frm。

【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶 书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。文本框属性的设置在Form_load事件中设置，研究下面的代码段，考虑应填入什么内容？

练习 1-2 运行界面

Private Sub Form_Load()

Text1.FontName = \宋体\Text1.FontBold = True Text1.FontSize = 18

Text1.ForeColor = vbRed End Sub

Private Sub Command1_Click()

Text1.FontName =____\隶书\___ End Sub

Private Sub Command2_Click()

__________ Text1.FontName = \黑体\___________ End Sub 上机实践

调试运行以上程序。 请你思考

文本框属性的设置如改在属性窗口中设置，以上代码会怎样？

【练习1-3】编程，窗体界面设计如下图1，分别有三个命令按钮command1、command2、command3，命令按钮的Caption属性分别为“改变位置”、“还原”和“退出”。 窗体加载后，运行Form_Load 事件，使窗体定位在（2000，2000）坐标值上，运行效果如下图2。

图1

图2

Private Sub Form_Load()

Form1.Left = 2000 Form1.Top = 2000

Command2.Enabled = False End Sub

点击命令按钮command1后，使窗体定位在（100，100）坐标值上，运行效果如图3：

图 3 Private Sub Command1_Click()

Form1.Left = 100 Form1.Top = 100

Command1.Enabled = False Command2.Enabled = True End Sub

点击命令按钮command2，窗体又重回图2的情况。请写出另外两个命令按钮事件的内容。 Private Sub Command2_Click() Form1.Left = 2000 Form1.Top = 2000

Command1.Enabled = True Command2.Enabled = False End Sub

Private Sub Command3_Click() End

End Sub

上机实践

调试运行以上程序。 请你思考

怎样用move方法来改变窗体位置，完成此题？

【练习1-4】在窗体上建立5个命令按钮Command1、Command2、Command3、Command4和Command5，运行界面如错误！未找到引用源。。 要求： （1）命令按钮的Caption属性分别为“窗体变大”、“窗体变小”、“窗体左移”、“窗体右移”和“关闭窗体”。

（2）每单击Command1按钮和Command2按钮一次，窗体变大或变小1/4倍。 （3）单击Command3按钮和Command4按钮一次，窗体左移或右移200缇。 （4）单击Command5按钮退出。

练习 1-4 运行界面

以下是两个命令按钮的事件过程，写出另外三个命令按钮的事件过程。 Private Sub Command1_Click()

Form1.Height = Form1.Height * 1.25 Form1.Width = Form1.Width * 1.25 End Sub

Private Sub Command3_Click()

Form1.Left = Form1.Left - 200 End Sub

Private Sub Command2_Click() Form1.Height = Form1.Height / 1.25 Form1.Width = Form1.Width / 1.25 End Sub

Private Sub Command4_Click() Form1.Left = Form1.Left + 200 End Sub

Private Sub Command5_Click() End

End Sub

上机实践

调试运行以上程序。 、

【练习1-5】在窗体上建立4个命令按钮，command1、command2、command3、command4，

要求：

1．命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。

2．每单击按钮command1和command2一次，字体变大或变小2个单位（提示：改变的是Form1.fontsize属性值）。

3．单击command3时，字体变粗；单击command4时，字体又由粗体变标准；（提示：改变的是Form1.fontbold属性值）。

4．4个按钮每单击一次，都在窗体上显示“欢迎使用VB”。 5．双击窗体后清除窗体内容。

研究下面的代码段，考虑应填入什么内容？

Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 2

Print \欢迎使用VB\

End Sub

Private Sub Command2_Click() '字体变小 ______ Form1.FontSize = Form1.FontSize - 2

Print \欢迎使用VB\

__________________________

______________ End Sub

Private Sub Command3_Click() '字体加粗 Form1.FontBold = True

Print \欢迎使用VB\End Sub

Private Sub Command4_Click() '字体不加粗 Form1.FontBold = ____ False ______

Print \欢迎使用VB\End Sub

Private Sub Form_DblClick() ______ Cls _______ End Sub 上机实践

调试运行以上程序，运行界面参考如上图。

选做题：

【练习1-6】两个窗体的运行界面, 两窗体标题分别为“启动窗体”、“第二个窗体”，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体”，显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回”，关闭第二个窗体，显示出启动窗体。

练习 1-6 运行界面

命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。 Private Sub Command1_Click()

Form2.Hide Form1.Show End Sub

Private Sub Command2_Click() End End Sub

Private Sub Command1_Click() Form1.Show Form2.Hide End Sub

上机实践

编写、调试运行以上程序，运行界面参考上图。 请你思考

在这个练习中要考虑怎样在同一工程中建立多个窗体，以及多个窗体的保存。在此题中保存了几个文件？先后次序分别是什么？

三. 讨论、心得（必须做）

浙江大学城市学院实验报告

课程名称 VB程序设计基础实验 实验项目名称 实验二 程序设计基础 学生姓名 专业班级 学号

实验成绩 指导老师（签名 ） 日期

一. 实验目的和要求

1. 2. 3. 4. 5. 6.

掌握运算符的使用。

掌握表达式的正确书写规则。 掌握常用函数的使用。

掌握InputBox、MsgBox函数的使用。 熟悉掌握赋值语句的使用。

掌握顺序结构的应用程序的编程过程。

二. 实验内容和原理

1）将窗体文件“2-2.Frm” 和 工程文件“2-2.Vbp”上传到老师的ftp服务器上的

”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。 如：“30908888传媒0901张三”.

2）练习2-3也同样将窗体文件和工程文件上传到老师的ftp服务器上。

【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中： ? 35 /5 mod 13 \\2+5^2 Print Not(\

BirthDay = #5/18/1980#

Birth$ = \出生日期：\

Print Birth$

a = 10

b = 15

c = -9

Print a > 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Print len(str(c))

Print Chr(Asc(\

Print Trim(\ a b \Print \ a b \

Print Left(\Print Mid(\Print Instr(\ Print Len(\程序设计\Print UCase(\

Print \浙江\杭州\Print Date, Date+7 Print hour(Time)

Print 345 / 7347, Format(345 / 7347, \Print Sqr(9) Print Abs(-25) Print Rnd, Rnd

Print Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)

-------26------------------------------- -----True----------------------- --出生日期：1980-5-18-------- ---- True ------------------------ -----3--------------------------------- -----2--------------------------------- -----D------------------------------ ---- a bcde------------------ ---- a b cde-------- --- Visual ----------------------- ---- Basic--------------------- -----6---------------------------- ---- HELLO!----------------------- ----浙江 杭州---------------------- -2007-2-20 2007-2-27 -- ---21------------------------- -- 77619.48 21 ------- 4.69579420171499E-02 0.0470 ----3----------------------------- ----25------------------------------ 0.7055475 0.533424 - 0.49999999226498 --- --- -4 3 --- ---21------------------------- 【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如错误！未找到引用源。所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。

提示：

(1)可以参考教材中两个变量值交换的例子

(2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒

练习 2-2 运行界面

上机实践

编写、调试运行以上程序。

Private Sub Form_Load() Text1.Text = \杭州\Text2.Text = \西湖\End Sub

Private Sub Form_Click() Dim c As String c = Text1.Text

Text1.Text = Text2.Text Text2.Text = c End Sub

【练习2-3】设计一个函数计算器。其功能要求如下：

（1）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。

（2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。

（3）单击“Rnd”按钮，用Rnd函数产生一随机数，显示在标签框中。

（4）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （5）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。

练习 2-3 运行界面

部分命令按钮的提示代码如下： Sin命令按钮的事件过程可以写作： Const pi = 3.1415926

Dim x As Single, fx As Single x = Val(Text1.Text) ?注意类型转换函数 fx = Sin(x * pi / 180)

Label1.Caption = Str(fx) ?注意类型转换函数

Asc命令按钮的事件过程可以写作：

Label1.Caption = Str(Asc(Text1.Text)) ?注意类型转换函数

MsgBox命令按钮的事件过程可以写作： Dim n As String

n = MsgBox(\你输入的数据是\ext, 3 + 32 + 0, \数据检查\Label1.Caption = Str(n)

Rnd命令按钮的事件过程可以写作： Randomize

Label1.Caption = Str(Rnd)

请完整写出所有命令按钮的事件过程。

Const pi = 3.1415926

Private Sub Command1_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sin(x * pi / 180) Label3.Caption = Str(fx) End Sub

Private Sub Command2_Click() Dim x As Single, fx As Single x = Val(Text1.Text)

fx = Cos(x * pi / 180) Label3.Caption = Str(fx) End Sub

'Rnd命令按钮的事件过程可以写作: Private Sub Command3_Click() Randomize

Label3.Caption = Str(Rnd) End Sub

Private Sub Command4_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sqr(x)

Label3.Caption = Str(fx) End Sub

Private Sub Command5_Click() Dim x As Single x = Val(Text1.Text)

Label3.Caption =str( Int(x)) End Sub

Private Sub Command6_Click() Dim x As Integer x = Val(Text1.Text)

Label3.Caption = Chr(x) End Sub

Private Sub Command7_Click()

Label3.Caption = str(Asc(Text1.Text)) End Sub

Private Sub Command8_Click() Dim x As String

x = InputBox(\请输入姓名:\输入姓名:\Label3.Caption = x End Sub

'msgbox命令按钮的事件过程可以写作： Private Sub Command9_Click() Dim n As String

n = MsgBox(\你输入的数据是\ext, 3 + 32 + 0, \数据检查\Label3.Caption = Str(n)

End Sub

Private Sub Command10_Click() Label3.Caption = Date End Sub

Private Sub Command11_Click() Label3.Caption = Time() End Sub

Private Sub Command12_Click() Text1.text=””

Label3.Caption = “” End Sub

上机实践

编写、调试运行以上程序，运行界面参考如上图。

三. 讨论、心得（必须做）

浙江大学城市学院实验报告

课程名称 VB程序设计基础实验

实验项目名称 实验三、 顺序结构程序设计 学生姓名 专业班级 学号

实验成绩 指导老师（签名 ） 日期

一. 实验目的和要求

1. 熟悉输入、输出语句的使用。

2. 熟悉顺序结构的应用程序的编程过程.

二. 实验内容和原理

1）将窗体文件“3-1.Frm” 和 工程文件“3-1.Vbp”上传到老师的ftp服务器上的

”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。 如：“30908888传媒0901张三”.

2）练习3-2，3-3 也同样将窗体文件和工程文件上传到老师的ftp服务器上。 【练习3-1】设计一个根据摄氏温度求对应的华氏温度的程序。如错误！未找到引用源。是设计窗体，窗体上有2个标签框作提示使用；2个文本框Text1和Text2分别作输入和显示；3个命令按钮， 名称分别是Command1、Command2、Command3，标题分别是“计算”、“清除”、“退出”。

在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。 计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。

练习 3-1 设计界面

上机实践

编写、调试运行以上程序。 Private Sub Form_Load()

Label1.Caption = \摄氏温度\ Label2.Caption = \华氏温度\ Command1.Caption = \计算\ Command2.Caption = \清除\ Command3.Caption = \退出\ Text1.Text = \ Text2.Text = \End Sub

Private Sub Command1_Click() Dim c As Single, f As Single c = Val(Text1.Text) f = 9 * c / 5 + 32 Text2.Text = f End Sub

Private Sub Command2_Click() Text1.Text = \ Text2.Text = \End Sub

Private Sub Command3_Click() End

End Sub

【练习3-2】设计一个用计算机给出三位整数加法练习程序。程序界面如错误！未找到引用源。所示，单击一次，则在文本框中产生一题。

练习3-2 运行界面

提示：

（1）将文本框的Multiline属性设置为true,并设置垂直滚动(ScrollBars=2) （2）用Rnd 函数产生100~999之间的随机整数 （3）回车换行符用函数chr(13)+chr(10)表示 研究下面的代码段，考虑应填入什么内容？ Private Sub Form_Load()

Text1.text= “” End Sub

Private Sub Command1_Click() Dim x As Integer, y As Integer

x = 100 + Int(Rnd * 900) '产生三位随机数

y = 100 + Int(Rnd * 900) '产生三位随机数

Text1.Text = Text1.Text & x & \& y & \ )\& Chr(13) & Chr(10) End Sub 上机实践

调试运行以上程序，运行界面参考如上图。

【练习3-3】 在标签框中有一串英文字符串，有三个命令按钮名称分别为command1、command2、command3，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。其他字符不变。按“还原”按钮，回到启动状态。

练习3-3 运行界面

在本实验中需要在通用中声明一个模块级变量s，考虑一下为什么？研究下面的代码段，考

虑应填入什么内容？ Dim s As String ?声明模块级变量s Private Sub Form_Load()

s = Label1.Caption

End Sub

Private Sub Command1_Click()

Label1.Caption = UCase(s)

End Sub

Private Sub Command2_Click()

Label1.Caption = LCase(s) End Sub

Private Sub Command3_Click() ?“还原”的事件代码

Label1.Caption = s

End Sub

三. 讨论、心得（必须做）

本文来源：https://www.bwwdw.com/article/qkxt.html