Visual Basic 19.docx
《Visual Basic 19.docx》由会员分享，可在线阅读，更多相关《Visual Basic 19.docx（16页珍藏版）》请在冰豆网上搜索。
VisualBasic19
一、填空共15题（共计30分）
第1题（2.0分）
把"VisualBasic程序设计"添加到列表框list1的语句为【1】。
答案：
=======（答案1）=======
list1.additem"VisualBasic程序设计"
第2题（2.0分）
VB系统默认设置是隐式声明方式，可以在程序中加入【1】语句进行强制显式声明变量
答案：
=======（答案1）=======
OptionExplicit
第3题（2.0分）
数学关系x≤10表示成正确的VB表达式为【1】
答案：
=======（答案1）=======
x<=10
=========或=========
10>=x
第4题（2.0分）
下列程序段执行结果为【1】。
dimx%,m%,n%
m=5
n=-6
Ifx>0Thenm=n-3Elsen=3
Printn-m
答案：
=======（答案1）=======
-2
第5题（2.0分）
参数传递有值传递和【1】两种方式。
答案：
=======（答案1）=======
地址
=========或=========
地址传递
第6题（2.0分）
在文本框、命令按钮、标签中，不能接收焦点的控件是【1】
答案：
=======（答案1）=======
标签
第7题（2.0分）
为了在运行时把图形文件picfile.jpg装入图片框Picture2,所使用的语句为【1】
答案：
=======（答案1）=======
Picture2.Picture=LoadPicture（"picfile.jpg"）
=========或=========
Picture2.Picture=LoadPicture（app.path&"\picfile.jpg"）
=========或=========
Picture2.Picture=LoadPicture（app.path+"\picfile.jpg"）
第8题（2.0分）
表示"a大于b并且c大于d"的布尔表达式是【1】
答案：
=======（答案1）=======
a>bandc>d
第9题（2.0分）
在VB6.0中,若要将数值型数据转换成字符串,应使用的类型转换函数是【1】.
答案：
=======（答案1）=======
STR
=========或=========
CSTR
第10题（2.0分）
下面程序运行后输出的结果是【1】.
PrivateSubCommand1_Clik（）
ForI=3To13Step3
K=I
NextI
PrintI,k
EndSub
答案：
=======（答案1）=======
1512
第11题（2.0分）
可以同时删除字符串前导和尾部空白的函数是【1】
答案：
=======（答案1）=======
Trim
第12题（2.0分）
已知文本框的内容为"ABCDE",若文本框Selstart=3,Sellength=2,则SelText为【1】.
答案：
=======（答案1）=======
DE
=========或=========
"DE"
第13题（2.0分）
要将通用对话框控件添加到工具箱中，应单击【1】菜单中的"部件"命令。
答案：
=======（答案1）=======
工程
第14题（2.0分）
要获得数组的上界通过【1】函数.
答案：
=======（答案1）=======
Ubound
第15题（2.0分）
OptionButton是【1】控件。
答案：
=======（答案1）=======
单选按钮
二、判断共10题（共计10分）
第1题（1.0分）
Image控件不能用作容器使用.
答案：
Y
第2题（1.0分）
一个目标程序所需的所有文件的集合称为工程。
答案：
Y
第3题（1.0分）
在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
答案：
Y
第4题（1.0分）
Do-LoopUntil语句实现循环时，只要条件是假，循环将一直进行下去。
答案：
Y
第5题（1.0分）
面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.
答案：
Y
第6题（1.0分）
VB的所有控件在程序运行以后都是可见的。
答案：
N
第7题（1.0分）
当计时器控件的interval属性值设置为0时,会连续不断地激发Timer事件.
答案：
N
第8题（1.0分）
要使某控件的背景颜色设置为浅灰色，应对其ForeColor属性进行设置
答案：
N
第9题（1.0分）
在框架控件内的几个单选按钮中,可有一个或多个单选按钮的Value属性为True.
答案：
N
第10题（1.0分）
工具箱提供了VisualBasic中所有控件。
答案：
N
三、单项选择共20题（共计20分）
第1题（1.0分）
以下（）不是启动菜单编辑器的方法.
A:
单击工具栏菜单图标
B:
工具/菜单编辑器（CTRL+E）
C:
窗体上快捷菜单/菜单编辑器
D:
菜单/菜单编辑器
答案：
D
第2题（1.0分）
如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是______.
A:
Hide
B:
Show
C:
Load
D:
Unload
答案：
D
第3题（1.0分）
以下能够触发文本框Change事件的操作是（）
A:
文本框失去焦点
B:
文本框获得焦点
C:
设置文本框的焦点
D:
改变文本框的内容
答案：
D
第4题（1.0分）
设菜单中有一个菜单项为"字体"，若要为该菜单项设置访问键，即按下Alt及字母F
时，能够执行"字体"命令，则在菜单编辑器中设置"字体"菜单项的方式是（）。
A:
把Name属性设置为字体（F）
B:
把Caption属性设置为字体（F）
C:
把Name属性设置为字体（&F）
D:
把Caption属性设置为字体（&F）
答案：
D
第5题（1.0分）
当事件能被触发时,（）就会对该事件作出响应.
A:
对象
B:
程序
C:
控件
D:
窗体
答案：
A
第6题（1.0分）
计时器的interval属性为0时,表示（）.
A:
计时器失效
B:
相隔0秒
C:
相隔0毫秒
D:
计时器的enable属性为false
答案：
A
第7题（1.0分）
（）属性决定了按Tab键时焦点在各个控件之间移动的顺序.
A:
Index
B:
TabStop
C:
Tablndex
D:
SetFocus
答案：
C
第8题（1.0分）
下列说法中正确的是（）。
A:
任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器
B:
只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C:
任何时候都可以通过单击标准工具栏上的"菜单编辑器"按钮打开菜单编辑器
D:
只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
答案：
B
第9题（1.0分）
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干
个项目。
当单击列表框中的某个项目时，在标签中显示被选中项目的名称。
下列能正确实现上述操作的程序是：
_____。
A:
PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
EndSub
B:
PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
EndSub
C:
PrivateSubList1_Click（）
Label1.Name=List1.Text
EndSub
D:
PrivateSubList1_Click（）
Label1.Caption=List1.Text
EndSub
答案：
D
第10题（1.0分）
要使文本框获得输入焦点,则应采用文本框控件的哪个方法（）.
A:
GodFocus
B:
LostFocus
C:
KeyPress
D:
SetFocus
答案：
D
第11题（1.0分）
用户可以通过设置菜单项的（）属性值为FALSE来使该菜单项不可见.
A:
Hide
B:
Checked
C:
Visible
D:
Enabled
答案：
C
第12题（1.0分）
窗体Form1的Name属性是Frm1，它的单击事件过程名是（）。
A:
Form_Click
B:
Frm1_Click
C:
Form_DblClick
D:
Frm1_DblClick
答案：
A
第13题（1.0分）
在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）
A:
工程资源管理器窗口
B:
工具箱窗口
C:
代码窗口
D:
属性窗口
答案：
C
第14题（1.0分）
下面说法正确的是
A:
一个VB应用程序至少有一个工程文件和一个窗体文件
B:
一个VB应用程序至少有一个工程文件和一个类模块
C:
一个VB应用程序至少有一个窗体文件和一个标准模块
D:
一个VB应用程序至少有一个标准模块和一个类模块
答案：
A
第15题（1.0分）
用下面语句定义的数组的元素个数是（）
DimA（-2To4）AsInteger
A:
6
B:
5
C:
7
D:
8
答案：
C
第16题（1.0分）
执行下面程序段后,变量x的值为______.
x=5
ForI=1To20step2
x=x+I\5
NextI
A:
21
B:
22
C:
23
D:
24
答案：
A
第17题（1.0分）
设在菜单编辑器中定义了一个菜单项名为menu1，为了在运行时隐藏该菜单项，应使用的语句是（）。
A:
menu1.Enabled=True
B:
menu1.Enabled=False
C:
menu1.Visible=True
D:
menu1.Visible=False
答案：
D
第18题（1.0分）
在VB中能够将数值型转化为字符型数据的函数是（）
A:
len（）
B:
val（）
C:
str（）
D:
space（）
答案：
C
第19题（1.0分）
设窗体上有一个列表框控件List1，含有若干列表项。
以下能表示当前被选中的列表
项内容的是（）。
A:
List1.List
B:
List1.ListIndex
C:
List1.Text
D:
List1.Index
答案：
C
第20题（1.0分）
将条件"a大于等于b且a不等于0"写成VB的表达式，其正确的形式是（）
A:
a>=bora≠0
B:
a>=banda<>0
C:
a>=bora<>0
D:
a>=banda≠0
答案：
B
四、程序填空共2题（共计20分）
第1题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
下列程序功能是在键盘上输入月份的数值，即1~12之间的一个整数，计算机即打印
'出该月份的季节（12，1，2为冬季，其余类推）。
如输入7，则打印出夏季，请补充完整
'程序。
'-------------------------------------------------------
PrivateSubForm_Click（）
Dimn%,m%
Do
n=InputBox（"Thenumberofmouth--"）
LoopWhilen<1Orn>12
'**********SPACE**********
m=【?
】
'**********SPACE**********
SelectCase【?
】
Case1
Print"春季"
Case2
Print"夏季"
Case3
Print"秋季"
CaseElse
Print"冬季"
EndSelect
EndSub
答案：
=======（答案1）=======
n\3
=======（答案2）=======
m
第2题（10.0分）
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
窗体上添加一个名为command1的命令按钮，程序运行后，单击命令按钮，
'用Array函数建立一个含有5个元素的数组，计算给定的5个数中负数之和。
请将
'程序补充完整。
'-------------------------------------------------------
OptionBase1
PrivateSubCommand1_Click（）
Dimx,s&,k%
x=Array（-32,47,13,9,-3）
s=0
'**********SPACE**********
Fork=【?
】ToUbound（x）
'**********SPACE**********
If【?
】Then
'**********SPACE**********
【?
】
EndIf
Nextk
Print"负数之和是：
";s
EndSub
答案：
=======（答案1）=======
1
=========或=========
Lbound（x）
=======（答案2）=======
x（k）<0
=========或=========
0>x（k）
=======（答案3）=======
s=s+x（k）
=========或=========
s=s+x（k）
五、程序设计共1题（共计10分）
第1题（10.0分）
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）求1!
+2!
+3!
+……+10!
的值，并在窗体上输出。
'结果存入变量L中。
要求：
用for语句实现。
'-------------------------------------------------
答案：
----------------------
DimiAsInteger
DimsAsLong
DimlAslong
s=1
Fori=1To10
s=s*i
l=l+s
Next
Printl
----------------------
六、VB窗体设计共1题（共计10分）
第1题（10.0分）
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：
请按照题目要求设计指定的窗体。
建立如（图1）所示界面。
------------------------------------------------
1、添加控件
文本框（Text1）。
框架（Frame1）。
按钮（Command1）。
列表框（List1）。
标签（Label1）。
在框架（Frame1）内添加单选按钮（Option1，Option2）。
2、窗体设置
名称（Name）属性为“Form2”。
标题（Caption）属性为“姓名列表”。
3、标签设置
标签（Label1）标题（Caption）属性为“在下面文本框中输入姓名”。
4、文本框设置
适当调整文本框（Text1）的位置和大小。
5、框架设置
框架（Frame1）标题（Caption）属性为“选择性别”。
6、单选框设置
单选框（Option1）的标题（Caption）属性为“男”。
单选框（Option2）的标题（Caption）属性为“女”。
7、列表框设置
列表框（List1）中添加一条纪录为“这是一个列表框”。
8、按钮设置
按钮（Command1）的标题（Caption）属性为“添加”。
升级会员 