f2=x+x+x
end function
程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是
a) 72 36
b) 109 36
c) 72 6
d) 109 6
正确答案: a
(25) 在窗体上画一个名称mand1的命令按钮,然后编写如下事件过程:
private submand1_click()
c=1234
c1=trim(str(c) )
for i=1 to 4
print
next
end sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
1
12
123
1234
则在下划线处应填入的内容为
a) right(c1,i)
b) left(c1,i)
c) mid(c1,i,1)
d) mid(c1,i,i)
正确答案: b
(26) 在窗体上画一个名称mand1的命令按钮和一个名称为text1的文本框,然后编写如下事件过程:
private submand1_click()
n=val(text1.text)
for i=2 to n
for j=2 to sqr(i)
if i mod j=0 then exit for
next j
if j>sqr(i) then print i
next i
end sub
该事件过程的功能是
a) 输出n 以内的奇数
b) 输出n 以内的偶数
c) 输出n 以内的素数
d) 输出n以内能被j整除的数
正确答案: c
(27) 以下描述中正确的是
a) 标准模块中的任何过程都可以在整个工程范围内被调用
b) 在一个窗体模块中可以调用在其他窗体中被定义为public的通用过程
c) 如果工程中包含sub main过程,则程序将首先执行该过程
d) 如果工程中不包含sub main过程,则程序一定首先执行第一个建立的窗体
正确答案: b
(28) 在窗体上画一个名称mand1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
private function f(m as integer)
if m mod 2=0 then
f=m
else
f=1
end if
end function
private submand1_click()
dim i as integer
s=0
for i=1 to 5
s=s+f(i)
next
print s
end sub
程序运行后,单击命令按钮,在窗体上显示的是
a) 11
b) 10
c) 9
d) 8
正确答案: c
(29) 在窗体上画一个名称为text1的文本框和一个名称mand1的命令按钮,然后编写如下事件过程:
private submand1_click()
dim array1(10,10) as integer
dim i as integer, j as integer
for i=1 to 3
for j=2 to 4
array1(i,j) =i+j
next j
next i
text1.text=array1(2,3) +array1(3,4)
end sub
程序运行后,单击命令按钮,在文本框中显示的值是
a) 15
b) 14
c) 13
d) 12
正确答案: d
(30) 在窗体上画4个文本框(如图所示) 并用这4个文本框建立一个控件数组,名称为text1(下标从0开始,自左至右顺序增大) ,然后编写如下事件过程:
private submand1_click()
for each textbox in text1
text1(i) =text1(i) index
i=i+1
next
end sub
程序运行后,单击命令按钮,4个文本框中显示的内容分别为
a) 0 1 2 3
b) 1 2 3 4
c) 0 1 3 2
d) 出错信息
正确答案: a