《程序设计基础VB》作业题Word格式文档下载.docx
《《程序设计基础VB》作业题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《《程序设计基础VB》作业题Word格式文档下载.docx（58页珍藏版）》请在冰豆网上搜索。
2、实验目的
⑴ 初步了解IDE各窗口的用途及操作。
⑵ 初步了解一个VB程序的设计过程。
⑶ 观察一个VB程序的构成。
3、实验步骤
⑴ 启动IDE
单击任务栏的"
开始菜单"
→程序→MicrosoftVisualStudio→MicrosoftVisualBasic6.0
便出现"
新建工程"
对话框，如下图所示。
选择"
标准EXE"
工程类型，按"
打开"
按钮。
便进入了IDE的界面如下图所示：
⑵ 界面设计
① 在"
窗体设计"
窗口中摆放控件
方法一：
单击"
中所要的控件（这时你会发现控件图标凹下去了），把鼠标移到窗体上（这时你会发现鼠标指针图形变成了"
＋"
字形），在窗体上初步确定一个安放点，按住鼠标左键往安放点的右下角拖，当你初步认为大小合适了便可放开鼠标左键。
方法二：
双击"
中所要的控件，该控件便被放到窗体中。
但要注意：
这种方法默认为把控件放到窗体中，而不能放到其它容器控件中（如：
选项卡，图片框，框架）。
② 控件的编辑
*选中控件
要想手动地调整一个控件的大小就必须先选中它。
选中控件很简单：
只要将鼠标指向该控件并按一下鼠标左键即可。
当一个控件被选中后，它的周围便出现一些小正方形（我们称其为"
句柄"
）。
如果你要同时选中许多控件，你可以按住<
Ctrl>
键在用鼠标点选所要的控件。
*调整大小
将鼠标移到被选中控件上下边的句柄上（这时你会发现鼠标指针图形变成了双向箭头状），按住鼠标左键上下拖放即可该变控件的高度。
将鼠标移到被选中控件左右边的句柄上，按住鼠标左键左右拖放即可该变控件的宽度。
选中要调整的控件，按住<
shift>
键，同时按↑、↓、←、→四个键来调整控件的高度、宽度。
方法三：
通过属性窗口设置该控件的Height属性值可改变控件的高度，设置该控件的Width属性值可改变控件的宽度。
*调整位置
选中要调整的控件，按住鼠标左键拖放。
键，同时按↑、↓、←、→四个键来调整控件的位置。
通过属性窗口设置该控件的Top属性值，可改变控件顶边到其容器（窗体）顶边的距离；
设置该控件的Left属性值，可改变控件左边到其容器左边的距离。
*删除控件
如果想删除窗体中的某个控件，你可以用鼠标右击该控件，这时会出现一个"
快捷菜单"
，选择其中的"
删除"
命令。
*对齐控件
如果你要使一些控件按某种方式对齐，你可以先选中这些控件，然后打开"
格式"
菜单并把鼠标指向"
对齐"
命令，从出现的二级菜单中选择所要的对齐方式。
*锁定控件
如果你已经把一些控件的大小、位置调整好了，你可以把它们锁定，防止误操作改变其位置。
锁定控件的步骤是：
选中控件，然后打开"
菜单，选择"
锁定"
③ 设置窗体、控件的属性
对象名称
对象类型
属性设置值
用途
Form1
窗体
Caption="
第一章示例1"
程序界面
Picture=窗体背景图片文件名全称，例如：
Picture="
d:
\VB示例\第一章\tx1.bmp"
Label1
标签
显示一个标题
Label2
Caption=系统当前时间
显示系统时间
Command1
命令按钮
在窗体上打印文字
清除窗体上的文字
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（）
注意：
事件过程的头、尾是系统自动给出的，不须用户输入。
⑷ 运行、结束程序
*运行程序
点击工具栏上的"
启动"
按钮，如右图所示：
运行"
菜单→选择"
按功能键F5
*结束程序
结束"
点击程序窗体上的"
关闭"
按钮
方法四：
按住<
键，再按<
Break>
键。
⑸ 保存程序
一个应用程序设计完成后，程序被存放在计算机的内存中。
如果计算机被关闭或重启，程序就会丢失。
要想使程序长期保存，就必须把程序存放在计算机的磁盘中。
按工具栏中的"
保存"
然后在出现的"
对话框"
中，选择文件的存放位置、文件名。
当把所有的窗体文件、工程文件都存储完后，出现一个如下图所示的对话框：
⑹ 修改程序
要对已经存过盘的工程进行修改，步骤如下：
*到存放工程的文件夹
*双击"
工程文件"
，图标如下图
*修改
*存盘
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、程序运行时，要使用户不能修改文本框中的内容，那么应设置__________。
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首先获得"
，应如何操作？
实验一
设计一个简单VB小程序，界面如下右图所示。
窗体上有三个命令按钮，按"
Print方法"
按钮在窗体上显示信息；
按"
Cls方法"
按钮清除窗体的信息；
Move方法"
按钮使窗体往右下角移动。
窗体被加载时，在窗体的标题栏中显示"
第二章实验一"
字样。
⑴ 了解窗体Load事件的发生条件及用途。
⑵ 初步掌握窗体的Print、Cls、Move方法的使用。
⑶ 初步掌握命令按钮的Clik事件的发生条件及用途。
⑴ 界面设计
Font.size=24
Command2
Command3
移动窗体
⑵ 代码设计
PrivateSubForm_Load（）
Caption="
Font.s
PrivateSubCommand1_Click（）
第一个输出项"
"
第二个输出项"
现在的时间是：
;
Time（）
x="
5,"
y="
4;
x+y="
10
PrivateSubCommand2_Click（）
Cls
PrivateSubCommand3_Click（）
MoveLeft+100,Top+100
4、思考问题
⑴ 应如何调整窗体的Print起始打印位置。
⑵ 在程序代码中，如何使"
获得"
实验二
设计一个简单VB小程序，界面如下右图所示。
窗体上有两个"
，两个"
，一个"
当程序运行时，用户在上面的"
中输入圆的半径，然后点击"
计算"
按钮，程序便计算出圆的周长、面积并显示在下面的"
中。
⑴ 初步掌握"
的基本属性及使用。
⑵ 初步掌握"
⑶ 利用"
输入、输出数据。
⑷ 如何使"
从一个对象上转移到另一个对象上。
第二章实验二"
应用程序界面
请输入圆的半径"
提示用户
圆的周长、面积"
Text1
文本框
接受用户输入
Text2
MultiLine=True
显示计算结果
作计算
⑵ 程序代码
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）
PrivateSubText1_GotFocus（）
Text1="
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Command1.SetFocus
EndIf
⑴ 请指出该程序的缺陷。
⑵ 为什么要在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<
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-100]之间的整数a和b，并把"
a+b="
字样显示在标签Label1中，等待用户在文本框text1中输入答案。
当用户在文本框text1中输入了答案并按"
键后，程序开始判断答案是否正确，并将判断结果显示在标签Label2中，同时将"
放到"
按钮上。
⑴ 学习使用Rnd函数产生指定范围的随机数。
⑵ 进一步理解文本框的KeyPress事件的应用。
⑶ 了解程序的控制流程。
第三章实验一"
程序运行时，设置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
正确"
Else
错误"
Endif
如果要想制作一个能做加、减、乘、除运算练习的程序，界面应如何设计？
第四章练习题
一、单项选择题
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
升级会员 