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

资源描述

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

《大学计算机基础实验指导教程电子版Word下载.docx》由会员分享，可在线阅读，更多相关《大学计算机基础实验指导教程电子版Word下载.docx（182页珍藏版）》请在冰豆网上搜索。

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

在“新建工程”对话框中，在默认选项下，直接单击“打开”按钮，新建一个窗体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

HFF&

标签文字的颜色（红）

Font

隶书，二号，粗体

标签文字的字体设置

Caption

空

BackStyle

0-Transparent（透明）

标签背景透明

AutoSize

自动调整标签与字的大小一致

Command1

文字

第一个命令按钮标题名

Command2

Caption

计算

第二个命令按钮标题名

Command3

结束

第三个命令按钮标题名

（4）输入代码

代码又称为命令或者语句。

◆双击“文字”按钮，进入代码窗口。

PrivateSubCommand1_Click（）‘Command1的Click（单击）事件过程

Form1.Cls

Label1.Caption="

面向对象程序设计--VB"

EndSub

说明：

Form1表示窗体这个对象。

Cls是一个方法，功能是清除。

因为“文字”和“计算”两个命令按钮允许多次使用，为了不使结果在窗口上重复显示，用Form1.Cls方法，清屏。

1-4单击“文字”命令按钮以下几个

◆双击“计算”按钮，进入代码窗口。

PrivateSubCommand2_Click（）

Print‘输出一空行

PrintSpc（6）;

VB程序设计课程学时数为：

4*16&

学时"

1-5运行“计算”命令按钮运行结果界面

◆双击Command3（结束）按钮，进入代码窗口

PrivateSubCommand3_Click（）

End

（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（）

【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窗体及各控件属性值设置

标签控件的使用

设置窗体标题

宿舍管理系统

第一个标签的内容

幼圆，小一，粗体

第一个标签字体

255,0,0

第一个标签文字的颜色（红）

255,255,255

第一个标签文字背景色（白）

1-Opaque（不透明）

第一个标签背景不透明

Lable2

研制人：

夏天

第二个标签的内容

第二个标签字体名

0-透明

第二个标签背景透明

Lable3

第三个标签的内容

隶书，三号，粗体

第三个标签字体名

第三个标签背景透明

【1-4】利用命令按钮，创建如图1-8所示的应用程序。

窗体中有4个命令按钮，分别实现以下功能。

●窗体运行时，自动居中，且命令按钮Command2（白色）不可用。

●单击命令按钮Command1（红色）时，要求改变窗口背景颜色为红色，且命令按钮Command3（图形按钮）不可用，其它命令按钮可用。

●单击命令按钮Command2时，要求改变窗口背景颜色为白色，且命令按钮Command1、命令按钮Command3（图形按钮）和命令按钮Command4可用。

●当单击命令按钮Command3时，窗体标题处显示单击该按钮的次数。

●单击命令按钮Command4（退出）时，退出窗体程序。

图1-8运行结果界面

（1）新建一工程，在窗体中添加4个命令按钮。

调整各控件的相互位置，窗体对象各属性如表1-2所示。

表1-3窗体及控件属性值的设置

按钮名称

你本次是第次按下

此按钮

设置标题栏显示的文字

红色

设置显示的文字

白色

图形按钮

Stye

1-Graphical

显示图片。

选择0-standard不显示图片

Picture

装入图片

Command4

退出

（2）在“窗体布局”窗口中，单击鼠标右键，依次选择快捷菜单中的“启动位置”——“屏幕中心”命令，可设置程序执行时窗口在屏幕中央的位置，如图1-9所示（或在“窗体布局”窗口中直接将窗体移动到中央）。

图1-9“窗口布局”窗口和快捷菜单

（3）各命令按钮的事件代码如下。

◆在事件代码编辑窗口中，在“对象”列表框选择“通用”选项，定义一个模块级变量sss，用于存储单击按钮的次数:

DimsssAsInteger'

定义一个模块级变量，用于存储单击按钮的次数

◆窗体Form1的Load的事件代码为：

PrivateSubForm_Load（）

‘或Command2.Enabled=False

◆命令按钮Command1的Click事件代码为：

form1.BackColor=RGB（255,0,0）‘设置窗体颜色为红色

Command1.Enabled=False‘命令按钮Command1不可用

Command2.Enabled=True‘命令按钮Command2可用

Command3.Enabled=False

Command4.Enabled=True

◆命令按钮Command2的Click事件代码为：

BackColor=vbWhite‘设置窗体颜色为白色

Command1.Enabled=True

Command3.Enabled=True

◆命令按钮Command3的Click事件代码为：

sss=sss+1

Form1.Caption="

