VB期末考试题.docx
- 文档编号:23154963
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:17
- 大小:114.97KB
VB期末考试题.docx
《VB期末考试题.docx》由会员分享,可在线阅读,更多相关《VB期末考试题.docx(17页珍藏版)》请在冰豆网上搜索。
VB期末考试题
VB期末复习题
一判断题
1、当对窗体中的对象进行单击操作时,VisualBasic就会显示该对象的代码窗口。
(X)
2、建立控件时系统自动给控件一个名称,第一个建立的命令按钮名称是Command。
(X)
3、文本框没有Caption属性。
(√)
4、将命令按钮Command1设置为不可见,应修改该命令按钮的Enabled属性。
(X)
5、逻辑表达式Not"a">"b"And7<3Or7>3的值为true。
(√)
6、LoadPicture()函数用于在程序的代码中对窗体、图片框或图像框的Picture属性赋值,以便在程序的运行阶段加载图形文件。
(√)
7、复选框对象是否被选中,是由其Value属性决定的。
(√)
8、框架由于是一种辅助性的控件,功能较单一,属性较少。
所以有name属性,没有caption属性。
(X)
9、列表框List属性是字符串数组,每个数组元素都是列表框中的一个列表项。
(√)
10、将定时器的时间间隔设置为1秒,那么定时器的Interval属性值应设为1。
(X)
二选择题
1、VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是____A____。
a)属性、事件、方法b)控件、属性、事件
c)窗体、控件、过程d)窗体、控件、模块
2、变量A%的类型是___A_。
a)Integerb)Singlec)Stringd)Boolean
3、下列哪一个是正确的变量名___D___。
a)$abcb)Intc)141abcd)abcf
4、函数int(abs(99-100)/2)的值为___B___。
a)1b)0c)“0”d)“1”
5、执行下列程序后,x的值为___C___。
x=3
y=6
DoWhiley<=6
x=x*y
y=y+1
Loop
a)3b)6c)18d)20
6、下列程序的执行结果为___A__。
a=100
b=50
Ifa>bThen
a=a-b
Else
b=b+a
Endif
Printa
a)50b)100c)200d)10
7、如果要在文本框中输入字符时,只显示某个字符,如星号(*),应设置文本框的____B___属性。
a)Captionb)PasswordChar
c)Textd)Char
8、___C___属性决定了按Tab键时焦点在各个控件之间移动的顺序。
a)Indexb)TabStop
c)TabIndexd)SetFocus
9、若要获得滚动条的当前值,可访问的属性是___B___。
a)Textb)Valuec)Maxd)Min
10、为使计时器控件每隔5秒钟产生一个计时器事件(timer事件),则应将其Interval属性值设置为__D____。
a)5b)500c)300d)5000
三填空题
1、caption__属性用来设置窗体的标题。
它确定和改变显示在窗体的标题栏中的文本。
2、表达式“12345”<>“12345ABC”的值是_ture__。
3、表达式:
Mid("SHANGHAI",6,3)的值是__HAI_。
4、字符串型数据的类型标识符为__﹩_。
5、当程序开始运行,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的属性窗口中,把此文本框的_text_属性设置为空。
6、假定有一个文本框,其名称为Textl,为了使该文本框具有焦点,应执行的语句是__text1.setfocus_。
7、VisualBasie提供了列表框控件,当列表框中的项目较多、超过了列表框的长度时,系统会自动在列表框边上加一个__滚动条__。
8、以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
PrivateSubCommand_Click()
DimxAsDouble
Fori=0To1000
If_imod2=0___Then
x=x+i
EndIf
Nexti
Printx
EndSub
9、执行下面的程序段后,b的值为_300____。
a=300
b=20
a=a+b
b=a-b
a=a-b
10、在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Printa+b
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为__321456____。
11、字符串aa=“KUNMING”,要求依次输出以下结果:
GNIMNUK,请补全程序代码。
a1=len(aa)
Fori=0toa1
a2=mid(aa,a1-i,1)
printa2
Nexti
12、要求将文本框中输入的成绩转换为五级分,请补全代码。
Score=val(text1.text)
Selectcasescore
Case0to59
Print“不及格”
Case60to69
Print“及格”
…
Endselect
13、要求输出以下对话框信息
Msg1=MsgBox("请输入密码:
",33,"提示信息")
14、要求设计一个时钟,请补全代码所在的位置
PrivateSubForm_Load()
Timer1.Interval=100
EndSub
PrivateSubtimer1.time()
Text1.Text=Time
EndSub
选择题
(1)以下叙述中错误的是(B)
A.VisualBasic是事件驱动型可视化编程工具
B.VisualBasic应用程序不具有明显的开始和结束语句
C.VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D.VisualBasic中控件的某些属性只能在运行时设置
(2)以下叙述中错误的是(D)
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
(3)下列不能打开属性窗口的操作是(C)
A.执行“视图”菜单中的“属性窗口”命令
B.按F4键
C.按Ctrl+T
D.单击工具栏上的“属性窗口”图标
(4)以下不属于VisualBasic系统的文件类型是(B)
A..frmB..batC..vbgD..vbp
(5)以下叙述中错误的是(C)
A.打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B.保存VisualBasic程序时,应分别保存窗体文件及工程文件
C.VisualBasic应用程序只能以解释方式执行
D.事件可以由用户引发,也可以由系统引发
(6)设窗体上有一个列表框控件List1,且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是(D)
A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text
(7)如果希望一个窗体在显示的时候没有边框,应该设置的属性是(C)
A.将窗体的标题(Caption)设成空字符
B.将窗体的Enabled属性置成False
C.将窗体的BorderStyle属性置成None
D.将窗体的ContalBox置成False
(8)通过(B)窗口可以在设计时直观的调整窗体在屏幕上的位置。
A.代码窗口B.窗体布局窗口C.窗体设计窗口D.属性窗口
(9)表达式(10>1)Xor(Not(5<6))的值是(A)
A.TrueB.FalseC.表达式语法错误D.表达式有多种结果
(10)设有如下声明:
DimXAsInteger
如果Sgn(X)的值为—1,则X的值是(D)
A.整数B.大于0的整数C.等于0的整数D.小于0的整数
(11)设a=3,b=5,则以下表达式值为真的是(B)
A.a>=bB.(a>b)Or(b>0)C.(a<0)Eqv(b>0)D.(-3+5>a)And(b>0)
(12)设a=“VisualBasic”下面使b=“Basic”的语句是(B)
A.B=Left(a,8,12)B.b=Mid(a,8,5)C.b=Right(a,5,5)D.b=Left(a,8,5)
(13)表达式4+5\6*7/8Mod9的值()
A.4B.5C.6D.7
(14)执行下面程序段后,b的值是(C)
a=300
b=20
a=a+b
b=a-b
a=a-b
A.20B.280C.300D.320
(15)关于复选框和单选钮的比较中正确的是(D)
A.复选框和单选钮都只能在多个选择项中选定一项
B.复选框和单选钮的值(value)都是(True/False)
C.单选钮和复选框都响应DblClick事件
D.要使复选框不可用,可设置Enabled属性(False)和value属性(Grayed)
(16)设x=4,y=8,z=7,以下表达式的值是(D)
X A.1B.-1C.TrueD.Fasle(17)程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(C) A.MouseDownB.MouseUpC.LoadD.Click (18)设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(B) A.TrueB.FalseC.1D.出错信息 (19)如果要改变窗体的标题,则需要设置的属性是 (A) A.CaptionB.NameC.BackColorD.BorderStyle (20)以下循环语句中在任何情况下都至少执行一次循环体的是(C) A.DoWhile<条件> B.While<条件> 循环体 循环体 Loop Wend C.Do D.DoUntil<条件> 循环体 循环体 LoopUntil<条件> Loop (21)以下关于焦点的叙述中,错误的是(A) A.如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 B.当文本框失去焦点时,触发LostFocus事件 C.当文本框的Enabled属性为False时,其Tab顺序不起作用 D.可以用TabIndex属性改变Tab顺序 (22)设有以下循环结构(A) Do 循环体 LoopWhile<条件> 则以下叙述中错误的是 A.若"条件"是一个为0的常数,则一次也不执行循环体 B."条件"可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用ExitDo语句 D.如果"条件"总是为True,则不停地执行循环体 (23)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimnumAsInteger num=1 DoUntilnum>6 Printnum; num=num+2.4 Loop EndSub 程序运行后,单击命令按钮,则窗体上显示的内容是(B) A.13.45.8B.135C.147D.无数据输出 (24)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimaAsInteger,sAsInteger a=8 s=1 Do s=s+a a=a-1 LoopWhilea<=0 Prints;a EndSub 程序运行后,单击命令按钮,则窗体上显示的内容是(C) A.79B.340C.97D.死循环 (25)在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: OptionBase1 PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=1To5 Ifx(i)>cThen d=d+x(i) c=x(i) Else d=d-c EndIf Nexti Printd EndSub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为(C) A.89B.99C.23D.77 (26)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenm=m+n\3 Nextn Printn EndSub 程序运行后,如果单击命令按钮,则窗体上显示的内容是(C) A.15B.18C.21D.24 (27)在窗体上画一个名称为Text1的文本框,并编写如下程序: PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocus EndSub PrivateSubForm_MouseUp() Print"程序设计" EndSub PrivateSubText1_KeyDown() Print"VisualBasic"; EndSub 程序运行后,如果按"A"键,然后单击窗体,则在窗体上显示的内容是(D) A.VisualBasicB.程序设计 C.A程序设计D.VisualBasic程序设计 (28)设有如下程序: PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble sum=0 n=0 Fori=1To5 x=n/i n=n+1 sum=sum+x Next EndSub 该程序通过For循环计算一个表达式的值,这个表达式是 (C) A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+3/4 C.1/2+2/3+3/4+4/5D.1+1/2+1/3+1/4+1/5 (29)以下有关数组定义的语句序列中,错误的是(B) A.Staticarr1(3)B.Dimarr2()AsInteger C.OptionBase1D.DimnAsInteger (30)下列VisualBasic程序段运行后,变量a,b,c的值为(C) A=1: b=1: c=1 Dowhilea+b+c<=10 A=a+1 B=b*2 C=b/2 Loop A.221B.342C.484D.442 二、填空题(每题1.5分,共15分) (1)VisualBasic6.0中应用___可视化______的程序设计方法,采用____事件_____驱动的编程机制。 (2)VisualBasic6.0有三种工作模式: __设计___、__运行___、_中断___。 (3)在VisualBasic6.0的集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是___中断_____。 (4)表达式Fix(-32)+Int(-24)的值为_____-56___。 (5)执行下面的程序段后,i的值为4.8,s的值为5。 s=2 Fori=3.2To4.9Step0.8 s=s+1 Nexti (6)当一个过程结束时,过程中所用到的静态变量的值会保留,下次再调用此过程时,变量的初值是上一次结束的值。 (7)在VisualBasic6.0中,字符串常量要用双引号括起来。 (8)下面程序的功能是当窗体装入弹出消息框显示“欢迎你”3个字。 请将下列程序补充完整。 PrivateSubForm____load___() __intresult=msgbox___("欢迎你") EndSub (9)逻辑型数据的值有ture、fasle两种。 (10)Abs(-3.8)=3.8,Sqr(49)=7,Int(-8.9)=-9,Int(10*Rnd())表示在[0,10)之间的数取整。 三、编程题(第1题10分,第2题15分,共25分) (1)求一元二次方程ax2+bx+c=0的根,输入a、b、c的值判断方程的解,并显示。 提示: a=0,则不为一元二次方程,当a不等于零时方程的根有三种情况。 在程序代码中有所体现。 解: 程序如下: PrivateSubCommand1_Click() Dima,b,c,x1,x2,dAsSingle a=Text1.Text b=Text2.Text c=Text3.Text x1=Text4.Text x2=Text5.Text d=b*b-4*a*c Ifa=0Then MsgBox("a,不能为0,请重新输入") Else Ifd<0Then MsgBox("一元二次方程无实根") ElseIfd=0Then x1=-b/(2*a) x2=-b/(2*a) Text4.Text=x1 Text5.Text=x2 ElseIfd>0Then x1=(-b+Sqr(d))/(2*a) x2=(-b-Sqr(d))/(2*a) Text4.Text=x1 Text5.Text=x2 EndIf EndIf EndSub PrivateSubCommand2_Click() End EndSub 2.请设计K9652车次火车时刻表查询程序,要求实现: (1)进行控件界面布局; (2)在列表框控件中选择“车站”,在文本框控件中则显示相应“到站”(不要求做字体字号修饰)。 车站 到站 昆明 08: 42 玉溪 10: 34 通海 11: 20 建水 12: 03 蒙自 12: 37 解: 1)界面布局: 2)程序如下: PrivateSubCommand2_Click() Unloadlaixiangfu04 EndSub PrivateSubForm_Load() Label1.Caption="昆明——蒙自K9652火车时刻表" Label1.FontName="黑体" Label1.FontSize=25 Label1.ForeColor=RGB(0,0,255) Label1.Alignment=2 List1.AddItem"昆明" List1.AddItem"玉溪" List1.AddItem"通海" List1.AddItem"建水" List1.AddItem"蒙自" List1.FontName="黑体" List1.FontSize=20 Label2.Caption="" Label2.BorderStyle=1 Label2.FontSize=22 Label2.ForeColor=RGB(255,0,0) EndSub PrivateSubList1_Click() SelectCaseList1.ListIndex case0 Label1.Caption=List1.List(0)+"始发时间: 08: 42" case1 Label1.Caption="到"+List1.List (1)+"站时间: 10: 32" case2 Label1.Caption="到"+List1.List (2)+"站时间: 11: 20" case3 Label1.Caption="到"+List1.List(3)+"站时间: 12: 03" case4 Label1.Caption="到"+List1.List(4)+"站时间: 12: 37" EndSelect EndSub 3.使用调用过程方式编制求闰年程序,要求可以输入计算闰年的范围。 解: 程序如下: PrivateSubCommand1_Click() Callrn EndSub PublicSubrn() DimaAsInteger DimbAsInteger DimiAsInteger a=InputBox("输入a") b=InputBox("输入b") Print"a年至b年之间的闰年: " Fori=aTob IfiMod4=0AndiMod100<>0Or(iMod400=0And(iMod100)=0)Then Printi EndIf Nexti EndSub PrivateSubCommand2_Click() End EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末 考试题