Visual Basic程序设计复习要点及练习0506okWord文档下载推荐.docx
《Visual Basic程序设计复习要点及练习0506okWord文档下载推荐.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计复习要点及练习0506okWord文档下载推荐.docx（22页珍藏版）》请在冰豆网上搜索。
26.
“x是偶数”，用VB表达式表示为（ D ）。
D、x/2=Int（x/2）
27.DimxAsBoolean定义变量x的数据类型为（D）型。
D、逻辑
28.
Kill语句在VB中的功能是（ C ）。
C、清内存
29.
RmDir语句在VB中的功能是（ A ）。
A、删除磁盘上的目录或文件夹
30.
StaticxAsInteger定义x是一个（C）变量。
C、静态
31.VB中将变量wd声明为Word应用程序对象的方法是（ ）。
A、DimwdAsWord.ApplicationB、DimwdAsExcel.Application
C、DimwdAsApplication.WordD、DimwdAsWord
32.VB中将变量xl声明为Excel工作表对象的方法是（ ）。
A、DimxlAsExcel.WorksheetB、DimxlAsExcel.Workbook
C、DimxlAsExcel.ApplicationD、DimxlAsExcel
33.
VB中将变量xl声明为Excel工作簿对象的方法是（ ）。
A、DimxlAsExcelB、DimxlAsExcel.Application
C、DimxlAsExcel.WorksheetD、DimxlAsExcel.Workbook
34.
按照变量的作用域可将变量划分为（C）。
C、全局变量、模块级变量、过程级变量
35.按照指定的小数位数进行四舍五入运算的函数是（D）。
D、Round
36..把数值型转换为字符串型需要使用的函数是（C）。
C、Str
37.程序运行时，为了清除Image控件（Image1）中的图形，执行的语句是（D）。
D、Image1.Picture=LoadPicture（"
"
）
38.窗体的Load事件的触发时机是（D）。
D、窗体被加载时
39.当用户单击窗体时，将触发窗体的（C）事件。
C、Click
40.对于定时器控件（Timer），设置其定时是否开启的属性是（B）。
B、Enabled
41.关于语句行，下列说法正确的是（C）。
C、一行可以写多条语句
42.可获得字符的ASCII码的函数是（D）。
D、Chr
43.如果对象的名称为Cat，而且对象有一个属性Dog，那么在代码中引用该属性的正确格式是（B）。
B、Cat.Dog
44.如果准备读文件，打开顺序文件“text.dat”的正确语句是（C）。
C、Open"
text.dat"
ForInputAs#1
45..如果准备读写二进制文件，打开文件“F.dat”的正确语句是（A）。
A、Open"
F.dat"
ForBinaryAs#1
46.如果准备写文件，打开顺序文件“text.dat”的正确语句是（D）。
D、Open"
ForOutPutAs#1
47.设置对象的边框类型的属性是（D）。
D、BorderStyle
48.无论何种控件，共同具有的属性是（D）。
D、Name属性
49.要绘制不同形状的图形，需要设置Shape控件的（A）属性。
A、Shape
50.要绘制多种式样的直线，需要设置Line控件的（C）属性。
A、Shape
51.要利用公共对话框控件来显示“打印”对话框，需要调用控件的（ A ）方法。
A、ShowPrinter
52.要使文本框中的内容在运行时不能编辑，需将文本框的（C）属性设置为True。
C、Locked
53.要退出DoWhile…Loop循环，可使用的语句是（D）。
D、ExitDo
54.要退出For…Next循环，可使用的语句是（C）。
C、ExitFor
55.要在文本框（TextBox）中显示多行内容，需将文本框的（C）属性设置为True。
C、MultiLine
56.一个事件过程的入口语句PrivateSubForm_Initialize（）中，Form是对象名，而Initialize是（C）。
C、事件名
57.一条语句可以分多行书写，在行的末尾用续行字符表示一行尚未结束，续行字符是（D）。
D、一个空格加一个下划线
58.与传统的程序设计语言相比，VisualBasic最突出的特点是（D）。
D、事件驱动编程机制
59.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（B）。
B、工程资源管理器窗口
1．数学表达式
写成等价的VisualBasic表达式为。
答案：
10^（1/2）*cos（50*3.14/180），或者Sqr（10）*cos（50*3.14/180）
2．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为Kill"
C:
\TEMP\*.tmp"
。
3．VisualBasic程序开发有三种模式，即设计模式、运行模式和中断模式。
4．执行指令Line（200,300）-（400,500）后，CurrentX=400。
设CurrentX=50,CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY=520。
5．ADO数据模型中一般可通过Connection对象的Execute方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6．已知a=3,b=4,c=5,表达式a>
bandNotc>
aOrc>
bAndc<
a+b的值是True。
7．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为Picture1.Picture=LoadPrcture（"
picturefile.jpg"
）。
8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为DimA（0To5,-2To5）AsString。
9．VisualBasic一般用4种类型的文件保存，分别是扩展名为frm的窗体文件，扩展名为.bas的标准模块文件，扩展名为.cls的类模块文件和扩展名为.vbp的工程文件。
10．将图片框PictureBox的AutoSize属性设置成Ture时，图片框能自动调整大小，以适应其中的图片。
11．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。
则X轴的正向向右，Y轴的正向向上。
12．Left（“abcd”,2）函数的返回值是ab;
Right（“abcd”,2）函数的返回值是cb。
13．Vb应用程序与数据库进行通信的主要机制称为数据引擎。
14．Winsock控件主要用来编制TCP/IP或UDP协议的通话程序。
15．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是
DimADOcnAsConnection。
16．在VB中，将Foxpro称为外部数据库，Access称为本地数据库，SQLServer称为远程数据库。
17．常用的VB网络编程控件主要有Winsock、InternetTransfer、WebBrowser三种。
18．以（600,600）为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是Circle（600,600）,800。
19．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
20.在VisualBasic程序中实现复制文件”d:
\text.doc”到e:
盘根目录下的语句为FileCopy”d:
\text.doc”,”e:
\text.doc”。
三、阅读程序题
阅读下列程序并写出程序运行结果
循环
次数
X初值
是否满足
循环条件
X终值
n
1
是
3
2
24
否
1．
PrivateSubCommand1_Click（）
x=0
DoWhilex<
20
x=（x+1）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
文件框Text3的结果是：
26
2.PrivateSubCommand1_Click（）
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（"
请输入一个正整数="
））
Ifx<
5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="
s="
&
Str（s）
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
单击次数
s初值
x
s终值
6
5
11
4
44
s=6
s=11
s=44
3．PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“3”
A
（2）=“6”
A（3）=“9”
c=0
Forj=1to3
c=c+Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后，窗体Form1上的结果：
18
j
Val（A（j））
C初值
C终值
9
4．
PrivateSubCommand1_Click（）
DimA（2To7）AsInteger
DimbAsInteger
Forb=2To7
A（b）=b
Nextb
Text1.Text=A（b-2）
程序运行后，单击命令按纽文本框Text1的结果是：
b
是否满足循环条件
A（b）
7
8
5．Subtest（iAsInteger）
i=i+2
PrivateSubForm_Click（）
x=6
Print"
x="
;
x
Calltest（x）
x=6
x=8
解题思路:
单击窗体时,首先执行x=6和Print"
x,在窗体上打印出“x=6”；
然后执行Calltest（x）语句调用test（x）函数（引用传递参数），I=8,x=8。
最后执行Print"
x，打印出“x=8”。
6.PrivateSubForm_Click（）
a=1:
b=1
A="
a;
"
B="
b
Callmult（a）
PrivateSubmult（x）
x=3+x
b=4+b
A=1,B=1
A=4,B=1
单击窗体时,首先执行Print"
b,在窗体上打印出“A=1,B=1”；
然后执行Calltest（a）语句调用mult（x）函数（引用传递参数），x=4,a=4（注意函数调用返回时只带回a的值,并不带回b的值）。
b,打印出“A=4,B=1”。
7.
i
是否满足i>
3的条件
a初值
a终值
16
21
不满足循环条件
DimiAsInteger,aAsInteger
a=0
Fori=1To6
Ifi>
3Then
a=a+5
a=a+2
Nexti
Printi,a
写出程序运行时单击窗体后，Form1上的输出结果。
答案：
721
8.SubChange（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
DimaAsInteger,bAsInteger
a=3:
b=4
Changea,b
Printa,b
写出程序运行时单击窗体后，Form1上的输出结果
43
34
四、完善程序题
1．列表框应用程序。
要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；
当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；
当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图1所示。
图1
程序如下，请补充完整。
PrivateSubForm_Load（）
List1.AddItem"
北京-上海"
北京-广州"
北京-四川"
北京-西安"
北京-哈尔滨"
北京-沈阳"
北京-长春"
IfText1.Text<
>
Then
[1]'
将文本框中的内容加到列表框中
[2]
MsgBox"
请在文本框中输入信息！
PrivateSubCommand2_Click（）
[3]'
删除选定的项目
PrivateSubCommand3_Click（）
IfCommand3.Caption=[4]Then
Text1.Text=[5]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=[6]
Command3.Caption="
修改确认"
List1.List（List1.ListIndex）=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=[7]
修改"
[1]List1.AddItemText1.Text
[2]Else
[3]List1.RemoveItemList1.ListIndex
[4]"
[5]List1.Text
[6]False
[7]"
知识点：
3.3.3列表4控件；
3.4.9流程控制语句
2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
程序代码如下，请补充完整
Drive1.Drive=[1]
File1.Pattern="
*.bmp;
*.gif;
*.jpg"
PrivateSubDrive1_change（）
Dir1.Path=[2]
Text1.Text=Drive1.Drive
[3]
Text1.Text=[4]
PrivateSubFile1_click（）
Picture1.[5]=LoadPicture（File1.Path+"
\"
+File1.FileName）
FileName=File1.Path+"
+File1.FileName
Text1.Text=FileName
[1]"
[2]Drive1.Drive
[3]File1.Path=Dir1.Path
[4]Dir1.Path
[5]Picture
P1225.1.3代码设计
3．使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。
基本逻辑是：
假设在以D盘的根目录下有一个名为exam.txt的文本文件。
当点击“打开”按钮（Command1）时，程序将exam.Txt文件中的内容显示在文本框（Text1）中，当点击“新建”按钮（Command2）时，清空Text1中的内容；
用户可以在Text1中进行编辑操作，当点击“保存”按钮（Command3）时，将Text1中的内容保存在exam.txt文件中。
当点击“退出”按钮（Command4）时关闭本窗体。
图3
DimAAsString
Text1="
Open[1]
DoWhileNotEOF
（1）
Input#1,A
Text1=Text1+[2]
[4]
Open"
\F1.Txt"
ForOutputAs#1
[5]
Close#1
PrivateSubCommand4_Click（）
UnloadMe
[1]"
\exam.txt"
[2]A
[3]Close#1
[4]Text1="
[5]Write#1,Text1
P1285.3.1顺序文件
4．已知存在一名为“学生”的SQLServer数据库，其中的“students”
升级会员 