(第33次VB笔试试卷第二部分VB程序设计.docVIP

(第33次VB笔试试卷第二部分VB程序设计.doc

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

第33次VB笔试试卷第二部分VB程序设计 一、单项选择题(1分/小题,共10分) 1、语句PRINTSGN(-26)=;SGN(-26)的输出结果为(16). 16 (A)SGN(-26)=26 (B)SGN(-26)=-26(C)SGN(-26)=+1(D)SGN(-26)=-1 2、VB应用程序保存在磁盘上,至少会有以(17)为扩展名两个文件. 17 (A).DOC和.TXT (B).COM和.EXE (C).VBW和.BAS (D).VBP和.FRM 3、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为(18). 18 (A)0 (B)1 (C)2 (D)3 4、Int(198.555*100+0.5)/100的值(19). 19 (A)198 (B)199.6 (C)198.56 (D)200 5、若要访问组合框Comb1中被用户选中的表项,应使用(20) 20 (A)Comb1.Text (B)Comb1.List (C)Comb1.ListIndex (D)Comb1.ListCount 6、下列各项变量中,哪一项所占的内存空间最多(21). 21 (A)dim x as currency x=99 (B)dim st1 as string st1=good (C)dim st2 as string st2=goodbye (D)dim d as data d=1898/09/12 7、清除列表框的所有选项应选择下列哪种方法(22). 22 (A)Clear (B)Cls (C)ClearItem (D)RemoveItem 8、如果在窗体上已经创建了一个文本框对象Text1,可以通过(23)事件获得输入键值的ASCII码. 23 (A)Change (B)LostFocus (C)KeyPress (D)GotFocus 9、以下不属于VisualBasic系统的文件类型是(24). 24 (A).frm (B).bat (C).vbg (D).vbp 10、控件是(25). 25 (A)建立对象的工具 (B)设置对象属性的工具 (C)编写程序的编辑器 (D)建立图形界面的编辑窗口 二、程序阅读(3分/题,共45分) 1、在窗体上画一个名称为Label1、标题为VisualBasic考试的标签,两个名称分别为Command1和Command2、标题分别为开始和停止的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500. 编写如下程序: Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left Width Then Label1.Left = Label1.Left + 120 Else Label1.Left = 0 End If End Sub (1)程序运行后,单击开始按钮,标签在窗体中移动. 对于这个程序,以下叙述中错误的是(26) 26 (A)标签的移动方向为自左向右 (B)单击停止按钮后再单击开始按钮,标签从停止的位置继续移动 (C)当标签全部移出窗体后,将从窗体的另一端出现并重新移动 (D)标签每隔1秒移动一次 (2)程序使用了几个控件(27) 27 (A)1 (B)2 (C)3 (D)4 (3)Timer控件的Interval属性的单位是(28) 28 (A)秒 (B)毫秒 (C)微秒 (D)纳秒 2、程序如下 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub (1) 程序运行后,窗体上显示的值为(29。 29(A) 24 (B) 12 (C) 28 (D) 32 (2) 如果将Static c As Integer改为dim c As Integ

文档评论(0)

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

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

1亿VIP精品文档

相关文档