11-12年VB期末试题(强烈推荐).doc

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
11-12年VB期末试题(强烈推荐)

2008—2009 《程序设计基础(VB)》课程试卷A 一、选择题(共50小题,每小题1分,共50分) 1.标签控件能够显示文本信息,文本内容可通过( )属性来设置。 A.Aligment B.Caption C.Visible D.BoderStyle 2.下列符号( )是Visaul Basic中合法变量名。 A.x23 B.8xy C.END D.X8[B] 3.能够改变窗体边框线型的属性是( )。 A.FontStyle B.BorderStyle C.BackStyle D.Border 4.Visual Basic中窗体文件的扩展名是( )。 A..vbp B..frm C..vbw D..pdm 5.设定文本框内的文字内容是否允许修改的属性是( )。 A.Text B.Locked C.PasswordChar D.multiLine 6.在窗体上建立一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() a=12 b=34 c=56 Print a+b+c End Sub 程序运行后,单击命令按钮输出结果是( ) A.123456 B.123456 C.102 D.显示出错信息 7.定义含有10个元素的单精度实型一维数组正确的语句是( ) A.Dim a(9) As Single B.Option Base 1:Dim a(9) C.Dim a#(9) D.Dim a(10) As Integer 8.下列说法正确的是() A.任何时候多可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 B.只有当代码窗口位活动窗口时,才能打开菜单编辑器 C.只有当某个窗体为活动窗体时,才能打开菜单编辑器 D.任何时候都可以使用“工具”菜单下的“菜单编辑器”菜单项,打开菜单编辑器 9.下列叙述不正确的是( ) A.命令按钮的默认属性为Caption B.标签的默认属性为Caption C.复选框的默认属性为Caption D.滚动条的默认属性为Value 10.下列语句都是在Form中定义的,哪一个是( ) A.Public Const a1=2u B.Private Cont a2=8 C.Public a3 As Integer D.Private a4 As Integer 11.能够获得一个文本框中被选取文本内容的属性是( )。 A.Text B.Length C.SelText D.SelStart 12. Visual Basic集成开发环境的窗口中不包括()。A.标题栏 B CD3 ^ 5 / 20 + 6 \ 3 Mod 2计算的结果为(  ) A.12.15 B.6.15 C.12 D.6 17.下面正确的赋值语句是( )。 A.x=10 B.30x=1 C.y*x=1 D.x=1,y=1 18.下面求两个数中的最大数的程序段正确的是( )。 A.If xy Then Max=x B.Max=IIf ( x y , y , x ) C.If xy Then Max=y D.以上均不对 19. 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum =Sum+a(i) Next i x=Sum/5 For i =1 To 5 If a(i)x Then Print a(i); Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是A.1 2 B.1 2 3 C.3 4 5 D.4 5 20.下列语句中正确定义子过程的是( )。 A.Dim Sub abc(x,y) B.Public abc (x,y) C.Private Sub abc(x,y)As Integer D.Sub abc(x),(y) 21. 阅读程序: Private Function F( x As Integer) As Integer b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As I

您可能关注的文档

文档评论(0)

haihang2017 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档