你本次是第"

Trim（Str（sss））&

次按下此按钮"

‘trim函数的功能：

将字符串的前导空格和尾随空格都除去

‘str函数的功能：

将数值转换为字符串

◆命令按钮Command4的Click事件代码为：

PrivateSubCommand4_Click（）

End

（4）完整的源程序如下：

DimsssAsInteger'

Form1.BackColor=RGB（255,0,0）

Command1.Enabled=False'

命令按钮Command1不可用

Command2.Enabled=True'

命令按钮Command2可用

Command3.Enabled=False

Command4.Enabled=True

BackColor=vbWhite'

设置窗体颜色为白色

Command1.Enabled=True

Command3.Enabled=True

sss=sss+1

Form1.Caption="

trim函数的功能：

str函数的功能：

【1-5】在窗体上建立两个命令按钮和一个文本框，一个命令按钮放大文本框内的文字，另一个命令按钮缩小文本框内的文字，运行结果界面如图1-10所示。

窗体及控件属性值的设置如表1-4所示。

图1-10运行界面

表1-4窗体及控件属性值的设置

文本框控件的使用

Text1

Text

辽宁工业大学

文本框内显示的内容

Alignment

2-centre

文本框内显示的内容居中

放大

缩小

（1）在窗体上画一个文本框和两个命令按钮。

（2）设置控件属性。

（3）将改变字体的代码分别写入两个命令按钮的单击事件过程中。

Text1.FontSize=30

Text1.FontSize=18

【作业】

（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>

Andx<

Theny=Chr（KeyAscii+32）

Theny=Chr（KeyAscii-32）

Text2.Text=Text2.Text+y

（3）“数学计算”程序。

在窗体上添加两个命令按钮Command1、Command2、3个文本框和3个标签，要求单击Command1按钮可以清除3个文本框的文字，单击Command2按钮可以根据在Text1中输入的半径，计算出周长、面积并显示到Text2、Text3中。

运行结果如图1-13所示。

窗体内各控件字体：

Font属性为“粗体、小四号”

Text2、Text3文本框的Locked属性均设置为True。

图1-13运行结果界面

Text1.Text="

‘清空文本框内容

Text2.Text="

Text3.Text="

Text2.Text=2*3.14*Val（Text1.Text）'

Val函数将字符串转换为数值

Text3.Text=3.14*Val（Text1.Text）^2

实验二VisualBasic语句基础

（1）掌握变量的数据类型定义、赋值、表达式和内部函数的应用。

（2）进一步了解窗体（Form）、命令按钮（CommandButton）、标签（Label）、文本框（TextBox）的使用。

1、尝试编写下列程序

【2-1】设计一个能实现计算《大学计算机基础》课程期末综合成绩的简单程序，综合成绩=平时成绩×

20%+考试成绩×

80%。

2-1运行结果界面

OptionExplicit'

强制变量显式定义

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&

分"

【2-2】设有变量x%和y%，随机产生两个[1,10]之间的数，计算x/y和x\y的值,试设计一个简单的窗体。

窗体装入界面如图2-2-1所示，运行结果界面如图2-2-2所示。

2-2-1窗体装入界面2-2-2窗体运行结果界面

Dimx%,y%'

在“通用”状态下定义模块变量，供几个过程使用

x=Int（Rnd*10+1）'

产生[1,10]之间的数

Text1.Text=Str（x）'

str函数，将数值型数据转换为字符型

y=Int（Rnd*10+1）

Text2.Text=Str（y）

清除文本框内容

Text4.Text="

Text3.Text=x/y

Text4.Text=x\y

Text1.SetFocus'

文本框text1重新获得焦点

Text2.SetFocus

Randomize'

每次产生的随机数不同

x=Int（Rnd*10+1）

Text1.Text=Str（x）

【2-3】随机产生一个3位的整数，然后逆序输出，要求产生的数与逆序数都显示。

窗体设计界面如图2-3-1所示。

运行结果界面如图2-3-2所示。

2-3-1窗体设计界面2-3-2运行结果界面

方法一

OptionExplicit'

DimaAsInteger

a=Int（Rnd*900+100）

Text1.Text=a'

或Text1.Text=str（a）

DimbAsInteger,a1%,a2%,a3%

a1=a\100

a2=a\10Mod10

a3=aMod10

b=a3*100+a2*10+a1'

如果a3为0，则不准确

Text2.Text=Str（b）

方法二

DimbAsString,a1$,a2$,a3$,s$

s=Trim（Str（a））'

将整型值转换为字符串型再去掉前后的空格

a1=Left（s,1）

a2=Mid（s,2,1）

a3=Right（s,1）

展开阅读全文