程序设计基础VB.docx
- 文档编号:29053532
- 上传时间:2023-07-20
- 格式:DOCX
- 页数:16
- 大小:58.03KB
程序设计基础VB.docx
《程序设计基础VB.docx》由会员分享,可在线阅读,更多相关《程序设计基础VB.docx(16页珍藏版)》请在冰豆网上搜索。
程序设计基础VB
《程序设计基础VB》期末试卷(A)
使用专业、班级学号姓名
题 数
一
二
三
总 分
得 分
本题
得分
一、选择题〖每题1分,共计35分〗;
1.下列有关对象的叙述中,正确的是()。
A.对象由属性、事件和方法构成
B.对象的所有属性既可以在属性窗口设置,又可以在程序运行时用赋值语句设置
C.对象的事件一定就是由VB预先设置好的人工干预的动作
D.对象的方法是对象响应某个事件后所执行的一段程序代码
2.在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是()。
A.Form2.UnloadB.UnloadForm2C.Form2.EndD.Form2.Hide
3.应用程序窗体的名称属性为Frm1,窗体上有一个命令按钮,其名称属性为Cmd1,窗体和命令按钮的Click事件过程名分别为()。
A.Form_Click()Command1_Click()B.Frm1_Click()Command1_Click()
C.Form_Click()Cmd1_Click()D.Frm1_Click()Cmd1_Click()
4.运行状态,在文本框Txtinput中输入“ABC”时,窗体上显示()。
PrivateSubTxtinput_Change()
PrintTxtinput.Text;
EndSub
A.AABABCB.ABCC.AD.A
ABB
ABCC
5.若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用()控件作容器将它们分开。
①TextBox②PictureBox③Image④Frame
A.①或②B.②或③C.②或④D.③或④
6.要使一个文本框能显示多行信息,并具有水平和垂直滚动条,应先设置()。
A.MultiLine属性置为True,ScrollBar属性设置为3
B.AutoSize属性置为True,ScrollBar属性设置为True
C.Alignment属性置为True,Style属性设置为2
D.MultiLine属性置为True,ScrollBar属性设置为True
7.设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True,要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是()。
A.PrivateSubTimer1_Timer()
Label1.Caption=True
EndSub
C.PrivateSubTimer1_Timer()
Label1.Interval=1
EndSub
B.PrivateSubTimer1_Timer()
Label1.Caption=Time$
EndSub
D.PrivateSubTimer1_Timer()
Label1.Text=Time
EndSub
8.若看到程序中有以下事件过程,则可以肯定的是,当程序运行时()。
PrivateSubClick_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,_
YAsSingle)
IfButton=2ThenPrint“VBProgram”
EndSub
A.鼠标右键按下Command1对象,执行此过程
B.鼠标右键单击Click对象,执行此过程
C.鼠标左键单击Click对象,执行此过程
D.鼠标左键按下MouseDown对象,执行此过程
9.窗体上有名为Option1的单选按钮,则以下语句中与IfOption1.Value=TrueThen不等价的是()。
A.IfOption1.ValueThenB.IfOption1=TrueThen
C.IfValue=TrueThenD.IfOption1Then
10.文本框Text1的KeyDown事件过程如下:
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
EndSub
其中参数KeyCode的值表示的是发生此事件时()。
A.是否按下了Shift键B.按下的是哪个数字键
C.所按的键盘键的键码(扫描码)D.所按的键盘键的Ascii码
11.
窗体上有一个用菜单编辑器设计的菜单。
运行程序,并在窗体上单击鼠标右键,则弹出快捷菜单。
如图所示。
以下叙述中错误的是()。
A.在设计“粘贴”菜单项时,在菜单编辑器窗口中设置“有效”属性(有“√”)
B.菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符
C.在设计“选中”菜单项时,在菜单编辑器窗口中设置“复选”属性(有“√”)
D.在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了“可见”前面的“√”
12.执行以下语句时,会出现错误提示的是()。
A.Print“2b3”+12.5B.Print“12.5”+12
C.Print“12.5”&12.5D.Print“2e3”+12
13.设变量D为Date型、A为Integer型、S为String型、L为Long型,下面赋值语句中不能执行的是()。
A.D=#12:
30:
00PM#B.A=“3277e1”
C.S=NowD.L=“4276D3”
14.数学表达式
对应的VisualBasic表达式是()。
A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)
B.(Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y))
C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y))
D.(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))
15.窗体上有一个名称为Command1的命令按钮,其事件过程如下:
PrivateSubCommand1_Click()
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
c=MsgBox(a,,b)
EndSub
运行程序后单击命令按钮,以下叙述中错误的是()。
A.信息框的标题是BasicB.信息框中提示信息是programming
C.c的值是函数的返回值D.MsgBox的使用格式有错
16.下面的关系表达式中,运算结果为True的是()。
A.Cint(1.5)=Int(1.5)B.Fix(1.5)=Int(1.5)
C.Fix(-1.5)=CInt(-1.5)D.Fix(-1.5)=Int(-1.5)
17.运行下面程序,单击命令按钮Command1则立即窗口上显示的结果是()。
PrivateSubCommand1_Click()
DimAAsInteger,BAsBoolean,CAsInteger,DAsInteger
A=20/3:
B=True
C=B:
D=A+C
Debug.PrintA,D,A=A+C
EndSub
A.7611B.6511
C.76FalseD.运行出错
18.以下Case语句中,能正确描述Y的绝对值大于6的是()。
A.CaseAbs(Y)>6B.Case-6To6
C.CaseNot(-6To6)D.CaseIs<-6,Is>6
19.可以把变长字符串S中的第一个“ABC”子串,替换成“1234”的语句是()。
A.S=Left(S,InStr(S,"ABC"))&"1234"&Right(S,Len(S)-InStr(S,"ABC")-2)
B.Mid(S,InStr(S,"ABC"),3)="1234"
C.Mid(S,InStr(S,"ABC"),4)="1234"
D.S=Left(S,InStr(S,"ABC")-1)&"1234"&Right(S,Len(S)-InStr(S,"ABC")-2)
20.运行程序产生死循环时,按()可以中断程序运行。
A.Ctrl+CB.EscC.Ctrl+BreakD.“停止运行”按钮
21.阅读程序:
PrivateSubForm_Click()
a=0
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
程序运行后,单击窗体,输出的结果是()。
A.105B.1C.120D.15
22.以下能够正确计算n!
的程序是()。
A.PrivateSubCommand1_Click()
n=5:
x=1
Do
x=x*i:
i=i+1
LoopWhilei Printx EndSub C.PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i: i=i+1 LoopWhilei<=n Printx EndSub B.PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i: i=i+1 LoopWhilei Printx EndSub D.PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i: i=i+1 LoopWhilei>n Printx EndSub 23.运行程序,单击Command1,显示的结果为()。 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,cAsInteger,iAsInteger a=2: b=10: c=1 Fori=cTo2*bStepa a=a+2 i=i+1 c=2*c Ifa>=10ThenExitFor b=b-3 Nexti Printi,a,b,c EndSub A.1110116B.161444 C.2010-46D.10868 24.在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dimi,num Randomize Do Fori=1To1000 num=Int(Rnd*100) Printnum; SelectCasenum Case12: ExitFor Case58: ExitDo Case65,68,92: End EndSelect Nexti Loop EndSub 上述事件过程执行后,下列描述中正确的是()。 A.Do循环执行的次数为1000次 B.在For循环中产生的随机数小于或等于100 C.当所产生的随机数为12时结束所有循环 D.当所产生的随机数为65、68或92时窗体关闭、程序结束 25.以下程序功能是根据用户输入的n,求任意n位数的Armstrong数(一个n位数等于其各位数的n次方之和)。 PrivateSubcommand1_click() DimnAsInteger,iAsDouble,jAsInteger,sumAsDouble,xAsString n=Val(InputBox("请输入数据的任意位数")) sum=0 Fori=10^(n-1)To10^n-1 x=i Forj=1ToLen(x) sum=sum+Val(Mid(x,j,1))^Len(x) Nextj Ifsum=iThenPrinti Nexti EndSub 执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是()。 A.把sum=0移动到Fori循环内,Forj循环前B.把x=i改为x=Str(i) C.把x=i改为x=CStr(i)D.同时进行选项A和C的修改 26.下面有关数组的叙述中,不正确的是()。 ①在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 ②数组作为形式参数时,传递的是每个数组元素的值 ③在窗体模块的通用声明处可以用Public说明一个全局数组 ④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A.②③B.①③④C.①②③④D.③④ 27.下列有关控件数组的说法中,错误的是()。 A.控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程 D.控件数组中每个元素的下标由控件的Index属性指定 28.在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码: PrivateSubForm_Click() Dima,SAsInteger,i S=0 a=Array(1,3,5,7,9,11,13,15,17,19,21,23) ForEachiIna Ifi/3<>i\3ThenS=S+i Next PrintS;a (2) EndSub 程序运行后,单击命令按钮,其输出结果是()。 A.33B.245C.483D.965 29.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dimarray1(10,10)AsInteger DimiAsInteger,jAsInteger Fori=2To3 Forj=1To2 array1(i,j)=InputBox("请输入数据") Nextj Nexti Text1.Text=array1(3,1)+array1(3,4) EndSub 程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6、8,则在文本框中显示的值是()。 A.2B.4C.6D.8 30.以下关于过程及过程参数的描述中,错误的是()。 A.过程的参数可以是控件名称 B.调用过程时使用的实参的个数应与过程形参的个数相同 C.只有函数过程能够将过程中处理的信息返回到调用程序中 D.窗体可以作为过程的参数 31.以下关于变量作用域的叙述中,正确的是()。 A.过程运行结束后,过程的静态变量的值仍然保留,所以静态变量生命周期是整个模块 B.模块级变量只能用Dim语句声明 C.窗体中凡用Private声明的变量只能在某个指定的过程中使用 D.当不同作用域的同名变量发生冲突时,优先访问局限性小的变量 32.在窗体模块代码窗口的通用声明处,可以使用()语句说明数组。 ①PublicA(10)AsInteger②DimA(10)AsInteger ③PrivateA(10)AsInteger④StaticA(10)AsInteger A.①②B.②③C.③④D.①④ 33.若在模块中用PrivateFunctionFun(AAsSingle,BAsInteger)AsInteger定义了函数Fun。 调用函数Fun的过程中定义了i、j和k三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是()。 A.Fun3.14,jB.K=Fun(“24”,“35”)C.CallFun(i,365)D.Fun(i),(j) 34.设有如下通用过程: PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL/2 DoWhilei<=strL tStr=tStr&Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr&tStr EndFunction 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。 然后编写如下的事件过程: PrivateSubCommand1_Click() DimS1AsString S1="ABCDEF" Text1.Text=LCase(Fun(S1)) EndSub 程序运行后,单击命令按钮,文本框中显示的是()。 A.ABCDB.abcdefC.defdefD.defabc 35.设有如下的用户定义类型 TypeStudent NumberAsString NameAsString ageAsInteger EndType 则以下正确使用该类型成员的代码是()。 A.Student.Name="李明" B.DimsAsStudent s.Name="李明" C.DimsAsTypeStudent s.Name="李明" D.DimsAsType s.Name="李明" 本题 得分 二、填空题〖每空2分,共计50分〗; 1.为了在运行时把d: \pic文件夹下的图形文件a.jpg装入图片框picture1,所使用的语句为 (1)。 2.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: PrivateSubCommand1_Click() CommonDialog1.Filter="AllFiles|*.*|TextFiles|*.txt|BatchFiles|*.bat" CommonDialog1.FilterIndex=2 CommonDialog1.ShowOpen EndSub 程序运行后,单击命令按钮,此时在打开的对话框“文件类型”框中显示的是 (2)。 3. VB提供了结构化程序设计的三种基本结构,分别是顺序结构、分支结构和(3)结构。 4.如图所示有两个列表框,左侧List1列表框可以多项选择,请完善以下程序,要求双击List1中的某一项时,被选中的项目被添加到右侧List2中,同时清除List1中相应项目,若单击按钮,List1中所有选中的项目显示在List2中,而List1中的内容不变。 PrivateSubList1_DblClick() List2.AddItemList1.Text List1.(4) EndSub PrivateSubCommand1_Click() Fori=0To(5) IfList1.Selected(i)ThenList2.(6) Next EndSub 5.下面的事件过程执行结束后,K的值是(7),程序中第二个循环被执行了(8)次, 程序中第三个循环被执行了(9)次。 OptionBase1 PrivateSubCommand1_Click() DimA(10)AsInteger,iAsInteger,KAsInteger Fori=1To10 A(i)=1 Nexti K=4 ForK=1ToKStepK A(K)=0 K=K+3 NextK ForK=KTo10Step-1 A(K)=K K=K+2 NextK EndSub 6.运行下面的程序,单击Command1,在窗体上显示的变量A的值为(10),变量B的值为(11)。 OptionExplicit DimAAsInteger PrivateSubCommand1_Click() DimBAsInteger B=3 A=4 B=Fun(Fun(A,B+2),A)+B PrintA,B EndSub PrivateFunctionFun(NAsInteger,KAsInteger) N=N+A K=N-K Fun=N+K+A EndFunction 7.下面程序的功能是求序列: 1/2、2/3、3/5、5/8、8/13、13/21、……前若干项的和,项数由文本框输入。 试完善程序使其达到功能要求。 OptionExplicit PrivateSub计算_Click() DimnAsInteger,a1AsInteger,a2AsInteger DimiAsInteger,tAsSingle,sAsSingle n=Val(Text1.Text) a1=1 a2=2 Fori=1Ton (12) s=s+t a2=a1+a2 (13) Nexti Text2=s EndSub 8. 以下程序功能: 利用图片框输出3*4矩阵A中每一行的最大值以及最大值所在的列(矩阵中的
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 基础 VB