![VB[1].NET实践教程(实验1)](https://img.doczj.com/img6c/039n7fd5xdb3dlmfrdit-c1.webp)
![VB[1].NET实践教程(实验1)](https://img.doczj.com/img6c/039n7fd5xdb3dlmfrdit-e2.webp)
实验1 https://www.doczj.com/doc/6c15287884.html,环境和可视化编程基础
一、实验目的
1.熟悉https://www.doczj.com/doc/6c15287884.html,的集成开发环境Visual Studio 2005。
2.掌握启动与退出Visual Studio 2005的方法。
3.掌握建立、编辑和运行https://www.doczj.com/doc/6c15287884.html,应用程序的全过程。
4.掌握常用控件窗体、文本框、标签、命令按钮、定时器和图片框的使用。
二、实验预备知识
1.基本概念
（1）面向对象的程序设计
面向对象的程序设计是一种以对象为基础、以事件驱动过程执行的程序设计技术。过程执行的先后次序与程序设计者无关，取决于用户的操作。
https://www.doczj.com/doc/6c15287884.html,事件驱动过程执行的步骤如下：
①启动应用程序，装载和显示窗体；
②窗体(或窗体上的控件)等待事件的发生；
③事件发生时，执行对应的事件过程；
④重复执行步骤②和③，
（2）对象
对象是具有某些特性的具体事物的抽象。例如：控件(按钮、标签等）和窗体都是对象。对象的三要素是属性、事件和方法。
（3）类
类是同种对象的集合与抽象，是创建对象实例的模板。对象是类的一个实例。
（4）属性
属性描述了对象的性质，决定了对象的外观。例如一般控件对象有控件名称（Name）、文本（Text）等属性。不同的对象具有各自不同的属性。
（5）事件
发生在对象上的事情或消息称为事件。同一事件，对不同对象会引发不同的反应。https://www.doczj.com/doc/6c15287884.html,为对象预先定义了一系列的事件。事件过程就是应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程代码。
（6）方法
方法是一个对象自己能做的事情，是通过系统设计好的特殊的过程和函数来实现。与事件相比，事件是被外在条件激活的被动的；而方法是主动的。事件中的过程要自己编写程序代码；而方法由系统定义代码，可直接调用。
https://www.doczj.com/doc/6c15287884.html,窗口
（1）窗体窗口
窗体窗口可分为窗体设计和窗体运行窗口。窗体设计窗口指的是在设计应用程序时，用户在窗体上建立https://www.doczj.com/doc/6c15287884.html,应用程序的界面。窗体运行窗口指的是用户看到的正在运行的窗口，用户可通过与窗体和控件交互得到相应的结果。
（2）代码设计窗口
代码设计窗口专门用来进行代码编辑，包括各种事件过程、自定义过程和类等源程序代码的编写和修改。双击窗体、控件均可直接打开代码设计窗口，再单击选择代码窗口右上方的方法名称下拉框下的对应事件，可自动生成事件过程框架，然后设计者进行编码。
（3）属性窗口
属性窗口用于显示和设置所选定的对象的属性。在设计阶段，可利用属性窗口直接设置对象的属性值。
https://www.doczj.com/doc/6c15287884.html,中开发Windows应用程序的过程
（1）分析问题，明确目标
根据实际应用需要，进行需求分析，需要分析程序具有哪些功能，对应的功能需要哪些控件来实现，以及需要编写相应的代码等。
（2）新建https://www.doczj.com/doc/6c15287884.html, 的Windows应用程序项目
打开Visual Studio 2005，新建一个Windows应用程序，一个应用程序就是一个项目，用户根据所创建的程序要求，选择合适的应用程序类型。
（3）设计用户界面
界面设计就是在窗体上添加控件，并且设置控件对象的属性和布局等。建立项目后，根据功能要求，在窗体上合理的布置控件，并调整到合适的大小和位置。布局好控件后，需要对控件的外观以及初始状态进行设置，设置属性可以打开“属性窗口”进行设置。
（4）添加代码
用户需要通过与控件交互而执行相应的功能，这种交互就是要触发控件对象的事件。根据程序的需要进入代码窗口，编写对象事件过程。
（5）保存、运行和调试
代码设计完毕，保存整个项目，然后进行程序的调试。调试和改错是程序开发过程中非常重要的步骤，需要反复测试，以尽可能地优化程序。
4.控件属性列表
（1）常用的控件共用属性（以后控件属性中不再重复列出），见表1.1所示。
表 1.1 常用的控件共用属性
（2）窗体的常用属性，见表1.2所示。
表 2.2 常用的窗体控件属性
（3）标签的常用属性，见表1.3所示。
表 3.3 常用的标签控件属性
（4）文本框的常用属性，见表1.3所示。
表 4.3 常用的文本框控件属性
（5）图片框的常用属性，见表1.4
所示。
表 5.4 常用的图片框控件属性
定时器是用来产生一定的时间间隔，在每个时间间隔中都可以根据应用程序要求有相同或不同的事件过程发生。在动画制作或定期执行某种操作等方面使用。定时器控件在设计时显示为一个小时钟图标，而在运行时则看不到。定时器不能添加到窗体中，只能出现在窗体下面的面板中。
定时器控件的事件只有Tick 。使用该事件之前要首先用Interval 属性设置Tick 事件之间
的时间间隔，每个时间间隔都会触发Tick事件。
常用的定时器控件的属性，见表1.5所示。
表 6.5 常用的定时器控件属性
6.
（1）https://www.doczj.com/doc/6c15287884.html,代码不区分字母的大小写。关键字首字母自动转换成大写，其余字母转换成小写。用户自定义的变量、过程名，以第一次定义的为准，以后输入的自动向首次定义的形式转换。
（2）语句书写自由。一行可写多句语句(用冒号分隔)，一行最多255个字符；单行语句可分若干行写，在本行后加入续行符(下划线)。
（3）不能在对象名、属性名、方法名、变量名、关键字的中间断开；各个关键字之间要用空格分开。
（4）注释一般用竖撇号‘引导注释内容，也可以使用Rem开头，或者使用文本编辑器工具栏中的注释按钮。
三、实验内容
（一）容易题
1.创建一个“Windows应用程序”类型的项目，完成“字幕滚动”应用程序设计，界面设
计参照如图1-1所示，具体要求如下：
（1）窗体的标题为“字幕滚动”，窗体大小自行调整。
（2）在属性窗口中将标签(Label1)的标题设为“开心每一天”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。
（3）单击“开始”按钮，标签文字在定时器Timer1（其时间间隔为0.2秒）控制下自动地从左向右移动，移动速度为每个时间间隔右移20个单位，当标签移动到窗体外时，再从窗体的左边进入；同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签停止滚动；同时，“停止”按钮变为“开始”按钮。
图1-1 “字幕滚动”程序运行效果
操作步骤：
①首先在计算机D盘或C盘根目录下创建一个以自己学号命名的文件夹，此文
件夹主要用来设置为https://www.doczj.com/doc/6c15287884.html,的默认工作目录。启动Microsoft Visual Studio 2005，选择【工具】|【选项】，打开【选项】对话框，选择【项目和解决方案】中的【常规】，设置【Visual Studio项目位置】，如图1-2所示。再单击【确定】按钮。设置完，以后项目文件都缺省存放在该文件夹中。
图1-2 设置默认项目位置
②选择菜单【文件】|【新建项目】，弹出【新建项目】对话框，模板中选择【Windows 应用程序】，【名称】文本框输入“字幕滚动”，如图1-3所示。单击【确定】按钮，生成Form1.vb窗体。
图1-3新建项目对话框
③右击窗体空白处，在弹出的快捷菜单中选择【属性】，显示窗体属性窗口，修改其Text属性为“字幕滚动”。
④光标移向工具箱，双击工具箱Label标签控件，放置一个标签Label1到窗体中，单击该标签，修改其Text属性为“开心每一天”；单击Font属性，再单击其右边的按钮，弹出【字体】对话框，设置字体为“宋体”、字形为“粗体”、大小为“二号”；设置Forecolor属性，单击其右边下拉按钮，选择【Web】选项卡，选择“Red”红色。
⑤拖动标签到合适位置；单击窗体，拖动窗体右下角控点适当调整窗体大小。单击工具箱Button按钮控件，在窗体中按钮欲放置的位置单击，添加Button1按钮到窗体中，修改其Text属性为“开始”。
⑥双击工具箱Timer定时器控件，添加Timer1到窗体下方，设置其Interval属性为200。
⑦双击Button1“开始”按钮，打开其代码窗口，输入下列代码（注意：斜体部分代码自动生成，不要自行输入），如图1-4所示。
Private Sub Button1_Click(…) Handles Button1.Click
If Button1.Text = "开始" Then '当按钮标题为“开始”时
Timer1.Enabled = True '开启定时器
Button1.Text = "停止" '设置按钮标题为“停止”
Else '否则当按钮标题为“停止”时
Timer1.Enabled = False '关闭定时器
Button1.Text = "开始" '设置按钮标题为“开始”
End If
End Sub
⑧单击代码窗口上方的“Form1.vb[设计]”选项卡，切换到窗体设计窗口，双
击Timer1定时器，打开其代码窗口，输入下列代码，如图1-4所示。
Private Sub Timer1_Tick(…) Handles Timer1.Tick
Label1.Left = Label1.Left + 20 '右移个单位
'当标签移动到窗体外时，再从窗体的左边进入
If Label1.Left >= Me.Width Then
Label1.Left = -Label1.Width
End If
End Sub
图1-4 “字幕滚动”程序相关代码
⑨单击【启动调试】按钮，运行应用程序；单击“开始”按钮，效果如图1-1
所示。单击“停止”按钮可以停止滚动，同时“停止”按钮又变成了“开始”按钮，如此可以反复运行，当标签移动到窗体外时，再从窗体的左边进入。
⑩选择菜单【文件】|【全部保存】保存该项目。
2.创建一个“欢迎你”应用程序，初始设计界面如图1-5所示，运行界面如图1-6所示。
具体要求如下：
（1）在Label1标签上显示“请输入姓名”，Label2刚开始运行时为不可见。
（2）在TextBox1文本框输入你的姓名，单击“显示”按钮，在窗体标题上显示“欢迎你，×××”，并显示出Label2，内容为“×××，预祝你学习愉快！”。
（3）单击“隐藏”按钮，隐藏Label2；单击“清空”按钮，清空文本框TextBox1内容和窗体标题内容；单击“退出”按钮，退出程序。
图1-5 “欢迎你”程序设计界面图1-6 “欢迎你”程序运行界面
操作步骤：
①创建“欢迎你”项目，按照初始设计界面图1-5创建窗体中控件，所用的控件
及属性设置见表1.6。
表1.6 属性窗口设置各控件属性
②在https://www.doczj.com/doc/6c15287884.html,设计模式下，双击“显示”按钮Button1，进入按钮的Click事件，
参照以下代码，填空并输入相应代码进行调试。
Private Sub Button1_Click(…) Handles Button1.Click
Label2.Visible =
Me.Text = "欢迎你，" + TextBox1.Text
Label2.Text = + "，预祝你学习愉快！"
End Sub
③设计模式下，双击“清空”按钮，进入该按钮的单击事件。
Private Sub Button3_Click(…) Handles Button3.Click
TextBox1.Text = ""
Me.Text =
End Sub
④分别双击“隐藏”、“退出”按钮，自己完成其中的代码，并调试成功后保存。
⑤选择菜单【文件】|【全部保存】保存该项目。
3.创建一个“单击窗体”程序，在文本框中统计在该窗口上鼠标单击的次数，效果见图
1-7，其中“你单击窗体的次数为：”用标签显示，“8”次数用文本框显示。要求将文本框中文字设置为居中显示，并设置成运行时不能输入。
图1-7 “单击窗体”程序运行界面
提示:
①将文本框中文字居中显示请设置TextAlign，文本框运行时不能输入请设置
ReadOnly属性。
②双击窗体切换到代码窗口，此时进入的事件是Form1_Load，这并不是要编写
代码的事件。
③单击代码窗口右上角的【方法名称】下拉框，选择Click，在Form1_Click事
件中填入以下代码对文本框计数：
TextBox1.Text=Val(TextBox1.Text)+1
4.参照效果图，如图1-8所示，创建“窗体事件”项目，对窗体四个事件过程（Load、
Click、DoubleClick、Resize）进行设计并编程，请程序填空并调试。
具体要求如下：
（1）在窗体装入时，在窗体的标题栏将显示“装载窗体”，并在窗体装入任何图片作为背景平铺窗体，窗体没有最大化按钮和最小化按钮（请通过属性窗口设置），如图1-8①所示。
（2）当单击窗体时，标题栏显示“单击窗体”，改变窗体背景图片，以平铺方式显示窗体背景。改变鼠标指针Cursor为“KEY04.ICO”图标文件，改变窗体图标Icon为“MONITR01.ico”图标文件。窗体有最大化按钮和最小化按钮，如图1-8②所示。
（3）当双击窗体时，标题栏显示“双击窗体”，以拉伸方式显示背景图片，如图1-8③所示。
（4）当改变窗体大小时，标题栏显示“改变了窗体大小”，鼠标指针、窗体图标恢复为默认（Default）状态；窗体无最大化按钮和最小化按钮，如图1-8④所示。
①装载窗体②单击窗体
③双击窗体④改变窗体大小
图1-8 “窗体事件”程序运行效果图
操作提示：
①调试程序之前，应将要使用的图片和图标文件（图标文件在https://www.doczj.com/doc/6c15287884.html,系统的
Common\Graphics\Icons下）存放在该项目的Bin\Debug文件夹下，然后进行调试。
②窗体Form1_Load装入事件的代码，请填空后调试。
Me.BackgroundImage = Image.FromFile("PC01.ICO")
Me.Text = "装载窗体"
③窗体Form1_Click单击事件代码。
Me.BackgroundImageLayout = ImageLayout.Tile '以平铺方式显示窗体背景
Me.BackgroundImage = ("background.bmp") '装入相应图片
Me.Text =
Me.Icon = New Icon("MONITR01.ico") ' 改变窗体左上方的小图标
Me.Cursor = New Cursor("KEY04.ICO") ' 鼠标指针改为指定的文件名图标
Me.MaximizeBox =
Me.MinimizeBox = True
④窗体Form1_DoubleClick双击事件代码。
Me.BackgroundImageLayout = ImageLayout. '以拉伸方式显示窗体背景
Me.Text = "双击窗体"
⑤窗体Form1_Resize改变窗体大小事件代码。
Me.BackgroundImage = ' 卸掉图片，窗体无背景图片
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Cursor = Cursors.Default ' 鼠标指针恢复为默认值
Me.Icon = Nothing
Me.Text = "改变了窗体大小"
（二）中等题
5.请参考图1-9运行结果，新建“加法器”项目，具体要求如下：
图1-9 “加法器”程序运行效果
（1）窗体的标题为“加法器”，在窗体上从左到右依次引入Textbox1、Textbox2、Textbox3三个文本框。“+”为标签Label1。
（2）Textbox1、Textbox2两个文本框用于输入加数，要求不能接受非数字键，如果输入非数字键则清空该文本框内容。Textbox3文本框用于显示和，它不能进行编辑操作。
（3）单击“=”按钮（Button1），将两个加数的和显示在Textbox3文本框中。
（4）单击“清空”按钮（Button2），三个文本框内容都被清空，同时第一个文本框获得焦点。单击“退出”按钮（Button3），退出程序。
（5）设置窗体相应属性使得窗体运行时，按回车键相当于单击“=”按钮，按“ESC 键”相当于单击“退出”按钮。
操作提示并填空：
①新建“加法器”项目，按运行效果图设计界面；为保证Textbox3文本框，运
行时不能进行编辑操作，应设置其属性为True。
②为使窗体运行时按回车键相当于单击“=”按钮，应设置窗体的AcceptButton
属性设置为button1；为使按“ESC键”相当于单击“退出”按钮，应设置窗体的CancelButton 为。
③为不接受非数字键，双击Textbox1文本框，在其TextChanged事件中输入如
下代码，并参照该代码给Textbox2文本框的TextChanged事件编码。
If Not IsNumeric(TextBox1.Text) Then
TextBox1.Text = ""
End If
④编写“=”按钮的Click事件。
TextBox3.Text = Val() + Val()
⑤编写“清空”按钮和“退出”按钮的Click事件。调试并保存项目。
6.创建“移动标签”项目，窗体上放置1个标签，4个方向图标按钮，分别表示向上
（Button1）、向下（Button4）、向左（Button2）、向右（Button3）按钮，如图1-10所示。
其中右边那幅图是当标签移出了左边界后，向左按钮不可使用的情况。具体要求如下：
图1-10 “移动标签”程序运行效果
（1）当单击方向图标按钮一次时，在该方向上移动10个像素单位。
（2）如果超出窗体区域，该方向按钮为不可操作。其中图1-10右边那幅图是当标签移出了左边界后，向左按钮不可使用的情况。
（3）方向标签设置为不可操作后，应及时在反方向按钮事件中将其设置成可操作。
操作提示：
①方向图标文件（point02.ico~point05.ico在https://www.doczj.com/doc/6c15287884.html,系统的Graphics\Icons\Arrows文件夹下）可通过导入方式加载到按钮的Image属性。
②其中向左图标按钮单击事件过程为：
Label1.Left = Label1.Left – 10 …左移动10个单位
Button3.Enabled = True …将向右图标按钮设置为能用
If Label1.Left < -Label1.Width Then …如果标签已经移动最左边边界后
Button2.Enabled = False …将向左图标按钮设置为不能用
End If
③参照②编制其他按钮单击事件，调试并保存程序。
7.创建“图片框应用”项目，用图片框实现图片的缩小一半、还原及自定义大小。如图
1-11所示，窗体上放置一个PictureBox1图片框和两个命令按钮、两个标签、两个文本框。图片框装入你所喜欢的图片。具体要求：
（1）单击Button1 “还原”按钮，图片与初始装入时同大。
（2）每次单击Button2 “缩小一半”按钮，图片纵、横均比原来缩小一半。“高（自定义）”下方的文本框Textbox1显示图片的高，“宽（保持纵横比）”下方的文本框Textbox2显示图片宽度。
（3）Textbox1中输入数值（如100）再按回车键后，Textbox2自动显示出结果。并按照此高和宽显示图片，图片保持原来纵横比。如图1-11右图所示。
操作提示：
图1-11 “图片框应用”程序运行效果
①设置图片框的SizeMode属性为StretchImage，使得图片随着图片框的大小而变化。
②必须在窗体级声明窗体级变量，便于保存图片原来的大小。也就是在Public Class
Form1下面输入以下行：
Dim h, w As Integer
③在Form1_Load事件中记住图片框的初始值：
w = PictureBox1.Width
h = PictureBox1.Height
TextBox1.Text = h
TextBox2.Text = w
④在Button1_Click事件中还原成初始值的代码：
PictureBox1.Width =
PictureBox1.Height =
⑤在Button2_Click事件中使图片缩小一半的代码：
PictureBox1.Width =
PictureBox1.Height = PictureBox1.Height / 2
TextBox1.Text = PictureBox1.Height
TextBox2.Text = PictureBox1.Width
⑥在TextBox1_KeyPress事件中，输入数值回车后，图片变大小，TextBox2中显示图
片宽度。
If Asc(e.KeyChar) = 13 Then
PictureBox1.Height = Val(TextBox1.Text)
PictureBox1.Width = PictureBox1.Height *
TextBox2.Text =
End If
（三）难题
8.创建“字幕放大”应用程序，程序运行初始界面如图1-12左图所示，单击“开始”按
钮后界面如图1-12右图所示。具体要求如下：
(1) 窗体的标题为“字幕放大”，窗体显示3D边框效果。
(2) 单击“开始”按钮(Button1)，标签“欢迎光临”(Label1)文字在定时器Timer1控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。
(3) 单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮变为“开始”按钮。
(4) 要求标签文字在放大时保持水平居中。
(5) 定时器(Timer1)的时间间隔为0.3秒。
图1-12 “字幕放大”程序运行效果
提示：
①在代码窗口中可通过以下语句来实现标签字号自动增加2：
Label1.Font = New Font(https://www.doczj.com/doc/6c15287884.html,, Label1.Font.Size + 2)
②在代码窗口中可通过以下语句来实现标签保持水平居中：
Label1.Left = (Me.Width - Label1.Width) / 2
9.建立一个“简单记事本”应用程序，程序运行效果如图1-13所示。该程序主要功能有：
(1) 先选中文本框中部分文本，单击“剪切”按钮，先将选中内容保存到一个公用变量
S中，并且将文本框选中内容删除。
(2) 单击“复制”按钮，将选中内容保存到一个公用变量S中，文本框内容不变。
(3) 单击“粘贴”按钮，将原先保存到S变量中的内容复制到文本框插入点。
(4) 单击“隶书20号”按钮，将文本框文字设置为“隶书”字体，20字号。
(5) 单击“红色”按钮，将文本框文字设置为红色。
图1-13 “简单记事本”运行界面
提示：
①文本框要显示多行可通过将Multiline属性来设置，要有垂直滚动条可通过ScrollBar 属性来设置。
②“隶书20号”按钮的Click事件过程代码为：TextBox1.Font = New Font("隶书",
20)。
③“红色”按钮的Click事件过程代码为：TextBox1.ForeColor = Color.Red。
四、常见错误与难点分析
1.标点符号错误
在https://www.doczj.com/doc/6c15287884.html,中使用的分号、引号、括号等符号以及数字都是英文状态下的半角符号，而不能使用中文状态下的全角符号。任何中文标点符号（排除在引号内的字符串中的中文标
点符号）会产生“字符无效”语法错误。
2.对象名称写错或者未建立该对象
在窗体上创建的每个控件对象都有默认的名称，用于在程序中唯一地标识该控件对象。当对象名写错时，系统在错误处以下划线波浪表示，并显示“未声明名称×××”。初学者经常将标签名“Label1”写成“Lable1”。
输入对象名，出现未声明名称错误时也有可能是在窗体上未建立相对应的对象，此时需要到设计窗口创建对象。比如窗体上根本没有放置Label2时，在代码中使用它就会出错。
3.变量名写错
在默认情况下，https://www.doczj.com/doc/6c15287884.html,要求每个变量在使用前都要加以声明。用DIM声明的变量名，如果表示同一变量却写错了变量名，就会被认为是两个不同的变量。出错的那个变量会提示未声明错误。
4.字母和数字形状相似
L的小写字母“l”和数字“1”形式几何相同、O的小写字母“o”和数字“0”也难以区分，在输入代码时要特别注意，避免单独作为变量名使用。尤其是初学者经常将建立的第一个标签名“Label1”的最后两个字符混淆。
5.关键字之间应用空格隔开
各关键字之间，关键字和变量名、常量名、过程名、有些运算符之间一定要有空格分隔。比如直接输入“a&vbCrLf”就会出错，在变量a后输入一个空格即可解除错误。
6.对象的属性名、方法名写错
当程序中对象的属性名或方法名写错时，会显示“××不是××的成员”错误信息。在编写程序代码时，尽量使用自动列出成员功能，即当用户在输入控件名和点后，系统自动列出该控件在运行时可用的属性和方法，用户选中所需属性并按空格键或双击即可，这样可减少输入错误。
7.事件过程模板自动生成
要对某控件编写代码时，一般双击该控件，进入代码窗口，选择需要的事件过程名称即可。事件过程的模板是自动生成的，不要修改模板的内容，只需输入编写的事件过程代码。
8.事件过程的选择不能张冠李戴
比如要选择单击窗体显示什么内容，必须选择Form1_Click事件过程，而不能选择Form1_Load事件过程，因为后者是Form默认的事件，所以容易搞错。还有如果要在文本框输入数回车后才出结果的话，要选择TextBox1_KeyPress事件过程而不是默认的TextBox1_TextChanged事件过程。此时需要用户双击控件进入默认事件过程后，再重新选择需要的事件过程，然后开始写代码。
9.图片存放位置
程序中使用的图片如果通过代码装载，比如“Image.FromFile("图片名称")”，假设图片名称前没有图片路径的话，在运行程序时，应将图片文件拷贝到存放该项目的当前目录下，即“Bin”的“Debug”子文件夹，然后运行程序。
10.恢复默认窗口布局
若因操作不当破坏了https://www.doczj.com/doc/6c15287884.html,窗口布局，可通过选择“窗口|重置窗体布局”命令来恢复默认的窗体布局。
11.保存注意事项
当新建项目时，https://www.doczj.com/doc/6c15287884.html,允许不创建项目名，直到项目调试成功需要保存时再输入项目名称。如果刚开始新建项目时，没有为项目设置名称，则项目以默认的“WindowsApplication1”命名，保存前用户必须明确保存的位置，保存时需要注意项目名称要设置正确，否则很难更改。
12.上机实验的基本要求
如果按照教材上的例题输入程序，那么程序设计上机实验就成了打字练习，这样的实验是没有效果的。要使实验达到应有的效果，在上机实验之前，必须知道本次实验的任务，根据实验任务，做好充分准备工作，只有这样才能做到目的明确，使实验达到应有的效果。上机前的准备工作包括以下几个方面：
①复习和掌握与本次实验有关的教学内容。
②根据实验的内容，对问题进行认真的分析，搞清楚要解决什么问题，给定的是什么
条件？预期的结果是什么？需要使用什么类型的数据（如整型、双精度型、字符型
等）？
③初步设计程序的用户界面。由于Visual Basic的应用程序一般都有一个用户界面，
因此要对用户界面进行设计，需要使用什么对象进行输入或输出；采用什么样的格
式进行数据的输入或输出等。
④根据应用程序的主要功能，考虑通过什么方法来实现，关键问题是使用什么算法，
在纸上编写好相关功能的事件代码。
⑤预习实验步骤，对实验步骤中提出的一些问题进行思考，并给出初步的解决方案。
五、习题
1.选择题
（1）一个对象可以执行的动作和可被对象识别的动作分别称为_____。
A) 事件、方法B) 方法、事件C) 属性、方法D) 过程、事件
（2）设计状态下，双击窗体会产生________事件。
A) Enabled B) Active C) Click D) Load
（3）在https://www.doczj.com/doc/6c15287884.html,中的对象有哪三个基本要素？__________。
A) 对象的名称、值和所属类B) 对象的属性、事件和方法
C) 对象的大小、存储方式和内容D) 对象的访问方法、存储方式和名称
（4）下面有个https://www.doczj.com/doc/6c15287884.html,说法正确的是_________。
A)https://www.doczj.com/doc/6c15287884.html,代码不区分大小写B) https://www.doczj.com/doc/6c15287884.html,代码每行结束使用“；”号
C)https://www.doczj.com/doc/6c15287884.html,使用双引号进行注释D) https://www.doczj.com/doc/6c15287884.html,中使用“{”和“}”括起代码块
（5）在https://www.doczj.com/doc/6c15287884.html,集成环境中创建https://www.doczj.com/doc/6c15287884.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是_______。
A) 窗体布局窗口B) 立即窗口C) 代码窗口D) 监视窗口
（6）https://www.doczj.com/doc/6c15287884.html,窗体中提供的Hide方法的作用是______。
A) 销毁窗体对象 B) 关闭窗体C) 将窗体极小化D) 隐藏窗体
（7）要改变控件的宽度,应修改该控件的_______属性。
A) Top B) Width C) Left D) Height
（8）改变控件在窗体中的左右位置应修改该控件的________属性。
A) Top B) Left C) Width D) Right
（9）要把一个命令按钮设置成无效,应设置其哪一属性值________。
A) Visible B) Default C) Cancel D) Enabled
（10）不论何种控件，共同具有的是什么属性________。
A) Text B) Name C) ForeColor D) Text
（11）若要使标签控件显示时不要覆盖窗体的背景图案，要对________属性进行设置。
A) BackColor B) BorderStyle C) ForeColor D) BackStyle
（12）若要使命令按钮在程序运行时不可见，要对________属性进行设置。
A) Enabled B)Visible C) BackColor D) Text
（13）要使文本框中的文字不能被修改，应对________属性进行设置。
A) Locked B) Visible C) Enabled D) ReadOnly
（14）要使当前Form1 窗体的标题栏显示“欢迎使用https://www.doczj.com/doc/6c15287884.html,”，以下________语句是正确的。
A) Form1.Text=“欢迎使用https://www.doczj.com/doc/6c15287884.html,”B) Me. Text=“欢迎使用https://www.doczj.com/doc/6c15287884.html,”
C) https://www.doczj.com/doc/6c15287884.html,=“欢迎使用https://www.doczj.com/doc/6c15287884.html,”D) Me. Name=“欢迎使用https://www.doczj.com/doc/6c15287884.html,”
（15）若设置窗体的FromBorderStyle=None，则在程序运行时窗体的行为是________。
A) 窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。
B) 窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。
C) 窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。
D) 窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。
（16）要使窗体运行时充满整个屏幕，应设置其________属性。
A) Height B) Width C) WindowState D) AutoRedraw
（17）要判断在文本框中是否按了Enter键，应在文本框的________事件中判断。
A) Change B) KeyDown C) Click D) KeyPress
（18）要使文本框能够多行显示，则应使______属性设为True。
A) MultiLine B) MaxLength C) SelLength D) Locked
（19）如果要使命令按钮以图片形式显示，则应使______属性装入图片。
A) BackGroundImage B) Image C) ImageList D) ImageAlign （20）图片框控件可显示图像，若想使图片框自动改变大小，以适应装入的图片，应修改SizeMode属性值为________。
A) Normal B) StretchImage C) AutoSize D) CenterImage
（21）要使文本框成为密码输入框，一般应修改文本框的________属性。
A) MaxLength B) MultiLine C) PasswordChar D) ReadOnly
（22）TextBox控件的PasswordChar属性的作用是
A) 该属性是Boolean类型，表示是否使用*号隐藏输入的信息
B) 该属性是Char类型，表示是用哪个字符隐藏输入的信息
C) 该属性是String类型，表示输入的隐藏信息的实际内容
D) 该属性在https://www.doczj.com/doc/6c15287884.html,中未使用
（23）为了使TextBox的水平滚动条真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False?
A) ScrollBars B) AcceptReturns C) WordWrap D) AutoSize
（24）标签控件的作用是________。
A) 输入文本信息 B) 编辑文本信息 C) 显示文本信息 D) 相当于文本编辑器
（25）图片框控件可显示图像，若想使装入的图片随图片框大小而变化，应修改SizeMode 属性值为________。
A) Normal B) AutoSize C) StretchImage D) CenterImage
（26）下列关于定时器叙述正确的是________。
A) 在一个窗体中，不能同时使用两个定时器
B) Interval属性值设置为0表示相隔0 毫秒
C) 开启定时器，可将其enabled属性设置为false
D) 定时器在窗体设计状态可见，在运行状态不可见
（27）为使定时器控件每隔5秒钟产生一个定时器事件(Timer事件),则应将其Interval 属性值设置为________。
A) 5 B) 500 C) 300 D) 5000
2.思考题
(1)控件的Text属性与Name属性有什么区别？
(2)Label控件和TextBox控件都可以显示信息，两者有什么区别。
(3)试说明在以下动作中会引发哪些事件？
●在文本框中输入字符。
●文本框中的内容发生变化。
●某一个控件失去焦点时。
(4)定时器控件的默认Interval属性值是多少？
《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 回
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
山西财经大学《程序设计（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环境 顺序选择程序设计(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 典型结果】
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。
答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案
一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))
台州学院 《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
实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif
《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 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题
1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/6c15287884.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
实验报告二 实验目的 （1）掌握分支结构（if、if else、select case）语句 （2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法 （5）能综合运用循环控制结构解决较复杂的问题 实验内容 一、选择结构程序设计 【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用 实验结果： 【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）
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 ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作
实验教程 实验三顺序结构程序设计编程题参考答案（第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。 3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。 实验四选择结构程序设计编程题参考答案（第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值 7. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=
2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2
41011066付乾峰资源1103实验2 自测练习1，程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption & Label2.Caption End Sub 截图
自测练习2，程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = V al(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mo d 10
d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mo d 10 d = (d + 7) Mod 10 Print "加密前的4位整数是" & m Print "加密后的结果是" & a & b & c & d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划
一、活动名称 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动 二、活动意义 1.在校庆前，表达九斋学员对北科60年校庆的祝福 2.展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点：九斋一楼大厅校篮球场 时间：2011年3月20日-25日 三、活动对象 北京科技大学九斋公寓所有学生 四、内容： 1.活动时间推进表 时间任务
自测1 程序代码 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = False
— End Sub 初始窗口： 单机放大之后窗口： 单机下划线之后窗口：
单击加粗之后窗口： 单击还原之后窗口：
自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：
单击显示之后窗口：
—单击交换之后的窗口： 自测题3 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End Sub Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub
实验报告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程序设计课程实验报告 学院物电学院 专业自动化 班级 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 '定义整形变量