可视化程序设计VB模拟题1.docxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
可视化程序设计VB模拟题1

窗体顶端 一、单项选择题:(每小题2分,共24分) 1、下列哪个符号能作为VB中的变量名(  )。 A、AB7 B、7AB C、IF D、A[B]7 2、“X是小于100的非负数”,用VB表达式表示正确的是(  )。 A、0≤x<100 B、0<=X<100 C、0≤X OR X<100 D、0<=X AND X<100 3、数学式子Sin25°写成VB表达式是(  )。 A、Sin25 B、Sin(25°) C、Sin(25) D、Sin(25*3.14/180) 4、下列哪组语句可以将变量A、B的值互换(  )。 A、A=B:B=A B、A=C:C=B:B=A C、A=A+B:B=A-B:A=A-B D、A=(A+B)/2:B=(A=B)/2 5、函数Int(Rnd (0)*10)是在哪个范围内的整数(  )。 A、(0,1) B、(1,0) C、(0,10) D、(1,9) 6、一个对象可以执行的动作与可被对象识别的动作分别称为(  )。 A、事件、方法 B、方法、事件 C、属性、方法 D、过程、事件 7、在窗体Form1的Click事件过程中有以下语句:Label1.Caption=“欢迎使用VB”该语句执行后标签控制的名称属性和Caption属性取值分别为(  )。 A、Label,欢迎使用VB B、Label1,欢迎使用VB C、Label1,Caption D、Label1,Label1 8、在调用过程时,下述说明正确的是(  )。 A、只能使用Call语句用Sub过程 B、调用Sub过程时,实参必须用括号括起来 C、在表达式中调用Function过程时可以不用括号把实参括起来 D、Function过程也可使用Call调用 9、设S1、S2均为字符串变量,S1=“Visual Basic”S2=“b”,则下面关系表达式中结果为True的是(  )。 A、len(S2)>len(S1) B、Chr(66)Right(S1,4)=“Basic” C、Left(S1,8)<S2 D、Mid(S1,8,1)>S2 10、下面哪个关键字是将光标设置到指定的文本框上(  )。 A、Text B、Name C、select D、SetFocus 11、在用菜单编辑器设计菜单时,必须输入的项有(  )。 A、快捷键 B、标题 C、索引 D、名称 12、定时器的Interval属性以(  )为单位指定Timer事件之间的时间间隔。 A、分 B、秒 C、毫秒 D、微秒 窗体底端 二、填空题:(每空1分,共26分) 1、VB程序执行的基本方法是由来驱动子程序的运行。 2、开发一个VB应用程序的步骤分别是、、、。 3、在VB程序中,工程项目文件的扩展名为,窗体文件的扩展名为,模块文件的扩展名为,用??控件文件的扩展名为,执行文件的扩展名为。 4、VB程序中,变量的作用域是指,根据作用域的不同将变量分为和。 5、VB中,常用的两种说明变量类型的声明语句是和。 6、VB中,用于处理文字信息的输入和显示信息的控件分别是、,用于处理图形信息的控件分别是、。 7、VB中,在预定对话框里有两种对话框分别称为和,它们所用函数分别为和。 8、一个多文档界面的应用程序可以包含三类窗体分别是、、。 三、阅读程序,写出结果:(每小题6分,共30分) 1、执行下面的程序,单击窗体后在窗体上显示的三行结果。 Private Sub Form_Click()  Dim Astr, Astr1, Astr2 As String  Astr1=B  For I=1 To 3  Astr2=LCase(Astr1)  Astr1=Astr1 Astr2  Astr=Astr Astr1  Print Astr  Astr1=Chr(Asc(Astr1)+1) Next I End Sub 2、下面程序的功能是什么? Private Sub Commandl _Click ( )  S1=0: S2=0  M1=0: M2=0  N=1  Do while N=100   A=INT(101*RND)   If a mod 2=0 THEN    S1=S1+A : M1=M1+1   Else    S2=S2+A : M2=M2+1   End if   N=N+1  Loop   Print S1,S2   Print M1,M2 END Sub 3、下面程序的功能是什么? Private Sub Command1_Click()  Dim N As Integer, I As Integer, j As long, S As long  N=Val (Text1.Text)  J=0:S=0  For I=1 To n   J=J+I :S=S

文档评论(0)

189****6821 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档