《vb程序设计》期末复习题及答案

《vb程序设计》期末复习题及答案

一、填空题

1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。 4．窗体的常用方法有__________、___________、___________和___________。 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。

6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub

7．Visual Basic 6种类型的表达式是______________、______________、______________、

________________、_________________、____________________。Visual Basic根据表达式的___________来确定表达式的类型。

8．表达式93 \\ 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b

10．日期表达式 #2/24/02# - #2/12/02# 的值为___________。

11．数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________。 12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为___________________________。

13．事件就是在对象上所发生的事情，Visual Basic中的事件如___________、

___________、______________等。一个对象响应的事件可以有_____个，用户不能建立新的事件。事件过程是指_____________________________________________。假设某一事件过程如下：

Private Sub cmd1_Click() Form1.Caption=\示例\End Sub

则响应该过程的对象名是______________，事件名是_____________。

14．对象的方法用于__________________。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为________________，例如，对窗体Form1使用Show方法，应写成_________________。

15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True，使其加载的图片能自动调整大小以适应Image。

16．在Visual Basic程序中实现复制文件“c:\\command.com”到d:盘根目录下的语句为_______________________________________。

二、单项选择题

1．下列控件中没有Caption属性的是（ ）

A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（ ）。

A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（ ）。

A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（ ）。

A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件

5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ ）。

A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、PasswordChar属性值为*

6．表达式2*3^2+2*8/4+3^2的值为（ ）。

A、64 B、31 C、49 D、42 7．表达式mid(\的值是（ ）

A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（ ）。

A、Sin25 B、Sin（25） C、Sin（25°） D、Sin（25*3.14/180）

9．Sub过程与 Function过程最根本的区别是（ ）。

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。

D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（ ）

A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列对象不能响应 Click事件的是（ ）

A、列表框 B、图片框 C、窗体 D、计时器

12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（ ） A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件

13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（ ）方法。

A、ShowOpen B、ShowSave C、ShowColor D、ShowFont

三、指出下列句中的错误，修改或者说明原因。 1．sum和int.sum都可以作为VB的变量名。

2．变量名的长度最长可达1024个字符。 3．下列程序运行结果：3，3 Option Explicit

Private Sub Command1_Click() Dim a，b As Integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub

4．程序可以改变定长字符串的内容和长度。

5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。 6．下列程序运行结果为True

Private Sub Command1_Click() a = 1 b = 2 c = 3

Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2 End Sub

7．#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999# 8．可以在窗体的通用部分声明静态变量。

9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串\，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。

10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。 11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。

12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。

四、读程序题，写出程序运行结果。

1．Private Sub Form_Click() For I = 1 To 9

For j = 1 To 30 - 3 * I Print \ Next j For k = 1 To I Print k; Next k

For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 2．

Option Explicit

Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1

For i = 1 To 5 S = S * i Next i Print S End Sub 3．

For X = 5 To 1 Step -1 For Y = 1 To 6 - X

Print Tab(Y + 5); \ Next Y Print Next X 4．

Private Sub Form_Activate() Print \Print \Print

Print \Print 30 + 60 ？

？\End Sub 5． X=1

Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、

文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。

4．任意输入3个数，求大小排第二的那个数，写出程序代码。

《VB》期末复习参考答案

一、填空题

1．创建应用程序界面 设置属性 编写代码

2．属性、text 3．Label TextBox

4．Load方法 Show方法 Hide方法 Unload方法

5．txtshow.text=\6．Click()、frm1.show

7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达

式 运算符

8．1 9．True False

10．12

11．Sin(x) ^ 2 + Sqr(x ^ 2 - y ^ 2) / (2 * x)

12．Dim A(1 To 5，-2 To 6) As String

13．单击 双击 装载 多 响应某个事件后所执行的程序代

码 cmd1 Click

14．完成某种特定的功能 对象名.方法名 Form1.Show

15．AutoSize Stretch

16．FileCopy \，\

二、单项选择题

1．B 2．C 3．C 4．D 5．D 6．B 7．B

8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的错误，修改或者说明原因。 1．int.sum 不正确。变量名中不能包括小数点。

2．变量名的长度最长可达255个字符。

3． 3.6 ， 4 因为a 不是整型变量。

4．不正确。程序不可以改变字符的长度，这是VB规定。

5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型

外，可以包含任何种类型的数据，这是VB规定。

6．False 。逻辑表达式计算结果。

7．不正确。两个日期型数据相减，其结果是一个数值型数据。 8．不正确。静态变量为局部变量，只能在过程中声明。

9．正确。 10．正确。 11．正确。

12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹

配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。 1．程序运行后，单击窗体，输出结果为：

1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1

1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

2．程序运行后，单击按钮Command1，输出结果为：120。

aabb 11 3. * ** *** **** *****

4.

-30 aabb-30 False

30+60 90

30+60 90

5.

13 五、编程题

1．

Private Sub Command1_Click() Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \

End Sub

9

False

Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text)

