VB NET语言习题集（刘炳文书）

If ______(17)____Then

Console.WriteLine(n) CountN=CountN+1

End If

Loop____(18)_________

End Sub

9、下面程序运行的结果是_________________，该程序的功能是 _____________________。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim a , n As Integer , x As String N=20

Do While n<>0 A=n mod 2 N=n\\2

X=Chr(48+a) & x Loop

MsgBox(“x=” & x) End Sub

三、编程题

1、有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯有多少阶?

[提示]利用其肯定是7的倍数这个条件，然后根据同时满足除n余m(n=2，3，4，5，6；m=1，2，3，4，5)的逻辑关系即可。

2．一个球从100m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10 次落地时，共经过多少米?落地10次反弹高度多少? 3、己知N=30，求级数sum=21!?束。

4、编写程序，用近似公式：

?4?1?13?15?1714!???1N!的和，要求当某项（1/N！）的绝对值≤10-7时，运算结

+…+(-1)n-1

12n?1, 求π近似值，直到最后一项的绝对值小于10-4为止。

5、求S=1+(1+3)+(1+3+5)+(1+3+5+7)+……+99的和。

6、求S=2+22+222+……+2…2的和。 共20个项

7、设计一个程序，求任意一个十进制整数N的各个位数之和，设M（M=4）为N的位数。

例如：8563=》8+5+6+3=22

8、见书P201页 7.14题 9、见书P201页 7.16题

第7章Visual Basic .NET控制结构与过程(过程部份习题)

一、选择题

1．在过程定义中用_____________表示形参的传值。

(A)Var (B)ByDef (C)ByVal (D)Value

2．若已编写了一个Sort子过程，在该项目中有多个窗体，为了方便地调用Sort子过程，应该将过程放在_____________中。

17

(A)过程模块 (B)代码模块 (C)类模块 (D)项目

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

(A)Dim (B)Private (C)Public (D)Static 4、设有如下说明：

Public Sub F1(ByVal n%) ??

n=3*n+4 ??

End Sub

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) 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+5

注意：在VB .NET中，调用子过程的形参变量必须用括号括起来。

5．下面子过程语句或函数过程，说明合法的是________________。

(A)Sub n(ByVal n％( )) (B)Sub f1(ByRef n%) As Integer (C)Function f1％(ByRef f1％) (D)Function f1(ByVal n%) 6．要想从子过程调用后返回m,n两个变量结果_____________。 (A)Sub f2(ByVal n％，ByVal m％) (B)Sub f1(n％，ByVal m％) (C)Sub f1(n％，m％)

(D)Sub f1(ByVal n％，m％)

7．下面过程运行后显示的结果是_____________。

Public Sub F1(ByRef n％，ByVal m％) Private Sub Button1_Click(……) N=n Mod 10 Dim x%,y% M=m\\10 x=12:y=34

End Sub Call F1(x,y)

Debug.Write( x & y) End Sub

(A)2 34 (B)12 34 (C)2 3 (D)12 3 8、如下程序，运行的结果是_____________。

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Debug.WriteLine(p1(3,7)) End Sub

Public Function pl!(ByRef x!, ByRef n%)

If n=0 then P1=1 Else

18

If n 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

9．如下程序，运行的结果是_______________。

Dim a％，b％，c％

Public Sub pl(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

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

A=2: b=4: c=6 Call pl(a,b)

Debug.WriteLine( “a=” & a & “ “ & “b=” & b & “ “ & ”c=” &c) Call p2(a,b)

Debug.WriteLine( “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

10、如下程序，运行的结果是__________。

Public Sub Proc(ByVal a％()) Static i％ Do

A(i)=a(i)+a(i+1) I=i+1

Loop While i<2 End Sub

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) 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：Debug.Write(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

19

二、填空题

1、如下程序，运行的结果是___（1）_____, 函数过程的功能_____（2）____。

Public Function f(ByVal n％，ByVal r％) If n<>0 Then F=f(n\\r，r)

Debug.Write( n Mod r)

End If End Function

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Debug.WriteLine( f(100，8)) End Sub

2、如下程序，运行的结果是____（3）__, 函数过程的功能是____（4）_______。

Public Function f(ByVal m％，ByVal n％) Do While m<>n

Do While m>n: m=m-n :loop Do While n>m: n=n-m: loop Loop F=m

End Function

Private Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Debug.WriteLine( f(24，18))

End Sub

三、 程序设计：

1、 此题较重要：编写程序求S＝A！＋B！＋C！，阶乘的计算分别用Sub过程和Function函数过

程。

2、此题较重要：编写一个求最大值Max和最小值的过程，然后用这个过程求5个数中的最大值和最小值。

3、用随机函数Rnd生成一个8行8列的数组，（各元素值在12至89之间），然后找出某个指定

行内值最大元素所在的列号。要求：查找指定行内值最大的元素所在列号的操作通过一个过程来实现。

4、此题较重要：比较两个数的大小，在窗体中有三个文本框Textl、Text 2、Text3，两个按钮分别用于计算和退出。Textl和Text 2用于从键盘输入两个数，当键盘按的键不是数字键时，文本框接收不到键值，Text3用于显示大的数，不能编辑。要求：

(1)编写Textl和Text 2的KeyPress事件代码和单击“计算“按钮的事件代码。“计算”后鼠标指针为沙漏形状，计算完则恢复。

(2)单击“退出”按钮或按ESC键都可以退出系统。

20