vb实验报告答案.docx

vb实验报告答案.docx

《vb实验报告答案.docx》由会员分享，可在线阅读，更多相关《vb实验报告答案.docx（41页珍藏版）》请在冰豆网上搜索。

vb实验报告答案

（此文档为word格式，下载后您可任意编辑修改！

）

试验报告

（1）

院（系）：

课程名称：

日期：

班级

学号

实验室

专业

姓名

计算机号

实验

名称

VB环境的熟悉与应用

成绩评定

所用

软件

VisualBasic6.0

教师签名

实

验

目

的

或

要

求

1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。

2．初步了解几个常用控件的使用方法。

实

验

步

骤

、

心

得

体

会

1、在vb中____C_____被称为对象。

2、A.窗体B.控件C.窗体和控件D.窗体、控件和属性

3、设在名称为form1的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是（B）

4、A.窗体的Click事件过程的过程名是form1_Click

5、B.命令按钮的Click事件过程名是C1_Click

6、C.命令按钮的Click事件过程的过程名是Command1_Click

7、编译执行程序的快捷键是_Ctrl+F5_。

8、启动visualbasic后标题栏中显示的信息是（C）。

A.工程-MmicrosoftVisualBasic[设计]B.工程-MmicrosoftVisualBasic[中断]C.工程1-MmicrosoftVisualBasic[设计]D.工程1-MmicrosoftVisualBasic[中断]

9、VisualBasic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。

10、属性显示方式分两种，即按__字母顺序和按_分类__顺序，分别通过单击相应的按钮来实现。

11、编一程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“你输入的姓名是:

”按钮（command1），则程序的运行情况如图1-2所示，如果单击“结束”按钮（command2），即结束程序运行。

注意：

保存时必须存放在自己创建的文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。

图1-1图1-2

1）在窗体设计窗口设计如图1-1界面

2）修改控件属性

控件对象

属性名

属性值

Command1

Caption

你的姓名是：

Command2

Caption

结束

Label1

Caption

欢迎使用vb

Label2

Caption

请输入你的姓名

3）编辑代码

PrivateSubCommand1_Click（）

Text2=Text1

EndSub

PrivateSubCommand2_Click（）

End

EndSub

12、在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。

编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。

注意：

保存时必须存放在自己创建的文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp，并且在生成对应的可执行程序（.exe）。

1）界面设计：

在窗体设计窗口设计如图1-3界面

图1-3

2）属性设置

控件对象

属性名

属性值

Command1

Caption

喜欢

Command2

Caption

不喜欢

3）代码设计

PrivateSubCmd1_Click（）

Print"数理化"

EndSub

PrivateSubCmd2_Click（）

Print"政史地"

EndSub

心得体会：

（可以从以下几个方面来总结：

你在上机过程中遇到了哪些难题？

你是怎么克服的？

你对你的程序的评价？

你的收获有哪些？

你有什么没有解决的问题？

等）

试验报告

（2）

院（系）：

课程名称：

日期：

班级

学号

实验室

专业

姓名

计算机号

实验

名称

掌握VB基本控件

成绩评定

所用

软件

VB6.0

教师签名

实

验

目

的

或

要

求

1.熟练掌握VB中基本控件的属性，方法和事件

2.通过编程能够实现简单的功能

实

验

步

骤

、

心

得

体

会

1、以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是（C）。

A.Form1.Name="VisualBasic窗体"

B.Form1.Title="VisualBasic窗体"

C.Form1.Caption="VisualBasic窗体"

D.Form1.Text="VisualBasic窗体"。

2、在VB中，要将一个窗体加载到内存进行预处理但不显示，应该使用语句（B）。

A.Show　　B.HideC.Load　　D.Unload

3、在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（C）。

A.设置Enabled的值为True　　B.设置TabIndex的值为1　　

C.设置TabIndex的值为0　　D.设置Index的值为0

4、设窗体上有一个文本框Text1，要求只能显示信息，不能输入，则应设置（B）。

A.Text1.MaxLength=0B.Text1.Enabled=False

