vb习题vb习题.doc

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

习题 1) 下列程序运行后,输出的结果为______。 B=1 Do while (b40) b=b*(b+1) Loop Debug.write b a) 42 b) 39 c) 6 d) 1 答案 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据:)) b(3-K) =a(K+1) Next K Debug.write b(K) a) 1 b) 3 c) 5 d) 0 答案K=0 a(1)=1 b(3)=a(1)=1 K=1 a(2)=3 b(2)=a(2)=3 K=2 a(3)=5 b(1)=a(3)=5 K=3 循环结束 所以b(k)=b(3)=1 3) 下列程序执行后,变量s的值为______。 Dim s As long ,x As Integer s=0:x=1 Do While (x10) s=s+x x=x+2 Loop Debug.write s a) 10 b) 25 c) 50 d) 100 答案Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Debug.write Hello End If End Sub 程序运行后,为了在窗体上输出Hello,应在窗体上执行以下_______操作。 a) 同时按下 Shift 键和鼠标左键 b) 同时按下 Shift 键和鼠标右键 c) 同时按下Ctrl、Alt 键和鼠标左键 d) 同时按下 Ctrl、Alt 键和鼠标右键 答案:D 解析:鼠标的keydown事件中,按下左键button=1按下右键button=2。键盘上按下shift键时shift=1,按下ctrl键时shift=2,按下alt键时shift=4,若同时按下多键,shift值相加。 5) 当变量x=2,y=5时,以下程序的输出结果为____。 Do until y5 x=x*y y=y+1 loop debug.write x a) 2 b) 5 c) 10 d) 20 答案 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.text=Str(R) End Sub a) 字符串15 b) 整数15 c) 字符串5 d) 整数5 答案:A 解析: I=1 r=1 I=2 r=3 I=3 r=6 I=4 r=10 I=5 r=15 本题关键在于标签框内将显示什么,标签框内显示的是转换为字符串后的“15” 7) 如下有一段不完整的程序段,如果要求该程序执行3次循环,则应在程序中的括号里输入______。 x=1 do x=x+3 debug.write x loop until(___) a) x=8 b) x=8 c) x=7 d) x=7 答案x=1+3=4 x=4+3=7 x=7+3=10 也就是说x=7时还能执行循环,x=10时不能执行循环,所以结束条件可设为x7的某一个条件 8) 若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。 If a5 then if b4 then c=a-b else c=b-a End if elseif b3 then c=a*b else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案 b) “” c) “练

文档评论(0)

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

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

1亿VIP精品文档

相关文档