中职VB语言程序设计填空题综合练习一Word下载.docx
《中职VB语言程序设计填空题综合练习一Word下载.docx》由会员分享，可在线阅读，更多相关《中职VB语言程序设计填空题综合练习一Word下载.docx（11页珍藏版）》请在冰豆网上搜索。
Nextk
Print“end”
EndSub
程序运行后,单击Command1命令按钮,则程序输出的结果是_____.
7.在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。
8.将通用对话框的类型设置为“字体”对话框可以使用_____方法。
9.下列程序的功能是：
当按下鼠标左键并在窗体上移动时，在鼠标经过的位置画点，松开鼠标移动时，不执行画点操作。
当单击鼠标右键时，清除窗体上的内容。
请在横线的上方填入适当的内容，将程序补充完整。
DimflagAsBoolean
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,X!
Y!
flag=True
If_____Then
Cls
EndIf
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfflagThen
PSet（X,Y）'
画点语句
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
_____
填空题B
1窗体的扩展名是_____。
3日期表达式#2/24/02#-#2/12/02#的值为。
4.VB的控件分为、ActiveX控件和可插入对象
5.Style属性设置为，单选按钮和复选框以图形方式显示
6在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:
DimsAsInteger
Dimarr（3,1To7）AsInteger
ForEachtestInarr
s=s+1
Nexttest
Prints
程序运行后,单击Command1命令按钮,则程序输出的结果是.
7声明Integer类型静态变量x，写作
Staticx%
StaticxAsInteger
staticxasinteger。
8如果把一个菜单项的Visible属性设置为False，则
9在执行KeyPress事件过程时，KeyAscii是所按键的码
填空题C
1.面向对象的程序设计是一种以_____为基础，由_____驱动对象的编程技术。
2.一般来说，同一窗体中的各个控件的_____属性应该各不相同；
。
如果几个控件具有相同的_____属性，则这些控件称为数组控件。
3.求a与b之积除以c的余数，用VisualBasic表达式可表示为_____。
4.如果要每隔15s产生一个计时器事件，则Interval属性应设置为_____。
5.组合框的Style属性的取值有_____种
6.用ReDim语句重新分配动态数组时,如果要保留数组内容,即不清除数组中的内容,应使用的选择项是_____.
7.调用过程时对形参的改变不会导致相应实参变量的改变，则该形参
采用_____（按值传递/按地址传递）方式。
8.在设计菜单时，可在VisualBasic主窗口的菜单栏中选择_____，单击后从它的下拉菜单中选择“菜单编辑器”菜单项。
填空题D
1设置对象的属性有两种办法，一种是在设计时在属性窗口窗口中设置；
另一种是在运行时设置，设置格式为。
大部分属性可以用以上两种方法进行设置，而有些属性只能用其中一种方法设置。
2决定窗体标题栏显示内容的属性是
3已知a=2.5，b=5.0，c=2.5，d=True，则表达式：
a>
=0ANDa+c>
b+3ORNOTd的值是
4Shape属性决定形状控件的形状，当Shape属性值为0时，它的表现形式是。
5方法用来向列表框中加入列表项
7在窗体Form1的过程中引用窗体Form2中的全局变量y，写作
8将控件CommonDialog1设置为"
颜色"
对话框，可使用
CommonDialog1.Action=3
commondialog1.action=3
CommonDialog1.ShowColor
填空题E
1.控件的Top属性是指控件的_____（上、下）边至窗体标题栏_____（上、下）边的距离；
Left属性是指控件_____（左、右）边到窗体_____（左、右）边的距离。
2.访问键是通过键盘来访问控件，访问键是设置是在控件的_____属性中用_____字符加在访问字符的前面，运行时按_____键+访问字符。
5.在使用VisualBasic提供的列表框时，当列表框中的项目超过了列表框的长度时，
系统会自动在列表框的边上加上一个_____。
6.默认情况下,数组下标的下界是_____，若要使下标的下界为1,应该使用的语句是_____
7.下面程序的运行结果为_____。
Dimx%,y%
x=18
y=25
Callswap（x,y）
Printx
PrivateSubswap（a%,b%）
Dimt%
t=a
a=b
b=t
填空题F
1，VB的对象主要分为窗体和_____两大类。
2，在VisualBasic中，要将一个窗体从内存中卸载，应该使用_____语句。
3，声明单精度常量PI代表3.1415926的语句是_____。
4．要使用鼠标或空格键同时选择列表框中的多个选项，必须把_____属性设置为1。
5.fee=countl（title）
Printfee
PublicFunctioncountl（x%）AsSingle
Dimpay!
Ifx<
40Then
pay=x/2
Else
pay=2*x
countl=pay
EndFunction
填空题G
1.要使输入文本框的字符靠右对齐，可修改文本框的____属性。
2.语句PrintNot10>
15And8<
5+2的输出结果为_____。
3在程序运行时，如果将框架的_____属性设为False，则框架的标题是灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
4.以下程序的功能是：
分别计算给定的10个数中正数之和与负数之和。
请将程序补充完整。
OptionBase1
Dimww
ww=Array（12,−6,15,34,−32,47,13,9,6,−3）
s1=0
s2=0
Fork=1To10
If（ww（k）>
0）Then
s1=_____
s2=____
Print"
正数之和为"
;
s1
负数之和为"
s2
5.当列表框的MultiSelect属性值为1时，单击列表项或按空格键可以实现复选。
6.若已建立了Form1、Form2两个窗体，默认启动窗体设置为Form1。
通过_____菜单的_____的_____选项卡，可将启动窗体设置为Form2。
7用类型说明符来标识数据类型时，表示单精度使用的符号是
8.如果工具箱中还没有CommonDialog控件，则应从菜单中选定部件，并将控件添加到工具箱中。
9.要使一个控件不可用，应将该控件的enabled属性设为
10.假设a="
A"
，表达式：
="
0"
anda<
9"
anda>
Z"
的值
11.列表框中第一项的索引值是
12.选择了一个新的目录路径后，为了及时更新文件列表框的显示，可选用目录列表框的事件来驱动。
13.由VisualBasic预先设置好的、能够被对象识别的动作叫。
14.一个变量未被显示定义，末尾也没跟类型说明符，则变量的默认类型是变体类型。
15.图片框内可使PictureBox根据图片调整大小的属性为autosize；
图像框为stretch，若使Image控件可根据图片调整大小，该属性值应为_____。
16.设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为。
17.过程形参为整型，对应实参为5.64，传递给形参的值为。
18.VB是一种面向对象的可视化程序设计语言，采取了。
19.定时器的Interval属性值为时，表示计时器停止工作
20.用方法只能隐藏一个窗体，不能从内存中清除该窗体。
21.长整型变量（Long类型）占用个字节。
22.列表框的最后一项的索引号是。
23.VB应用程序中标准模块文件的扩展名是。
24.若用户单击了窗体Form1，则启动的事件名为
25.设从键盘上输入20，下面程序的运行结果为
PrivateSubForm_Click（）
Dimtitle%,fee!
title=Val（InputBox（"
请输入一个数"
））
fee=countl（title）
EndFunction
26.multiline属性决定文本框是否可以接受多行文本。
27.alignment属性设置为单选按钮和复选框的标题显示在左边。
.
28.设a$="
VisualBasicPrograming"
:
b$="
Turbo"
c$=b$&
Space
（1）&
UCase（Mid$（a$,12,1））&
Right（a$,11）
则变量c$的值是
29.下面程序的运行结果为
y=28
30．执行下面程序，第一行输出结果是第二行输出结果是。
OptionExplicit
DimMAsInteger，NAsInteger，KAsInteger
N=-3
ForM=6To1StepN
M=M+1
N=N-M
K=K+1
NextM
PrintK
PrintN
31．执行下面程序，第一行输出结果是，第三行输出结果是。
DimNAsInteger，IAsInteger
N=2
ForI=9To1Step-1
CallSub2（I,N）
PrintI，N
NextI
PrivateSubSub2（XAsInteger,YAsInteger）
StaticNAsInteger
DimIAsInteger
ForI=3To1Step-1
N=N+X
X=X-1
Y=Y+N
32.执行下面程序，单击窗体，则在窗体上显示的内容是__。
PrivateSubForm_Click（0
DimaAsInteger,bAsinteger,cAsInteger
b=6:
c=6.5
a=b=c
Printa
升级会员 