C.Text1.Visible=False　D.Text1.Width=0

5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。

A、StyleB、CaptionC、EnabledD、Default

6.窗体文件的扩展名是（C）

A、.basB、.clsC、.frmD、.res

7、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

PrivateSubTxtA_KeyPress（keyasciiasinteger）

……

EndSub

若焦点位于文本框中，则能够触发KeyPress事件的操作是（D）

A.单击鼠标B.双击文本框

C.鼠标滑过文本框D.按下键盘上的某个键

8、在文本框中，要使键入的所有字符都显示"*"号。

这时应该设置__D__属性为"*"

A、Text　　B、MultiLine　　C、ScrollBars　D、PasswordChar

9、唯一能区别一个控件的属性是__C__。

A、Caption　　B、Text　　C、Name　　D、Index

10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。

11、窗体边框类型的默认值是___2___。

12、若要设置窗体为固定对话框，并包含控制菜单框和标题栏，但没有最大最小化按钮，则应进行的属性设置是_BorderStyle=1_。

13、在窗体（form1）上画一个文本框（text1）控件和两个按钮控件（command1、command2）分别显示“向左”、“向右”。

其中两个命令按钮一个显示左移，一个显示右移。

要求在每次按下命令按钮后文本框可以向左或向右移动（不用考虑窗体边界）。

1）界面设计

2）属性设置

控件对象属性属性值

Command1Caption向左

Command2Caption向右

4）代码设计

PrivateSubCommand1_Click（）

Text1.Left=Text1.Left-50

EndSub

PrivateSubCommand2_Click（）

Text1.Left=Text1.Left+50

EndSub

14、在窗体上部设置一个文本框（text1），文本框的下面设置3个命令按钮，其中左边按钮（command1）中标有“单击此按钮”，中间按钮（command2）中标有“清除”，右边按钮（command3）中标有“程序结束”。

当程序运行时，用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用vb6.0”;如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。

1）界面设计

2）属性设置

控件对象属性属性值

Command1Caption单击此按钮

Command2Caption清除

Command3Caption程序结束

3）代码设计

PrivateSubCommand1_Click（）

Text1="欢迎使用vb6.0"

EndSub

PrivateSubCommand2_Click（）

Text1=""

EndSub

PrivateSubCommand3_Click（）

End

EndSub

15、在窗体上画一个文本框（text1）内容为空；两个命令按钮（command1、command2），上面分别显示“消失”、“出现”。

当单击“消失”按钮时，文本框在窗体上消失；当单击“出现”按钮时文本框在窗体上显示，并且在文本框中显示“HelloWorld”字样，字体大小为16。

1）界面设计

2）属性设置

控件对象属性属性值

Command1Caption消失

Command2Caption出现

3）代码设计

PrivateSubCommand1_Click（）

Text1.Visible=False

EndSub

PrivateSubCommand2_Click（）

Text1.Visible=True

Text1="HelloWorld"

Text1.FontSize=16

EndSub

16、在名称为Form1的窗体上，画一个文本框和命令按钮。

文本框的名称为Txt1，内容为"全国计算机等级考试二级"。

命令按钮的名称为Cmd1，标题为"计算"。

编写适当的事件过程，使得程序运行时，选择文本框中的几个字符，然后单击命令按钮，将所选择的字符数在窗体上输出。

程序中不得使用任何变量。

注意：

保存时窗体文件名为kt2.frm，工程文件名为kt2.vbp。

1）界面设计

2）属性设置

控件对象属性属性值

Text1NameTxt1

Command1NameCmd1

Cmd1Caption计算

Txt1Caption全国计算机等级考试二级

3）代码设计

PrivateSubCmd1_Click（）

PrintTxt1.SelText

EndSub

17、在名称为Form1的窗体上画一个文本框，其名称为Text1，编写适当的事件过程。

程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果改变文本框中的内容，则可使文本框移到窗体的右上角。

1）界面设计

2）属性设置（采用默认值）

控件对象属性属性值

3）代码设计

PrivateSubForm_Click（）

Text1.Left=0

Text1.Top=0

