一、填空题。
1.将算法正确的前提下，评价一个算法的两个标准是时间复杂度和空间复杂度 。
2.在vba中要判断一下字段的值是否为null，应该使用的函数是 isnull 。
中定义符号常量的关键字是 const 。
编程中，要得到［15，75］上的随机整数可以用表达式 15+int(61*rnd())
5.在vba中，只有true和false两个值是布尔数据类型。
6.表达式fix（－3.25）和fix（3.75）的结果分别是 -3 3 。
7.模块的作用就是建立复杂的 vba 程序以完成宏不能完成的任务。
8.三维数组array（3,3，3）的元素个数为 64 。
中使用的三种选择函数是 iif 、switch和choose。
10.在vba中要将数值表达式的值转换为字符串，应使用函数 str 。
11.要将正实数x保留两位小数，若采用int函数完成，则表达式为 int(100*x)/100 。
12.通常说的虚岁就是当天的年份与出生年份之差，而周岁是要过了生日才增加一岁。设d＝当天日期＝date（ ）b＝某人出生日期，则虚岁为＝ year(b)-year(b) ，周岁＝ int((d-b)/365) 。
13.执行下面的程序段后，s的值为 9 。
s=5for i=2.6 to 4.9 step 0.6
s=s+1next i
14.程序执行结果s的值是6 。
private sub command1_click( )i=0do
s=i+si=i+1
loop until i>=4
end sub
15.窗体上画一个命令按钮，然后编写如下**：
private sub command1_click( )
dim m(10)as integer
for k=1 to 10
m(k)=12-k
nextx=6
msgbox m(2+m(x))
end sub
程序运行后，单击命令按钮，消息框显示的是 4 。
16.下面程序的输出结果是。
private sub form_click( )
i=0do until 0
i=i+1if i>10 then exit doloopi
end sub
17.在下面的程序中，要求循环体执行四次，请填空。
private sub command1_click( )
x=1do while x<=7
x=x+2loop
end sub
18.运行下列程序，输入如下两行：
hello,i am here.
弹出的窗体中的显示结果是 hello，
private sub command11_click( )
dim abc as string, sum as string
sum=””
doabc=inputbox(“输入abc”)
if right(abc,1)=“then exit do
sum = sum+abc
loopmsgbox sum
end sub
二、单选题。
1.在计算机中，算法是指（b）
a、加工方法b、解题方****而完整的描述。
c、排序方法d、查询方法。
2.执行语句“value＝10 mod 3”后，返回的值是（1）
a、1 b、2 c、3 d、4
3.在模块的声明部分使用“option base 1”语句，然后定义二维组a（2to 5,5），则该数组的元素个数为（a）
a、20 b、24 c、25 d、36
中去除前后空格的函数是（c）
a、ltrim b、rtrim c、trim d、ucase
5.用于命名和定义常量、数组和过程的语句是（a）
a、声明语句 b、赋值语句 c、条件语句 d、循环语句。
数据类型符号“&”表示的数据类型是（c）
a、整数 b、长整数 c、单精度数 d、双精度数。
7.以下不属于access中标准函数的是（c）
a、数值函数 b、字符函数 c、数据函数 d、日期/时间函数。
8.如果x是一个正的实数，保留两位小数，将千分四舍五入的表达式是（b）
a、0.01*int(x+0.05b、0.01*int(100*(x+0.005))
c、0.01*int(x+0.005d、0.01*int(100*(x+0.05))
9.由“for i=1 to -10 step – 3”决定的循环结构，其循环体将被执行（ c）
a、0次 b、1次 c、4次 d、5次。
10.下列给出的选项中，非法的变量名是（c ）
a、sumb、integer_2 c、rem d、form1
函数的返回值类型是（b）
a、数值 b、字符串 c、变体 d、视输入的数据而定。
12.下列能够交换变量x和y值的程序段是（c）
a、y＝x：x＝yb、z＝x：y＝z：x＝y
c、z＝x：x＝y：y＝z d、z＝x：w＝y：y＝z：x＝y
13.已知程序段：
s=0for i=1 to 10 step 2
s=s+1i=i*2
next i
当循环结束后，变量i、s值分别为（a）
a b c d
14.在窗体中有一个文本框test1，编写事件**如下：
private sub form_click( )
x=val(inputbox(“输入x的值：”)
y＝1if x<>0 then y=2
end sub
打开窗体运行后，在输入框中输入整数12，文本框text1中输出的结果是（b）
a、1 b、2 c、3 d、4
15.若变量i的初值为8，则下列循环语句中循环体的执行次数为（c）
do while i ＜=17
i=i+2loop
a、3次 b、4次 c、5次 d、6次。
16、运行下列程序段，结果是（ a）
for m =10 to 1 step 0
k=k+3next m
a、形成死循环b、循环体不执行即结束循环。
c、出现语法错误d、循环体执行一次后结束循环。
17.有如下事件程序，运行该程序后输出结果是（a）
private sub command33_click( )
dim x as integer, y as integer
x=1:y=0
do until y<=25
y=y+x*x
x=x+1loop
msgbox “x=”&x &“y=”&y
end sub
a、x=1,y=0 b、x=4,y=25 c、x=5,y=30 d、输出其他结果。
18.下列程序的功能是计算sum=1＋（1＋3）＋（1＋3＋5）＋…1＋3＋5＋……39）
private sub command34_click( )
t=0m=1
sum=odo
t=t+msum=sum+t
mloop while m＜=39
msgbox“sum=”&sum
end sub
为保证程序正确完成上述功能，空白处应填入的语句是（b）
a、m+1 b、m+2 c、t+1 d、t+2
19.窗体中有命令按钮run34，对应的事件**如下：
private sub run34_enter( )
dim num as integer, a as integer, b as integer, i as integer
for i=1 to 10
num=inputbox(“请输入数据：”，输入”)
if int(num/2)=num/2 then
a=a+1else
b=b+1end if
next i
msgbox(“运行结果：a＝”&str(a)&“b=”&str(b))
end sub
运行以上事件过程，所完成的功能是（c）
a、对输入的10个数据求加和。
b、对输入的10个数据求各自的余数，然后再进行累加。
c、对输入的10个数据分别统计奇数和偶数和个数。
d、对输入的10个数据分别统计整数和非整数的个数。
20.运行下列程序，输入数据后，窗体中显示结果是（c）
private sub form_click( )
dim sum as integer,m as integer
sum=0do
m=val(inputbox(“输入m”))
sum=sum+m
loop until m=0
msgbox sum
end sub
a、0 b、17 c、20 d、21
三、程序填空。
1.下面的程序显示一个如下4×4的乘法表：
请在空白处填入适当的语句使子过程完成指定的功能。
dim i as integer, j as integer
for i = 1 to 4
for j = 1 to 4
if j <=5 - i then
i & j & i * j & space(2);
end if
next j
next i
2.以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，显示结果。请在空白处填入适当语句，使程序可以完成指定的功能。
vba练习2 含答案
vba练习2 1 vba中定义符号常量可以用关键字。a const b dim c public d static 2 定义了二维数组a 2 to 5，5 则该数组的元素个数为。a 25 b 36 c 20 d 24 3 标识符必须由字母和汉字开头，后面可跟 d a 汉字 b 数字 c 下划线 d ...
椭圆练习2 含答案
椭圆检测题 二2017.03.07 姓名班级。1 直线 1与椭圆 1相交于a，b两点，该椭圆上点p使得 pab的面积等于4，这样的点p共有 a.1个 b.2个c.3 个 d.4个。2 已知椭圆的方程为为其左 右焦点，为离心率，为椭圆上一动点，有如下说法 当时，使为直角三角形的点有且只有4个 当时，使...
机械练习2 含答案
2010年物理补充练习 2 2010 09 17 一 功。1 一位同学用120n的力，将一个重4n的足球踢到25m远处。对他踢球时做功的情况，下列说法中正确的是 a 做功3000j b 做功100j c 没有做功 d 做了功，但条件不足，无法计算做功。2 举重运动员在一次训练中，将100kg的杠铃举...