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