EndSub

PrivateSubText1_Change（）

Text1.Left=Form1.Width-Text1.Width

Text1.Top=0

EndSub

18、命令按钮，字号、内

容和格式的复制练

习，效果如图3-1，

设置属性，并且编程

实现。

1）属性设置

控件对象属性属性值

2）代码设计

心得体会：

（可以从以下几个方面来总结：

你在上机过程中遇到了哪些难题？

你是怎么克服的？

你对你的程序的评价？

你的收获有哪些？

你有什么没有解决的问题？

等）

试验报告（3）

院（系）：

课程名称：

日期：

班级

学号

实验室

专业

姓名

计算机号

实验

名称

掌握VB运算符和表达式

成绩评定

所用

软件

Vb6.0

教师签名

实

验

目

的

或

要

求

1．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用。

2．掌握表达式的正确书写方法及函数、运算符的正确使用。

实

验

步

骤

、

心

得

体

会

1、有如下语句printchr（65）;Asc（“def”）;Sqr（4），其执行结果是__A1002_______。

2、已知字符串A的值为“AbcDe“，现在把它全部转换为大写字母，正确的语句是______Ucase（“AbcDe“）________。

3、有如下程序

a=300:

b=20

a=a+b:

b=a–b

a=a–b

printa

printb

分析该程序的功能是_____a与b互换______

4、可以同时删除字符串前导和尾部空白的函数是（C）。

A.LtrimB.RtrimC.TrimD.Mid

5、下列不正确的标识符是（B）。

A.a123B.a?

bC.a12_3D.abcdefg

6、如果一个变量未经定义就直接使用，则该变量的类型为（D）A.IntegerB.ByteC.BooleanD.Variant

7、编程实现如下功能：

在窗体上建有2个标签控件（Label1、Label2）分别显示“华氏温度”和“摄氏温度”、2个文本框（Text1、Text2）和两个命令按钮（Command1、Command2）分别显示“华氏转摄氏”和“摄氏转华氏”。

Text1、Text2分别用于输入和显示华摄氏温度，其Text属性为空；Command1、Command2分别用于“华氏转摄氏”、“摄氏转华氏”（Caption属性），温度转换公式为：

F=95*C+32（其中F为华氏温度，C为摄氏温度）。

1）界面设计

2）属性设置

控件对象属性属性值

3）代码编辑

8、在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。

请编写适当的事件过程，使得运行时，在T1中输入的任何字符，立即显示在T2中。

程序中不得使用任何变量。

1）界面设计

2）属性设置

控件对象属性属性值

3）代码编辑

9、在名称为Form1的窗体上画一个文本框，其名称为T1，宽度和高度分别为1400和400；再画两个命令按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。

程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”；如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍。

1）界面设计

2）属性设置

控件对象属性属性值

3）代码编辑

心得体会：

（可以从以下几个方面来总结：

你在上机过程中遇到了哪些难题？

你是怎么克服的？

你对你的程序的评价？

你的收获有哪些？

你有什么没有解决的问题？

等）

试验报告（4）

院（系）：

课程名称：

日期：

班级

学号

实验室

专业

姓名

计算机号

实验

名称

VB控制结构

成绩评定

所用

软件

VB6.0

教师签名

实

验

目

的

或

要

求

1.掌握数据的动态输入InputBox和信息提示MsgBox；

2.掌握逻辑表达式及关系表达式的正确书写形式。

3.掌握IF语句写格式及其正确使用。

4.掌握情况控制语句的使用及与多分支条件语句的区别。

5.掌握For语句的使用。

6.掌握Do语句各种形式的使用。

实

验

步

骤

、

心

得

体

会

1、设a=2, b=3, c=4, d=5,求下列表达式的值：

2、

（1）a>b AND c<=d _____False_____

3、

（2）ba_____True_____

4、（3）a

5、（4）a>b OR c<=d_____True______

6、（5）a>b AND c<=d OR 2*a>c__False__

7、（6）3>2*b OR a=c AND b<>c OR c>d______False____

2、将下列数学式子写成vb表达式：

