《程序设计基础VB》作业题.docx

《程序设计基础VB》作业题.docx

《《程序设计基础VB》作业题.docx》由会员分享，可在线阅读，更多相关《《程序设计基础VB》作业题.docx（64页珍藏版）》请在冰点文库上搜索。

《程序设计基础VB》作业题

第一章练习题

一、选择题

1、不需要编译，计算机便可直接执行的程序是（）。

AC语言程序BVisualBasic语言程序C汇编语言程序D机器语言程序

2、下面关于VB的叙述中，不正确的是（）。

AVB是美国Microsoft（微软）公司开发程序设计语言。

BVB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。

C用VB编写的程序可以在任何操作系统环境中运行。

DVB是面向对象的可视化的软件开发工具。

3、下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（）。

AIDE是设计、调试、运行VB程序的工具。

B打开/关闭各窗口的命令主要在IDE的"视图"菜单中。

C"窗体设计窗口"是用来设计应用程序界面（窗体）的。

D不能往"控件工具箱"中添加其它控件。

二、填空题

1、如果进入VB的集成开发环境后，发现没有"工具箱"，那么可以打开（）

菜单并选择"工具箱"菜单项，就可使"工具箱"出现。

2、（）窗口用来管理一个应用程序所包含的各种资源文件。

3、"代码窗口"用来编写应用程序的（）。

三、简答题

1、简单叙述计算机程序设计语言的发展历程。

2、简单叙述窗体布局窗口的用途。

3、简单叙述属性窗口的用途。

四、实验题

1、题目

　　编写一个简单的VB程序，界面如下图所示。

程序有两个按钮。

当用户按"显示"按钮时，在窗体上显示出"欢迎使用VB6.0"字样；当用户按"清屏"按钮时，清除窗体上的文字内容。

程序有两个标签。

一个用来显示显示"VB程序设计"字样；一个用来显示"系统当前时间"。

2、实验目的

⑴　初步了解IDE各窗口的用途及操作。

⑵　初步了解一个VB程序的设计过程。

⑶　观察一个VB程序的构成。

3、实验步骤

⑴　启动IDE

　单击任务栏的"开始菜单"→程序→MicrosoftVisualStudio→MicrosoftVisualBasic6.0

便出现"新建工程"对话框，如下图所示。

　选择"标准EXE"工程类型，按"打开"按钮。

便进入了IDE的界面如下图所示：

⑵　界面设计

①　在"窗体设计"窗口中摆放控件

方法一：

单击"控件工具箱"中所要的控件（这时你会发现控件图标凹下去了），把鼠标移到窗体上（这时你会发现鼠标指针图形变成了"＋"字形），在窗体上初步确定一个安放点，按住鼠标左键往安放点的右下角拖，当你初步认为大小合适了便可放开鼠标左键。

方法二：

双击"控件工具箱"中所要的控件，该控件便被放到窗体中。

但要注意：

这种方法默认为把控件放到窗体中，而不能放到其它容器控件中（如：

选项卡，图片框，框架）。

②　控件的编辑

*选中控件

要想手动地调整一个控件的大小就必须先选中它。

选中控件很简单：

只要将鼠标指向该控件并按一下鼠标左键即可。

当一个控件被选中后，它的周围便出现一些小正方形（我们称其为"句柄"）。

如果你要同时选中许多控件，你可以按住键在用鼠标点选所要的控件。

*调整大小

方法一：

将鼠标移到被选中控件上下边的句柄上（这时你会发现鼠标指针图形变成了双向箭头状），按住鼠标左键上下拖放即可该变控件的高度。

将鼠标移到被选中控件左右边的句柄上，按住鼠标左键左右拖放即可该变控件的宽度。

方法二：

选中要调整的控件，按住键，同时按↑、↓、←、→四个键来调整控件的高度、宽度。

方法三：

通过属性窗口设置该控件的Height属性值可改变控件的高度，设置该控件的Width属性值可改变控件的宽度。

*调整位置

方法一：

选中要调整的控件，按住鼠标左键拖放。

方法二：

选中要调整的控件，按住键，同时按↑、↓、←、→四个键来调整控件的位置。

