【精选资料】VB控件 数组 过程复习题 参考答案2

常用标准控件作业

一、选择题

1．下列关于属性设置的叙述错误的是_______B__。

A．一个控件具有什么属性是Visual Basic预先设计好的，用户不能改变它

B．一个控件具有什么属性值是Visual Basic预先设计好的，用户不能改变它

C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置

D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值

2．以下过程是标签Label1的___A______事件。

Prviate Sub Label1_Click( )

End Sub

A.单击

B.双击

C.拖拽

D.移动

3．下列控件中可设置滚动条是____C_____。

A.检查框（复选框）

B.框架

C.文本框

D.标签框

4．标签所显示的内容，由___C______属性值决定。

A. Text

B. Name

C. Caption

D. Alignment

5．定时器的定时间隔单位是__C_______。

A. 秒

B. 微秒

C. 毫秒

D. 分

6．检查框（复选框）的控件名称为______B___。

A. OptionBotton

B. CheckBox

C. PictureBox

D. Image

7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置______D___。

A. Text属性值为&

B. Caption属性值为&

C. PasswordChar属性值为空

D. PasswordChar属性值为&

8．若要设置定时器的定时间隔，可通过__A_______属性来设置。

A. Interval

B. Value

C. Enabled

D. Text

9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为_D________。

A. 5

B. 50

C. 500

D. 5000

10．若要使不可见命令按钮显示出来，可通过设置_____A____属性的值为True来实现。

A.Visible

B.Enabled

C.Default

D.Value

11．若要使定时器起作用，应将其__D_______属性设置值设为True。

A.Interval

B.Value

C.Text

D.Enabled

12．若要使命令按钮失效，可设置_____B____属性为False来实现。

A.Value

B.Enabled

C.Visible

D.Cancel

13．若要向列表框新增列表项，可使用_____D____方法来实现。

A.Add

B.RemoveItem

C.Clear

D.AddItem

14．要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的_____B____属性来实现。

A.Value

B.Max

C.Min

https://www.360docs.net/doc/1e2207007.html,rgeChange

15．要将命令按钮上的文字设置为“粗体”可通过设置__B_______属性值为True来实现。

A.FontItalic

B.FontBold

C.FontUnderline

D.FontSize

16．要将命令按钮上的文字设置为“斜体”可通过设置____A_____属性值为True来实现。

A.FontItalic

B.FontBold

C.FontUnderline

D.FontSize

17．要将命令按钮上的字体设为“隶书”，可设置______C___的属性为“隶书”。

A.FontBold

B.BackItalic

C.FontName

D.FontSize

18．以下选项中，不属于单选按钮属性的是____D_____

A.Enabled

B.Caption

https://www.360docs.net/doc/1e2207007.html,

D.Min

19．组合框的风格可通过____C_____属性来设置。

A.BackStyle

B.BorderStyle

C.Style

D.Sorted

20．标签的边框由_____C____属性的设置来决定。

A.BackColor

B.BackStyle

C.BorderStyle

D.AutoSize

21．单选按钮的控件名称为____D_____。

A.Botton

B.CheckBox

C.PictureBox

D.OptionBotton

22．单选按钮的当前状态可通过___A______属性来访问。

A.Value

B.Checked

C.Selected

D.Caption

23．当滚动条中的滑块位置变化时，将触发其___C______事件。

A.LostFocus

B.SetFocus

C.Change

D.GetFocus

24．假定Picture1和Form1分别为图片框和窗体的名称，以下语句___A______可清除图片框中的文本信息。

A.Picture1.cls

B.Picture1.clear

C.Form1.cls

D.Form1.clear

25．确定一个窗体或控件的大小的属性是_____B____。

A.Width或Height

B.Width和Height

C.Top或Left

D.Top和Left

26．确定一个控件在窗体上的位置的属性是____D_____。

A.Width或Height

B.Width和Height

C.Top或Left

D.Top和Left

27．若要获得当前列表项的数目，可通过访问____D_____属性来实现。

A.Columns

B.Text

C.ListIndex

D.ListCount

28．若要获得滚动条的当前值，可通过访问_____B____属性来实现。

A.Text

B.Value

C.Max

D.Min

29．若要将命令按钮设置为默认按钮，可设置___D______属性为True来实现。

A.Cancel

B.Value

C.Enabled

D.Default

30．若要清除列表框中列表项，可使用____C_____方法来实现。

A.Add

B.RemoveItem

C.Clear

