《Visual Basic编程与应用》综合练习.docx
- 文档编号:24776690
- 上传时间:2023-06-01
- 格式:DOCX
- 页数:27
- 大小:26.81KB
《Visual Basic编程与应用》综合练习.docx
《《Visual Basic编程与应用》综合练习.docx》由会员分享,可在线阅读,更多相关《《Visual Basic编程与应用》综合练习.docx(27页珍藏版)》请在冰豆网上搜索。
《VisualBasic编程与应用》综合练习
《VisualBasic编程与应用》综合练习
一、填空题
1.VB6.0是运行于①_________操作系统环境下的一个快速可视化程序开发工具,用它进行程序设计,有两个基本的特点,即②_________和③_________。
2.在VB6.0中,变量名最长可达④_________个字符。
3.VB6.0的基本表达式包括算术表达式、⑤_________表达式和⑥_________表达式。
4.静态数组是指⑦_________的数组。
5.在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用⑧_________语句。
6.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的⑨_________属性的值设置为True。
7.在VB中,若要将字符串“12345”转换成数字值应使用的类型转换函数是⑩_________。
二、选择题
1.设使用隐式类型说明,以下关于变量的类型说明符的使用中,惟一正确的是______。
A.Dima%:
a%=90000
B.Dima:
a=2000%
C.Dima&:
a&=90000
D.Dima%:
a%=”true”
2.在VB中,若要改变一个标签(Label)上显示的内容,应当在属性窗口中改变这个标签的______属性的值。
A.TextB.ListC.NameD.Caption
3.在VB中,运算“123”+12的结果是______。
A.“12312”B.135
C.“12132”D.出错
4.在VB中,工程文件的扩展名是______。
A..vgbB..vbpC..vbwD..vbl
5.以下选项中,不属于文本框(Text)的属性是______。
A.EnabledB.VisibleC.NameD.Caption
6.下列控件中可自动设置滚动条是______。
A.复选框B.框架C.文本框D.标签框
7.以下______是执行程序段
Print"x=";25.6;"y=";-90.2
PrintSpc(3);"z=";Tab(10);"abcd"
的正确的结果。
A.
B.
C.
D.
8.以下关于VB菜单编辑器中“索引”项的叙述中,错误的是______。
A.“索引”确定了菜单项显示的顺序。
B.“索引”是控件数组的下标。
C.使用“索引”时,可有一组菜单项具有相同的“名字”。
D.使用“索引”后,在单击菜单项的事件过程中可以通过“索引”引用菜单项。
9.使用下列______语句可以对文件进行改名操作。
A.ShellB.FileCopyC.NameD.RmDir
10.以下关于VB列表框的叙述中,除______外均是正确的。
A.可通过属性“Item”,返回列表框中的项目。
B.可通过属性“Text”,返回列表框中的已选项目。
C.可通过属性“ListIndex”返回列表框中的已选项目。
D.可通过属性“ListCount”返回列表框中项目的数目。
三、判断题
1.通过改变属性窗口中的Name属性,可以改变窗体上显示的标题。
()
2.在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程。
()
3.在多文档应用中,每次只能有一个活动的子窗体可以进行输入/编辑。
()
4.在VB中,运算“ABCDE123A”Like“[a*a]”的结果是True。
()
5.多文档界面是指在一个父窗口下面可以同时打开多个子窗口。
子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭。
()
6.计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件。
()
7.用VB6.0仅能开发具有窗口菜单的应用程序,开发的应用中不能支持弹出式菜单。
()
8.Image控件使用的资源比Picture控件使用的多。
()
9.函数过程(FunctionProcedure)用来完成特定的功能,但不返回相应的结果。
()
10.在VB6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB“格式”菜单中的命令。
()
四、读程序题
1.设在一个窗体模块中已设计有如下过程,请写出运行的结果。
OptionExplicit
DimThisArray()AsInteger
PrivateSubCommand1_Click()
DimttAsInteger
DimssAsInteger
DimiiAsInteger
Forii=1ToLen(Text1.Text)
IfMid(Text1.Text,ii,1)<"0"OrMid(Text1.Text,ii,1)>"9"Then
MsgBox("错误!
")
EndIf
Nextii
tt=Val(Text1)
CallMyPro(tt,ss)
Text2.Text=tt
Text3.Text=ss
EndSub
PrivateSubForm_Load()
ReDimThisArray(5)
DimiiAsInteger
Forii=1To5
ThisArray(ii)=ii
Nextii
Text1.Text=""
EndSub
PrivateSubMyPro(ByValT1AsInteger,T2AsInteger)
DimiiAsInteger
IfT1>UBound(ThisArray)Then
ReDimPreserveThisArray(T1)
Forii=UBound(ThisArray)+1ToT1
ThisArray(ii)=ii
Nextii
T2=1
Forii=T1To2Step-1
T2=T2+ThisArray(ii)
Nextii
T1=T2
Else
T1=1:
T2=-1
EndIf
EndSub
2.设有下列程序,请指出单击命令按钮Comd1后程序完成的功能。
PrivateSubComd1_Click()
DimXAsInteger
DimYAsInteger
DimRAsInteger
X=Pic1.ScaleWidth/2
Y=Pic1.ScaleHeight/2
ForR=100To500step50
Pic1.Circle(X,Y),R,RGB(256*Rnd,256*Rnd,256*Rnd)
NextI
SavePicturePic1.Image,"MYPIC.BMP"
EndSub
3.设在一个窗体中已设计了一个组合框Combo1,且有下列程序,请指出其功能。
DimssAsString
PrivateSubCombo1_Click()
ss=ss&Combo1.Text&";"
Text1=ss
EndSub
PrivateSubForm_Load()
ss=""
Combo1.AddItem"386"
Combo1.AddItem"486"
Combo1.AddItem"586"
Combo1.AddItem"Pentium"
Combo1.AddItem"PentiumII"
Combo1.AddItem"PentiumIII"
Combo1.AddItem"PentiumIV"
Combo1.Text="PentiumIV"
EndSub
五、编程题
1.若命令按钮名为CmdE,要求单击该按钮时,将标签LabA上的文字改变为“Test”,将焦点改变到文本框TxtA上。
请补充下列事件代码中的空白处,以实现这一要求。
PrivateSubCmdE_[①]()
LabA.[②]=”Test”
[③ ]
EndSub
2.窗体中有若干控件,单击其中的一个按钮cmdput时,执行如下的事件过程,该过程的功能是把数据输出到指定的文件中。
请补充程序中的空白处。
PrivateSubcmdput_click()
DimstuAsstudent
DiimIIAsInteger
Open“d:
\student.dat”ForRandomAs#1Len=Len([ ①])
Title$=”写文件”
Strl$=”请输入学生号:
”
Str2$=”请输入学生名:
”
ForII=1To10
Stu.number=InputBox(Str1$,Title$)
Stu.name=InputBox$(Str2$,Title$)
[②]#1,II,stu
NextII
Close[③]
EndSub
3.设计一个显示欢迎信息的窗体。
要求程序运行后,在窗体上的标签LabA中显示“欢迎您!
”(如图),若用户选中单选钮OpA“粗体”时,LabA中以粗体显示文本;用户选中单选钮OpB“正常”时,标签框LabA不再以粗体显示文本。
按命令按钮ComA“结束”时,程序终止。
【参考答案】
一、填空题
①Windows9x/NT,②可视化设计,③事件驱动编程,④255,⑤关系,⑥逻辑,⑦数组元素个数固定不变,⑧OptionExplicit,⑨MaxLine,⑩VAL。
二、选择题
1.C2.D3.B4.B5.D6.C7.A8.A9.C10.A
三、判断题
1.N2.N3.Y4.Y5.Y6.Y7.N8.N9.N10.Y
四、读程序题
1.在点击命令按钮时,若用户在Text1文本框中输入的不是数串,则显示出错停息;否则点击命令按钮后,若用户在Text1文本框中输入的数大于5(设为X),则在文本框Text2中显示X,在文本框Text3中显示1至X的和;否则(即若用户在Text1中输入的数小于或等于5),在文本框Text2中显示X,在文本框Text3中显示0。
2.在图片框Pic1中以其中心为圆心,分别以100,150,200,…,500为半径绘制同心圆,然后将绘制的图形以文件名“MYPIC.BMP”存入磁盘。
3.将用户在组合框Combo1中选择的项目连接在一起,在文本框Text1中显示,各个项目之间用逗号分隔。
五、编程题
1.①Click②Caption③TxtA.SetFocus
2.①stu②put③#1
3.四个过程如下:
PrivateSubForm_Load()
LabA.Caption="欢迎您!
"
EndSub
PrivateSubComA_Click()
End
EndSub
PrivateSubOpA_Click()
LabA.Font.Bold=True
EndSub
PrivateSubOpB_Click()
LabA.Font.Bold=False
EndSub
综合练习
(二)
一、填空
1.VB应用程序开发的一般步骤是创建①_________,设置②_________,编写③_________。
2.常量是在程序运行过程中,④_________的量。
3.VB的运算符包括⑤_________运算符、⑥_________运算符、关系运算符、逻辑运算符和特殊运算符。
4.动态数组是指⑦_________的数组。
5.工程文件是⑧_________和对象以及所设置的环境信息的一个简单列表。
6.在VB中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的⑨_________属性的值。
7.多文档界面是指在一个父窗口下面可以同时打开多个子窗口。
子窗口归属于父窗口,如果父窗口关闭,则所有子窗口⑩_________关闭。
二、选择题
1.下列除______外均不是VB合法的变量名。
A.3ABCB.ABC_3C.ABC.3D._ABC
2.在VB中,若要改变一个标签(Label)上显示的内容的水平对齐方式,应当在属性窗口中改变这个标签的______属性的值。
A.TextB.ListC.NameD.Alignment
3.在VB中,函数INT(-3.6)的值是______。
A.-4B.-3C.3D.4
4.在VB中,窗体模块文件的扩展名是______。
A..basB..vbgC..frmD..vbl
5.以下选项中,不属于图片框(PictureBox)的属性是______。
A.AlignB.CaptionC.PictureD.Visible
6.通过以下______的设置,可使得在向文本框中输入信息时显示“#”。
A.将Text属性值设置为“#”
B.将Name属性值设置为“#”
C.将Passwordchar属性值设置为“#”
D.将Passwordchar属性值设置为True
7.单击Form1窗口,执行如下程序:
PrivateSubForm_Click()
i=MsgBox("Inputannumber:
",1,"Test")
EndSub
以下______是程序执行的结果。
8.下列关于VB命令按钮的叙述中,除______外均是正确的。
A.如果属性“Enabled”的值设为False,则该按钮灰化。
B.如果属性“Visible”的值设为False,则该按钮不可见。
C.如果属性“Text”的值设为“OK”,则该按钮上的文字是“OK”。
D.如果属性“Cancel”的值设为True,则当按Esc键时等效于按该按钮。
9.下列事件中,最后执行的事件是______。
A.Form_LoadB.Form_Initialize
C.Form_ActivateD.Form_Paint
10.下列关于窗体(Form)的四个描述中,正确的是______。
A.只有用于启动的窗体可以有菜单。
B.窗体事件和其中所有控件事件的代码都放在窗体文件中。
C.窗体的名字和存盘的窗体文件名必须相同。
D.开始运行时窗体的位置只能是设计阶段时显示的位置。
三、判断题
1.VB通过窗体管理构成应用程序的各类文件的集合。
()
2.在标准模块的声明部分中用Private声明的变量的有效范围是其所在的工程。
()
3.组合框包含了列表框的功能。
()
4.在VB中,运算“ABA”Like“[a?
a]”的结果是False。
()
5.如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值。
()
6.文件按照数据编码方式可以分为ASCII码文件和二进制文件。
()
7.在VB中,函数Fix(-3.6)的返回值是–4。
()
8.在VB中,可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上。
()
9.如果没有使用Public、Private或者Friend,Sub过程在缺省情况下是公用的。
()
10.VB支持弹出菜单,所谓“弹出菜单”是指单击鼠标后打开的菜单。
()
四、读程序题
1.设在一个窗体中已设计了如下过程,请写出运行的结果。
OptionExplicit
DimThisArray()AsInteger
PrivateSubCommand1_Click()
DimttAsInteger
DimssAsInteger
DimiiAsInteger
Forii=1ToLen(Text1.Text)
IfMid(Text1.Text,ii,1)<"0"OrMid(Text1.Text,ii,1)>"9"Then
MsgBox("错误!
")
EndIf
Nextii
ss=0:
tt=Val(Text1)
Text3.Text=MyPro(tt,ss)
Text2.Text=tt+ss
EndSub
PrivateSubForm_Load()
ReDimThisArray(5)
DimiiAsInteger
Forii=1To5
ThisArray(ii)=ii
Nextii
Text1.Text=""
EndSub
PrivateFunctionMyPro(T1AsInteger,ByValT2AsInteger)AsInteger
DimiiAsInteger
T2=1
IfT1>UBound(ThisArray)Then
ReDimPreserveThisArray(T1)
Forii=6ToT1
ThisArray(ii)=ii
Nextii
Forii=2ToT1
T2=T2+ThisArray(ii)
Nextii
T1=1
Else
T1=-1
EndIf
MyPro=T2
EndFunction
2.设在一个窗体中已设计了一个文本框Text1,一个命令按钮Comd1和一组复选框Check1,并有如下过程,请写出运行的结果。
PrivateSubComd1_Click()
DimiiAsInteger
Text1.Text=""
Forii=0To6
IfCheck1(ii).Value=CheckedThen
Text1.Text=Text1.Text&Check1(ii).Caption&","
Check1(ii).Value=UnChecked
EndIf
Nextii
EndSub
3.设在一个窗体中已设计了一组五个单选按钮Option1(0)~Option1(4)和一个公共对话框ComDialog1,并有如下代码,请写出运行的结果。
PrivateSubForm_Load()
Option1(4).Value=True
Option1(4).Visible=False
EndSub
PrivateSubOption1_Click(IndexAsInteger)
DimFileName1AsString,FileName2AsString
SelectCaseIndex
Case0
ComDialog1.ShowOpen
FileName1=ComDialog1.FileName
KillFileName1
Case1
ComDialog1.ShowOpen
FileName1=ComDialog1.FileName
ComDialog1.ShowSave
FileName2=ComDialog1.FileName
FileCopyFileName1,FileName2
KillFileName1
Case2
ComDialog1.ShowOpen
FileName1=ComDialog1.FileName
ComDialog1.ShowSave
FileName2=ComDialog1.FileName
FileCopyFileName1,FileName2
Case3
ComDialog1.ShowOpen
FileName1=ComDialog1.FileName
FileName2=InputBox("TheNewfilename:
",FileName1)
NameFileName1AsFileName2
EndSelect
Option1(4).Value=True
EndSub
五、编程题
1.设窗体上有一文本框Text1和一列表框List1,在List1中已有两个可供选择的项目“上海”、“江苏”,要求窗体显示前再将“山东”作为新的项目添加到List1中,当用户在List1中选择了一个项目后,将其所选的项目显示在Text1框中。
请填空:
PrivateSubForm_Load()
List1.[①]
EndSub
PrivateSubList1_[② ]()
[③ ]=List1.[④]
EndSub
2.设窗体上有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每5秒钟一次的速度向窗体的右下方移动,每次向右、向下移动100。
请填空:
OptionExplicit
PrivateSubForm_load()
Picture1.Picture=loadPicture(“c:
\pic\ball.ico”)
[① ].Interval=5000
EndSub
PrivateSubTimer1_Timer()
[ ② ]
x=x+100
y=y+100
Picture1.Move[③]
EndSub
3.设窗体上有一个DriveListBox控件Drive1,一个DirListBox控件Dir1和一个FileListBox控件File1,该窗体刚装入时,显示C盘根目录下的全部.BAT文件(如图),要求在用户选择Drive1控件中的驱动器后,Dir1控件中的目录随之改变,当Dir1中的目录改变后,File1控件中的文件随之改变。
请编写出相应的程序。
【参考答案】
一、填空题
①应用程序的界面,②控件的属性,③响应事件的代码,④其值不能改变,⑤算术,⑥连接,⑦数组元素个数可以改变,⑧与工程相关联的所有文件,⑨Caption,⑩全部。
二、选择题
1.B2.D3.A4.C5.B6.C7.B8.C9.D10.B
三、判断题
1.N2.N3.Y4.N5.N6.Y7.N8.Y9.Y10.N
四、读程序题
1.在点击命令按钮时,若用户在Text1中输入的不是数串,则显示出错停息;否则点击命令按钮后,若用户在Text1中输入的数大于5(设为X),则在文本框Text2中显示1,在文本框Text3中显示1至X的和;否则(即若用户在Text1中输入的数小于或等于5),在文本框Text2中显示-1,在文本框Text3中显示1。
2.在点击命令按钮后,将用户在复选框中已选择的项目(最多6个)拼接在一起,在Text1框中显示,同时清除已选择的项目。
3.当用户选择单选命令按钮Option1(0)时,删除文件;选择Option1
(1)时,移动文件;选择Option1
(2)时,复制文件;选择Option1(3)时,对文件进行改名。
每次操作后都将对Option1所做的选择撤销。
所有有关的文件名都通过ComDialog1由用户输入,仅文件改名时的新文件名用InputBox框输入
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic编程与应用 Visual Basic编程与应用综合练习 Visual Basic 编程 应用 综合 练习