方法三：

通过属性窗口设置该控件的Top属性值，可改变控件顶边到其容器（窗体）顶边的距离；设置该控件的Left属性值，可改变控件左边到其容器左边的距离。

*删除控件

如果想删除窗体中的某个控件，你可以用鼠标右击该控件，这时会出现一个"快捷菜单"，选择其中的"删除"命令。

*对齐控件

如果你要使一些控件按某种方式对齐，你可以先选中这些控件，然后打开"格式"菜单并把鼠标指向"对齐"命令，从出现的二级菜单中选择所要的对齐方式。

*锁定控件

如果你已经把一些控件的大小、位置调整好了，你可以把它们锁定，防止误操作改变其位置。

锁定控件的步骤是：

选中控件，然后打开"格式"菜单，选择"锁定"命令。

③　设置窗体、控件的属性

对象名称对象类型属性设置值用途Form1窗体Caption="第一章示例1"

程序界面Picture=窗体背景图片文件名全称，例如：

Picture="d:

\VB示例\第一章\tx1.bmp"Label1标签Caption="VB程序设计"显示一个标题Label2标签Caption=系统当前时间显示系统时间Command1命令按钮Caption="显示"在窗体上打印文字Command1命令按钮Caption="清屏"清除窗体上的文字Timer1时钟Interval=100（单位是：

毫秒）闹钟⑶　为相关控件的有关事件过程编写程序代码

*对命令按钮Command1的Click（即鼠标左单击）事件过程编写如下代码

　PrivateSubCommand1_Click（）

CurrentX=2100

　CurrentY=500

Print"欢迎使用VB"

EndSub

*对命令按钮Command2的Click事件过程编写如下代码

　PrivateSubCommand2_Click（）

　　Cls

　EndSub

*对时钟的Timer1的Timer事件过程编写如下代码

　PrivateSubTimer1_Timer（）

　　Label2.Caption=Time（）

　EndSub

注意：

事件过程的头、尾是系统自动给出的，不须用户输入。

⑷　运行、结束程序

*运行程序

方法一：

点击工具栏上的"启动"按钮，如右图所示：

方法二：

打开"运行"菜单→选择"启动"

方法三：

按功能键F5

*结束程序

方法一：

点击工具栏上的"结束"按钮，如右图所示：

方法二：

打开"运行"菜单→选择"结束"

方法三：

点击程序窗体上的"关闭"按钮

方法四：

按住键，再按键。

⑸　保存程序

　　一个应用程序设计完成后，程序被存放在计算机的内存中。

如果计算机被关闭或重启，程序就会丢失。

要想使程序长期保存，就必须把程序存放在计算机的磁盘中。

按工具栏中的"保存"按钮，如右图所示：

　　然后在出现的"对话框"中，选择文件的存放位置、文件名。

当把所有的窗体文件、工程文件都存储完后，出现一个如下图所示的对话框：

⑹　修改程序

　要对已经存过盘的工程进行修改，步骤如下：

*到存放工程的文件夹

*双击"工程文件"，图标如下图

*修改

*存盘

4、思考回答问题

⑴　当一个程序被存盘后，有那些文件？

⑵　能否用Windows的重命名功能对某个文件重命名？

⑶　当你使用Windows的复制功能将"工程文件"复制到另一个文件夹中，然后双击该文件图标会出现什么情况？

为什么？

⑷　能否双击"窗体文件"打开工程，为什么？

第二章练习题

一、选择题

1、当窗体被关闭时，系统自动执行该窗体的_________事件过程。

（A）Click（B）Load（C）Unload（D）LostFocus

2、如果Print方法在窗体的Load事件过程中不起作用，原因是（）属性

的值为false。

（A）AutoRedraw（B）Moveable（C）MaxButton（D）ControlBox

3、在运行时，要使窗体既不能移动有不能改变大小，应设置BorderStyle=（）。

（A）0（B）1（C）2（D）3

4、要使窗体运行时充满整个屏幕，应设置其（）属性。

（A）Height（B）Width（C）WindowState（D）AutoRedraw

5、要使标签控件的大小随Caption属性值而自动调整，应设置其（）属性。