D.AddItem

31．若要设置文本框最大可接收的字符数，可通设置_____D____属性值来实现。

A.Multiline

B.Length

C.Min

D.MaxLength

32．若要使标签成为透明，可通过设置____B_____属性来实现。

A.BackColor

B.BackStyle

C.BorderStyle

D.ForeColor

33．若要使标签的大小自动与所显示的文本相适应，可通过设置_____A____属性的值为True来实现。

A.AutoSize

B.Alignment

C.Apperance

D.Visible

34．若要使只读文本框成为可编辑文本框，可通设置___D______属性值为False来实现。

A.ReadOnly

B.Unlock

C.Enabled

D.Locked

35．若要在列表框中同时选择多项，可通过设置列表框对象的_____C____属性来实现。

A.Columns

B.Style

C.MultiSelect

D.List

36．用户在组合框中所输入的数据，可通过访问组合框对象的____A_____属性来获得。

A.Text

B.List

C.List index

D.ListCount

37．用鼠标选择列表框中的项目，将触发其____C_____事件。

A.Change

B.Click

C.Select

D.ItemCheck

38．在VB 窗体要设计两组单选按钮，应用____D_____控件对其分组。

A.Picture

B.Image

https://www.360docs.net/doc/1e2207007.html,bel

D.Frame

39．在图片框(PictureBox)中显示的图形，由对象的_____A____属性决定。

A. Picture

B. Image

C. Icon

D. LoadPic

40．标签中内容的对齐方式，由_____D____属性值决定。

A.Text

https://www.360docs.net/doc/1e2207007.html,

C.Caption

D.Alignment

41．当拖动滚动条滑块时，将触发其_____C____事件。

A.LostFocus

B.SetFocus

C.Scroll

D.GetFocus

42．假定Picture1,Form1，Text1，Label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容_____C____。

Private Sub Picture1_Click()

Cls

End Sub

A.Picture1

B.Text1

C.Form

https://www.360docs.net/doc/1e2207007.html,bel1

43．假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_____C____。

A.Print 25

B.Picture1.Print 25

C.Text1.Print 25

D.Debug.Print 25

44．若要将图片"D:\PIC\CAR.JPG"载入到当前的图片框(PictureBox)中，应用____B_____命令。

A.LoadFile

B.LoadPicture

C.LoadPic

D.LoadJPG

45．若要设置列表框的选择方式，可通过____C_____属性设置来实现。

A.Columns

B.Style

C.MultiSelect

D.List

46．若要设置命令按钮为图形风格的按钮，可通过将______A___属性设置为Graphical。

A.Style

B.BorderStyle

C.BackStyle

D.Apperance

47．若要使命令按钮获得控制焦点，可使用____B_____方法来设置。

A.Refresh

B.SetFocus

C.GetFocus

D.LostFocus

48．要设置Hscrollbar控件在单滚动箭头时Value属性值的变化幅度，可通过调用该控件的______B___属性来实现。

A.Value

B.SmallChange

C.Min

https://www.360docs.net/doc/1e2207007.html,rgeChange

49．要把一个命令按钮设置成无效，应设置其哪一个属性值____B_____。

A．Visible B．Enabled C．Default D．Cancel

50．执行x$=InputBox（"请输入x的值"）时，在弹出的对话框中输入123，在列表框Listl选中第1个列表项（数据为456）。使y的值是123456的语句是____D_____。

A．y=x$+Listl．List(1) B．y= Val(x$)+Val(Listl．List(0))

C．y=Val(x$)+Val(Listl．List(1)) D．y=Val(x$)&Val(Listl．List(0))

51．要设置计时器控件的定时时间，需设置的属性是______A___。

A．Interval B．Enabled C．Value D．Text

52．移动控件位置的组合按键是_____C____。

A．Shift键+“方向箭头” B．Alt键+“方向箭头”

C．Ctrl键+“方向箭头” D．Space键+“方向箭头”

53．控制名称都是系统的默认控件名，下列语句错误的是_____C____。

A．Command1.Caption=List1.Text

B．Label1.Caption=List1.List(1)

C．List1.List(2)=List1.Text+Str(List1.ListIndex)

D．Text1.Text=https://www.360docs.net/doc/1e2207007.html,+Text1.Caption

54．窗体中含有一个滚动条Hscroll1、一个标签Label1、一个形状控件Shape1。滚动条的属性Max、Min、LargeChange、SmallChange值分别为1000、0、50、10。形状为一个红圆。代码如下：

