下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VBA

VBA.doc

VBA

惑呼魂乎
2012-04-22 0人阅读 举报 0 0 暂无简介

简介:本文档为《VBAdoc》,可适用于高等教育领域

一、选择题.VBA中定义符号常量可以用关键字A)ConstB)DimC)PublicD)Static.Sub过程和Function过程最根本的区别是A)Sub过程的过程名不能返回值而Function过程能通过过程名返回值B)Sub过程可以使用Call语句或直接使用过程名而Function过程不能C)两种过程参数的传递方式不同D)Function过程可以有参数Sub过程不能有参数.定义了二维数组A(to)则该数组的元素个数为A)B)C)D).在VBA代码调试过程中能够显示出所有在当前过程中变量声明及变量值信息的是A)快速监视窗口B)监视窗口C)立即窗口D)本地窗口.VBA的逻辑值进行算术运算时True值被当作A)B)C)D)任意值.在窗体中有一个命令按钮runl对应的事件代码如下:PrivateSubrunlEnter()DimnumAsIntegerDimaAsIntegerDimbAsInteger.DimiAsIntegerFori=Tonum=InputBox("请输入数据:""输入",)ifInt(num)=numThena=aElseb=bEndlfNextIMsgBox("运行结果:a="Str(a)"b="Str(b))EndSub运行以上事件所完成的功能是A)对输入的个数据求累加和B)对输入的个数据求各自的余数然后再进行累加c)对输入的个数据求分别统计有几个是整数有几个是非整数D)对输人的个数据求分别统计有几个是奇数有几个是偶数.假定有以下循环结构DoUntil条件循环体Loop则正确的叙述是。A)如果“条件”值为则一次循环体也不执行B)如果“条件”值为则至少执行一次循环体C)如果“条件”值不为则至少执行一次循环体D)不论“条件”是否为“真”至少要执行一次循环体解析:Do…Until。..Loop循环结构中当条件值为假时重复执行循环体,直至条件值为真结束循环。因此如果条件值为则至少执行一次循环体。.假定有以下程序段:n=fori=toforj=ton=nnextjnexti运行完毕后n的值是A)B)C)D)解析:本题中外层循环从到要执行次而内层循环从到执行次所以一共执行了*=次循环。而每执行一次循环n就加所以最后n的值为。.以下程序段运行结束后变量x的值为。x=y=DOx=x*yy=yLoopWhiley<A)B)C)D)解析:定义两个变量x=、y=执行Do后的循环体语句:x=x*y=*=y=y=l=此时y:while语句为假退出循环。由于执行了一次循环所以x=。.在窗体中添加一个命令按钮(名称为Commandl)然后编写如下代码:PrivateSubCommandlClick()A=:b=:c=MsgBoxa=bcEndSub打开窗体运行后如果单击命令按钮则消息框的输出结果是。A)B)a=C)D)False解析:程序中“MsgBoxa=bc”表示在消息框中显示a与bc的值比较的结果由“a=:b=:c=”可知!=所以消息框的输出结果为False。.设有如下窗体单击事件过程:PrivateSubFormClick()a=Fori=ToSelectCaseiCasea=aCasea=aEndSelectNextiMsgBoxaEndSub打开窗体运行后单击窗体则消息框的输出结果是。A)B)C)D)解析:SelectCase结构运行时首先计算“表达式’’的值它可以是字符串或者数值变量或表达式。然会依次计算测试每个Cas表达式的值直到值匹配成功程序会转入相应的Case结构内执行语句。本题当i=和时执行a=a当i=时a=a所以a==。.下列Case语句中错误的是。A)CaseToB)CaseIs>C)CaseIs>AndIs<D)CaseIs>解析:Case表达式可以是下列种格式之一:单一数值或一行并列的数值用来与“表达式”的值相比较。成员间以逗号隔开由关键字To分割开两个数值或表达式之间的范围关键字Is接关系运算符关键字CaseElse后的表达式是在前面的Case条件不满足时执行的。本题选项C中用的是逻辑运算符And连接两个表达式所以不对应该以逗号隔开。.使用Function语句定义一个函数过程其返回值的类型。A)只能是符号常量B)是除数组之外的简单数据类型C)可在调用时由运算过程决定D)由函数定义时As子句声明解析:函数的参数和返回值都有特定的值与之相对应函数的返回值由函数定义时As子句声明。.下列不是分支结构语句的是。A)If…Then…EndIfB)While…WendC)If…Then…Else…EndlfD)Select…Case…EndSelect解析:While…Wend为循环语句其语句结构中没有分支语句。.在窗体中有一个标签Lbl和一个命令按钮Commandl事件代码如下:OptionCompareDatabaseDimaAsString*‘a为字符型变量其长度为作用域为模块PrivateSubCommandlClick()a=""‘a=“■■■■■■”b=Len(a)MeLhlCaption=bEndSub打开窗体后单击命令按钮‘窗体中显示的内容是。A)B)C)D)解析:DimaAsString*定义a为定长为的字符串Len(a)的值就是所以b的值也是最后窗体中显示的内容为。.已知str="",str="全国""计算机等级考试""NCRE",str=space()则函数len(strl)、len(str)、len(str)返回值分别为。A)、、B)、、C)D).假定窗体上有一个命令按钮(Commandl)有如下事件过程:PrivateSubCommandlChck()DimxAsInteSerx=n=DoWhilex<x=x*n=nLoopMsgboxxEndSub程序运行后单击按钮输出结果为。A)B)C)D)二、填空题.VBA的全称是VisualBasicforApplication。.模块包含了一个声明区域和一个或多个子过程(以Sub开头)或函数过程(以Function开头)。.VBA中变量作用域分为个层次这个层次是局部变量、模块变量和全局变量。.在模块的说明区域中用private关键字说明的变量是模块范围的变量而用public或Global键字说明的变量是属于全局范围的变量。.VBA的种流程控制结构是顺序结构、选择结构和循环结构。.VBA语言中函数lnputBox的功能是输入数据对话框Msgbos函数的功能是显示消息信息。.在VBA中双精度的类型标识是Double。.在VBA中分支结构根据条件(或条件表达式)选择执行不同的程序语句。.VBA的逻辑值在表达式当中进行算术运算时True值被当作、False值被当作来处理。.在窗体中有一个名为Command的命令按钮Click事件代码如下。该事件的完整功能是:接受从键盘输入的个大于的整数找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。PrivateSubCommandClick()Max=maxn=Fori=lTonum=Val(InputBox("请输入第" i "个大于的整数:"))Ifnum>maxThenmax=nummaxn=iEndIfNextiMsgBox("最大值为第"maxn"个输入的"max)EndSub.在窗体中添加一个命令按钮名称为Commandl然后编写如下程序:PrivateSubCommandl​​Click()DimsIAsintegerS=Fori=ToS=SiNextiMsgBoxsEndSub打开窗体运行后单击命令按钮则消息框的输出结果为。解析:ForNext语句能够重复执行程序代码区域特定的次数。此题中i赋初值l步长默认为l即求到的和所以结果为。.以下是一个竞赛评分程序。位评委去掉一个最高分和一个最低分计算平均分试填空补充完整。PrivateSubFormClick()DimMaxAsIntegerMinAsIntegerDimiAsIntegerxAsIntegersAsIntegerDimpAsSingleMax=Min=s=Fori=tox=Val(InputBox("请输入分数:"))Ifx>MaxThenMax=xIfx<MinThenMin=xs=sxNextis=sMinMaxp=sMsgBoxr"最后得分:"pEndSub.以下程序的功能是:从键盘上输入若干个数字当输入负数时结束输入统计出若干数字的平均值输出结果试填空补充完整。PribateSubFormclick()DimxyAsSingleDimzAsIntegerx=InputBox("Enterascore")Dowhilex>=y=yxz=zx=InputBox("Enterascore")LoopIfz=Thenz=EndIfy=yzMsgBoxyEndSub   

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/6

VBA

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利