VB程序设计复习题答案.docx
- 文档编号:3601813
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:9
- 大小:30.18KB
VB程序设计复习题答案.docx
《VB程序设计复习题答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计复习题答案.docx(9页珍藏版)》请在冰豆网上搜索。
VB程序设计复习题答案
VB程序设计复习题
1.VisualBasic是一种___D___的可视化程序设计语言。
A.面向机器B.面向过程C.面向问题D.面向对象
2.VisualBasic主窗口中不包括____B_____。
A.标题栏B.状态栏C.工具栏D.菜单栏
3.程序运行中用鼠标双击当前窗体时,会触发窗体的_____C____事件。
A.LoadB.UnloadC.DblClickD.KeyPress
4.假设窗体上已有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先要执行的操作是____A______。
A.单击窗体上没有控件的地方B.单击任一个控件
C.双击任一个控件D.双击窗体上没有控件的地方
5、要设置窗体上各控件的属性,可在____C___中进行。
A.窗体布局窗口B.工程资源管理器窗口
C.属性窗口D.窗体窗口
6.设变量A的值为-2,则___A___函数的执行结果与其他三个不一样。
A.Val("A")B.Int(A)C.Fix(A)D.-Abs(A)
7.要在窗体Forml的标题栏上显示"统计程序",可用___B___语句。
A.Forml.Name="统计程序"B.Form1.Caption="统计程序"
C.Forml.Caption=统计程序D.Forml.Name=统计程序
8.函数String(n,"str")的功能是B。
A.把数值型数据转换为字符串
B.返回由n个字符组成的字符串
C.从字符串中取出n个字符
D.从字符串中第n个字符的位置开始取子字符串
9、定义变量如下:
DimMyVar
MyVar=”comeseeme“
若在立即窗口中显示MyVar的值,下面正确的是(A)
A.Debug.PrintMyVarB、?
MyVarC.Printer.PrintMyVarD、PrintMyVar
10.设置复选框或单选按钮标题对齐方式的属性是(D)
A.AlignB.valueC.SortedD.Alignment
11、滚动条控件的LargeChange属性所设置的是(A)
A.单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量
B.滚动条中滚动块的最大移动位置
C.滚动条中滚动块的最大移动范围
D.滚动条控件无该属性
12、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是(D)
A.CaptionB.NameC.TextD.value
13、在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:
PrivateSubCommand1_Click()
a=Text1.text
b=Text2.text
C=Lcase(a)
D=Ucase(b)
PrintC;D
EndSub
程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是(A)
A.abcEFGB.abcefgC.ABCefgD.ABCEFG
14.假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为(A)
A.Label1.BackStyle=0B.Label1.BackStyle=1
Label1.BorderStyle=0Label1.BorderStyle=1
C.Label1.BackStyle=TrueD.Label1.BackStyle=False
Label1.BorderStyle=TrueLabel1.BorderStyle=False
15.当拖动滚动条中的滚动块时,将触发滚动条的事件是(D)
A.MoveB.ChangeC.SetFocusD.Scoll
16.比较图片框(PictureBox)和图像框(Image)的使用,正确的描述是(C)
A.两类控件都可以设置AutoSize属性,以保证装入的图形可以自动改变大小
B.两类控件都可以设置Stretch属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形的所有部分
C.当图片框(PictureBox)的AutoSize属性为FaLse时,只在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸
D.当图像框(Image)的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框
17.当利用Line方法进行绘图时,以下正确的说法是(B)
A.有7种不同的线型,而且不管线宽多少都可以绘制虚线/点划线/点线
B.使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线
C.可利用Line方法添加矩形,如Line(300,300)-(2000,2000),BF
D.可利用Line方法添加矩形,如Line(300,300)-(2300,2300),B+F
18.下面语句中错误的是(B)
A.RedimPreserveMatrix(10,Ubound(Matrix,2)+1)
B.RedimPreserveMatrix(Ubound(Matrix,1)+1,10)
C.RedimPreserveDynArray(Ubound(DynArray)+1)
D.RedimDynArray(Ubound(DynArray)+1)
19.可以唯一标识控件数组中的每一个控件的属性是(C)
A.NameB.CaptionC.IndexD.Enabled
20、下面(D)不是VB的文件类控件
A.DriveListBox控件B.DirListBox控件
C.FileListBox控件D、MsgBox
21、关于Open语句不正确的叙述是(D)
(A)Open语句可以打开顺序文件(B)Open语句可以打开随机文件
(C)Open语句可以打开二进制文件(D)Open语句可以打开一个窗体
22、下列语句所声明的数组的元素个数为(A)
DimAry(3To6,-2To2)
(A)20(B)16(C)24(D)25
23、下面对控件数组叙述正确的是(A)
(A)在窗体上添加第二个相同类型的控件时,VB不会提示创建一个控件数组
(B)控件数组使用Index属性来标识控件元素,其范围必须从0开始
(C)控件数组使用的资源比用几个单独同类型的控件占用的资源要多
(D)如果有一个命令按钮数组,各个按钮都有自己的Click事件过程
24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox,其作用是(D)
(A)两组复选框中只有一个能被选中
(B)因有两组复选框,无一可被选中
(C)两组复选框中各有一个能被选中
(D)两组复选框中各有多个被选中
25、要从For...Next循环中中退出循环,使用的语句是(B)
(A)ExitDo(B)ExitFor(C)Continue(D)Stop
二、多项选择题
1、要清除文本框Textl中的内容,使其内容为空字符串,可以采用(AC)。
A.Text1.Text=Space(0)B.Text1.Text=0C.Text1.Text=""
D.Text1.Text=Space
(1)E.ClsTextl.Text
2、下列关于Name属性的论述中,正确的是(ABC)。
A.所有窗体和控件都有Name属性,其值不能为空
B.对象的Name属性指定对象的名称,用来标识一个对象
C.Name属性值必须以字母(或汉字)开头
D.标签的Name属性值是显示在标签标题(Caption)中的文本
E.Name属性值可以在属性窗口中修改,也可以通过代码来修改
3、下列关于Name属性的论述中,正确的是(ABC)。
A.所有窗体和控件都有Name属性,其值不能为空
B.对象的Name属性指定对象的名称,用来标识一个对象
C.Name属性值必须以字母(或汉字)开头
D.标签的Name属性值是显示在标签标题(Caption)中的文本
E.Name属性值可以在属性窗口中修改,也可以通过代码来修改
4、若要清除图片框Picture1中已经载入的图片内容,可以使用的语句有(BCD)
A.Picture1.Del
B.Picture1.Picture=LoadPicture("")
C.Picture1.Picture=LoadPicture()
D.Picture1.Picture=Nothing
E.Picture1.Cls
5、执行程序时,自动发生的窗体事件是(ACD)
A.LoadB.ClickC.Activate
D.InitializeE.LostFocus
三、判断题
1.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可。
F
2.可以把属性看作是一个对象的性质。
T
3.TextBox与Label有许多共同的特点,它们都能显示和输入文字。
F
4.所有对象的属性都可以在属性窗口中设定。
F
5.标签没有change事件和setFocus方法。
T
6.方法Form1.show与Form1.visible=True是等效的。
T
7.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。
F
8.Do…LoopUntil语句实现循环时,不管条件真假,首先无条件地执行一次循环。
T
9.函数Str(23)与Str(-23)的值的长度相同。
T
10.变量名的第一个字符必须是字母。
F
11.用Cls方法能清除窗体或图片框中用Print方法打印的文本或用Circle或Line方法绘制的图形。
T
12.窗体的标题栏显示内容由窗体对象的Name属性决定。
F
13.在运行期间用鼠标单击单选按钮时,按钮的Value属性变为“真”值。
T
14.由于定时器控件在运行时是不可见的,因此定时器没有事件触发过程。
F
四、填空题(每空2分,共10分)
1、INT(45.02)=__45___。
2、将窗体级变量MyText声明为字符串变量的语句是_dimmytextasstring____。
3、常用的循环结构有:
当型循环和__直到型循环____。
4、VB的表达式主要有:
算术运算表达式、字符串表达市、关系表达式、_逻辑表达式_和对象属性表达式。
5、在图片控件Picturebox的属性中,可以决定控件是否自动改变大小的属性是Autosize
6、设在窗体上有一个标签Label1和一个文本框数组Text1,数组Text1有10个文本框,索引号0~9,其中存放的都是数字数据。
现由用户单击选定任一文本框,然后计算从第一个文本框开始,到该文本框为止的多个文本框中的数值总和,把计算结果显示在标签中,请完善下列事件过程。
PrivateSubText1_Click(IndexAsInteger)
DimsAsSingle
s=0
Fork=0ToIndex
s=s+val(text1(k).text)
Next
Label1.Caption=s
EndSub
7、运行时,单击窗体,输出如图所示结果。
PrivateSubForm_Click()
Cls
For_I=1to9__
PrintTab(15-i);
PrintString(2*i-1,(48+I))
Nexti
EndSub
五、读程序
1、在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序;
PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
Print"12345"
EndIf
EndSub
PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Print"67890"
EndSub
程序运行后,在命令按钮上单击鼠标右键,则在窗体上显示的内容是
(12345
67890)
2、在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:
PrivateFunctionfun(xAsLong)AsBoolean
IfxMod2<>0Then
fun=True
Else
fun=False
EndIf
EndFunction
PrivateSubCommand1_Click()
DimnAsLong
n=Val(text1.Text)
p=IIf(fun(n),"奇数","偶数")
Lable1.Caption=n&"是一个"&p
EndSub
程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为(20是一个偶数)
3、下面程序的运行时,单击命令按钮后,显示结果是(5)
PrivateSubCommand1_Click()
a=Array(33,76,89,21,10,44,57,69,28,71)
b=Array(25,45,89,90,16,27,83,62,83,75)
Fori=UBound(a)ToLBound(a)Step-1
Ifa(i)
Nexti
Printc
EndSub
4、在窗体中添加一个命令按钮(Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dimarr1(10)AsInteger,arr2(10)AsInteger
n=3
Fori=1To5
arr1(i)=i
arr2(n)=2*n+i
Nexti
Printarr2(n);arr1(n)
EndSub
程序运行后,单击按钮,输出结果为(113)
5、程序运行时,单击窗体后,键盘输入763458,则标签Label1中的结果是(33)
PrivateSubform_Click()
DimxAsLong
DimsAsInteger,kAsInteger,mAsInteger
x=Val(InputBox("请输入一个整数:
"))
Do
m=xMod10
s=s+m
x=x\10
LoopWhilex<>0
Label1.Caption=s
EndSub
六、程序设计题
1、随机产生49个2位的正整数,然后在指定位置插入一个数(插入的数n和位置p均从键盘输入),最后将这50个数按每行5个数的格式在窗体上输出。
Dima(49)AsInteger
PrivateSubCommand1_Click()
DimnAsInteger,pAsInteger,iAsInteger
n=Val(InputBox("pleaseinputanumber:
"))
p=Val(InputBox("pleaseinputtheplace:
"))
Fori=48TopStep-1
a(i+1)=a(i)
Nexti
a(p)=n
Print"afterinsert"
Fori=0To49
Printa(i);
If(i+1)Mod5=0Then
EndIf
Nexti
EndSub
PrivateSubForm_Activate()
DimiAsInteger
Fori=0To48
a(i)=Int(Rnd*90+10)
Nexti
Print"beforeinsert"
Fori=0To48
Printa(i);
If(i+1)Mod5=0Then
EndIf
Nexti
EndSub
2、编写命令按钮Command1的Click事件过程,找出100-1000范围内所有能同时被3和7整除的自然数。
要求在列表框List1中输出满足条件的自然数。
PrivateSubCommand1_Click()
DimiAsInteger
Fori=100To1000
IfiMod3=0AndiMod7=0Then
List1.AddItemi
EndIf
Nexti
EndSub
3、编写命令按钮Command1的Click事件过程,随机产生10个两位数,求出其平均值显示在文本框Text1中。
PrivateSubCommand1_Click()
DimiAsInteger,xAsInteger,sAsLong
s=0
Fori=1To10
x=Int(Rnd*90+10)
s=s+x
Nexti
Text1.Text=s/10
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 复习题 答案