Private Sub Hscroll1_Change()

Label1.Caption = "Changed

End Sub

Private Sub Hscroll1_Scroll()

Label1.Caption = "Changing"

Shape1.Left = HScroll1.Value

End Sub

运行时，用户单击滚动条右端箭头但是不释放左键时，标签显示_________，红圆_________；用户拖动滑块时，标签显示_________，红圆_________。

则依次填入以上各空正确的一项是____A_____。

A．Changed、不移动、Changing、向右移动

B．Changing、不移动、Changed、向右移动

C．Changed、向右移动、Changing，不移动

D．Changing、向右移动、Changed、不移动

55．窗体上有一个命令按钮Command1、一个文本框Text1和一个列表框List1。文本框用来输入要添加到列表框中的项目内容。程序运行后，单击命令按钮，会将文本框中的内容放入列表框中。程序如下：

Private Sub Commandl_Click()

_____________

Textl.Text=""

Textl.SetFocus

End Sub

程序的空白行应填写语句____D_____。

A．List1.Text=Text1.Text B．List1.List=Text1.Text

C．List1.AddItem=Text1.Text D．List1.AddItem Text1.Text

56．不能触发滚动条Change事件的操作是_____A____。

A．拖动滚动条中滑块B．单击滚动条中滑块

C．单击滚动条两端箭头D．单击箭头与滑块之间的滚动条

二、填空题

1．单选按钮控件（OptionButton）和复选框（CheckBox）控件都有Value属性，它们有什么区别__ Option1.value=true or false ,check1.value=0 or 1 or 2 _______。

2．向列表框控件添加项目和从列表框控件中删除项目所使用的方法的格式分别是_list1.additem 项目内容(，项目位置) _和__list1.removeitem项目位置__。

3．在设计阶段看得见，在运行阶段看不见的控件是___时钟___控件，使用该控件时一定要用到的属性项是__Interval_______。

数组作业

一、选择题

1．默认情况下，语句：Dim student(100) 定义的数组有_____D____个元素。

A.100

B.10

C.任意

D.101

2．语句：Dim student(10,5 to 100) 定义的是一个_____A____维数组。

A.2

B.3

C.5

D.10

3．控件数组是通过_________来区分控件数组元素的。

A.名称

B.Count属性

C.Index属性

D.控件标题

4．有一数组定义语句：Dim M(-2 to 1) As string，则数组M中包含的元素个数为______A___。

A.4

B.3

C.2

D.1

5．语句：Dim student(10,5) As Long定义的数组元素的类型为_____D____。

A.整型

B.字符型

C.逻辑型

D.长整型

6．默认情况下，语句：Dim student(2,3,4) 定义的数组有___A______个元素。

A.60

B.9

C.24

D.12

7．有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有_____D____个元素。

A.3

B.4

C.12

D.9

8．下列程序

Option Base 1

Private Sub Form_Click()

Dim a(100)

For i=1 To 10

j=i*i

a(j)=j

Next i

Print a(25);

End Sub

程序运行时输出的结果是_____B____。

A．16 B．25C．36 D．出错信息

9．下列程序

Option Base 1

Private Sub Form_Click()

Dim a

a=Array(19,17,15,13,11,9,7,5,3,11)

For i=1 To 10

If a(i)/3=a(i)\3 Or a(i)/5=a(i)\5 Then

Sum=Sum+a(i)

End If

Next i

Print "Sum="; Sum

End Sub

运行时输出Sum的值是____C_____。

A．27 B．15 C．32 D．20

10．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a(4,4)

For i=1 To 4

For j=1 To 4

a(i,j)=(i-1)*3+j

Next j

Next i

For i=3 To 4

For j=3 To 4

Print a(j,i) ;

Next j

Next i

End Sub

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

A．6 9 7 10 B．7 10 C．8 11 D．9 12 10 13

二、填空题

下面程序的功能是：程序从键盘读取40个数保存到数组A中，将一维数组A中各元素的值移到后一个元素中，而最末一个元素的值移到第一个元素中去。然后，按每行4个数的格式输出。请在画线处填入适当内容，将程序补充完整：

Option Base 1

Private Sub Command1_Click()

Dim a(40) As Integer

For i=1 To 40

a(i)=Val(InputBox("请输入一个整数"))

Next i

b=a(40)

For i=[1]39 to 1 step -1

a(i+1)=a(i)

Next i

a(1)=b

For i=[2] 1 to 40