　（A）Width（B）AutoSize（C）Caption（D）Alignment

6、要设置标签控件字体的大小，应设置其（）属性。

　（A）Height（B）Width（C）Caption（D）Font

7、要使标签控件标题内容居中显示，应设置其（）属性。

（A）Alignment（B）Appearance（C）BackStyle（D）ToolTipText

8、程序运行时，要使用户不能修改文本框中的内容，那么应设置__________。

（A）Enabled=False（B）MultiLine=False

（C）Locked=True（D）PasswordChar="*"

9、当设置文本框的ScrollBars=Both而文本框确没有显示出滚动条，原因

　是（）。

（A）文本框中没有内容（B）文本框的MultiLine=False

（C）文本框的Locked=True（D）文本框的MultiLine=True

10、程序运行时，要使用户不能修改文本框中的内容，那么应设置__________。

（A）Enabled=False（B）MultiLine=False

（C）Locked=True（D）PasswordChar="*"

11、要使鼠标指向"命令按钮"时，出现一个提示文本，应设置其_______属性。

（A）Caption（B）Picture（C）ToolTipText（D）Style

12、要使命令按钮在运行时能力丧失（不能用），Enabled=（）。

（A）True（B）False

13、使命令按钮获得"焦点"的方法是（）。

（A）LinkSend（B）Move（C）SetFocus（D）Refresh

14、一个窗体上有三个文本框，按放置顺序分别是：

Text1，Text2，Text3，若使程序运行时Text3首先获得"焦点"，那么，应设置其（）属性值为0。

（A）Top（B）Tag（C）Tabindex（D）Index

15、一个窗体上有两个文本框，按放置顺序分别是：

Text1，Text2，要想在Text1中按"回车"键，"焦点"自动转到Text2上，应在（）处编写程序。

　　　（A）PrivateSubText1_KeyPress（KeyAsciiAsInteger）

　　（B）PrivateSubText1_LostFocus（）

　　　（C）PrivateSubText2_GotFocus（）

　　　（D）PrivateSubText1_Click（）

16、用一个对象来表示：

"一只白色的足球被踢进球门"，那么，白色、足球、踢、

进球门分别是（）。

（A）属性、对象、方法、事件（B）属性、对象、事件、方法

（C）对象、属性、方法、事件（D）对象、属性、事件、方法

17、下面关于对象属性的叙述中，不正确的是（）。

A属性是对一个对象特征的描述。

B属性都有名称、取值类型、值。

C属性的值必须在设计时确定。

D有些属性的值可以在程序运行时改变。

二、填空题

1、当双击控件工具箱中的控件是，系统默认地把控件放到（

）中。

2、一般来说对象有属性、方法、事件，（）是指对象具有作某种事的能力。

3、app.path返回值的含义是（）。

4、要使标签背景透明（与其容器的背景一致），应设置其（）属性值为0。

5、文本框的MaxLength=0的含义是（）。

6、往当前工程中添加窗体的操作步骤是：

打开（）菜单，选择（）命令。

三、简答题

1、假如一个工程有两个窗体Form1、Form2，其中Form1为启动窗体，如果你想让Form2为启动窗体，应如何操作？

2、简述"标签"与"文本框"的区别。

3、假如一个窗体上有三个"文本框"，按放置顺序依次为Text1、Text2、Text3，若要使程序运行时，Text3首先获得"焦点"，应如何操作？

四、实验题

实验一

1、题目

　　设计一个简单VB小程序，界面如下右图所示。

窗体上有三个命令按钮，按"Print方法"按钮在窗体上显示信息；按"Cls方法"按钮清除窗体的信息；按"Move方法"按钮使窗体往右下角移动。

窗体被加载时，在窗体的标题栏中显示"第二章实验一"字样。

2、实验目的

⑴　了解窗体Load事件的发生条件及用途。

⑵　初步掌握窗体的Print、Cls、Move方法的使用。

⑶　初步掌握命令按钮的Clik事件的发生条件及用途。

3、实验步骤

⑴　界面设计

