满分：252分。
姓名：__1、单项选择题(本题共计100分)
1、单击command1按钮，输出的第二行是。
private sub command1_click()
dim a as integer,k as integer
a = 2k=fun((a),a)+ fun(a,a)
print"k=";k
end sub
private function fun(x as integer,y as integer)as integer
static k as integer
k = k+x+y
x = x+y
y=y+kfun = x+y
print fun;x;y
end function (
a、10 4 6
b、56 28 28
c、k=66
d、22、在设计列表框时，若实现输入多行文字的目的，应使用___键实现文本的换行。 (
a、enter
b、alt+enter
c、ctrl+shift+enter
d、ctrl+enter
3、下列4个表达式中，不能对single类型变量x(正数)的第三位小数正确地进行四舍五入的是 (
a、format(x,"#
b、int(100*(x+0.005))/100
c、cint(100*(x+0.005))/100
d、fix(100*(x+0.005))/100
4、如下二维数组声明语句，__正确。 (
a、dim a[3，4] as integer
b、dim a(3，4) as integer
c、dim a(n，n) as integer
d、dim a(34) as integer
5、下列程序段的输出结果是。
dim i as integer
dim a(8) as integer
y = 18: i = 0
doa(i) =y mod 2
i = i + 1
y = y \ 2
loop until y < 1
for j = i - 1 to 0 step -1
print a(j);
next j (
a、1 0 0 0 0
b、1 0 0 1 0
c、0 0 1 1 0
d、1 0 1 0 0
6、用msgbox（"hello", vbokonly, "你好"）显示的消息对话框窗口的标题是。
a、你好。b、vbokonly
c、okd、hello
7、下列语句可以用来正确地声明一个动态数组的是。
a、private a(n) as integer
b、dim a() as integer
c、dim a(,)as integer
d、dim a(1 to n)
8、下面是计算1~100奇数和的程序，空处应填___
private sub command1_click()
dim s as long, x as integer
s = 0for xstep -2
s = s + x
next x
print s
end sub (
a、100 to 1
b、1 to 10
c、99 to 1
d、1 to 99
9、下面语句运行后的输出结果是___
private sub command1_click()
x=0do while x<10
x=x+1x=x*x
loopprint x
end sub (
a、6b、12
c、18d、30
10、关于语句if x=1 then y=1，下列说法正确的是。
a、x=1和y=1均为赋值语句。
b、x=1和y=l均为关系表达式。
c、x=1为关系表达式，y=1为赋值语句。
d、x=1为赋值语句，y=l为关系表达式。
11、下面程序是一个求最大公约数的程序，执行程序后，m的值为___
dim m as integer, n as integer
m=200n=150
if n*m=0 then exit sub
if mt=m: m=n: n=t
end if
dor=m mod n
m=nn=r
loop while r<>0
text3=m (
a、50b、100
c、150d、200
12、vb也提供了结构化程序设计的三种基本结构，这三种基本结构是。
a、递归结构、选择结构、循环结构。
b、选择结构、过程结构、顺序结构。
c、过程结构、输入\输出结构、转向结构。
d、选择结构、循环结构、顺序结构。
13、执行以下语句后，a的值为___
dim a as integer
a=1do until a=100
a=a+2loop (
a、99b、100
c、101d、溢出。
14、下面程序的内层循环次数是___
for i=1 to 3
for j=1 to i
for k= j to 3
next k
next j
next i (
a、3b、14
c、9d、21
15、假设boolvar是一个逻辑型变量，则下面的赋值语句正确的是。
a、boolvar='true'
b、boolvar=.true.
c、boolvar=#true#
d、boolvar=3<4
16、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是。
a、text1=a/b*a
b、text1=a*a/b
c、text1=“200”*a/b
d、text1=a&b&a
17、函数cint(–3.5)，int(–3.5)，fix(–3.5)的值分别是。
a、-3，–4，–3
b、-4，–4，–3
c、-3，–4，–4
d、-4，–3，–3
18、在vb中，下列关于控件的属性或方法中，搭配错误的有___个。
a、0b、1
c、2d、3
19、单选按钮（optionbutton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的___中安排适当的单选按钮，即可实现。 (
a、框架控件(frame)或图象控件(image)
b、组合框(combobox)或图象控件(image)
c、组合框(combobox)或**框(picturebox)
d、框架控件(frame)或**框(picturebox)
20、以下有关对象属性的说法中正确的是。
a、对象所有的属性都罗列在属性窗口列表。
b、不同对象不可能有同名属性。
c、不同对象的同名属性取值一定相同。
d、对象的某些属性即可在属性窗口设置，也可以通过属性**设置或改变。
21、假定变量logic类型是boolean，下面赋值语句___是正确的。 (
a、logic = true’
b、logic = true.
c、logic = # true #
d、logic = 3<4
22、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入。
a、-b、+
c、&d、#
23、下列语句中的语句可以用来正确地声明一个动态数组。 (
a、private a(n) as integer
b、dim a() as integer
c、dim a(,)as integer
d、dim a(1 to n)
24、一个可执行的visualbasic中应用程序至少要包括一个。
a、标准模块。
b、类模块。
c、窗体模块。
d、辅助模块。
25、对窗体编写如下**：
option base 1
private sub command1_click( )
a=array(237,126,87,48,498)
m1=a(1)
m2=1for i=2 to 5
if a(i)>m1 then
m1=a(i)
m2=iend if
next i
print m1;m2
end sub
程序运行后，按回车键，输出结果为。
a、48 4
b、237 1
c、498 5
d、498 4
26、存在如下程序：
private sub command1_click( )
a=val(inputbox(“请输入”))
b=val(inputbox(“请输入”))
x=a+bif a>b then
x=a–bendif
print x
end sub
运行后，从inputbox对话框中连续输入3和4，输出结果为。
a、3b、34
c、7d、0
27、只能由系统触发的是事件。 (
a、resize
b、dblclick
c、timer
d、paint
28、vb表达式sqr(a+b)^3*2中优先进行运算的是。
a、sqr函数。
b、+c、^
d、*29、在窗体上画一个命令按钮，然后编写如下事件过程：
option base 1
private sub command1_click( )
dim a as variant
a = array(1,2,3,4)
j = 1for i = 4 to 1 step -1
s = s + a(i)*j
j = j * 10
next i
print s
end sub
运行上面的程序，单击命令按钮，其输出结果是。
a、4321
b、12c、34
d、1234
30、下列语句中不能正常执行的是。
a、print +32758+10
b、print 5+9=15
2019vb上机
一 题目。1 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。界面如下 要求使用for循环，运行结果 1307674368000 2 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要求使用do loop until循环 3 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要...
2019vb试卷A
2011 2012学年第二学期vb期末考试卷答题纸 a卷 专业班级学号姓名。一 单选题 用铅笔把选中的方格涂黑 50 1 50分 二 填空题 每空占一行，每行写一个答案 20 2 40分 三 程序设计 5 2 10分 1 编写一sub过程，对一维数组a中的元素从小到大排序。private sub s...
2019VB上机
1题 目的 学会rgb 函数 rnd 函数的使用。学会select case结构的应用。训练编程思维。在窗体上不做任何控件。单击窗体，产生1至4之间的随机数。随机数是1，窗体背景色变红色。随机数是2，窗体背景色变绿色。随机数是3，窗体背景色变蓝色。随机数是4，窗体背景色变黑色。窗体参考图如下 使用s...