2009年9月全国计算机等级考试二级笔试试卷(Visual Basic语言程序设计)-在线考试系统

即将上线，敬请期待

首页
解决方案
场景解决方案

线下考试

期中/期末考试、集中培训考试

招聘考试

在线笔试、大型校招、社招

认证考试

岗位认证、职业资格认证、技能考核认证

考试测验

学生测验、员工考核、培训考试

新员工培训

搭建新员工入职培训体系

岗位培训

岗位学习地图、人才培养

知识店铺

搭建专属知识店铺、实现知识变现

刷题练习

题库刷题、每日一练、打卡练习

知识竞赛

党建活动、安全生产活动、协会竟赛

期末考试

在线考试考核提高考试管理效率

网课教育

直播打卡学习等功能让网课教育更灵活

企业年会

组织企业年会闯关答题赢红包活动
行业解决方案

学校高校

大规模在线考试解决方案

制造行业

员工培训体系解决方案

零售行业

岗位人才培养解决方案

金融行业

专业技能培训解决方案
产品
在线考试

在线考试系统

智能防作弊

智能监考中心

阅卷中心

准考证管理

电子证书

题库系统

统计分析
线上培训

在线培训系统

学习地图

知识付费

互动社区
线下培训

线下培训班

报名管理系统

签到系统

问卷系统
更多功能

趣味化PK答题

互动答题

积分商城

个性化设置

每日一练

打卡学习

练习测评

在线答题系统
第三方平台

企业微信

钉钉

飞书
题库
价格
案例
支持
支持

新闻动态

了解轻速云培训考试系统新闻资讯和公司动态

帮助中心

全面了解轻速云的使用方法和技巧

快速入门

快速掌握轻速云组织培训考试的流程

考试客户端下载

下载严肃考试专用客户端

常见问题

一些用户常见的使用问题

关于我们

轻速云科技简介、核心价值观和发展历程

开放平台

开放平台接口API调用文档说明

免费使用 |

本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！

2009年9月全国计算机等级考试二级笔试试卷(Visual Basic语言程序设计)

1、【填空题】
工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。

Private Sub Command1_Click()
   If Text1.Text=”” Then
      MsgBox “请输入半径！”
   Else If Not IsNumeric( 【6】 ) Then
      MsgBox “请输入数值数据！”
   Else
      r=val( 【7】 )
      Form2.show
      【8】 .Print “圆的面积是”&3.14*r*r
   End If
End Sub [每空2分]

答案： ["Text1.Text","Text1.Text","Form2"]

2、【填空题】
设有整形变量s，取值范围为0~100，表示学生的成绩。有如下程序段：
If s>=90 Then
   Level=”A”
Else If s>=75 Then
   Level=”B”
Else If s>=60 Then
   Level=”B”
Else
   Level=”D”
End If
下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。请填空。
Select Case s
Case 【9】 >=90
Level=”A”
Case 75 To 89
Level=”B”
Case 60 To 74
Level=”B”
Case 【10】
Level=”D”
【11】 [每空2分]

答案： ["Is","Else","End Select"]

3、【填空题】
窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：
Private Sub Command1_Click()
   Dim x As Integer,y As Integer,z
   x=3
   y=5
   z=fy(y)
   print fx(fx(x)),y
End Sub
Function fx(ByBal a As Integer)
   a=a+a
   fx=a
End Function
Function fy(ByRef a As Integer)
   a=a+a
   fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是【12】和【13】。 [每空2分]

答案： ["12","10"]

4、【填空题】
窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Command1_Click()
   Text1=””
   Number=FreeFile
      Open “c:\test.txt”For Input As Number
      Do While Not Eof( 【14】 )
         Line Input #Number,s
         Text1.Text=Text1.Text+ 【15】 +Chr(13)+Chr(10)
      Loop
   Close Number
End Sub [每空2分]

答案： ["Number","S"]

首页 1 2

共2页，共44个题库

轻速云给您提供更好的在线考试系统服务！

推荐

推荐题库

2012年企业法律顾问《综合法律知识》押题密卷(4)

福建省三明一中2011--2012学年高三上学期第二次学段考高三政治试题

杭州西湖高级中学2010--2011学年度高二11月月考生物试题

公务员考试公共基础知识模拟试卷（2）

湖南省衡阳市八中2012届高三物理第四次月考试卷

2011年银行从业资格考试个人理财考前押密试卷2

2012年高英语考（山东卷）解析版

职称考试POWERPOINT 2003题库7

众多企事业单位的信赖之选

36万+企事业单位的共同选择

查看更多合作案例

众多企事业单位的信赖之选

开始使用轻速云组织培训考试

四步组织一场考试答题，一键搭建企业培训平台

免费使用免费使用预约演示

咨询热线

400-886-8169

周一到周日 8:00-22:00

在线客服

点击咨询

微信公众号
微信小程序
安卓APP

©2023 轻速云苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统

联系我们

客服热线:400-886-8169 | 周一至周日 8:00-22:00

©2023 轻速云苏ICP备16049646号-1

轻速云科技提供专业的在线考试系统、在线培训系统

在线咨询 400-886-8169