对象名称对象类型属性设置值用途Form1窗体Font.size=24程序界面Command1命令按钮Caption="Print方法"在窗体上打印文字Command2命令按钮Caption="Cls方法"清除窗体上的文字Command3命令按钮Caption="Move方法"移动窗体

⑵　代码设计

PrivateSubForm_Load（）

Caption="第二章实验一"

Font.s

EndSub

PrivateSubCommand1_Click（）

Print"第一个输出项","第二个输出项"

Print"现在的时间是：

";Time（）

Print"x=";5,"y=";4;

Print"x+y=";10

EndSub

PrivateSubCommand2_Click（）

Cls

EndSub

PrivateSubCommand3_Click（）

MoveLeft+100,Top+100

EndSub

4、思考问题

⑴　应如何调整窗体的Print起始打印位置。

⑵　在程序代码中，如何使"命令按钮"获得"焦点"。

实验二

1、题目

设计一个简单VB小程序，界面如下右图所示。

窗体上有两个"标签"，两个"文本框"，一个"命令按钮"。

当程序运行时，用户在上面的"文本框"中输入圆的半径，然后点击"计算"按钮，程序便计算出圆的周长、面积并显示在下面的"文本框"中。

2、实验目的

⑴　初步掌握"标签"的基本属性及使用。

⑵　初步掌握"文本框"的基本属性及使用。

⑶　利用"文本框"输入、输出数据。

⑷　如何使"焦点"从一个对象上转移到另一个对象上。

3、实验步骤

⑴　界面设计

对象名称对象类型属性设置值用途Form1窗体Caption="第二章实验二"应用程序界面Label1标签Caption="请输入圆的半径"提示用户Label2标签Caption="圆的周长、面积"提示用户Text1文本框接受用户输入Text2文本框MultiLine=True显示计算结果Command1命令按钮Caption="计算"作计算⑵　程序代码

PrivateSubCommand1_Click（）

Dimr1,zc!

mj!

r=Val（Text1.Text）

zc=2*3.14*r

mj=3.14*r^2

Text2="圆的周长="+Str（zc）+vbCrLf

Text2=Text2+"圆的面积="+Str（mj）

EndSub

PrivateSubText1_GotFocus（）

Text1=""

Text2=""

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

Command1.SetFocus

EndIf

EndSub

4、思考问题

⑴　请指出该程序的缺陷。

⑵　为什么要在text1的GotFocus事件过程中，清空两个文本框的内容？

第三章练习题

一、选择题

1、表达式16/4-2^5*8/4Mod5\2=（）。

（A）14（B）4（C）20（D）2

2、数学式3≤X＜5写成VB表达式是（）。

（A）3<=X<5（B）3<=XorX<5

（C）3<=XandX<5（D）X>=3and<5

3、x=2，则表达式x+1>2Orsin（x）>0.9And3>x+3=（）。

（A）True（B）False（C）不能计算

4、将逻辑型数据转换成整型数据时，转换规则是（）。

　　（A）将True转换为-1，将False转换为0

　　（B）将True转换为1，将False转换为-1

　　（C）将True转换为0，将False转换为-1

　　（D）将True转换为1，将False转换为0

5、下面正确的变量名是（）。

（A）3xy（B）xy_01（C）sat01（D）integer

6、Int（-3.1）+round（-4.6）=_________________。

（A）-8（B）-7（C）-9（D）-6

7、对不同类型的运算符优先级规定是（）。

　（A）字符运算符>算术运算符>关系运算符>逻辑运算符

　　（B）算术运算符>字符运算符>关系运算符>逻辑运算符

　　（C）算术运算符>字符运算符>逻辑运算符>关系运算符

　　（D）字符运算符>关系运算符>逻辑运算符>算术运算符

8、k=12.5，len（str（k））=（）。

（A）4（B）3（C）5（D）2

9、len（"vb程序设计"）=（）。

　　（A）5（B）10（C）2（D）6

10、随机产生[10，50]之间整数的正确表达式是（）。

（A）Round（Rnd*51）（B）Int（Rnd*40+10）

　　（C）Round（Rnd*50）（D）10+Int（Rnd*41）