If a = \ MsgBox \成绩填写不完全！\

Else

Text4.Text = (Val(a) + Val(b) + Val(c)) / 3

End If End Sub

Private Sub Command3_Click()

Unload Me

End Sub

2．

Private Sub Command1_Click() x = Val(Text1.Text)

If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then

Print x

Else

Text1.SetFocus Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End If End Sub

3．

Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True

Else

Label1.Font.Bold = False

End If

答案 题号 答案 题号 答案 三、判断题 答案 答案 1 Х 11 √ D 11 D 16 C 2 Х 12 Х D 12 A 17 A 3 Х 13 √ 4 √ 14 √ 5 Х 15 Х A 13 A 18 C 6 √ 16 Х 7 √ 17 √ B 14 A 19 C 8 √ 18 Х 9 √ 19 Х B 15 D 20 B 10 Х 20 √ 四、程序阅读题： （一） （10分）

1 、 55 2、 110

（二）、 （10分）

* 2 5 15 30 75

16 32 80 五、编程题 （20分） （一）1、Picture1.Picture

2、 Timer1

3、 x ,y

(二) 1、 Randomize 2、 Rnd()*41+60 3、 x Mod 6 4、 Counter＋1 5 End If

一、单项选择题（共10分）

1．在代码中引用一个控件时，应使用控件的（B）属性。 A．Caption B．Name C．Text D．Index

2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（C ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ D ）类型数据。

A．整型 B．单精度浮点数 C．货币型 D．长整型

6．下列变量名中正确的是（D）。

A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ A ）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（B）。 A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（B ）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5

Print m(2 + m(x)) End Sub

A．2 B．3 C．4 D．5 二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。

2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。

3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。

4．函数Len(“abcdef”)的返回值是(6) 。

5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为False 。

三、将下列数学表达式转换为VB表达式。（6分）

1．a2+2ab+b2 ： a^2+2*a*b+b^2 2．8exln10 ：8*exp(x)*log(10)

3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)

6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。

1．在VB 6.0中，扩展名为.vbp的文件称为 A 。 A) 工程文件

B) 窗体文件

C) 类模块文件

D) 标准模块文件

2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口

是 A 。 A) 代码窗口 C) 属性窗口

B) 窗体设计窗口

D) 工程资源管理器窗口

3．设有变量定义语句Dim a%，则变量a的数据类型是 A 。 A) 整型

B) 单精度类型

C) 双精度类型

D) 字符串类型

4．下列表达式中，值为False的是 D 。 A) \B) \C) \

D) Mid(\

5．函数InStr(\的值是 B 。 A) 2

B) 3

C) True

D) CDEF

6．下列程序运行后，单击窗体，输出结果是 C 。 Private Sub Form_Click()

Dim a As Integer, b As Integer a = 3 b = 5

Print a + b; a & b End Sub A) 8 8 B) 35 35

C) 8 35 D) 35 8

7．下列程序运行后，单击窗体，输出结果是 B 。 Private Sub Form_Click() a = 3: b = 7

a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7

8．下面程序段所表示的数学关系式是 C 。 If (a < b) Then

If d = c Then x = 1 Else

x = 2 End If A) x???1(a?b且c?d)(a?b且c?d)

B) ?2x???1(a?b且c?d)a?b且c?d)

?2(C) x???1(a?b且c?d)

D) x???1(a?b且c?d)?2(a?b)2(c?d)

?9．下列程序运行后，单击窗体，输出结果是 C 。 Private Sub Form_Click() s = 0: k = 1 Do

s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0

10．下列程序段的输出结果是 B 。 For k = 4 To 2 Step -2 m = k

Next k

Print m; k; A) 2 2

