二级VB上机7(计算机二级考试VB考试卷).docVIP

二级VB上机7(计算机二级考试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 6 页共 NUMPAGES 6 页 二级VB上机7(计算机二级考试VB考试卷) 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第13套 一、基本操作题 第 1 题    第 2 题    二、简单应用题 第 3 题   Private Sub Command1_Click( ) Dim S1 As String, S2 As String Dim I1 As Integer’ S1 = ? I1 = 1 Do’ Do While Mid(S1, I1, 1) < ? And I1 = Len(S1) S2 = S2 Mid(S1, I1, 1) I1 = I1 + 1 Loop’ List1.AddItem ?’ S2 = ? I1 = I1 + 1 Loop While I1 = Len(S1)End Sub 第 4 题   Private Sub C1_Click( )’Dim flag As Boolean’题目:’For i = 0 To ?’ If Cb1.List(i) = ? Then’ flag = True’ Else’ flag = False’ End If’Next’If flag Then’ MsgBox “已有此项”‘ Cb1.Text = ““‘Else’ Cb1. ? Cb1.Text’End If 三、综合应用题 第 5 题   Private Sub C1_Click( ) Open “out5.txt” For Output As #1 Print #1, Text1.Text Close #1End Sub 第14套 一、基本操作题 第 6 题    第 7 题    二、简单应用题 第 8 题    第 9 题   ’提供给考生的程序Private Sub Form_Unload(Cancel As Integer) Open App.Path “out4.txt” For Output As #1 Print #1, Ch1.Value, Ch2.Value, Text1.Text Close #1End Sub 三、综合应用题 第 10 题   ’提供给考生的程序Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag = True b% = 2 Do While b% = Int(a / 2) And flag If Int(a / b%) = a / b% Then flag = False Else b% = b% + 1 End If Loop isprime = flagEnd Function

您可能关注的文档

文档评论(0)

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

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

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

1亿VIP精品文档

相关文档