二级Visual+Basic过程(二)模拟题

[模拟] 二级Visual Basic过程(二)

选择题

第1题：

已知数组a(1 To 10)As Integer，下面调用GetValue函数正确的是______。

Private Function GetValue(a()As Integer)As Integer

For i=1 To 10

GetValue=GetValue+a(i)

Next i

End Function

A.S=GetValue(a(1 To 10))

B.S=GetValue(a)

C.S=GetValue(a(10))

D.S=GetValue a

参考答案：B

第2题：

运行下面程序后，输出结果为______。

Private Sub Command1_Click()

a=1:b=2:c=3

Call test(a, b+3，(c))

Print"main:"; a; b; c

End Sub

Private Function test(p, m, n)

p=p+1:m=m+1:n=n+1

Print"sub:"; p; m; n

End Function

A.sub:2 6 4 main:1 2 3

B.sub:2 4 6 main:2 2 3

C.sub:2 6 4 main:2 6 4

D.sub:2 6 4 main:1 6 4

参考答案：B

第3题：

执行按钮单击事件，输出结果为______。

Private Sub Command1_Click()

Dim a(1 To 4)As Integer

a(1)=5:a(2)=6:a(3)=7:a(4)=8

P a()

For i=1 To 4

Print a(i)

Next i

End Sub

Private Sub P(b()As Integer)

For i=1 To 4

b(i)=2*i

Next i

End Sub

A.2 4 6 8

B.5 6 7 8

C.10 12 14 16

D.出错

参考答案：A

第4题：

调用并执行C盘计算器程序，让窗口具有焦点，且会还原到它原来的大小和位置，下列调用方法正确的是______。

A.Shell"C:WINDOWS\CALC.EXE", vbHide

B.Shell"C: \WINDOWS \CAL

C.EXE" , vbNormalFocus

C.Shell"C: \WINDOWS \CALC.EXE" , vbMinimizedNoFocus

D.Shell"C: \WINDOWS \CALC.EXE", vbNormalNoFocus

参考答案：B

第5题：

下列程序输出结果为：

Private Sub Command1_Click()

a%=10

b%=5

Change a, b

Print a, b

End Sub

Private Sub Change(ByVal a As Integer, b As Integer)

Tmp=a

a=b

b=tmp

End Sub

A.5 5

B.10 10

C.10 5

D.5 10

参考答案：B

第6题：

下述程序的运行结果是______。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a=5

b=5

ShowValue a, b

End Sub

Sub ShowValue(a As Integer, b As Integer)

calc1 a, b

calc2 a, b

Print a：

Print b

End Sub

Private Sub calc1(a As Integer, b As Integer) a=a+b

End Sub

Private Sub calc2(a As Integer, b As Integer) b=a*b

End Sub

A.10 50

B.5 25

C.5 5

D.10 5

参考答案：A

第7题：

下列程序运行后，输出的结果是______。

Private Sub Command1_Click()

a=1:b=1

Print"a="; a; "，b="; b

Call multi(a, b)

Print"a="; a; ", b="; b

End Sub

Private Sub multi(x, y)

x=2*x

y=3*y

Print"x="; x"，y="; y

End Sub

A.a=1, b=1 x=2, y=3 a=1, b=1

B.a=1, b=1 x=2, y=3 a=2, b=3

C.a=1, b=1 x=2, y=3 a=1, b=3

D.a=1, b=1 x=2, y=3 a=2, b=1

参考答案：B

第8题：

单击一次命令按钮后，下列程序代码的执行结果为______。

Private Sub Command1_Click()

Dim m As Integer, i As Integer, x(10)As Integer

For i=0 To 4:x(i)=i+1:Next i

For i=1 To 2:Call Prioc(x):Next i

For i=0 To 4:Print x(i); :Next i

End Sub

Private Sub Prioc(a()As Integer)

Static i As Integer

Do

a(i)=a(i)+a(i+1)

i=i+1

Loop While i〈 2

End Sub

A.3 4 7 5 6

B.3 5 7 4 5

C.1 2 3 4 5

D.1 2 3 5 7

参考答案：B

第9题：

有如下程序，运行后单击按钮输出的结果是______。

Private Sub Command1_Click()

m=5:n=4

Call A(m, n)

Print m, n

End Sub

Private Sub A(m, n)

s=m

m=s/n

n=s Mod n

End Sub

A.1.25 1

B.5 4