B) 2 0 C) 2 1 D) 0 0

11．用下面的语句定义数组，则数组中的元素个数是 D 个。 Option Base 1

Dim A(-1 To 2，5) As Integer A) 5 B) 10

C) 15

D) 20

12．下面程序段的输出结果是 C 。

Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k

For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8 B) 20 C) 2 8 13．设有如下的用户自定义类型

Private Type Stu

name As String * 10 age As Integer End Type

则以下正确引用该类型成员的代码是 B 。 A) Stu.name=\B) Dim s As Stu

s.name = \

C) Dim s As Type Stu D) Dim s As Type s.name = \ s.name = \14．用“ B ”关键字声明的变量称为全局变量。 A) Private

B) Public

C) Dim

D) Static

15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是***，可能的原因是该文本框的 D 属性值已经被设置为\。 A) Font A) 属性 A) Caption

B) Text B) 方法 B) Checked

C) Name C) 事件 C) Selected

D) PasswordChar D) 名称 D) Value

16．在VB 6.0中，Print是对象的 B 。

17．在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 D 。 18．设列表框List1中共有3个列表项，如右图所示。则下列语句

中，能够删除最后一个列表项的是 A 。 A) List1.RemoveItem 2

B) List1.RemoveItem \项目C\

C) List1.RemoveItem List1. Listcount D) List1.RemoveItem List1. ListIndex

19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在

“属性”窗口中这三种类型是由 A 属性设置的。 A) Style

B) FillStyle

C) BackStyle

D) BorderStyle

D) 2 6 12 20

20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加

或减少的值，是由 D 属性决定的。 A) Min

B) Max

C) SmallChange

D) LargeChange

21．将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 D 。 A) Me.Picture=b.jpg C) Me.Picture=\

B) Me.Picture= LoadPicture(b.jpg) D) Me.Picture= LoadPicture(\

22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 A 。 A) 先放置一个框架，然后在框架中放置两个单选按钮

B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上 C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内 D) 以上三种方法都正确

23．计时器控件能够响应的事件是 D 。 A) Load A) Caption

B) Click B) Enabled

C) Change C) Style

D) Timer D) Visible

24．要使命令按钮处于无效状态，可以设置按钮的 B 属性值为False。 25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 C 。 A) 第一个标准模块 C) 设计时的第一个窗体

B) 最后一个被添加的窗体 D) 最后一个被添加的标准模块

26．在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使

框中的图片能够自动适应图像框的大小，可以执行语句 B 。 A) Image1.AutoSize=True C) Image1.AutoSize=False

B) Image1.Stretch=True D) Image1.Stretch=False

27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号

是 A 。 A) 减号- A) Form1.Show C) Form1.Hide

B) 下划线_

C) &

B) Load Form1 D) UnLoad Form1

D) #

28．要将窗体Form1从内存中卸载，正确的语句是 D 。

29．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub

此时，如果单击的是鼠标右键，则Button参数的值是 B 。 A) 1 A) LEN( )

1．数学表达式

B) 2 B) LOF( )

C) 3 C) EOF( )

D) 4 D) LOG( )

30．获取文件的长度（字节数），可以使用的函数是 B 。

3y改写为VB表达式，形式是 【1】 。答案 sqr(3*y) /(x+y) x?y2．在VB 6.0中，InputBox函数返回值的数据类型是 【2】 。答案：字符串类型或

String

3．语句 Print Tab(5);\的功能是 【3】 。 答案：从第5列开始输出字符串“ABC”

4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5

5．设a=1,b=2,c=3，语句 Print a < b Or b < c And c < a的输出结果是 【5】 。答案：True

6．在窗体上放置一个标签，名称为Label1，使用语句 【6】 可以把标签的前景色设置为蓝色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7．在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip），正确的语句是Image1.Top = 【7】 答案：Image1.Top + 10 8．使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是： 答案：Popupmenu

Form1. 【8】 menu1

9．在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1. 【9】 =\文本文件(*.txt)|*.txt\。 答案：Filter 10．设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确

的语句是 Open \【10】 As #1。 答案：Input

1．下列面程序运行后，单击窗体，输出结果是 【1】 。答案：1 3 9

Private Sub Form_Click() s = 0

For n=1 To 3 p = 1

For k = 1 To n p = p * k Next k s = s + p Print s; Next n End Sub

