大学计算机基础实验指导教程电子版.docx
《大学计算机基础实验指导教程电子版.docx》由会员分享，可在线阅读，更多相关《大学计算机基础实验指导教程电子版.docx（213页珍藏版）》请在冰豆网上搜索。
大学计算机基础实验指导教程电子版
实验一熟悉VisualBasic6.0编程环境1
实验二VisualBasic语句基础14
实验三顺序结构23
实验四选择结构
（一）28
实验五选择结构
（二）35
实验六循环结构
（一）41
实验七循环结构
（二）49
实验八循环结构（三）54
实验九循环结构（四）61
实验十一维数组程序设计65
实验十一二维数组程序设计77
实验十二控件数组和自定义数组程序设计86
实验十三过程程序设计
（一）96
实验十四过程程序设计
（二）114
实验十五窗体和常用控件
（一）129
实验十七窗体和常用控件（三）154
实验十八用户界面设计
（一）169
实验十九用户界面设计
（二）176
实验二十用户界面设计（三）180
实验二十一图形操作188
实验一熟悉VisualBasic6.0编程环境
【实验目的】
（1）熟悉VB集成开发环境。
（2）掌握建立、编辑和运行一个VB应用程序的全过程。
（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。
（4）掌握窗体、文本框、标签和命令按钮的应用。
（5）掌握每个控件的常用事件和方法。
【实验内容】
用事例介绍在VB集成环境下操作的整个过程。
【1-1】用VB设计一个应用程序，完成以下功能。
（1）单击“文字”命令按钮，显示出红色文字“面向对象的程序设计语言——VB”，如图1-4所示。
（2）单击“计算”命令按钮，计算并显示该门课程的学时，如图1-5所示。
（3）“文字”命令按钮和“计算”命令按钮可以多次使用。
（4）单击“结束”命令按钮，则结束程序的运行。
操作步骤：
（1）启动VB后，出现如图1-1所示的界面。
在“新建工程”对话框中，在默认选项下，直接单击“打开”按钮，新建一个窗体Form1，如图1-2所示。
图1-1MicrosoftBasic6.0中文版的启动界面
图1-2VB窗口的布局
（2）单击工具箱中的控件，在窗体设计窗口中添加一个标签和3个命令按钮，如图1-3所示。
图1-3应用程序界面
（3）设置每个对象（控件）的属性如表1-1。
表1-1窗体及各控件属性值设置
对象名
属性名
属性值
说明
Form1
AutoRedraw
True
解决Print显示问题
ForeColor
&HFF0000&
窗口显示文字的颜色（蓝）
BackColor
&HFF00&
窗口背景颜色（绿）
Lable1
ForeColor
&HFF&
标签文字的颜色（红）
Font
隶书，二号，粗体
标签文字的字体设置
Caption
空
BackStyle
0-Transparent（透明）
标签背景透明
AutoSize
True
自动调整标签与字的大小一致
Command1
Caption
文字
第一个命令按钮标题名
Command2
Caption
计算
第二个命令按钮标题名
Command3
Caption
结束
第三个命令按钮标题名
（4）输入代码
代码又称为命令或者语句。
◆双击“文字”按钮，进入代码窗口。
PrivateSubCommand1_Click（）‘Command1的Click（单击）事件过程
Form1.Cls
Label1.Caption="面向对象程序设计--VB"
EndSub
说明：
Form1表示窗体这个对象。
Cls是一个方法，功能是清除。
因为“文字”和“计算”两个命令按钮允许多次使用，为了不使结果在窗口上重复显示，用Form1.Cls方法，清屏。
1-4单击“文字”命令按钮以下几个
◆双击“计算”按钮，进入代码窗口。
PrivateSubCommand2_Click（）
Form1.Cls
Label1.Caption=""
Print‘输出一空行
PrintSpc（6）;"VB程序设计课程学时数为：
"&4*16&"学时"
EndSub
1-5运行“计算”命令按钮运行结果界面
◆双击Command3（结束）按钮，进入代码窗口
PrivateSubCommand3_Click（）
End
EndSub
（5）保存过程
选择“文件”菜单中的“保存过程”命令，先保存窗体文件，然后保存过程文件。
或使用标准工具栏上的“保存”按钮。
单击“标准”工具栏中的“保存工程”按钮，系统将打开“文件另存为”对话框，主要保存类型，保存窗体文件（*.frm）到指定文件夹中。
窗体文件存盘后系统会弹出“工程另存为”对话框，保存类型为工程文件（*.vbp），默认工程文件名为“工程1.vpb”，保存工程文件到指定文件夹中。
工程文件保存后，随后弹出“SourceCodeControl”消息框，询问是否把当前工程添加到微软的版本管理器中，单击“No”按钮即可。
如果计算机上没有安装VisualSourceSafe则不会出现“SourceCodeControl”消息框。
注意：
由于一个工程可能会有多种文件，如工程文件和窗体文件，这些文件集合在一起才能构成应用程序。
因此，建议在保存工程时将同一工程所有类型的文件存放在同一文件夹中，以便修改和管理工程文件。
保存VB工程文件的默认路径是VB98。
（6）运行程序
单击“标准”工具栏中的“启动”按钮（或直接按F5功能键）。
反复按三个命令按钮，观察程序运行结果界面。
（7）生成可执行文件
选择“文件”菜单中的“生成工程1.exe”命令，在打开的“生成工程”对话框中使用“工程1.exe”文件名，则工程就编译成可脱离VB环境的EXE文件。
注意：
窗体的MDIChild属性设置为False。
否则，无法运行。
（8）完整的源程序文件如下：
PrivateSubCommand1_Click（）
Form1.Cls
Label1.Caption="面向对象程序设计--VB"
EndSub
PrivateSubCommand2_Click（）
Form1.Cls
Label1.Caption=""
Print
PrintSpc（6）;"VB程序设计课程学时数为：
"&4*16&"学时"
EndSub
PrivateSubCommand3_Click（）
End
EndSub
【1-2】通过窗体的Caption（标题）、MaxButton（最大化按钮）和MinButton（最小化按钮）等属性设置，了解窗体属性设置的一般方法，运行结果如图1-6所示。
图1-6运行结果
操作步骤：
（1）在属性列表中单击Caption属性，在文本框中输入标题“我的第一个窗体”。
（2）在属性列表中单击MaxButton属性，在属性值中选择False（用户也可双击改变该属性）。
（3）同样，在属性列表中单击MixButton属性，在属性值中选择False.
（4）单击“标准”工具栏中的“启动”按钮（或直接按F5功能键），运行该程序。
从运行结果图1-1看到应用程序窗口中没有最大化和最小化按钮。
【1-3】按以下操作步骤，利用标签创建如图1-7所示的“宿舍管理系统”界面的窗体。
图1-7标签使用事例运行结果界面
操作步骤：
（1）创建一个新工程，在窗体中，使用控件工具箱中的“标签”按钮，分别创建3个标签控件。
按住Ctrl键同时按工具箱中的“标签”按钮，在窗口中可以拖曳无数个标签。
按ESC键取消。
（2）在属性窗口中，分别为窗体和控件设置如表1-2所示的属性值。
（3）按F5功能键，启动该程序，观察运行效果。
表1-2窗体及各控件属性值设置
对象名
属性名
属性值
说明
Form1
Caption
标签控件的使用
设置窗体标题
Lable1
Caption
宿舍管理系统
第一个标签的内容
Font
幼圆，小一，粗体
第一个标签字体
ForeColor
255,0,0
第一个标签文字的颜色（红）
BackColor
255,255,255
第一个标签文字背景色（白）
BackStyle
1-Opaque（不透明）
第一个标签背景不透明
AutoSize
True
自动调整标签与字的大小一致
Lable2
Caption
研制人：
夏天
第二个标签的内容
Font
隶书，二号，粗体
第二个标签字体名
BackStyle
0-透明
第二个标签背景透明
AutoSize
True
自动调整标签与字的大小一致
Lable3
Caption
版权所有（C）2012
第三个标签的内容
Font
隶书，三号，粗体
第三个标签字体名
BackStyle
0-透明
第三个标签背景透明
AutoSize
True
自动调整标签与字的大小一致
【1-4】利用命令按钮，创建如图1-8所示的应用程序。
窗体中有4个命令按钮，分别实现以下功能。
●窗体运行时，自动居中，且命令按钮Command2（白色）不可用。
●单击命令按钮Command1（红色）时，要求改变窗口背景颜色为红色，且命令按钮Command3（图形按钮）不可用，其它命令按钮可用。
●单击命令按钮Command2时，要求改变窗口背景颜色为白色，且命令按钮Command1、命令按钮Command3（图形按钮）和命令按钮Command4可用。
●当单击命令按钮Command3时，窗体标题处显示单击该按钮的次数。
●单击命令按钮Command4（退出）时，退出窗体程序。
图1-8运行结果界面
操作步骤：
（1）新建一工程，在窗体中添加4个命令按钮。
调整各控件的相互位置，窗体对象各属性如表1-2所示。
表1-3窗体及控件属性值的设置
按钮名称
属性名
属性值
说明
Form1
Caption
你本次是第次按下
此按钮
设置标题栏显示的文字
Command1
Caption
红色
设置显示的文字
Command2
Caption
白色
设置显示的文字
Command3
Caption
图形按钮
设置显示的文字
Stye
1-Graphical
显示图片。
选择0-standard不显示图片
Picture
装入图片
Command4
Caption
退出
设置显示的文字
（2）在“窗体布局”窗口中，单击鼠标右键，依次选择快捷菜单中的“启动位置”——“屏幕中心”命令，可设置程序执行时窗口在屏幕中央的位置，如图1-9所示（或在“窗体布局”窗口中直接将窗体移动到中央）。
图1-9“窗口布局”窗口和快捷菜单
（3）各命令按钮的事件代码如下。
◆在事件代码编辑窗口中，在“对象”列表框选择“通用”选项，定义一个模块级变量sss，用于存储单击按钮的次数:
DimsssAsInteger'定义一个模块级变量，用于存储单击按钮的次数
◆窗体Form1的Load的事件代码为：
PrivateSubForm_Load（）
‘或Command2.Enabled=False
EndSub
◆命令按钮Command1的Click事件代码为：
PrivateSubCommand1_Click（）
form1.BackColor=RGB（255,0,0）‘设置窗体颜色为红色
Command1.Enabled=False‘命令按钮Command1不可用
Command2.Enabled=True‘命令按钮Command2可用
Command3.Enabled=False
Command4.Enabled=True
EndSub
◆命令按钮Command2的Click事件代码为：
PrivateSubCommand2_Click（）
BackColor=vbWhite‘设置窗体颜色为白色
Command1.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
EndSub
◆命令按钮Command3的Click事件代码为：
PrivateSubCommand3_Click（）
sss=sss+1
Form1.Caption="你本次是第"&Trim（Str（sss））&"次按下此按钮"
‘trim函数的功能：
将字符串的前导空格和尾随空格都除去
‘str函数的功能：
将数值转换为字符串
EndSub
◆命令按钮Command4的Click事件代码为：
PrivateSubCommand4_Click（）
End
EndSub
（4）完整的源程序如下：
DimsssAsInteger'定义一个模块级变量，用于存储单击按钮的次数
PrivateSubForm_Load（）
EndSub
PrivateSubCommand1_Click（）
Form1.BackColor=RGB（255,0,0）
Command1.Enabled=False'命令按钮Command1不可用
Command2.Enabled=True'命令按钮Command2可用
Command3.Enabled=False
Command4.Enabled=True
EndSub
PrivateSubCommand2_Click（）
BackColor=vbWhite'设置窗体颜色为白色
Command1.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
EndSub
PrivateSubCommand3_Click（）
sss=sss+1
Form1.Caption="你本次是第"&Trim（Str（sss））&"次按下此按钮"
'trim函数的功能：
将字符串的前导空格和尾随空格都除去
'str函数的功能：
将数值转换为字符串
EndSub
PrivateSubCommand4_Click（）
End
EndSub
【1-5】在窗体上建立两个命令按钮和一个文本框，一个命令按钮放大文本框内的文字，另一个命令按钮缩小文本框内的文字，运行结果界面如图1-10所示。
窗体及控件属性值的设置如表1-4所示。
图1-10运行界面
表1-4窗体及控件属性值的设置
按钮名称
属性名
属性值
说明
Form1
Caption
文本框控件的使用
设置标题栏显示的文字
Text1
Text
辽宁工业大学
文本框内显示的内容
Alignment
2-centre
文本框内显示的内容居中
Command1
Caption
放大
设置显示的文字
Command2
Caption
缩小
设置显示的文字
操作步骤：
（1）在窗体上画一个文本框和两个命令按钮。
（2）设置控件属性。
（3）将改变字体的代码分别写入两个命令按钮的单击事件过程中。
PrivateSubCommand1_Click（）
Text1.FontSize=30
EndSub
PrivateSubCommand2_Click（）
Text1.FontSize=18
EndSub
【作业】
（1）在窗体上使用标签控件显示文字“VB程序设计”，通过属性窗口完成设置，要求：
字体为黑色、28号，前景色为红色，标签能自动调整大小，背景透明并带有边框，效果如图1-11所示。
图1-11设置标签属性及其效果
（2）编写一个实现英文字母大小写自动转换的程序，运行结果如图1-12所示。
要求边输入边转换，对英文字母进行大小写转换，其余字符保留原样。
控件中的属性参照图1-12进行设置，部分属性分别如下：
Label1标签：
Font属性为“宋体、小四号”
Label2标签：
Font属性为“黑体、小四号”
Text1和Text2文本框：
Text属性为空，Multiline为True，ScrollBars为“2-Vertical”。
因为要求实现边输入边转换功能，所以就要对文本框Text1的Keypress事件进行编辑。
图1-12运行结果界面
源程序：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimxAsString*1,yAsString*1
x=Chr（KeyAscii）‘Chr函数的功能：
将Ascii值转换为相应的字母
y=Chr（KeyAscii）
Ifx>="A"Andx<="z"Theny=Chr（KeyAscii+32）
Ifx>="a"Andx<="z"Theny=Chr（KeyAscii-32）
Text2.Text=Text2.Text+y
EndSub
（3）“数学计算”程序。
在窗体上添加两个命令按钮Command1、Command2、3个文本框和3个标签，要求单击Command1按钮可以清除3个文本框的文字，单击Command2按钮可以根据在Text1中输入的半径，计算出周长、面积并显示到Text2、Text3中。
运行结果如图1-13所示。
控件中的属性参照图1-12进行设置，部分属性分别如下：
窗体内各控件字体：
Font属性为“粗体、小四号”
Text2、Text3文本框的Locked属性均设置为True。
图1-13运行结果界面
源程序：
PrivateSubCommand1_Click（）
Text1.Text=""‘清空文本框内容
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand2_Click（）
Text2.Text=2*3.14*Val（Text1.Text）'Val函数将字符串转换为数值
Text3.Text=3.14*Val（Text1.Text）^2
EndSub
实验二VisualBasic语句基础
【实验目的】
（1）掌握变量的数据类型定义、赋值、表达式和内部函数的应用。
（2）进一步了解窗体（Form）、命令按钮（CommandButton）、标签（Label）、文本框（TextBox）的使用。
【实验内容】
1、尝试编写下列程序
【2-1】设计一个能实现计算《大学计算机基础》课程期末综合成绩的简单程序，综合成绩=平时成绩×20%+考试成绩×80%。
2-1运行结果界面
OptionExplicit'强制变量显式定义
PrivateSubCommand1_Click（）
DimzongheAsSingle,psAsSingle,ksAsSingle'变量定义
DimxmAsString
xm=Text1.Text'数据输入
ks=Val（Text2.Text）
ps=Val（Text3）
zonghe=ks*0.8+ps*0.2'数据的运算处理
Label4.Caption=xm&"的综合成绩是"&zonghe&"分"
EndSub
【2-2】设有变量x%和y%，随机产生两个[1,10]之间的数，计算x/y和x\y的值,试设计一个简单的窗体。
窗体装入界面如图2-2-1所示，运行结果界面如图2-2-2所示。
2-2-1窗体装入界面2-2-2窗体运行结果界面
源程序：
Dimx%,y%'在“通用”状态下定义模块变量，供几个过程使用
PrivateSubForm_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=""
EndSub
PrivateSubCommand1_Click（）
Text3.Text=x/y
Text4.Text=x\y
EndSub
PrivateSubCommand2_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）
EndSub
PrivateSubCommand3_Click（）
End
EndSub
【2-3】随机产生一个3位的整数，然后逆序输出，要求产生的数与逆序数都显示。
窗体设计界面如图2-3-1所示。
运行结果界面如图2-3-2所示。
2-3-1窗体设计界面2-3-2运行结果界面
源程序：
方法一
OptionExplicit'强制变量显式定义
DimaAsInteger
PrivateSubCommand1_Click（）
a=Int（Rnd*900+100）
Text1.Text=a'或Text1.Text=str（a）
Text2.Text=""
EndSub
PrivateSubCommand2_Click（）
DimbAsInteger,a1%,a2%,a3%
a1=a\100
a2=a\10Mod10
a3=aMod10
b=a3*100+a2*10+a1'如果a3为0，则不准确
Text2.Text=Str（b）
EndSub
源程序：
方法二
OptionExplicit'强制变量显式定义
DimaAsInteger
PrivateSubCommand1_Click（）
a=Int（Rnd*900+100）
Text1.Text=a'或Text1.Text=str（a）
Text2.Text=""
EndSub
PrivateSubCommand2_Click（）
DimbAsString,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=b
End
升级会员 