一、 选择题15*3=45
1、visual basic中窗体文件的扩展名是（ ）
a、.vbw b、.frm c、.vbp d、.pdm
2、在设计应用程序时，通过（ ）可以调节窗体出现在屏幕的位置。
a、属性窗口 b、**窗口 c、窗体设计窗口 d、窗体布局窗口。
3、求len（“123程序设计abc”）的值是（ ）
a、10 b、14 c、20 d、17
4、表达式16/4-2^5*8/4 mod 5\2的值为（ ）
a、14 b、4 c、20 d、2
5、不能作为容器使用的对象是（ ）
a、窗体 b、框架 c、**框 d、图像框。
6、在窗体上画一个名称为timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（ ）
a、 b、
c、 d、
7、当一个工程个复选框被选中时，它的value属性的值是（ ）
a、0 b、1 c、true d、false
8、语句：if表达式then….中的表达式不可以是（ ）表达式。
a、算数 b、逻辑 c、关系 d、字符。
9、关于do…loop循环结构执行循环体次数的描述正确的是（ ）
a、do while…loop循环和do…loop until循环至少都执行一次。
b、do while…loop循环可能不执行， do…loop until循环至少执行一次。
c、do while…loop循环和do…loop until循环都不执行一次。
d、do while…loop循环至少执行一次，do…loop until循环可能不执行。
10、下面的程序段，显示的结果是 （
x= int(rnd） +5
select case x
case 5
print “优秀”
case 4
print “良好”
case 3
print “及格”
case else
print “不及格”
end select
a、 不及格 b、 良好 c、 及格 d、 优秀。
11、以下能够正确计算n!的程序是（ ）
a、n = 5 : x = 1b、n = 5 : x = 1 : i = 1
dodo x = x * ix = x * i
i = i + 1i = i + 1
loop while i < nloop while i < n
print xprint x
c、 n = 5 : x = 1 : i = 1 d、 n = 5 : x = 1 : i = 1
dodox = x * ix = x * i
i = i + 1i = i + 1
loop while i <=nloop while i > n
print xprint x
12、下列程序段执行结果为（ ）
x=5y=-6
if not x>0 then x=y-3 else y=x+3
print x-y;y-x
a、-3 3 b、5 -9 c、3 -3 d、-6 5
13、以下数组定义语句中，错误的是（ ）
a、dim c(3,1 to 4) b、dim b(0 to 5,1 to 3) as integer
c、dim d(-10d、static a(10) as integer
14、下面程序的输出结果是（ ）
dim aa=array(1,2,3,4,5,6,7)
for i=lbound(a) to ubound(a)
a(i)=a(i)*a(i)
next i
print a(6)
a、36 b、程序出错 c、49 d、不确定。
15、在设定option base 0 后，经dim arr（3,4）as integer定义的数组arr含有的元素的个数为（ ）
a、12 b、20 c、16 d、9
二、 填空题10*2=20
1、visual basic应用程序通常由3类模块组成，即。
和。2、在声明过程、变量和常数的名字时，不能超过个字符。
3、当对象得到焦点时，会触发事件。
4、要使文本框可以输入多行文本，需要设置属性为true。
5、列表框中第一个列表项的索引编号为。
6、用redim语句重新定义动态数组时，不清除数组原有内容，应加的参数为。
7、和变量一样，数组在定义后，数组中的个元素都将被赋一个初值。数值型数组中各元素的初值为。
8、若有语句a=array（1,2,3,4,5,6），则a（5）的值是。
三、 程序分析2*5=10
1、 有如下事件过程：
private sub form_click( )
dim x as integer
x=1n=0
do while x<28
x=x*3n=n+1
loopprint x,n
end sub
程序运行后，单击窗体，输出的结果是。
2、分析下面的visualbasic程序段。
如图所示，图中有两个列表框，左边的是list1，右边的是list2，一个命令按钮command1，窗体载入事件和命令按钮的单击事件中均有**，程序段如下：
private sub command1_click()
dim n as integer,i as interger ,j as integer
n=inputbox(“n=”)
redim a(2 to n) as integer
for i=2 to n
a(i)=i
next i
for i=2 to sqr(n)
if a(i)<>0 then
for j=2*i to n step i
a(j)=0
next j
end if
next i
for i=2 to n
if a(i)<>0 then
next i
end sub
private sub form_load()
“itema”
“itemb”
“itemc”
“itemd”
“iteme”
end sub
窗体启动后，单击命令按钮，输入4，右边列表框中显示内容是。
四、 程序改错2*5=10
1、程序功能：求1+2+3+。。直到其和超出3000为止，并输出结果。程序中有两行有错误，找出并改正。
option explicit
private sub form_click( )
1) cls
2) dim i as integer
3) dim s as single
4) i=0
5) s=1
6) do7) i=i+2
8) s=s+i
9) loop s>3000
10) print “从1到：”;i;“的和是”；s
end sub
错误一。错误二。
五、 程序填空3*5=15
1、 输出1000之内的所有素数，每10个一行，程序中有三个空，补充完整。
private sub form1_click( )
dim a%(1 to 1000)
dim i%,j%,n%
for i=1 to 1000
a(i)=i
next i
for i=2 to 1000
for jto 1000
if a(i)=0 then
if a(j) mod a(i)=0 then a(j)=0
next j
next i
for i=2 to 1000
if a(i)<>0 then
n=n+1print a(i);
if n mod 10=0 then
end if
next i
end sub
职高二年级第一学期期末考试试题 建筑
建筑制图与识图。一 填空 每空2分，共20分 1 表面由平面组成的几何体称为。2 平面体可分为长方体和。3 当长方体在三投影体系中方向位置放正时，它的每个面都平行于一个投影面，而。于另外两个投影面。4 两个简单的几何体连接在一起，它们之间就产生了 5 凡是带有的平面体，统称为斜面体。6 与两个投影面...
高二年级期末考试试题 理科
长安大学附属中学。2014 2015学年度第二学期高二数学 理 期末试题。100分钟总分 100分出题 陈同怀校对 李保军。一 单项选择题 每小题4分，共40分 1.集合，那么。a b.c.d.2 命题 对任意，都有 的否定为。a 对任意，使得 b 不存在，使得。c 存在，使得 d 存在，使得。3 ...
高二年级发动期末考试试题
高二年级发动机期末考试试题。姓名 分数 一 填空题 每题3分，共30分 1 发动机零件主要耗损形式包括和。2 曲柄连杆机构中的机体组主要包括等。3 发动机的配气机构由和两部分组成。4 发动机润滑系系统一般由装置 装置和装置组成。5 常用的表示混合气浓度的参数有和。6 活塞环的 三隙 为和。7 检查气...