C.1 4

D.5 1

参考答案：A

第10题：

通用过程可以通过执行“工具”菜单中的______命令来建立。

A.添加过程

B.通用过程

C.添加窗体

D.添加模块

参考答案：A

第11题：

Sub过程与Function过程最根本的区别是______。

A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以

B.Function过程可以有参数，Sub过程不可以

C.两种过程参数的传递方式不同

D.Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

参考答案：D

第12题：

单击窗体时，下列程序代码的执行结果是______。

Private Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String

Dim I As Integer

I=Len(xstr)

Do While I〉=1

Tempstr=tempstr+Mid(xstr, I, 1)

I=I-1

Loop

ystr=tempstr

End Sub

Private Sub Form_Click()

Dim s1 As String, s2 As String

s1="abcdef"

Invert S1, s2

Print s2

End Sub

A.abcdef

B.afbecd

C.fedcba

D.defabc

参考答案：C

第13题：

下面过程定义语句中合法的是______。

A.Sub Proc(ByVal n())

B.Sub Proc(n)As Integer

C.Function Proc(Proc)

D.Function Proc(ByVal n)

参考答案：D

第14题：

要想在过程调用后返回两个结果，下面的过程定义语句中合法是______。

A.Sub Proc(ByVal n, ByVal m)

B.Sub Proc(n, ByVal m)

C.Sub Proc(n, m)

D.Sub Proc(ByVal n, m)

参考答案：C

第15题：

以下程序执行按钮单击事件后的输出结果为______。

Private Sub Command1_Click()

Print Test(2，3)

Print Test(2, 3, 4)

Print Test(2，3, 0)

End Sub

Private Function Test(p, m, Optional n=0)As Integer

Test=p*m-n

End Function

A.6 2 6

B.6 2 2

C.6 2 4

D.出错

参考答案：A

第16题：

下列程序执行后，在文本框中输入“a”，输出结果为______。

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode

Shift=2

Print Shift

End Sub

A.65 2

B.65 1

C.a 2

D.出错

参考答案：A

第17题：

下列叙述中正确的是______。

A.在窗体的Form_Load事件过程中定义的变量是全局变量

B.局部变量的作用域可以超出所定义的过程

C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D.在调用过程时，所有局部变量被系统初始化为0或空字符串

参考答案：C

第18题：

以下叙述中错误的是______。

A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B.Sub过程中不能嵌套定义Sub过程

C.Sub过程中可以嵌套调用Sub过程

D.事件过程不可以像通用过程一样由用户定义过程名

参考答案：C

第19题：

假定有以下函数过程：

Function Fun(s As String)

Dim s1 As String

For i=1 To Len(s)

s1=Ucase(Mid(s, i, 1))+s1

Next i

Fun=s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private SubComand1_Click()

Str1=InputBox("请输入一个字符串")

Str2=Fun(Strl)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上输出的结果为______。

A.abcdefg

B.ABCDEFG

C.gfedcba

D.GFEDCBA

参考答案：D

第20题：

以下叙述中错误的是______。

A.用Shell函数可以调用能够在Windows下运行的应用程序

B.用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数

C.调用Shell函数的格式应为：〈变量名〉=Shell(…)

D.用Shell函数不能执行DOS命令

参考答案：B

第21题：

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别Labe11，Labe12的标签，然后编写如下程序代码：

Private x As Integer

Private Sub Command1_Click()

Dim y As Integer

X=5:y=3

Call proc(x, y)

Label1.Caption=X

Labe12.Caption=y

End Sub

Private Sub proc(ByVal a As Integer, ByVal b As Integer) x=a*a

b=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

A.5和3

B.25和3

C.25和6

D.5和6

参考答案：B

填空题

第22题：

过程前面添加______表示此过程只可被本模块中的其他过程调用，而添加______表示可被其他模块过程调用。

参考答案：

Private；Public

第23题：

下列程序的功能是根据两直角边计算直角三角形的斜边并输出，完成下列程序。

Private Sub Command1_Click()

a%=InputBox("Input LineA")

b%=InputBox("Input LineB")

c%=______

If c%〈=0Then

Print"Wrong Lines!"

Else

Print c%

End If

End Sub

Private Function GetValue(ByVal a As Integer, ByVal b As Integer)As Integer

If a〈=0 Or b〈=0 Then Exit Function

GetValue=______

End Function

参考答案：

