2023年春笔试试卷

第二部分visual basic程序设计。

一、选择题(每题1分，共15分)

21．在visual basic中最基本的对象是___它是应用程序的基石，也是其他控件的容器。

a．文本框 b．命令按钮 c．窗体 d．标签。

22．应用程序窗体的名称属性为frml，窗体上有一个命令按钮，其名称属性为cmdl，窗体和命令按钮的click事件过程名分别为___

a．form_click()、command1_click() b．frm1_click()、command1_click()

c．form_click()、cmd1_clickd．frm1_click()、cmd1_click()

23．多窗体程序由多个窗体组成。在缺省情况下，vb在执行应用程序时，总是把___指定为启动窗体。

a．不包含任何控件的窗体 b．设计时的第一个窗体。

c．命名为frm1的窗体 d．包含控件最多的窗体。

24．使用___方法可将新的列表项添加到一个列表框中。

a．print b．additem c．clear d．removeitem

25．若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用___关键字在该过程中定义局部变量。

a．dim b．private c．public d．static

26．下列表达式中，值为true的是___

a．ucase("abcd")>abcdb．14／2＼3<10 mod 4

c．mid("abcd",2,2)>left("abcd",2) d．not(sqr(4)-3>-2)

27．下列___说法是不正确的。

a．当程序正常结束时，所有没用close语句关闭的文件都会自动关闭。

b．在关闭文件或程序结束之前，可以不用unlock语句对已锁定的记录解锁。

c．可以用不同的文件号同时打开一个随机文件。

d．用output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除。

28．代数表达式，对应的visual basic表达式是。

a．sqr((x+log(x))／a+b))+exp(-t)+sin((x+y)／2)

b．sqr( x+log(x)／(a+b))+exp(-t)+sin((x+y)／2)

c．sqr((x+ln(x))／a+b))+exp(-t)+sin(x+y)／2)

d．sqr((x+log(x))／a+b))+exp(-t)+sin(x+y／2)

29．在程序中可以通过复选框和单选按钮的属性值来判断它们的当前状态。

a．caption b．value c．checked d．selected

30．在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入___符号，那么在运行程序时按【alt】键和该字母键就可打开该命令菜单。

a．下划线 b．& c．$ d．@

31．在多窗体程序中，可以在标准模块或某个窗体模块的通用声明处，分别用___语句定义一个在所有窗体模块都可以引用的变量inta。

a．private inta as integer public inta as integer

b．public inta as integer private inta as intege。

c．public inta as integer public inta as integer

d．private inta as integer private inta as integer

32．在应用程序中用“private function fun(x as integer, y as single)”定义了函数fun。调用函数fun的过程中的变量i、j均定义为integer型，能正确引用函数fun的是___

①fun(i, jcall fun(i, 3.65)

③fun(3.14, 234) ④fun("245", 231.5")

abcd．①②

33．若在应用程序的标准模块、窗体模块和过程sub1的说明部分，分别用“public g as integer”、“private g as integer”和“dim g as integer”语句说明了三个同名变量g。如果在过程sub1中使用赋值语句“g=3596”，则该语句是给在___说明部分定义的变量g赋值。

a．标准模块b．过程sub1

c．窗体模块d．标准模块、窗体模块和过程sub1

34．有程序**“"visual basic"”，其中的text1、text和"visual basic"分别代表。

a．对象、值、属性 b．对象、方法、属性。

c．对象、属性、值 d．属性、对象、值。

35．执行下面的程序，单击窗体后在窗体上显示的结果是。

private sub form_click()

dim str1 as string, str2 as string

dim str3 as string, i as integer

str1="e"

for i=1 to 2

str2=ucase(str1)

str1=str2 & str1

str3=sir3 & str1

str1=chr(asc(str1)+i)

next i

print str3

end sub

a．eeff b．eeff c．eeff d．eeff

二、填空题(每空1分，共25分。)

1．根据图中给出的窗体，填写下表中的相关内容，“x”表示该对象无此属性。

2．执行下面的程序，在窗体上显示的输出结果的第一行是___第二行是___

option explicit

private sub form_click()

dim m as integer，n as integer，k as integer

n=-3for m=6 to 1 step n

m=m+1n=n-m

k=k+lnext m

print k

print n

end sub

3．执行下面的程序，在窗体上显示的输出结果的第一行是___第三行是___

private sub form_click()

dim n as integer, i as integer

n=2for i=9 to 1 step -1

call sub2(i, n)

print i, n

next i

end sub

private sub sub2(x as integer, y as integer)

static n as integer

dim i as integer

for i=3 to 1 step -1

n=n+xx=x-l

next i

y=y+nend sub

4．执行下面的程序后，a(1，3)的值是___a(2，2)的值是___a(3，1)的值是。

option explicit

private sub form_click()

dim a(3, 3)as integer, i as integer

dim j as integer, k as integer, n as integer

n=9for k=5 to 1 step -1

if k>=3 then

for i=1 to 6-k

a(k-3+i, i)=n

n=n-1next i

elsefor i=l to k

a(k-i+1, 3-i+1)=n

n=n-lnext i

end if

next k

for k=1 to 3

for i=1 to 3

print a(k, i);

next i

printnext k

end sub

5．执行下面的程序，在窗体上显示的输出结果的第一行是___第二行是___

option explicit

private sub form_click()

dim a as integer

a=2call sub1(a)

end sub

private sub sub1(x as integer)

x=x*2+1

if x<10 then

call sub1(x)

end if

x=x*2+1

2023年 春 笔试试卷

2023年 春 笔试试卷

2023年 春 笔试试卷

2023年春笔试试卷

其他用户还读了

2023年春笔试试卷

2023年春笔试试卷

2023年春笔试试卷