2．下列程序运行后，单击窗体，输出结果是 【2】 。答案：7

Private Sub Form_Click() m = 0

For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4

m = m + 3 End Select Next k Print m End Sub

3． 在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显

示的内容是 【3】 。 答案：ade

Private Sub Form_Click() Text1.Text = \ s = \

For k = 1 To Len(s) ch = Mid(s, k, 1)

If ch >= \ Text1.Text = Text1.Text + ch End If Next k End Sub

4． 下列程序运行后，单击窗体，输出结果是 【4】 。 答案：11 24

Option Base 1

Private Sub Form_Click()

x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0

For k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; s End Sub

5． 下列程序运行后，单击窗体，输出结果是 【5】 。 答案：1 5 1

Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3

If k = 1 Or i = k Then a(i, k) = 1 Else

a(i, k) = i + k End If Next k Next i

Print a(1, 1); a(2, 3); a(3, 3) End Sub

6．在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。

Private Sub Command2_Click()

Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g)

Print m; n; g End Sub

Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub

程序运行后，单击命令按钮，则输出结果是 【6】 。答案：18 12 6 7．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。

Private Sub Command3_Click() Dim k As Integer k = 1

Print fun1(k); Print fun1(k); Print fun1(k); End Sub

Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer

a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + c End Function

程序运行后，单击命令按钮，则输出结果是 【7】 。答案：7 11 15 8．在窗体上放置一个文本框，其名称为Text1，并编写如下代码。

Dim s As String

Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s; End Sub

程序运行后，在文本框中输入abc，则窗体上输出的内容是 【8】 。答案：aababc

1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：

（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；

（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。

程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。 ．．(1) (2) (3) (4) (5) (6) (7)

Private Sub Form_Load()

Timer1.Interval = 5 答案：200

Timer1.Enabled = True End Sub

Private Sub Timer1_Timer()

Label1.FontSize = Label1.FontSize + 2 If Label1.FontSize > Me.Width Then

(8) (9) (10) Label1.FontSize = 8 End If End Sub

2．下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时．．可以使用每条语句前的编号。 (1)

(2) (3) (4) (5) (6) (7)

s = 0 k = 1

Do While k <= 99

k = k + 2 答案：将（4）、（5）调换顺序 s = s + k Loop Print s

1．在窗体上放置一个列表框，名称为List1；放置

一个文本框，名称为Text1；放置一个命令按钮，名称为Command1，Caption属性值为“统计3的倍数”。如右图所示。

下列程序的功能是：

（1） 在窗体的Load事件中，产生10个20~30

（含20和30）之间的随机整数，并作为列表项逐个添加到列表框List1中。

（2） 单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并

将统计结果显示在文本框Text1中。 请填空完善程序。

Private Sub Form_ Load( )

Dim x As Integere Randomize

For k = 1 To 10 答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '产生一个[20,30]之间的随机整数 【2】 '将x作为列表项添加到List1中 Next k 答案：List1.AddItem x 或 List1.AddItem str(x) End Sub

Private Sub Command1_Click()

Dim n As Integer ' n:存放是3的倍数的列表项的个数

For k = 【3】 答案：0 To List1.ListCount – 1 或 0 To 9 If Val(List1.List(k)) 【4】 = 0 Then 答案： Mod 3 n = n + 1 End If Next k

Text1.Text = n End Sub

2．下列程序的功能是用近似公式 e?1?-4

1111????? 求自然对数的底 e 的1!2!3!n!值，直到最后一项小于10时停止计算。请填空完善程序。 Private Sub Form_Click()

Dim e As Single, n As Integer, p As Single

'e: 累加和 p: 参加求和的当前项 e = 1: n = 1: p = 1

Do While 【5】 答案：p >= 1e-4 e = e + p

n = n + 1

p = 【6】 答案：p / n Loop

Print \的近似值=\End Sub

3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：

控件类型 控件名称 标签 Label1 属性 属性值 Caption 示例文字 Caption 设置 Caption 宋体 Caption 隶书

命令按钮 Command1 Option1 单选按钮 Option2 下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。 Private Sub Command1_Click()

Dim fn As String ' fn:存放选中的字体

If 【7】 Then 答案：Option1.Value = True fn = \宋体\ Else

fn = \隶书\ End If

【8】 = fn 答案：Label1.FontName End Sub

4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。

单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。

