200906V基础期末考卷答卷.docVIP

  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文档。上传文档
查看更多
200906V基础期末考卷答卷

浙江大学城市学院 2008 — 2009 学年第二学期期末考试试卷 《 VB语言程序设计基础 》 开课单位: 计算分院 ;考试形式:闭卷;考试时间: 2009 年 6 月17 日 所需时间:120 分钟 一、单选题(10%) 1.以下关于函数过程的叙述中,正确的是______A)只有函数过程能够将过程中处理的信息返回到调用程序中B)函数过程???。 C)当数组作为函数过程的参数时,既能以值方式传递,也能以传址方式传递???? D)如果不指明函数过程参数的类型,则该参数没有数据类型语句??dim?a(-3?to?4,3?to?6)as?integer?定义的数组的元素个数是______A)18????B)28????C)21?????D)32以下关系表达式中,其值为True的是______A)XYZXYzB)VisualBasicsualbasic C)thethere D)Integer=Int 4.将图片框在窗体中向右移动位置,应修改该图片框控件的______属性。 A)) C))______。 A)show B)nexti C)e3_# D)4dm 6.要使两个单选按钮属于同一个框架,正确的操作是______A)先画一个框架,再在框架中画两个单选按钮B)先画一个框架,再在框架外画两个单选按钮,然后把单远按钮拖到框架中C)先画两个单选按钮,再画框架将单选按钮框起来D)以上三种方法都正确窗体上有一个用菜单编辑器设计的菜单(见图)。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的______。 A)在设计“粘贴”菜单项时,在菜单编辑器窗口中设置了“有效”属性(有“√”)B)菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C)在设计“选中”菜单项时,在菜单编辑器窗口中设置了“复选”属性(有“√”)D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了“可见”前面的“√”_________ 属性。 A))))1的控件组成了控件数组,现在将其置为空串,正确的程序是_____。 A)For i = 0 To 1.Text(i) = :Next i B)For i = 0 To (i).Text = :Next i C)For i = 0 To 1(i).Text = :Next i D)For i = 0 To 1.Text = :Next i 10.容器的_______属性可以用来设置所绘线条宽度。 A)) C)) 运行界面如下图所示,在文本框Text1中输入一个正整数n并按回车键后,在Text2中输出结果,同时选中Text1中的内容,为下一次输入作准备。 【程序】 Private Sub (11) Dim n As Long, m As Single, i As Integer If k = 13 Then n = Val(Text1.Text) If n 0 Then For i = 1 To n m = m + 1 / fact(i) Next i Text2.Text = Str(m): (12) Text1.SelLength = Len(Text1.Text) : text1.setfocus End If ElseIf k Asc(0) Or k Asc(9) Then k = 0 Else (13) End If End Sub Private Function fact(ByVal x As Integer) As Single Dim y As Single, i As Integer y = 1: I=1 Do y = y * i : i = i + 1 Loop (14) (15) End Function 【供选择的答案】 (11) A、Text1_KeyPress(k As Integer)B、Text1_KeyPress(k As Integer) C、Text1_change(k As Integer)D、Text1_change(k As Integer) (12) A、Text1.SelStart = 1B、Text1.SelStart = 0C、Text1.”” D、Text1”” (13) A、Exit Do B、end

文档评论(0)

gbn092 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档