201104VB程序设计与VBA应用城市学院期中考卷

201104VB程序设计与VBA应用城市学院期中考卷

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

浙江大学城市学院

2010 — 2011 学年第二学期期中考试答卷

《VB程序设计基础与VBA应用》

开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2011 年 4 月 17 日 所需时间： 120 分钟

注意：考试结束后答卷必须上交，评分以答卷为准

一．单选题(本大题共分，共分。)

二．程序填空题(本大题共 2 题 5 空，每空 2 分，共 10 分。) (1) (2) (3) (4) (5)

201104VB程序设计与VBA应用城市学院期中考卷

三．程序阅读题(本大题共 5 题，每题4 分，共 20 分。) 第1题:

第2题:

第3题:

第4题:

第5题: 文本框

四．

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

第1题： .

201104VB程序设计与VBA应用城市学院期中考卷

第 2 题：

.

第3页共9页

201104VB程序设计与VBA应用城市学院期中考卷

第3题： .

201104VB程序设计与VBA应用城市学院期中考卷

浙江大学城市学院

2010 — 2011 学年第二学期期中考试试卷

《VB程序设计基础与VBA应用》

开课单位： 计算分院 ；考试形式：闭卷；考试时间：2011 年 4 月 17 日 所需时间： 120 分钟

注意：试题卷学生作为资料自己保留，不用上交

一、单选题（40%，每小题2分）

1．在启动窗体时，为了初始化该窗体中的各控件，可选用窗体的

A．Click C．DblClick A．.doc与.txt C．.bat与.frm

A．代码窗口 C．属性窗口

B．Load D．Unload B．.com与.exe D．.vbp与.frm B．窗体设计窗口 D．工程资源管理器窗口

2．将VB编制的程序保存在磁盘上，至少会产生何种文件。

3．在设计应用程序时，通过

4．代数式的VisualBasic表达式是。

a b

c lna

cd

A．a+b/Sqr(c+Log(a))+c/d C．(a+b)/(Sqr(c+Log(a))+c/d)

5．下面

A．"12/19/99" C．#12/19/99#

B． (a+b)/Sqr(c+Log(a))+c/d D． a+b/(Sqr(c+Log(a))+c/d)

B．12/19/99 D．{12/19/99}

B．0.01*Int(100*(x+0.005)) D．0.01*Int(x+0.05) B．Text1.SelText=”” D．Text1.SelText.Clear B．Int(99*Rnd)+1 D．Int(98*Rnd)+1

D．

4D+2

6．若x是一个正实数，对x的第3位小数四舍五入的表达式是。

A．0.01*Int(x+0.005) C．0.01*Int(100*(x+0.05)) A．Text1.Text=”” C．Text1.Clear A．Int(99*Rnd) C．Int(98*Rnd) A．show

7．哪条语句执行后将会删除文本框Text1中的文本？

8．要得到[1，99]之间的随机整数，可用式子。

9．可作为Visual Basic变量名的是。

B．Alphi_1

C．2E3

201104VB程序设计与VBA应用城市学院期中考卷

10．不正确的VB常量是

A．123! A．Static

为 。

A．“中华民国” C．“中共人民” A．2 C．4

B．“中国人民” D．“人民共和” B．3 D．5

B．x+y=0 and x*y<>0 D．x=0 and y<>0

D．64

B．&HABC& C．&O18 B．Const

C．Private

D．#1-1-03# D．Variant

11．声明符号常量应该用关键字

12．设S=“中华人民共和国”，表达式Left（S,1）+ Right（S,1）+ Mid（S,3,2）的值

13．表达式 8 Mod 3 + 8 \ 3的值等于

14．判断变量x、y中有且只有一个为0的下列各表达式中，正确的是

A．x=0 Or y=0 and x*y<>0 C．x+y<>0 and x*y=0 A．256

B．0

15．函数Val("&H100") 的返回值为。

C．100

16．下面程序运行后的结果是 。

m=0

For i = 1 To 10 m = m + i

If i > 5 Then Exit For Next i Print m, i A．15 5 C．21 6

A．0

B．55 11 D．15 6

17．由For k=35 To 0 Step 3 ：Next k 循环语句控制的循环次数是。

B．12 C．1 D．11

B．Case 8 To 20

D．Case Is >=8 And Is =<20 B．6 D．12

18．在Select Case A 的语句中，判断A是否大于等于8小于等于20的是。

A．Case A>=8 And A=<20 C．Case Is 8 To 20 A．4 C．8

写法是 。

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

19．Dim x(0 To 3, 3 To 4) 定义数组后，x数组可存放元素

20．用InputBox函数为数组B的所有元素B(0)、B(1)、B(2)、…、B(9)依次赋值，正确的

201104VB程序设计与VBA应用城市学院期中考卷

二、程序填空题（10%，每空2分）

请在以下题的__( 1 )__、…、__( 5 )__处填入适当的内容，将程序补充完整。

【程序说明】从键盘上输入两个正整数m和n，求出m和n之间的所有完全数（完全数是指这个数的因子之和等于该数本身。如6的因子为1，2，3，而1+2+3=6，所以6就是一个完全数）。

Private Sub Form_Click()

Dim sum As Integer

Dim m As Integer, n As Integer Dim Temp As Integer