请填空完善程序。 Option Base 1

Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10

a(i) = Val(InputBox(\输入一个数值\ Next i

Print \平均值=\【9】 '调用函数ave 答案：ave(a) End Sub

Public Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k

【10】 答案：ave = s / n End Function

《VB期末范围题总汇》

1． 求随机10个整数的最大值、最小值、平均值以及和；

Dim a(1 To 10)

Private Sub Command1_Click() Randomize

Picture1.Print \产生的随机数为：\For i = 1 To 10

a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i

Picture1.Print End Sub

Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1)

ave = 0.1 * a(1) For i = 2 To 10

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i) Next i

Picture1.Print \最大数为：\Picture1.Print \最小数为：\Picture1.Print \平均数为：\

End Sub

2.求水仙花数

Private Sub Form_Click()

Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9

If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a

End If Next c Next b Next a End Sub

3.百元买百鸡问题； Option Explicit

Const a = 5, b = 3, c = 1 Private Sub Form_Activate()

Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100

If i * a + j * b + k * c = 100 Then n = n + 1

List1.AddItem \公鸡：\母鸡：\小鸡：\End If

Next: Next: Next

MsgBox \共有组合：\End Sub

求1000以内的所有完数 一个按钮里调用的过程

Private Sub Command1_Click() OutputWanNumber 1000 End Sub

4.'求完数的过程

Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1

For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j

If temp = i Then Print i End If Next i End Sub

5.求各位数字之和 input a:'输入任意数 do

b=a mod 10:'取a的末位数 sum=sum+b:'求和

a=a \\ 10:'去掉末位数 loop until a=0

print \输出 end

（dim n as string input n

for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i

print sum） 6.求最小公倍数

Private Sub Form_Load() Form1.AutoRedraw = True

