Vb期末考试题

Vb期末考试题

ID:42102225

大小:103.50 KB

页数:10页

时间:2019-09-08

Vb期末考试题_第1页
Vb期末考试题_第2页
Vb期末考试题_第3页
Vb期末考试题_第4页
Vb期末考试题_第5页
资源描述:

《Vb期末考试题》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、VB期末考试一:选择题1.VisualBasic窗体设计器的主要功能是(A)A:建立用户界面B:编辑源程序代码C:画图D:显示文字2:为了把窗体上的某个控件变为活动的,应该执行的操作是(B)A:单击窗体的边框B:单击该控件内部C:双击该控件D:双击窗体3:设a=3,b=4,c=5,d=5,下列表达式的值是(A)a>2anda=cor2*a>cA:TrueB:falseC:-1D:14:执行语句s=Len(“VB程序设计”)后,s的值是(C)A:10B:12C:6D:15,下列不属于Text文本框的属性的是(D)A:nameB:captionC:TextD:Min6:若要求输入密码时,文本框

2、显示“#”,则使用的语句为(C)A:Text1.Text=”#”B:Text1.charge=”#”C:passwordchar=”#”7:下面的语句所定义的数组的元素个数是(D)DimA(-3To5)AsIntegerA:6B;7C:8D;98:使文本框获得焦点的方法是(C)A:chargeB:GotFocusC:SetFocusD;LostFocus9:设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D)A;5B:6C:0D:-110:过程中,数组以传值方式传递的关键字是(C)A:ByRefB:ByWayC:ByVal11:函数string(2,”AB”)的返回值是(B)A

3、:BBB:AAC:ABD:BA12:执行以下语句后,窗体上显示的是(D)a=9.8596PrintFormat(a,”$00,00.00”)A:$00,09.86B:$9.86C:9.26D:$0,009.8613:删除列表框指定的项目使用的方法是(B)A:moveB:removeItemC:clearD:remove14:与传统的程序设计语言相比,VB最突出的特点是(C)A、结构化程序设计  B、程序开发环境C、事件驱动编程机制  D、程序调试技术15:确定一个窗体或控件的大小的属性是( B  )A、Width或Height  B、Width和Height C、Top或Left  D、T

4、op和Left16:下列可作为VB变量名的是(B)A:4*DoitaB:AlphaC:4ABCD:ABπ17.以下程序输出的结果是(B)x=1y=4DoUntily>4x=x*yy=y+1LoopPrintxA:1B:4C:8D:2018.下列程序输出的结果是(D)OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSubA:4321B:12C:34D:1234二:填空题1.VB面向对象的三要素是属性、事件、方法。2.工程文件的扩展名

5、为.vbp,窗体文件的扩展名为.frm3.有一个名为Pic2.gif的图形文件,将它装入一个图片框,应执行的语句是:Picture1.picture=Loadpicture(“pic2.gif”)4.计时器之间的间隔通过Interval属性控制。5.整型数包括整数和长整数。6.A=“42315”,则Val(Left(A,4)+Mid(A,412))的返回值为4246。三:填空题1.设有以下程序x=1DoUntilx<17[或x<=16]x=x+3LoopPrintx要求程序循环五次2.随机产生10个同学的成绩,存在数组A中,并产生结果,请填空:Dima(10)Fori=1To10a(i)=

6、Int(Rnd*100)Printa(i)Nexti1.比较数大小,找3数中的中间值PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimmaxAsIntegerDimnAsStringa=Val(InputBox("输入第1个整数"))b=Val(InputBox("输入第2个整数"))c=Val(InputBox("输入第3个整数"))max=an="一"Ifb>maxThenmax=bn="二"EndIfIfc>maxThenmax=cn="三"EndIfMsgBox"三个数是:"&a&","&b&","&c&

7、vbCrLf&"最大的数是第"&n&"个:"&maxEndSubNdf》》》求zhongjianzhiPrivateSubForm_Click()Dima(3)AsIntegerDimiAsIntegerFori=1To3a(i)=InputBox("")NextiIfa(2)>a(1)Thent=a(1)a(1)=a(2)a(2)=tEndIfIfa(2)>a(3)Thenm=a(2)ElseIfa(1)>a(3)Th

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。