VBnet习题集(1)

count=1

If i

count=___________

If j

If count=1 Then

Label1.Text &=a(i) & “ ” Label1.Text &=_________ Else End If

i=_________

Loop End Sub

第六章 过 程

一．选择题

1． 设有如下说明：

Public Sub F1(ByRef n%)

...

n=3 * n+4

... End Sub

Sub Button1_Click (....) Handles Button1.Click Dim n%, m%

n=3 m=4

...

‘调用F1语句

... End Sub

则在Button1_Click 事件中有效的调用语句是（）。

A. F1(n + m) B.F1(m) C.F1(5) D.F1(m,n) 2.下面子过程语句说明最合理的是（）。

A. Sub f1(ByVal n%()) B. Sub f1(ByRef n%) As Integer C. Function f1% (ByRef f1%) C. Function f1(ByVal n%)

3.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（）。 A. Sub f2(ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%)

B. Sub f1(ByRef n%, ByRef m%) D. Sub f1(ByVal n%, ByRef m%)

4.在过程中定义的变量，若希望在离开该过程后还能保存过程中的局部变量的值，则应使用（）关键字在过程中定义过程级变量。

A.Dim B.Private C.Public D.Static 5.下面过程运行后显示的结果是（）。

Public Sub F1(ByRef n%, ByVal m%)

n=n Mod 10

m=m\\10 End Sub

Sub Button1_Click(... ...) Handles Button1_Click

Dim x%, y%

x=12: y=34 Call F1(x, y)

MsgBox(x & “ ”& y)

End Sub

A. 2 34 B. 12 34 C.2 3 D.12 3 6.如下程序，运行的结果是（）。

Sub Button1_Click(......) Handles Button1.Click MsgBox(p1(3.0,7)) End Sub

Public Function p1!(ByVal x!, ByVal n%) If n=0 Then

p1=1 Else

If Mod 2=1 Then

p1=x*p1(x, n\\2) Else

p1=p1(x, n\\2)\\x End If

End If End Function

A.18 B.7 C.14 D.27 7.如下程序，运行的结果是（）。 Dim a%, b%, c% Public Sub p1(ByRef x%, ByRef y%)

Dim c%

x=2*x: y=y+2: c=x+y

End Sub

Public Sub p2(ByRef x%, ByVal y%) Dim c%

x=2*x: y=y+2:c=x+y End Sub

Sub Button1_Click(... ...) Handles Button1.Click a=2: b=4: c=6

Call p1=(a, b)

MsgBox (“a= “ & a &“b=” & b &“c=”& c) Call p2(a, b)

MsgBox (“a= “ & a &“b=” & b &“c=”& c) End Sub

A. a=2 b=4 c=6 B. a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16 C. a=4 b=6 c=6 D. a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6

8．如下程序，运行后各变量的值依次为（）。 Public Sub Proc (ByRef a%())

Static i% Do

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

Loop While i<2

End Sub

Sub Button1_Click(.....) Handles Button1.Click

Dim m%, i%, x%(10) For i=0 To 4

x(i)=i+1 Next i

For i=1 To 2

Call Proc(x) Next i

For i=0 To 4

MsgBox(x(i)) Next i

End Sub

A. 3 4 7 5 6 B.3 5 7 4 5 C. 2 3 4 4 5 D.4 5 6 7 8

二．填空题

1.如下程序，运行显示的值是___________，函数过程的功能是_________ Public Function f(ByVal n%, ByVal r%) If n<>0 Then f=f(n\\r, r) MsgBox(n Mod r) End If End Function

Sub Button1_Click(......) Handles Button1.Click MsgBoxf(f(100,8)) End Sub

2.如下程序，运行显示的值是_________，函数过程的功能是__________。 Public Function f(ByVal m%, ByVal n%)

Do While m<>n If m>n Then

m=m-n Else

n=n-m

End If Loop

f=m

End Function

Sub Button1_Click(.....) Handles Button1_Click MsgBox(f(24,18))

End Sub

3.两个质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。

Public Function IsP (ByVal m) As Boolean

Dim i%

_______________

For i=2 To Int(Math.Sqrt(m))

If_________Then IsP=False

Next i

End Function

Sub Button1_Click(.....) Handles Button1.Click Dim i%, p1, pa As Boolean

p1=IsP(3)

For i=5 To 100 Step 2 p2=IsP(i)

If _________Then Label1.Text &=i-2 & “ ”& i p1 _________

Next i

End Sub

4.子过程MoveStr()是把字符数组移动m个位置。当Tag为True，左移，则前m个字符移到字符数组尾，例如，“abcdefghij”左移三个位置后，结果为“defghijabc”；当Tag为False，右移，则后m个字符移到字符数组前，如“abcdefghij”右移三个位置后，结果为“hijabcdefg”。 子过程如下： Public Sub MoveStr(ByRef a$(),ByVal m%, ByVal Tag As Boolean)

Dim i%, j%, t$ If ____________ Then For i=1 To m ____________

For j=0 To ____________ a(j)=a(j+1)

Next j ____________ Next i

Else For i=1 To m

_____________

For j=UBound(A) __________ a(j)=a(j-1) Next j ___________

Next i End If

End Sub

5.子过程CountN用来统计字符串中各数字字符（“0”~“9”）出现的个数；主调程序实现在TextBox1框输入的文本，每次单击“统计”按钮，调用该子过程，在Label1框中显示结果，运行界面如图所示

Sub Button1_Click(.....) Handles Button1.Click