Dim n1%, m1%, m%, n%, r% n1 = InputBox(\输入n1\m1 = InputBox(\输入m1\

If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else

m = n1: n = m1 End If Do

r = m Mod n

If r = 0 Then Exit Do m = n n = r Loop

Print n1; \的最大公约数为\Print \最小公倍数=\End Sub

7.求逆序数（感觉题目类型太多）

8. 级数有限项求和问题（题目类型太多）

9. 求质因子问题

Private Sub Command1_Click() Dim N As Integer, I As Integer

N = Val(InputBox(\请输入2的整数:\I = 2 Do

If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If

Loop While N 1 End Sub

10. 字符统计 Option Base1 Option Explicit

Private Sub Command1_Click()

Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1)

If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i

For i=1 To 26

List1.Additem Chr(64+i) & “:” & A(i) Netx i End Sub

Private Sub Command_Click() End

End Sub 第二大题

1. 判定素数过程

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function

End If Next i

isprime = True End Function

Private Sub Command1_Click() Dim i As Long

For i = 1 To 1000 If isprime(i) Then Print i End If Next i

End Sub

2.求最大公约数过程；

Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法

K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop

Max公约数 = Y End Function

3.冒泡排序过程

Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer

For i = 0 To 9

a(i) = InputBox(\输入整数\Next Sort a

For i = 0 To 9 Print a(i) Next End Sub

Private Sub Sort(ByRef a() As Integer)

Dim i As Integer Dim j As Integer Dim t As Integer

For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub

4顺序查找过程

Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize

Print \原数组:\For i = 1 To 10

a(i) = Int(Rnd * 10)

Print \ If i Mod 2 = 0 Then Print End If Next i Print

For i = 1 To 9

For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) End If Next j Next i End Sub

《VB期末范围题总汇》

1． 求随机10个整数的最大值、最小值、平均值以及和；

Dim a(1 To 10)

Private Sub Command1_Click() Randomize

Picture1.Print \产生的随机数为：\For i = 1 To 10

a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i

Picture1.Print End Sub

Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1)

ave = 0.1 * a(1) For i = 2 To 10

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i) Next i

Picture1.Print \最大数为：\Picture1.Print \最小数为：\Picture1.Print \平均数为：\

End Sub

2.求水仙花数

Private Sub Form_Click()

Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9

If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub

3.百元买百鸡问题； Option Explicit

Const a = 5, b = 3, c = 1 Private Sub Form_Activate()

Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100

For j = 1 To 100 For k = 1 To 100

If i * a + j * b + k * c = 100 Then n = n + 1

List1.AddItem \公鸡：\母鸡：\小鸡：\End If

Next: Next: Next

MsgBox \共有组合：\End Sub

求1000以内的所有完数 一个按钮里调用的过程

Private Sub Command1_Click() OutputWanNumber 1000 End Sub

4.'求完数的过程

Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1

For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j

If temp = i Then Print i End If Next i End Sub

5.求各位数字之和 input a:'输入任意数 do

b=a mod 10:'取a的末位数 sum=sum+b:'求和

a=a \\ 10:'去掉末位数 loop until a=0

print \输出 end

（dim n as string input n

for i = 1 to len(n)

sum=sum+val(mid(n,i,1)) next i

print sum） 6.求最小公倍数

Private Sub Form_Load() Form1.AutoRedraw = True

Dim n1%, m1%, m%, n%, r% n1 = InputBox(\输入n1\m1 = InputBox(\输入m1\

If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else

m = n1: n = m1 End If Do

r = m Mod n

If r = 0 Then Exit Do m = n n = r Loop

Print n1; \的最大公约数为\Print \最小公倍数=\End Sub

7.求逆序数（感觉题目类型太多）

8. 级数有限项求和问题（题目类型太多）

9. 求质因子问题

Private Sub Command1_Click() Dim N As Integer, I As Integer

N = Val(InputBox(\请输入2的整数:\I = 2 Do

If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If

Loop While N 1 End Sub

10. 字符统计 Option Base1 Option Explicit

Private Sub Command1_Click()

Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1)

If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i

For i=1 To 26

List1.Additem Chr(64+i) & “:” & A(i) Netx i End Sub

Private Sub Command_Click() End

End Sub 第二大题

1. 判定素数过程

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i

isprime = True End Function

Private Sub Command1_Click() Dim i As Long

For i = 1 To 1000 If isprime(i) Then Print i

End If Next i

End Sub

2.求最大公约数过程；

Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法

K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop

Max公约数 = Y End Function

3.冒泡排序过程

Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer

For i = 0 To 9

a(i) = InputBox(\输入整数\Next Sort a

For i = 0 To 9 Print a(i) Next End Sub

Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer

For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next

Next End Sub

4顺序查找过程

Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize

Print \原数组:\For i = 1 To 10 a(i) = Rnd * 10

Print \If i Mod 2 = 0 Then Print Next i Print

For i = 1 To 9

For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) a(i

《VB期末范围题总汇》

1． 求随机10个整数的最大值、最小值、平均值以及和；

Dim a(1 To 10)

Private Sub Command1_Click() Randomize

Picture1.Print \产生的随机数为：\For i = 1 To 10

a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i

Picture1.Print End Sub

Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1)

ave = 0.1 * a(1) For i = 2 To 10

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i)

Next i

Picture1.Print \最大数为：\Picture1.Print \最小数为：\Picture1.Print \平均数为：\

End Sub

2.求水仙花数

Private Sub Form_Click()

Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9

If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub

3.百元买百鸡问题； Option Explicit

Const a = 5, b = 3, c = 1 Private Sub Form_Activate()

Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100

If i * a + j * b + k * c = 100 Then n = n + 1

List1.AddItem \公鸡：\母鸡：\小鸡：\End If

Next: Next: Next

MsgBox \共有组合：\End Sub

求1000以内的所有完数 一个按钮里调用的过程

Private Sub Command1_Click() OutputWanNumber 1000 End Sub

4.'求完数的过程

Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1

For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j

If temp = i Then Print i End If Next i End Sub

5.求各位数字之和 input a:'输入任意数 do

b=a mod 10:'取a的末位数 sum=sum+b:'求和

a=a \\ 10:'去掉末位数 loop until a=0

print \输出 end

（dim n as string input n

for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i

print sum） 6.求最小公倍数

Private Sub Form_Load() Form1.AutoRedraw = True

Dim n1%, m1%, m%, n%, r% n1 = InputBox(\输入n1\m1 = InputBox(\输入m1\

If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else

m = n1: n = m1 End If Do

r = m Mod n

If r = 0 Then Exit Do m = n n = r Loop

Print n1; \的最大公约数为\Print \最小公倍数=\End Sub

7.求逆序数（感觉题目类型太多）

8. 级数有限项求和问题（题目类型太多）

9. 求质因子问题

Private Sub Command1_Click() Dim N As Integer, I As Integer

N = Val(InputBox(\请输入2的整数:\I = 2 Do

If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If

Loop While N 1 End Sub

10. 字符统计 Option Base1 Option Explicit

Private Sub Command1_Click()

Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1)

If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i

For i=1 To 26

List1.Additem Chr(64+i) & “:” & A(i) Netx i

End Sub

Private Sub Command_Click() End

End Sub 第二大题

1. 判定素数过程

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i

isprime = True End Function

Private Sub Command1_Click() Dim i As Long

For i = 1 To 1000 If isprime(i) Then Print i End If Next i

End Sub

2.求最大公约数过程；

Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法

K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop

Max公约数 = Y End Function

3.冒泡排序过程

Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer

For i = 0 To 9

a(i) = InputBox(\输入整数\Next Sort a

For i = 0 To 9 Print a(i) Next End Sub

Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer

For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub

4顺序查找过程

Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize

Print \原数组:\For i = 1 To 10 a(i) = Rnd * 10

Print \If i Mod 2 = 0 Then Print Next i Print

For i = 1 To 9

For j = i + 1 To 10

If a(j) < a(i) Then t = a(i) a(i

《VB期末范围题总汇》

1． 求随机10个整数的最大值、最小值、平均值以及和；

Dim a(1 To 10)

Private Sub Command1_Click() Randomize

Picture1.Print \产生的随机数为：\For i = 1 To 10

a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i

Picture1.Print End Sub

Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1)

ave = 0.1 * a(1) For i = 2 To 10

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + 0.1 * a(i) Next i

Picture1.Print \最大数为：\Picture1.Print \最小数为：\Picture1.Print \平均数为：\

End Sub

2.求水仙花数

Private Sub Form_Click()

Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9

If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c

Next b Next a End Sub

3.百元买百鸡问题； Option Explicit

Const a = 5, b = 3, c = 1 Private Sub Form_Activate()

Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100

If i * a + j * b + k * c = 100 Then n = n + 1

List1.AddItem \公鸡：\母鸡：\小鸡：\End If

Next: Next: Next

MsgBox \共有组合：\End Sub

求1000以内的所有完数 一个按钮里调用的过程

Private Sub Command1_Click() OutputWanNumber 1000 End Sub

4.'求完数的过程

Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1

For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j

If temp = i Then Print i End If Next i End Sub

5.求各位数字之和 input a:'输入任意数

do

b=a mod 10:'取a的末位数 sum=sum+b:'求和

a=a \\ 10:'去掉末位数 loop until a=0

print \输出 end

（dim n as string input n

for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i

print sum） 6.求最小公倍数

Private Sub Form_Load() Form1.AutoRedraw = True

Dim n1%, m1%, m%, n%, r% n1 = InputBox(\输入n1\m1 = InputBox(\输入m1\

If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else

m = n1: n = m1 End If Do

r = m Mod n

If r = 0 Then Exit Do m = n n = r Loop

Print n1; \的最大公约数为\Print \最小公倍数=\End Sub

7.求逆序数（感觉题目类型太多）

8. 级数有限项求和问题（题目类型太多）

9. 求质因子问题

Private Sub Command1_Click() Dim N As Integer, I As Integer

N = Val(InputBox(\请输入2的整数:\I = 2

Do

If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If

Loop While N 1 End Sub

10. 字符统计 Option Base1 Option Explicit

Private Sub Command1_Click()

Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1)

If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i

For i=1 To 26

List1.Additem Chr(64+i) & “:” & A(i) Netx i End Sub

Private Sub Command_Click() End

End Sub 第二大题

1. 判定素数过程

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i

isprime = True End Function

Private Sub Command1_Click() Dim i As Long

For i = 1 To 1000 If isprime(i) Then Print i End If Next i

End Sub

2.求最大公约数过程；

Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法

K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop

Max公约数 = Y End Function

3.冒泡排序过程

Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer

For i = 0 To 9

a(i) = InputBox(\输入整数\Next Sort a

For i = 0 To 9 Print a(i) Next End Sub

Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer

Dim t As Integer

For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub

4顺序查找过程

Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize

Print \原数组:\For i = 1 To 10 a(i) = Rnd * 10

Print \If i Mod 2 = 0 Then Print Next i Print

For i = 1 To 9

For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) a(i

本文来源：https://www.bwwdw.com/article/05iw.html