《二级VB》上机考试冲刺试题(4)(计算机二级考试VB考试卷).docVIP

《二级VB》上机考试冲刺试题(4)(计算机二级考试VB考试卷).doc

  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文档。上传文档
查看更多
试卷第 PAGE 1 页共 NUMPAGES 2 页 《二级VB》上机考试冲刺试题(4)(计算机二级考试VB考试卷) 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 一、选择题 第 1 题 任何控件都有的属性是( )。 A BackColor B Caption C Name D BorderStyle 第 2 题 设计数据库的存储结构属于(  ) A 需求分析 B 概念设计 C 逻辑设计 D 物理设计 第 3 题 某人创建了1个工程,其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是(  )。 A 在工程属性对话框中把”启动对象”设置为Form2 B 在Forml 的Load 事件过程中加入语句Load Form2 C 在Form2的Load 事件过程中加入语句Form2.Show D 把Form2的TabIndex 属性设置为l ,把Form1的TabIndex 属性设置为2 第 4 题 设有如下通用过程:Public Function Fun(xStr As Stri ng)As Stri ngDi mt Str As Stri ng ,strLAs IntegertStF=""strL=Len(xStr)i =1 Do While i <=strL/2tStr =Tstr &Mid(xStr ,i ,1)&Mid(xStr ,strL-i+1,1)i =i +lLoopFun =tStrEnd Function在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程:Private Sub Co mmandI_Click( )Di mS1As Stri ngS1="abedef"Pri m UCase(Fun(S1))End Sub程序运行后,单击命令按钮,输出结果是(  )。 A ABCDEF B abcdef C AFBECD D DEFABC 第 5 题 下列关于栈的描述正确的是(  )。 A 在栈中只能插入元素而不能删除元素 B 在栈中只能删除元素而不能插入元素 C 栈是特殊的线性表,只能在一端插入或删除元素 D 栈是特殊的线性表,只能在一端插入元素,而在另一端删除元素 第 6 题 下列程序段的运行结果是(  )。Sub sele(  )Di mn As Integeri =21:n =3Do While i >ni =i -nLoopPrint iEnd Sub A 2 B 4 C 5 D 3 第 7 题 复选框的Value 属性为0时,表示该复选框(  )。 A 未被选中 B 被选中 C 框内有灰色的勾 D 操作有误 第 8 题 在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的方字罗列在文本框中(见图)。下面能实现此功能的事件过程是(  )。   A Private Sub Check1_Click(Index As Integer)Text1.Text =""For k =0To 3If Check1(k).value =1ThenText1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格 End If Next kEnd Sub B Private Sub Check1_Click(Index As Integer)For k =0To 3If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格End IfNext kEnd Sub C Private Sub Check1_Click(Index As Integer)Text1.Text ="" For k =0To 3 If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(Index).Caption &""双引号中是空格End IfNext kEnd Sub D Private Sub Check1_Click(Index As Inte

文档评论(0)

文海网络科技 + 关注
官方认证
服务提供商

专业从事文档编辑设计整理。

认证主体邢台市文海网络科技有限公司
IP属地北京
统一社会信用代码/组织机构代码
91130503MA0EUND17K

1亿VIP精品文档

相关文档