（1） cos2（c+d）__Cos（2*（a+d））__

（2） 5+3（a+b）___5+3*（a+b）__

（3）  cosx（sinx+1）___Cos（x）*（Sin（x）+1）___

（4） e2+2__exp

（2）+2________

3、以下语句的输出结果是（C）。

PrintFormat（32548.5,“.00”）

A.32548.5B.32,548.5C..50D.32,548.50

4、设x=4,y=8,z=7,以下表达式的值是（D）

xz）Orz

A.1B.-1C.TrueD.False

5、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a$=″VisuaLBasic″

PrintString（3,a$）

EndSub

程序运行后，单击命令按钮，在窗体上显示的内容是（A）

A.VVVB.VisC.sicD.11

6、设有如下声明：

DimXAsInteger

如果Sgn（X）的值为-1，则X的值是（D）

A.整数B.大于0的整数C.等于0的整数D.小于0的整数

7、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：

PrivateSubCommand1_Click（）

a=InputBox（"请输入A的值"）

a=Val（a）

b=InputBox（"请输入B的值"）

b=Val（b）

x=InputBox（"请输入X的值"）

x=Val（x）

a=a+b+x

Printa

EndSub

程序运行后，单击命令按钮，依次在输入对话框中输入

123，则输出结果为______6_____。

8、在窗体上添加一个名称为command1的命令按钮，然后编写如下事件过程。

PrivateSubCommand1_Click（）

x=InputBox（"Input"）

SelectCasex

Case1,3

Print"分支1"

CaseIs>4

Print"分支2"

CaseElse

Print"else分支"

EndSelect

EndSub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是__else分支_。

9、下列语句正确的是（C）

A.IfA≠BThenPrint″A不等于B″

B.IfA<>BThenPrintf″A不等于B″

C.IfA<>BThenPrint″A不等于B″

D.IfA≠BPrint″A不等于B″

10、计算z的值，当x大于y时，z=x；否则z=y。

下列语句错误的是（A）

A.Ifx>=yThenz=x:

z=y

B.Ifx>=yThenz=xElsez=y

C.z=y:

Ifx>=yThenz=x

D.Ifx<=yThenz=yElsez=x

11、下列程序段的执行结果为（C）

a=5

Fork=1To0

a=a+k

Nextk

Printk;a

A.-16B.-116C.15D.1121

12、下列程序段的执行结果为（B）

a=3

b=1

ForI=1To3

f=a+b

a=b

b=f

Printf

NextI

A.436B.459C.634D.728

13、下列程序段的执行结果为（C）

a=5

Fork=1To0

a=a+k

Nextk

Printk;a

A.-16B.-116C.15D.1121

14、有如下程序：

PrivateSubCommand1_Click（）

a=″AWORKERISHERE″

x=Len（a）

Fori=1Tox-1

b=Mid（a,i,3）

Ifb=″WOR″ThenS=S+1

Next

PrintS

EndSub

单击命令按钮，程序运行结果为（A）

A.1B.2C.3D.5

15、在窗体上画一个命令按钮，然后写出如下事件过程：

PrivateSubCommand1_Click（）

s=1

Do

s=（s+1）^（s+2）

Number=Number+1

LoopUntils>=6

PrintNumber,s

EndSub

程序运行后，输出的结果是（C）

A.23B.318C.18D.1020

16、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click（）

c=1234

c1=Trim（Str（c））

Fori=1To4

Print___

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示如下内容：

1

12

123

1234

则在下划线处应填入的内容为（B）

A.A.Right（cl,i）B.Left（cl,i）

C.Mid（cl,i,1）D.Mid（cl,i,i）

17、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。

PrivateSubCommand1_Click（）

x=Val（Text1.Text）

If___xmod4=1andxmod5=2___Then

Printx

Else

Text1.Text=″″

Text1.setfocus_

EndIf

EndSub

18、下列程序的功能是：

当x<50时，y=0.8x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。

请填空。

PrivateSubCommand1_Click（）

DimxAsSingle

x=InputBox（″请输入x的值！

″）

SelectCase