还剩8页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
VB程序设计复习题1.VisualBasic是一种___D___的可视化程序设计语言A.面向机器B.面向过程C.面向问题D.面向对象2.VisualBasic主窗口中不包括____B_____A.标题栏B.状态栏C.工具栏D.菜单栏3.程序运行中用鼠标双击当前窗体时,会触发窗体的_____C____事件A.LoadB.UnloadC.DblClickD.KeyPress4.假设窗体上已有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先要执行的操作是____A______A.单击窗体上没有控件的地方B.单击任一个控件C.双击任一个控件D.双击窗体上没有控件的地方
5、要设置窗体上各控件的属性,可在____C___中进行A.窗体布局窗口B.工程资源管理器窗口C.属性窗口D.窗体窗口6.设变量A的值为-2,则___A___函数的执行结果与其他三个不一样A.ValAB.IntAC.FixAD.-AbsA7.要在窗体Forml的标题栏上显示统计程序,可用___B___语句A.Forml.Name=统计程序B.Form
1.Caption=统计程序C.Forml.Caption=统计程序D.Forml.Name=统计程序8.函数Stringnstr的功能是BA.把数值型数据转换为字符串B.返回由n个字符组成的字符串C.从字符串中取出n个字符D.从字符串中第n个字符的位置开始取子字符串
9、定义变量如下DimMyVarMyVar=”comeseeme“若在立即窗口中显示MyVar的值,下面正确的是(A)A.Debug.PrintMyVarB、MyVarC.Printer.PrintMyVarD、PrintMyVar10.设置复选框或单选按钮标题对齐方式的属性是(D)A.AlignB.valueC.SortedD.Alignment
11、滚动条控件的LargeChange属性所设置的是(A)A.单击滚动条和滚动箭头之间的区域时,滚动条控件value属性值的改变量B.滚动条中滚动块的最大移动位置C.滚动条中滚动块的最大移动范围D.滚动条控件无该属性
12、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是(D)A.CaptionB.NameC.TextD.value
13、在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text
1、Text2,然后编写如下程序PrivateSubCommand1_Clicka=Text
1.textb=Text
2.textC=LcaseaD=UcasebPrintC;DEndSub程序运行后,在文本框Text
1、Text2中分别输入AbC和Efg,结果是(A)A.abcEFGB.abcefgC.ABCefgD.ABCEFG14.假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为(A)A.Label
1.BackStyle=0B.Label
1.BackStyle=1Label
1.BorderStyle=0Label
1.BorderStyle=1C.Label
1.BackStyle=TrueD.Label
1.BackStyle=FalseLabel
1.BorderStyle=TrueLabel
1.BorderStyle=False15.当拖动滚动条中的滚动块时,将触发滚动条的事件是(D)A.MoveB.ChangeC.SetFocusD.Scoll16.比较图片框(PictureBox)和图像框(Image)的使用,正确的描述是(C)A.两类控件都可以设置AutoSize属性,以保证装入的图形可以自动改变大小B.两类控件都可以设置Stretch属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形的所有部分C.当图片框(PictureBox)的AutoSize属性为FaLse时,只在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸D.当图像框(Image)的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框17.当利用Line方法进行绘图时,以下正确的说法是(B)A.有7种不同的线型,而且不管线宽多少都可以绘制虚线/点划线/点线B.使用Line100100-10001200和Line100100-Step9001100将绘制两条相同位置的直线C.可利用Line方法添加矩形,如Line300300-20002000BFD.可利用Line方法添加矩形,如Line300300-23002300B+F18.下面语句中错误的是(B)A.RedimPreserveMatrix10UboundMatrix2+1B.RedimPreserveMatrixUboundMatrix1+110C.RedimPreserveDynArrayUboundDynArray+1D.RedimDynArrayUboundDynArray+119.可以唯一标识控件数组中的每一个控件的属性是(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)DimAry3To6-2To2(A)20(B)16(C)24(D)
2523、下面对控件数组叙述正确的是(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.Text
1.Text=Space0B.Text
1.Text=0C.Text
1.Text=D.Text
1.Text=Space1E.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.Picture
1.DelB.Picture
1.Picture=LoadPictureC.Picture
1.Picture=LoadPictureD.Picture
1.Picture=NothingE.Picture
1.Cls
5、执行程序时,自动发生的窗体事件是(ACD)A.LoadB.ClickC.ActivateD.InitializeE.LostFocus
三、判断题
1.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可F
2.可以把属性看作是一个对象的性质T
3.TextBox与Label有许多共同的特点,它们都能显示和输入文字F
4.所有对象的属性都可以在属性窗口中设定F
5.标签没有change事件和setFocus方法T
7.Msgbox函数建立的信息框既能显示信息又能输入用户的信息F
8.Do…LoopUntil语句实现循环时,不管条件真假,首先无条件地执行一次循环T
9.函数Str23与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_ClickIndexAsIntegerDimsAsSingles=0Fork=0ToIndexs=s+valtext1k.textNextLabel
1.Caption=sEndSub
7、运行时,单击窗体,输出如图所示结果PrivateSubForm_ClickClsFor_I=1to9__PrintTab15-i;PrintString2*i-148+INextiEndSub
五、读程序
1、在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序;PrivateSubCommand1_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleIfButton=2ThenPrint12345EndIfEndSubPrivateSubCommand1_MouseUpButtonAsIntegerShiftAsIntegerXAsSingleYAsSinglePrint67890EndSub程序运行后,在命令按钮上单击鼠标右键,则在窗体上显示的内容是
(1234567890)
2、在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码PrivateFunctionfunxAsLongAsBooleanIfxMod20Thenfun=TrueElsefun=FalseEndIfEndFunctionPrivateSubCommand1_ClickDimnAsLongn=Valtext
1.Textp=IIffunn奇数偶数Lable
1.Caption=n是一个pEndSub程序运行后,在文本框中输入20,单击命令按钮后,标签中的内容为(20是一个偶数)
3、下面程序的运行时,单击命令按钮后,显示结果是
(5)PrivateSubCommand1_Clicka=Array33768921104457692871b=Array25458990162783628375Fori=UBoundaToLBoundaStep-1IfaibiThenc=c+1NextiPrintcEndSub
4、在窗体中添加一个命令按钮(Name属性为Command1),然后编写如下代码PrivateSubCommand1_ClickDimarr110AsIntegerarr210AsIntegern=3Fori=1To5arr1i=iarr2n=2*n+iNextiPrintarr2n;arr1nEndSub程序运行后,单击按钮,输出结果为
(113)
5、程序运行时,单击窗体后,键盘输入763458,则标签Label1中的结果是
(33)PrivateSubform_ClickDimxAsLongDimsAsIntegerkAsIntegermAsIntegerx=ValInputBox请输入一个整数Dom=xMod10s=s+mx=x\10LoopWhilex0Label
1.Caption=sEndSub
六、程序设计题
1、随机产生49个2位的正整数,然后在指定位置插入一个数(插入的数n和位置p均从键盘输入),最后将这50个数按每行5个数的格式在窗体上输出Dima49AsIntegerPrivateSubCommand1_ClickDimnAsIntegerpAsIntegeriAsIntegern=ValInputBoxpleaseinputanumber:p=ValInputBoxpleaseinputtheplace:Fori=48TopStep-1ai+1=aiNextiap=nPrintafterinsertFori=0To49Printai;Ifi+1Mod5=0ThenPrintEndIfNextiEndSubPrivateSubForm_ActivateDimiAsIntegerFori=0To48ai=IntRnd*90+10NextiPrintbeforeinsertFori=0To48Printai;Ifi+1Mod5=0ThenPrintEndIfNextiPrintEndSub
2、编写命令按钮Command1的Click事件过程,找出100-1000范围内所有能同时被3和7整除的自然数要求在列表框List1中输出满足条件的自然数PrivateSubCommand1_ClickDimiAsIntegerFori=100To1000IfiMod3=0AndiMod7=0ThenList
1.AddItemiEndIfNextiEndSub
3、编写命令按钮Command1的Click事件过程,随机产生10个两位数,求出其平均值显示在文本框Text1中PrivateSubCommand1_ClickDimiAsIntegerxAsIntegersAsLongs=0Fori=1To10x=IntRnd*90+10s=s+xNextiText
1.Text=s/10EndSub。