大学计算机基础实验指导教程电子版.docx

1、大学计算机基础实验指导教程电子版实验一 熟悉Visual Basic 6.0编程环境 1实验二 Visual Basic语句基础 14实验三 顺序结构 23实验四 选择结构（一） 28实验五 选择结构（二） 35实验六 循环结构（一） 41实验七 循环结构（二） 49实验八 循环结构（三） 54实验九 循环结构（四） 61实验十 一维数组程序设计 65实验十一 二维数组程序设计 77实验十二 控件数组和自定义数组程序设计 86实验十三 过程程序设计（一） 96实验十四 过程程序设计（二） 114实验十五 窗体和常用控件（一） 129实验十七 窗体和常用控件（三） 154实验十八 用户界面设计（

2、一） 169实验十九 用户界面设计（二） 176实验二十 用户界面设计（三） 180实验二十一 图形操作 188实验一 熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。（2）掌握建立、编辑和运行一个VB应用程序的全过程。（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。（4）掌握窗体、文本框、标签和命令按钮的应用。（5）掌握每个控件的常用事件和方法。【实验内容】用事例介绍在VB集成环境下操作的整个过程。【1-1】用VB设计一个应用程序，完成以下功能。（1）单击“文字”命令按钮，显示出红色文字“面向对象的程序设计语言VB”，如图1-4所示。（2）单

3、击“计算”命令按钮，计算并显示该门课程的学时，如图1-5所示。（3）“文字”命令按钮和“计算”命令按钮可以多次使用。（4）单击“结束”命令按钮，则结束程序的运行。操作步骤：(1)启动VB后，出现如图1-1所示的界面。在“新建工程”对话框中，在默认选项下，直接单击“打开”按钮，新建一个窗体Form1，如图1-2所示。图1-1 Microsoft Basic 6.0中文版的启动界面图1-2 VB窗口的布局（2）单击工具箱中的控件，在窗体设计窗口中添加一个标签和3个命令按钮，如图1-3所示。图1-3 应用程序界面（3）设置每个对象（控件）的属性如表1-1。表1-1 窗体及各控件属性值设置对象名属性名

4、属性值说明Form1AutoRedrawTrue解决Print显示问题ForeColor&HFF0000&窗口显示文字的颜色（蓝）BackColor&HFF00&窗口背景颜色（绿）Lable1ForeColor&HFF&标签文字的颜色（红）Font隶书，二号，粗体标签文字的字体设置Caption空BackStyle0-Transparent(透明)标签背景透明AutoSizeTrue自动调整标签与字的大小一致Command1Caption文字第一个命令按钮标题名Command2Caption 计算第二个命令按钮标题名Command3Caption结束第三个命令按钮标题名（4）输入代码代码又称为

5、命令或者语句。双击“文字”按钮，进入代码窗口。Private Sub Command1_Click() Command1的Click（单击）事件过程 Form1.Cls Label1.Caption = 面向对象程序设计-VBEnd Sub说明：Form1表示窗体这个对象。Cls是一个方法，功能是清除。因为“文字”和“计算”两个命令按钮允许多次使用，为了不使结果在窗口上重复显示，用Form1.Cls方法，清屏。1-4 单击“文字”命令按钮以下几个双击“计算”按钮，进入代码窗口。Private Sub Command2_Click() Form1.Cls Label1.Caption = Pri

6、nt 输出一空行 Print Spc(6); VB程序设计课程学时数为： & 4 * 16 & 学时End Sub1-5 运行“计算”命令按钮运行结果界面双击Command3(结束)按钮，进入代码窗口Private Sub Command3_Click() EndEnd Sub（5）保存过程选择“文件”菜单中的“保存过程”命令，先保存窗体文件，然后保存过程文件。或使用标准工具栏上的“保存”按钮。单击“标准”工具栏中的“保存工程”按钮 ，系统将打开“文件另存为”对话框，主要保存类型，保存窗体文件（*.frm）到指定文件夹中。窗体文件存盘后系统会弹出“工程另存为”对话框，保存类型为工程文件（*.v

7、bp），默认工程文件名为“工程1.vpb”，保存工程文件到指定文件夹中。工程文件保存后，随后弹出“Source Code Control”消息框，询问是否把当前工程添加到微软的版本管理器中，单击“No”按钮即可。如果计算机上没有安装Visual Source Safe则不会出现“Source Code Control”消息框。注意：由于一个工程可能会有多种文件，如工程文件和窗体文件，这些文件集合在一起才能构成应用程序。因此，建议在保存工程时将同一工程所有类型的文件存放在同一文件夹中，以便修改和管理工程文件。保存VB工程文件的默认路径是VB98。（6）运行程序单击“标准”工具栏中的“启动”按钮