Print a(i)；

If i[3] 4 = 0 Then Print mod

Next i

End Sub

三、程序改错：程序有两处错误，请改正之。不可以删除语句，也不可以增加语句。

Sub Form_Click()

ReDim a(5) Dim a

a() =Array(26, 37, 15, 49, 7, 87)

b=Famax(a)

Print b

End Sub

Private Function Famax(aa() As Variant)

Dim beginno As Integer, endno As Integer

Dim k As Integer

Beginno=LBound(aa)

Endno=UBound(aa)

max=aa(beginno)

For k=beginno To endno

If aa(k) > max Then max = aa(k)

Next k

Famax =max

End Sub End Function

过程作业

一、选择题

1．使用过程编写程序主要是为了___A______。

A．使程序模块化B．使程序易于阅读

C．提高程序运行速度D．便于系统的编译

2．关于正常退出Sub和Function过程说明正确的是____C_____。

A．过程的最后一条语句是End Sub（或End Function），因而一定要执行到End Sub（或End Function）才会结束过程的执行

B．一个过程可以没有Exit Sub（或Exit Function）语句，如果有则只能有一条这样的语句

C．一个过程既可以通过Exit Sub（或Exit Function）语句结束过程的执行，也可以通过End Sub（或End Function）结束过程的执行

D．可以用GoTo语句来退出Sub过程

3．下列关于函数说明正确的是____D_____。

A．定义函数过程时，若没有用As子句说明函数的类型，则函数过程与Sub过程一样，都是无类型过程B．在函数体中，如果没有给函数名赋值，则该函数过程没有返回值

C．函数名在过程中只能被赋值一次

D．函数过程是通过函数名返回函数值的

4．过程调用语句中，被调用的过程一定是Sub过程的语句是_____A____。

A．Call Pro1(a1, b1)B．Pro2(a2, b2)

C．Print Pro3(a3, b3) D．x=Pro4(a4, b4)

5．设有子过程Pro1，有一个虚参变量。下列调用语句中，按传址方式传递数据的语句是_____A____。A．Call Pro1(a)B．Call Prol(12)

C．Call Pro1(a*a) D．Call Prol(12+a)

6．程序如下：

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 10 :

b = 20

Call ff(a,b)

Print a,b

End Sub

Private Sub ff(x As Integer, y As Integer)

x = x + y

y = x + y

End Sub

程序运行时，单击窗体后，在窗体上输出的结果是_______D__。

A．10 20 B．20 20 C．30 30 D．30 50

7．下列程序

Dim b

Private Sub Command1_Click()

a=1：b=1

Print "A=";a;",B=";b

Call mult(a)

Print"A=";a;",B=";b

End Sub

Private Sub mult(x)

x=2*x

b=3*b

End Sub

运行后的输出结果为____B_____。

A．A=1 B=1 B．A=1 B=1C．A=1 B=1 D．A=1 B=l

A=1 B=1 A=2 B=3A=1 B=3 A=2 B=l

8．下列定义的函数过程正确的是____C_____。

A．Private Function F1(x,y)

Dim z As Single

z=x+y

F1=z

End Function

End Sub

B．Private Function F1(x,y) As Single

Dim x As Single,y As Single

F1=x+y

End Function

C．Function F1(x As Single, y As Single)

F1=x+y

End Function

D．Function F1(x,y )As Single

Dim z As Single

z=x+y *缺:F1=z

End Function

9．以下关于过程的叙述中，错误的是_____B____。

A．事件过程是由某个事件触发而执行的过程

B．函数过程可以有多个返回值

C．可以在事件过程中调用通用过程

D．不能在事件过程中定义函数过程

10．已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Max(1,2,3)，则单击Command1时，输出结果为______C___。

Private Function Max( a,b,c)

m=a

if b>m then m=b

if c>m then m=c

Max=m

End Function

A. 1

B. 2

C. 3

D. 6

11．已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为_____D____。

Private Function Sum( a,b,c)

Sum=a+b+c

End Function

A. 1

B. 2

C. 3

D. 6

12．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为

____B_____。

Private Function Sum( a,b,c)

a=a+1:b=b+1:c=c+1

Sum=a+b+c

End Function

Private Sub Command1_Click( )

a=1:b=2:c=3

y=Sum(a,b,c)

Print a;b;c

End Sub

A. 1 2 3

B. 2 3 4

C. 3 4 5

D. 4 5 6

13．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为

_______A__。

