2023年VB VBA期末考卷城市学院

发布 2020-02-29 18:47:28 阅读 8289

诚信应考考出水平考出风格。

浙江大学城市学院。

2010 — 2011 学年第二学期期末考试试卷。

vb程序设计基础与vba应用 》

开课单位: 计算分院 ;考试形式:闭卷;考试时间: 2011 年 6 月 28 日。

所需时间:120 分钟。

一、单选题(本大题共 13 题,每题 2 分,共 26 分。)

二、程序填空题(本大题共 1 题 10 空,每空 2 分,共 20 分。)

三、程序阅读题(本大题共 6 题,每题 4 分,共 24 分)

第1题第2题。

第3题: 第4题:

第5题: 第6题:

四.程序设计题(本大题共 3 题,每题 10 分,共 30 分。)

第1题: .

sub form_click()

dim year as integer

end sub

第2题: .

function fact(n as integer) as double

end function

sub form_click()

dim x as single, s as single

end sub

第3题: .

sub commandbutton1_click()

end sub

浙江大学城市学院。

2010 — 2011 学年第二学期期末考试试卷。

vb程序设计基础与vba应用》

开课单位: 计算分院 ;考试形式:闭卷;考试时间:2011 年 6 月 28 日。

所需时间:120 分钟。

一、单选题(36%,每小题2分)

1.函数(int(46 * rnd) +5) *2的值是在___范围内的偶数?

a.[0,100] b.[0,98] c.[10,100] d.[10,98]

2.哪一条语句执行后将会删除文本框text1中的文本?a.c.

3.下列各组函数中,函数值类型相同的一组是 。

a.exp(x)、chr(x)、lcase(xb.asc(x)、str(x)、rtrim(x)

c.sgn(x)、int(x)、len(x) d.fix(x)、left(x)、ucase(x)

4.判断变量x、y中有且只有一个为0的下列各表达式中,正确的是 。

a.x=0 or y=0 and x*y<>0b.x+y=0 and x*y<>0

c.x+y<>0 and x*y=0d.x=0 and y<>0

5.设置excel某个区域的内部颜色,需设置的colorindex属性。

6.若变量i的初值为9,则下列循环语句的循环次数为次。

do while i <=20

i = i + 3

loopa.3次 b.4次 c.5次d.6次。

7.窗体通用部分的语句“option base 1”,决定本窗体中数组下标 。

a.下界必须为1b.缺省的下界为1

c.下界必须为0d.缺省的下界为0

8.在声明dim x(0 to 3,3 to 4)后,x数组可存放元素个。

a.4b.6c.8d.12

9.excel-vba有多达100个以上的对象,这些对象构建了对象模型。以下对象哪个所处的层次较高?

a.rangeb.workbooks

c.worksheetsd.application

10.用inputbox函数为数组b的所有元素b(0)、b(1)、b(2)、…b(9)依次赋值,正确的写法是 。

a.for i = 0 to 9 :b(i)=inputbox:next i

b.b= inputbox(“”

c.b(i)= inputbox(“”

d.for i = 0 to 9 :b(i)=inputbox(“”next i

11.若某过程声明为sub aa(n as integer),则以下调用正确的是___

a.aa(yb.call aac.aa yd.z=aa(y)

12.sub 过程与function 过程最根本的区别是___

a.前者可以使用call 或直接使用过程名调用,后者不可以。

b.后者可以有参数,前者不可以。

c.两种过程参数的传递方式不同。

d.前者无返回值,但后者有。

13.下面子过程语句说明合法的是___

a.sub f1(byval n() as integer)

b.sub f1(n() as integer) as integer

c.function f1(f1 as integer)

d.function f1(byval n as integer) as integer

二、程序填空题(20%,每空2分)

说明:请在以下题中的__(15 )_处填入适当的内容,将程序补充完整。

1.随机产生30个两位正整数并存入数组a中,按从小到大的顺序排序,再将其中互不相同的数按从小到大的顺序在窗体中输出,并统计互不相同数的个数,最后输出互不相同数的个数。把程序补充完整。

程序】private sub form_click()

dim a(30) as integer, i as integer, j as integer

dim temp as integer, count as integer

for i = 1 to 30

a(i1 )_

next i

for i = 1 to 29

for j2 )_

if a(i) >a(j) then

a(i) =a(j)

a(j) =temp

end if

next j

next i

print a(1)

for i = 2 to 30

if a(i)

count = count + 1

end if

next i

end sub

2.以下程序是一个模拟**的小游戏。单击“start”按钮开始**,文本框中轮流显示数据区a2:a17单元格中的内容(模拟客户姓名),同时命令按钮的caption属性修改为“stop”;单击“stop”按钮时,程序运行结束,文本框中显示获奖人的姓名并在b列的对应单元格填上“t”。

游戏规定每人只能中奖一次,一旦中奖(已标记“t”)则不能再次中奖(下图为三人已中奖过)。

程序】private sub commandbutton1_click()

dim j as long

j = range("a1").

if = start" then

else= "start"

财务管理期末考卷A

宁波城市学院成教学院期末试卷 a 2012 2013学年第一学期。试卷名称 财务管理学专业 财管 姓名学号班级得分。一 名词解释 本大题共5小题,每小题2分,共10分 1 财务管理。2 预付年金。3 经营现金流量。4 内部收益率。5 系数。一 单项选择题 本大题共10小题,每小题2分,共20分 在每...

2023年微积分上册期末考卷含答案

中南大学考试试卷。2011 2012学年一学期微积分a课程 时间 12年1月12日,星期四,10 00 11 40,共计 100分钟 88学时,5.5学分,闭卷,总分100分,占总评成绩70 一 填空题 共15分,每小题3分 1 则。3 心形线的全长为。4 已知幂级数在处收敛,在处发散,则幂级数的收...

二年级期末考卷

小学语文二年级下册期末试卷。一个学期又结束了,你一定学到了不少知识,掌握了许多解决问题的办法。那就随我一起去迎接挑战吧!一 我会把词语写得既正确又美观 16分 w n t ku ji nji o j hu n dan f j n xi n w ish n di n x n f n 二 我会给下面的字...