满分：70分。
姓名：__1、单项选择题(本题共计40分)
1、visualbasic是用于开发___环境下的应用程序的工具。 (b )
a、dosb、windows
c、dos和windows
d、unix
2、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 __过程。 (b )
a、方法。b、事件。
c、调动。d、编译。
3、visualbasic中的窗体文件的扩展名是b )
a、.reg
b、.frm
c、.bas
d、.vbp
4、一只白色的足球踢进球门，则白色、足球、踢、进球门是b )
a、属性、对象、方法、事件。
b、属性、对象、事件、方法。
c、对象、属性、方法、事件。
d、对象、属性、事件、方法。
5、下面___语句，可以将列表框list1中当前选定的列表项的值替换成“abc”。 c )a、b、
c、d、前三项均可。
6、在vb中，下列关于控件的属性或方法中，搭配错误的有___个。
( c )
a、0b、1
c、2d、3
7、当对象失去焦点时，将会发生事件。 (b )
a、getfocus
b、lostfocus
c、focus
d、setfocus
8、对于一个含有计时器控件的窗体，每经过一段由___属性指定的时间间隔，就会产生一个timer事件。 (d )
a、name
b、enabled
c、caption
d、interval
9、在设计列表框时，若实现输入多行文字的目的，应使用键实现文本的换行。 (d )
a、enter
b、alt+enter
c、ctrl+shift+enter
d、ctrl+enter
10、将数据项“china”添加到列表框(listl)中成为第一项应使用语句。 (a )
a、 "china",0
b、 "china",1
c、 0,"china"
d、 1,"china"
11、函数cint(–3.5)，int(–3.5)，fix(–3.5)的值分别是b )
a、-3，–4，–3
b、-4，–4，–3
c、-3，–4，–4
d、-4，–3，–3
12、假定变量logic类型是boolean，下面赋值语句___是正确的。 (d )
a、logic = true’
b、logic = true.
c、logic = # true #
d、logic = 3<4
13、下列语句中不能正常执行的是a )
a、print +32758+10
b、print 5+9=15
c、print "65"+12
d、print "65"&12
14、在窗体form1上画两个文本框（name属性分别为fext1和text2）和一个命令按钮（name属性为command1），程序如下。执行后结果为。
private sub command1_click()
a=print a
end sub
private sub form_load()
end sub (c )
a、444b、321123
c、123321
d、132231
15、语句print 4 + 5\6*7/8 mod 9的值是b )
a、4b、5
c、6d、7
16、不能正确表示条件“两个整型变量x和y之一为0，但不能同时为0”的布尔表达式是c )
a、x*y=0 and (x<>0 or y<>0)
b、( x=0 or y=0 ) and (x<>0 or y<>0)
c、not ( x=0 or y=0) and (x<>0 or y<>0) )
d、x*y=0 and x+y<>0
17、i被j整除的逻辑表达式是d )
a、i/j = 0
b、i\j = 0
c、i<>0
d、i mod j = 0
18、如果文本框的enable属性被设置为false,则运行时a )
a、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上。
b、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。
c、文本框中的文本将变成灰色，用户仍能改变文本框中的内容。
d、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。
19、下列表达式中，值为true的是c )
a、ucase("abcd")>abcd"
b、14/2\3>10 mod 4
c、mid(“abcd”,2,2)>left(“abcd”,2)
d、not(sqr(4)-3>= 2)
20、执行下面的程序，单击窗体后在窗体上显示的结果是___
private sub form_click()
dim strl as string, str2 as string,i as integer
str1=”ab”
for i=len(str1)to 1 step-1
str1=str1&chr(asc(mid(str1,i,1))+i)
next i
print str1
end sub ( c )
a、abce
b、abcd
c、abdb
d、abfd
21、设有如下语句： strl=inputbox("输入","练习")从键盘上输入字符串"示例"后，strl的值是d )
a、“输入”
b、“”c、“练习”
d、“示例”
22、假设x的值是5，则执行以下语句时，可得到的输出结果是 abcdef 的 selectcase 语句是a )
a、select case x
case 10 to 1
print “abcdef”
end select
b、select case x
case is>15, is<5
print“abcdef”
end select
c、select case x
case is>5, 1, 3, to 10
print “abcdef”
end select
d、select case x
case 1, 3, is>5
print “abcdef”
end select
23、下面程序的内层循环次数是___
for i=1 to 3
for j=1 to i
for k=j to 3
next k
next j
next i ( b )
a、3b、14
c、9d、21
24、下面程序段运行后，显示的结果是。
dim xif x then print x else print x +1 (a )
a、1b、0
c、-1d、显示出错信息。
25、在过程中有语句fori=n1 to n2 step n3，在该循环体内有下列四条语句，其中___会影响循环执行的次数。 ①n1=n1+i ②n2=n2+n3 ③i=i+n3 ④n3=2*n3 ( c )
a、①②b、①②
c、③d、①②
26、以下语句中，不能正确执行的是d )
a、if then
b、if thenc、d、
27、以下程序段的输出结果是。
dim b(2, 2) as integer
dim i, j, t as integer
for i = 1 to 2
for j = 0 to 2
b(i, j) =j
next j
next i
t = 1for i = 0 to 2
for j = 0 to 2
t = t + b(i, b(j, j))
next j
next i
print t (d )
a、3b、4
c、1d、7
28、以下程序输出的结果是。
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(i) (d )
a、49b、0
c、不确定。
d、程序出错。
29、option base 1
private sub command1_click()
dim a%(3, 3)
for i = 1 to 3
for j = 1 to 3
if j > 1 and i > 1 then
a(i, j) =a(a(i - 1, j - 1), a(i, j - 1)) 1
elsea(i, j) =i * j
end if
print a(i, j);
next j
printnext i
end sub (a )
vb模拟测试卷
vb模拟测试卷2满分 80分。姓名 1 单项选择题 本题共计40分 1 执行以下程序，在窗体上显示的第一行内容是 第二行内容是private sub command1 click dim x y x 10y 15call value x,y print x x,y yend sub private ...
20模拟09高考测试卷分析
毛强。一 理综测试卷分析。本次理综测试卷较去年高考理综试卷有所变化，第一分值变化，化学由原来的108分变为现在的100分，减少8分给了生物，生物变成80分 第二客观性试题，化学减少一道选择题，生物增加一道选择题，在此化学减了6分，生物增加6分 第三主观性试题，化学还是四个大题，分值减少2分，给生物，...
模拟测试卷
镇江市2014年中考模拟训练。思品试题。第 卷 客观题共60分 一 单项选择题 下列各题的四个选项中，只有一项是最符合题意的。请在答题卡。上指定的位置填写你认为正确的选项。本大题共30小题，每小题2分，共60分。1.近年来，我市广泛开展以 不给别人添麻烦 为主题的道德教育实践活动，开展这一活动旨在 ...