Private Function Sum( ByVal a, ByVal b,ByVal c)

a=a+1:b=b+1:c=c+1

Sum=a+b+c

End Function

Private Sub Command1_Click( )

a=1:b=2:c=3

y=Sum(a,b,c)

Print a;b;c

End Sub

A. 1 2 3

B. 2 3 4

C. 1 3 4

D. 1 2 4*A

14．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为

______A___。

Public Function even(x)

If x Mod 2 = 0 Then

even = 1

else

even = 0

End If

End Function

Private Sub Command1_Click()

n = 20

If even(n) = 1 Then

Print n; "is a even number."

Else

Print n; "is not a even number."

End If

End Sub

A. 20 is a even number.

B. 20 is not a even number.

C. n is a even number.

D. n is not a even number.

15．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为______A___。

Public Function Fn(n)

If n = 0 Then

Fn = 1

Else

Fn = Fn(n - 1) * n

End Function

Private Sub Command1_Click()

Print Fn(1)

End Sub

A. 1

B. 2

C. 4

D. 24

16．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为_____C____。

Public Function Fn(n)

If n = 0 Then

Fn = 1

Else

Fn = Fn(n - 1) * n

End Function

Private Sub Command1_Click()

Print Fn(6)

End Sub

A. 0

B. 1

C. 720

D. 6

17．已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为_____C____。

Public Function Fun(x, y)

Fun = 1

For I = 1 To y

Fun = Fun * x

Next I

End Function

Private Sub Command1_Click()

Print Fun(3, 4)

End Sub

A. 3

B. 4

C. 81

D. 256

18．已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为____A_____。

Public Sub change(ByVal x, ByVal y)

t = x：x = y：y = t

End Sub

Private Sub Command1_Click()

a = 12：

b = 34：Call change(a, b)

Print a; b

End Sub

A. 12 34

B. 34 12

C. 21 43

D. 43 21

19．已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为_____B____。

Public Sub change(x, y)

x = y

End Sub

Private Sub Command1_Click()

a = 12：

b = 34：Call change(a, b)

Print a; b

End Sub

A. 12 34

B. 34 34

C. 34 12

D. 12 12

20．已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为____B_____。

Private Sub Print_Number( )

Dim x

x = x + 10

Print x

End Sub

A. 0

B. 10

C. 20

D. 30

21．已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为_____D____。

Private Sub Print_number( )

Static x

x = x + 10

Print x

End Sub

A. 0

B. 10

C. 20

D. 30

22．以下定义的函数中____B_____不是按“传址”方式传递参数的。

A.Public Function Sum(x,y)

B.Public Function Sum(ByVal x, ByVal y)

C.Public Function Sum(x As Integer,y As Integer)

D.Public Function Sum(x%, y%)

23．以下过程的定义中，____A_____是错误的。

A. Public Sub Sum(x ; y)

B. Public Sub Sum(ByVal x, ByVal y)

C. Public Sub Sum(x As Integer,y As Integer)

D. Public Sub Sum(x%, y%)

24．函数过程是以_____A____保留字开始的。

A. Function

B. Sub

C. Property

D. Event

25．子过程是以______B___保留字开始的。

A. Function

B. Sub

C. Property

D. Event

26．在函数过程中的任意位置要退出当前函数过程，应用___C______命令。

A. End Function

B. Exit

C. Exit Function

D. Exit Sub

27．在子过程中的任意位置要退出当前子过程，应用_____D____命令。

A. End Function

B. Exit

C. Exit Function

D. Exit Sub

28．在以下事件过程中，Private表示____B_____。

Private Sub txt Name_Change() …… End Sub

A. 此过程可以被任何其它过程调用

B. 此过程只可以被本窗体模块中的其它过程调用

C. 此过程不可以被任何其它过程调用

D. 此过程是一个不可用过程

29．在以下事件过程中，Public表示_____D____。

Public Sub txtName_Change()…… End Sub

A. 此过程不可以被本模块中的过程调用

B. 此过程只可以被本窗体模块中的其它过程调用

C. 此过程不可以被任何其它过程调用

D. 此过程可以被本工程中的所有模块调用

二：填空题

1．以下事件过程的功能是：从键盘输入一个实数，将其四舍五入后输出。请在空白行填写适当的语句。Private Sub Command1_Click()

x=InputBox("请输入一个实数")

y=_Fix(val(x)+0.5)________

Print y

End Sub