8、（或直接按F5功能键）。反复按三个命令按钮，观察程序运行结果界面。(7)生成可执行文件选择“文件”菜单中的“生成工程1.exe”命令，在打开的“生成工程”对话框中使用“工程1.exe”文件名，则工程就编译成可脱离VB环境的EXE文件。注意：窗体的MDIChild属性设置为False。否则，无法运行。（8）完整的源程序文件如下：Private Sub Command1_Click() Form1.Cls Label1.Caption = 面向对象程序设计-VBEnd SubPrivate Sub Command2_Click() Form1.Cls Label1.Caption = Print

9、Print Spc(6); VB程序设计课程学时数为： & 4 * 16 & 学时End SubPrivate Sub Command3_Click() EndEnd Sub【1-2】通过窗体的Caption（标题）、MaxButton(最大化按钮)和MinButton(最小化按钮)等属性设置，了解窗体属性设置的一般方法，运行结果如图1-6所示。图1-6 运行结果操作步骤：(1)在属性列表中单击Caption属性，在文本框中输入标题“我的第一个窗体”。(2)在属性列表中单击MaxButton属性，在属性值中选择False（用户也可双击改变该属性）。(3)同样，在属性列表中单击MixButton

10、属性，在属性值中选择False.(4)单击“标准”工具栏中的“启动”按钮 （或直接按F5功能键），运行该程序。从运行结果图1-1看到应用程序窗口中没有最大化和最小化按钮。【1-3】按以下操作步骤，利用标签创建如图1-7所示的“宿舍管理系统”界面的窗体。图1-7 标签使用事例运行结果界面操作步骤：(1)创建一个新工程，在窗体中，使用控件工具箱中的“标签”按钮，分别创建3个标签控件。按住Ctrl键同时按工具箱中的“标签”按钮，在窗口中可以拖曳无数个标签。按ESC键取消。(2)在属性窗口中，分别为窗体和控件设置如表1-2所示的属性值。(3)按F5功能键，启动该程序，观察运行效果。表1-2 窗体及各控

11、件属性值设置对象名属性名属性值说明Form1Caption标签控件的使用设置窗体标题Lable1Caption宿舍管理系统第一个标签的内容Font幼圆，小一，粗体第一个标签字体ForeColor255,0,0第一个标签文字的颜色（红）BackColor255,255,255第一个标签文字背景色（白）BackStyle1-Opaque(不透明)第一个标签背景不透明AutoSizeTrue自动调整标签与字的大小一致Lable2Caption研制人：夏天第二个标签的内容Font隶书，二号，粗体第二个标签字体名BackStyle0-透明第二个标签背景透明AutoSizeTrue自动调整标签与字的大小一

12、致Lable3Caption版权所有（C）2012第三个标签的内容Font隶书，三号，粗体第三个标签字体名BackStyle0-透明第三个标签背景透明AutoSizeTrue自动调整标签与字的大小一致【1-4】利用命令按钮，创建如图1-8所示的应用程序。窗体中有4个命令按钮，分别实现以下功能。窗体运行时，自动居中，且命令按钮Command2(白色)不可用。单击命令按钮Command1(红色)时，要求改变窗口背景颜色为红色，且命令按钮Command3(图形按钮)不可用，其它命令按钮可用。单击命令按钮Command2时，要求改变窗口背景颜色为白色，且命令按钮Command1、命令按钮Command

13、3（图形按钮）和命令按钮Command4可用。当单击命令按钮Command3时，窗体标题处显示单击该按钮的次数。单击命令按钮Command4（退出）时，退出窗体程序。图1-8运行结果界面操作步骤：(1)新建一工程，在窗体中添加4个命令按钮。调整各控件的相互位置，窗体对象各属性如表1-2所示。表1-3 窗体及控件属性值的设置按钮名称属性名属性值说明Form1Caption你本次是第 次按下此按钮设置标题栏显示的文字Command1Caption红色设置显示的文字Command2Caption白色设置显示的文字Command3Caption图形按钮设置显示的文字Stye1-Graphical显示图