11、赋值语句A=123+Mid$（"123456",3,2）执行后，A=（）。

（A）"12334"（B）123（C）12334（D）157

12、Val（"123ab"）=（）。

（A）0（B）123（C）1230（D）不能转换

13、当Ucase$（C$）>"A"andUcase$（C$）<"Z"为true时，则C$是________。

　　（A）大写字母（B）小写字母（C）字母（D）不一定

14、InStr（1,"eFCdEfGh"，"EF"，1）=（）。

（A）5（B）6（C）0（D）1

二、填空题

1、sin15+的VB表达式为（）。

2、把X是5或7的倍数写成VB表达式是（）。

3、表达式Ucase（Mid（"abcdefgh",3,4））=（）。

4、k=123%，则Len（Str（k））=（）。

5、表示变量S是字母（不分大小写）的VB表达式是（）。

6、DateAdd（"m",1,#1/25/2004#）=（）。

7、IsNumeric（"123asd"）=（）。

8、取出一个三位整数x的十位上的数字（例如：

324十位上的数字是2）的VB表达式是（）。

三、实验题

1、题目

编写一个程序，界面如下图所示。

当用户单击"开始"按钮时，程序随机产生两个[1-100]之间的整数a和b，并把"a+b="字样显示在标签Label1中，等待用户在文本框text1中输入答案。

当用户在文本框text1中输入了答案并按"回车"键后，程序开始判断答案是否正确，并将判断结果显示在标签Label2中，同时将"焦点"放到"开始"按钮上。

2、实验目的

⑴　学习使用Rnd函数产生指定范围的随机数。

⑵　进一步理解文本框的KeyPress事件的应用。

⑶　了解程序的控制流程。

3、实验步骤

⑴　界面设计

对象名称对象类型属性设置值用途Form1窗体Caption="第三章实验一"应用程序界面Label1标签程序运行时，设置Caption属性值显示题目Label2标签程序运行时，设置Caption属性值显示判断结果Text1文本框接受用户输入答案Command1命令按钮Caption="开始"出题⑵　程序代码

在窗体的"通用"，"声明"中，输入如下代码

　　Dima%,b%,c%

在命令按钮Command1的Click事件过程中，输入如下代码

　Label1.Caption=""

Label2.Caption=""

　Text1=""

Randomize

a=Round（Rnd*99+1）

b=Round（Rnd*99+1）

Label1.Caption=Str（a）+"+"+Str（b）+"="

Text1.SetFocus

在文本框Text1的KeyPress事件过程中，输入如下代码

IfKeyAscii=13Then

c=Val（Text1）

Ifc=a+bThen

Label2.Caption="正确"

Else

Label2.Caption="错误"

EndIf

Command1.SetFocus

Endif

4、思考问题

如果要想制作一个能做加、减、乘、除运算练习的程序，界面应如何设计？

第四章练习题

一、单项选择题

1、下面正确的赋值语句是（）。

（A）x=y=1（B）x+y=1

　（C）x=x+1（D）sin（x）=5

2、MsgBox（）过程的正确语法是（）。

　（A）MsgBox（提示信息[，标题][，按钮类型]）

　（B）MsgBox（标题[，按钮类型][，提示信息]）

　（C）MsgBox（标题[，提示信息][，按钮类型]）

　（D）MsgBox（提示信息[，按钮类型][，标题]）

3、InputBox$（）函数返回值的数据类型是（）。

（A）数值型（B）字符型（C）变体型（D）逻辑型

4、用if语句表示分段函数不正确的程序段是（）。

　　（A）f=x^2+3（B）ifx>=1then

　ifx>=1thenf=sqr（x+1）

f=sqr（x+1）else

　Endiff=x^2+3

Endif

　　（C）ifx>=1then（D）ifx>=1then

f=sqr（x+1）f=sqr（x+1）

EndifEndif

f=x^2+3ifx<1then

f=x^2+3Endif

5、X是单精度类型变量，用Select语句表示下列处理的正确语句是（）。

当0≤X＜60时，输出"不及格"；当60≤X＜70时，输出"及格"；

当70≤X＜80时，输出"中"；当80≤X＜90时，输出"良"