2．以下事件过程的功能是：第1次单击命令按钮，输出**；第2次单击命令按钮，输出****；如此继续。即每单击一次命令按钮，比上一次多输出2个"**"。请在空白处填写适当的语句。

Dim str As String

Private Sub Command1_Click()

_str=str+”**”________

Print Str;

End Sub

3．需要对过程名进行赋值的过程是___函数______过程。

4．如下程序，运行的结果是____2_____，函数过程的功能是__求最大公约数__。

Public Function f(h As Integer,i As Integer)

Do While h<>i

Do While h>i

h=h-i

Loop

Do While i>h

i=i-h

Loop

Loop

f=h

End Function

Private Sub Command1_Click()

Print f(32,6)

End Sub

5．通用过程与事件过程不同的是__通用过程＝自定义Sub过程事件过程=VB系统给予定义好框架的Sub过程_______。

6．Private Sub P(b()As Integer)

For i=1 To 4

b(i)=2*i

Next i

End Sub

Private Sub Form_Click()

Dim a(1 To 4)As Integer

a(1)=2

a(2)=3

a(3)=4

a(4)=5

Call P(a)

For i=1 To 4

Print a(i);

Next i

End Sub

运行上面的程序，单击命令按钮，输出结果为__2 4 6 8_______。

7．要定义一个过程可以在程序的任何地方调用它，应使用__Public__关键字来定义该过程。

8．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。

Private Sub Form_Click()

n=Val(InputBox("请输入一个大于0的整数: "))

Print Fact(n)

End Sub

Private Function Fact(m)

Fact= [1] 1

For i=2 To [2]m

Fact= [3]Fact*i

Next i

End Function

9．要确定虚实结合为“传值”方式，应在虚参表中使用__Byval__关键字。

10．本程序的功能是由输入的分数确定结论，分数是百分制，0～59分的结论是“不及格”，60～79分的结论是“及格”，80～89分的结论是“良好”，90～100分的结论是“优秀”，分数小于0或大于100是“数据错!”。请在画线处填上适当的内容使程序完整。

Option Explicit

Private Function jielun(ByVal score%)As String

Select Case score

Case [1]0 to 59

jielun="不及格"

Case [2]60 to 79

jielun="及格"

Case [3]80 to 89

jielun="良好"

Case [4]90 to 100

jielun="优秀"

Case [5]else

jielun="数据错! "

End Select

End Function

Private Sub Form_Click()

Dim s1 As Integer

s1=InputBox("请输入成绩: ")

Print jielun(s1)

End Sub

11．如下程序运行的结果是___2 5 3 4 0______。

Public Sub pr(x()As Integer)

Static i As Inreger

Do

x(i)=x(i)+x(i+i)

i=i+1

Loop While i<2

End Sub

Private Sub Command1_Click()

Dim i As Integer,x(10) As Integer

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

For i=0 To 2:Call pr(x): Next i

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

End Sub

12．用Static定义过程的作用是__使过程中的局部变量都是静态变量__。

13．程序填空：在程序的空白行写上适当的语句，使程序完成相应的计算。

程序的功能是：用随机函数给数组元素赋任意3位整数。然后计算一数组Am的元素之和。Private Sub Form_Click()

Dim Arr1(10) As Integer, k As Integer, s As Integer

For k=0 To 10

[1]Arr1(k)=int(rnd*900)+100

Next k

Call Sum(Arr1,s)

Print "数组元素之和是:"+Format(s)

End Sub

[2]Sub Sum(Arr2() as integer,ss as integer)

Dim j As Integer

For j=0 To 10

ss = ss +Arr2(j)

Next j

End Sub

三、程序改错题

1．程序功能：求10的阶乘，程序中有一行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()

Print fun(10)

End Sub

Private Function fun(n As Integer) As Long

If n > 0 Then * If n=1 Then 因为f(n)=n*f(n-1)，直到f(1)=1为至

fun = 1

Else: fun = n * fun(n - 1)

End If

End Function

2．程序功能：计算两个数的最小公倍数。程序中有错误，改正错误，使程序能输出正确结果。

Private Sub Command1_Click()

Print fun(248, 848)

Private Function fun(u, v)

t = u

t = t + u

Loop

fun =u *fun=t

End Function

3．程序功能：建立一个过程来计算

Private Sub Command1_Click()

Call n(12)

End Sub

Public Sub n(a As Integer) Dim i As Integer

Dim f As integer

f = 0

For i = 1 To a

f = f * i

Next i

Print f

End Sub