14、片。选择0-standard不显示图片Picture装入图片Command4Caption退出设置显示的文字(2)在“窗体布局”窗口中，单击鼠标右键，依次选择快捷菜单中的“启动位置”“屏幕中心”命令，可设置程序执行时窗口在屏幕中央的位置，如图1-9所示（或在“窗体布局”窗口中直接将窗体移动到中央）。图1-9 “窗口布局”窗口和快捷菜单（3）各命令按钮的事件代码如下。在事件代码编辑窗口中，在“对象”列表框选择“通用”选项，定义一个模块级变量sss，用于存储单击按钮的次数:Dim sss As Integer 定义一个模块级变量，用于存储单击按钮的次数窗体Form1的Load的事件代码为：Priv

15、ate Sub Form_Load()或Command2.Enabled = FalseEnd Sub命令按钮Command1的Click事件代码为：Private Sub Command1_Click() form1.BackColor = RGB(255, 0, 0) 设置窗体颜色为红色Command1.Enabled = False 命令按钮Command1不可用Command2.Enabled = True 命令按钮Command2可用Command3.Enabled = FalseCommand4.Enabled = TrueEnd Sub命令按钮Command2的Click事件代码

16、为：Private Sub Command2_Click()BackColor = vbWhite 设置窗体颜色为白色Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueEnd Sub命令按钮Command3的Click事件代码为：Private Sub Command3_Click()sss = sss + 1Form1.Caption = 你本次是第 & Trim(Str(sss) & 次按下此按钮trim函数的功能：将字符串的前导空格和尾随空格都除去str函数的功能：将数值转换为字符串End Sub命令

17、按钮Command4的Click事件代码为：Private Sub Command4_Click()EndEnd Sub（4）完整的源程序如下：Dim sss As Integer 定义一个模块级变量，用于存储单击按钮的次数Private Sub Form_Load()End SubPrivate Sub Command1_Click() Form1.BackColor = RGB(255, 0, 0) Command1.Enabled = False 命令按钮Command1不可用 Command2.Enabled = True 命令按钮Command2可用 Command3.Enabled

18、 = False Command4.Enabled = TrueEnd SubPrivate Sub Command2_Click() BackColor = vbWhite 设置窗体颜色为白色 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() sss = sss + 1 Form1.Caption = 你本次是第 & Trim(Str(sss) & 次按下此按钮 trim函数的功能：将字符串的前导空格和尾随空格都除去 str函数的

19、功能：将数值转换为字符串End SubPrivate Sub Command4_Click() EndEnd Sub【1-5】在窗体上建立两个命令按钮和一个文本框，一个命令按钮放大文本框内的文字，另一个命令按钮缩小文本框内的文字，运行结果界面如图1-10所示。窗体及控件属性值的设置如表1-4所示。图1-10 运行界面表1-4 窗体及控件属性值的设置按钮名称属性名属性值说明Form1Caption文本框控件的使用设置标题栏显示的文字Text1Text辽宁工业大学文本框内显示的内容Alignment2-centre文本框内显示的内容居中Command1Caption放大设置显示的文字Command

20、2Caption缩小设置显示的文字操作步骤：（1）在窗体上画一个文本框和两个命令按钮。（2）设置控件属性。（3）将改变字体的代码分别写入两个命令按钮的单击事件过程中。Private Sub Command1_Click() Text1.FontSize = 30End SubPrivate Sub Command2_Click() Text1.FontSize = 18End Sub【作业】(1)在窗体上使用标签控件显示文字“VB程序设计”，通过属性窗口完成设置，要求：字体为黑色、28号，前景色为红色，标签能自动调整大小，背景透明并带有边框，效果如图1-11所示。 图1-11 设置标签属性及其

21、效果（2）编写一个实现英文字母大小写自动转换的程序，运行结果如图1-12所示。要求边输入边转换，对英文字母进行大小写转换，其余字符保留原样。控件中的属性参照图1-12进行设置，部分属性分别如下：Label1标签：Font属性为“宋体、小四号”Label2标签：Font属性为“黑体、小四号”Text1和Text2文本框：Text属性为空，Multiline为True，ScrollBars为“2-Vertical”。因为要求实现边输入边转换功能，所以就要对文本框Text1的Keypress事件进行编辑。图1-12 运行结果界面 源程序：Private Sub Text1_KeyPress(KeyA

22、scii As Integer) Dim x As String * 1, y As String * 1 x = Chr(KeyAscii) Chr函数的功能：将Ascii值转换为相应的字母 y = Chr(KeyAscii) If x = A And x = a And x = z Then y = Chr(KeyAscii - 32) Text2.Text = Text2.Text + yEnd Sub（3）“数学计算”程序。在窗体上添加两个命令按钮Command1、Command2、3个文本框和3个标签，要求单击Command1按钮可以清除3个文本框的文字，单击Command2按钮可以

23、根据在Text1中输入的半径，计算出周长、面积并显示到Text2、Text3中。运行结果如图1-13所示。控件中的属性参照图1-12进行设置，部分属性分别如下：窗体内各控件字体：Font属性为“粗体、小四号”Text2、Text3文本框的Locked属性均设置为True。图 1-13 运行结果界面源程序：Private Sub Command1_Click() Text1.Text = 清空文本框内容 Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click() Text2.Text = 2 * 3.14 * Val(Text1.T

24、ext) Val函数将字符串转换为数值 Text3.Text = 3.14 * Val(Text1.Text) 2End Sub实验二 Visual Basic语句基础【实验目的】（1）掌握变量的数据类型定义、赋值、表达式和内部函数的应用。 （2）进一步了解窗体（Form）、命令按钮（CommandButton）、标签(Label)、文本框（TextBox）的使用。【实验内容】1、尝试编写下列程序【2-1】设计一个能实现计算大学计算机基础课程期末综合成绩的简单程序，综合成绩=平时成绩20%+考试成绩80%。2-1 运行结果界面Option Explicit 强制变量显式定义Private Su

25、b Command1_Click() Dim zonghe As Single, ps As Single, ks As Single 变量定义 Dim xm As String xm = Text1.Text 数据输入 ks = Val(Text2.Text) ps = Val(Text3) zonghe = ks * 0.8 + ps * 0.2 数据的运算处理 Label4.Caption = xm & 的综合成绩是 & zonghe & 分End Sub【2-2】设有变量x%和y%，随机产生两个1,10之间的数，计算x/y和xy的值,试设计一个简单的窗体。窗体装入界面如图2-2-1所示

26、，运行结果界面如图2-2-2所示。2-2-1 窗体装入界面 2-2-2 窗体运行结果界面源程序：Dim x%, y% 在“通用”状态下定义模块变量，供几个过程使用Private Sub Form_Load() x = Int(Rnd * 10 + 1) 产生1,10之间的数 Text1.Text = Str(x) str函数，将数值型数据转换为字符型 y = Int(Rnd * 10 + 1) Text2.Text = Str(y) Text3.Text = 清除文本框内容 Text4.Text = End SubPrivate Sub Command1_Click() Text3.Text

27、= x / y Text4.Text = x yEnd SubPrivate Sub Command2_Click() Text3.Text = Text4.Text = Text1.SetFocus 文本框text1重新获得焦点 Text2.SetFocus Randomize 每次产生的随机数不同 x = Int(Rnd * 10 + 1) Text1.Text = Str(x) y = Int(Rnd * 10 + 1) Text2.Text = Str(y)End SubPrivate Sub Command3_Click() EndEnd Sub【2-3】随机产生一个3位的整数，然后

28、逆序输出，要求产生的数与逆序数都显示。窗体设计界面如图2-3-1所示。运行结果界面如图2-3-2所示。 2-3-1 窗体设计界面 2-3-2 运行结果界面源程序：方法一Option Explicit 强制变量显式定义Dim a As IntegerPrivate Sub Command1_Click() a = Int(Rnd * 900 + 100) Text1.Text = a 或 Text1.Text =str(a) Text2.Text = End SubPrivate Sub Command2_Click() Dim b As Integer, a1%, a2%, a3% a1 =

29、a 100 a2 = a 10 Mod 10 a3 = a Mod 10 b = a3 * 100 + a2 * 10 + a1 如果a3为0，则不准确 Text2.Text = Str(b)End Sub源程序：方法二Option Explicit 强制变量显式定义Dim a As IntegerPrivate Sub Command1_Click() a = Int(Rnd * 900 + 100) Text1.Text = a 或 Text1.Text =str(a) Text2.Text = End SubPrivate Sub Command2_Click() Dim b As String, a1$, a2$, a3$, s$ s = Trim(Str(a) 将整型值转换为字符串型再去掉前后的空格 a1 = Left(s, 1) a2 = Mid(s, 2, 1) a3 = Right(s, 1) b = a3 & a2 & a1 Text2.Text = bEnd