GetValue(a, b)；Sqr(a*a+b*b)

第24题：

有如下程序：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, C As Integer

a=3:b=5:c=7

abc=F(c, a, b)

Print abc

End Sub

Private Function F(x As Integer, y As Integer, z As Integer)As Integer

F=(x+y*y)*z

End Function

运行后，输出的结果是______。

参考答案：

80

第25题：

有如下程序：

Private Sub Command1_Click()

For j=5 To 3 Step-1

Call s (n)

m=m+n

Next j

Print m; n

End Sub

Private Sub s(n)

n=1+2*n

End Sub

运行后，输出的结果是______。

参考答案：

11 7

第26题：

过程(Sub)和函数(Function)二者中，______可以直接返回值。

参考答案：

函数

第27题：

在窗体上画一个命令按钮，然后编写如下程序：

Sub inc(a As Integer)

Static x As Integer

x=x+a

Print x：

End Sub

Private Sub Command1_Click()

mc 2

inc 3

inc 4

End Sub

程序运行后，单击命令按钮，输出结果为______。

参考答案：

2 5 9

第28题：

在窗体上画一个命令按钮，然后编写如下程序：

Function M(x As Integer, y As Integer)As Integer

M=IIf(x〉y，x，y)

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a=1

b=2

Print M(a，b)

End Sub

程序运行后，单击命令按钮，输出结果为______。

参考答案：

2

第29题：

有一个窗体，其上有一个命令按钮Command1(Caption为“确定”)，在该窗体上设置如下事件过程：

Function fun(ByVal x As Integer)

If (x=0 Or x=1)Then

fun=3

Else

fun=x-fun(x-2)

End If

End Function

Private Sub Command1_Click()

Print fun(9)

End Sub

程序运行后，单击“确定”按钮后，输出的结果为______。

参考答案：

7

第30题：

有一个窗体，其上有一个命令按钮Command1(Caption为“确定”)，在该窗体上设置如下事件过程：

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

a=5

b=4

fun a, b

Print a:b

End Sub

Sub fun(x As Single, y As Single)

t=x

X=t/y

y=t Mod y

End Sub

程序运行后，单击“确定”命令按钮后，输出结果为______。参考答案：

1.25 1

第31题：

下列程序的运行结果是______。

Function abcd(ByVal n As Integer)As Integer

abcd=n*5+10

End Function

Private Sub Form_Click()

Dim x As Integer

x=abcd(234)+109*abcd(12)

Print x

End Sub

参考答案：

8810

第32题：

下列程序的运行结果是______。

Sub test(i As Integer)

i=i+1

End Sub

Private Sub Form_Click()

Dim X As Integer

x=4

Print "x="：x

Call test(x)

Print "x="：x

End Sub

参考答案：

x=4 x=5

第33题：

下列程序的运行结果是______。

Function factor(ByVal n As Integer)As Integer

Dim temp As Integer

temp=1

For i%=1 To n

temp=temp*i%

Next i%

factor=temp

End Function

Private Sub Form_Click()

Dim nsum As Integer

nsum=1

For i%=2 To 4

nsum=-nsum+factor(i%)

Next i%

Print nsum

End Sub

参考答案：

19

第34题：

下列程序的运行结果是______。

Option Explicit

Private Function dg(n)As Integer

If n=1 Then

dg=1

Else

dg=n*dg(n-1)

End If

End Function

Private Sub Form_Click()

Dim m As Integer

Dim fa As Integer

m=5

fa=dg(m)

Print"fa="：fa

End Sub

参考答案：

fa=120

第35题：

下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。

Private Sub Form_Click()

Dim an(10)As Integer

Dim max As Integer

Randomize

For i%=1 To 10

an(i%)=______

Next i%

max=______

For i%=2 To 10

if______then

max=an(i%)

End If

Next i%

Print max

End Sub

参考答案：

Int(Rnd*100)；an (1)；an (i%)〉max

第36题：

下列程序的功能是，计算1!+3!+…+9!的值。请将程序补充完整。

Dim nt1 As Single

Sub naa(ByVal n As Single)

nt1=1

For i%=1 To n

nt1=nt1*i%

Next i%

End Sub

Private Sub Form_Click()

Dim nsum As Single

nsum=0

nsum=0

For nlp%=______

naa(______)

nsum=______

Next nlp%

Print nsum

End Sub

参考答案：

1 To 9 Step 2；nlp%；nsum+nt1