40个Visual Basic 编程简单实例

目录

实验题目1：设计窗体。参考界面如下：....................................................................................2

实验题目2： 设计一个计算器。参考界面如下：

......................................................................3

实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

..........................................................................................................................................................4

实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：............................4

实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：........................5

实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界

面如下：..........................................................................................................................................6

实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：........................................7

实验题目8：输入两个数，将这两个数交换。............................................................................8

实验题目9：设计文本编辑窗体。................................................................................................8

实验题目10：编写程序计算某个学生三门课程的平均成绩。................................................10

实验题目12：编写程序计算长方体的体积。............................................................................10

实验题目13：编写程序求出四个数中的最小数。....................................................................11

实验题目14：编写程序判断某个数是否是水仙花数。............................................................11

实验题目15：编写程序，实现数字和英文单词的对应。........................................................12

（大写字母、小写字母、

实验题目16：设计程序，

判断从键盘上输入的某个字符为哪类字符。

数字字符或其他字符）.................................................................................................................12

实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。

................13

实验题目18：编写程序输出图形，运行界面如下：................................................................15

实验题目19：编写程序求n！。...................................................................................................15

实验题目20：编写程序，求出某班所有同学某门课程的平均成绩。....................................16

实验题目21：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输

出这些整数的和。（用for语句实现）..........................................................................................16

实验题目21：编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实现）.17

实验题目22：编写程序，定义包含

10个数组元素的一维数组，给该数组中的数组元素赋值

为3，6，9，12……数字，并以顺序和逆序两种方式输出各元素值。..................................17

将其中的奇数和偶数分两行显示在窗体上，

实验题目23：随机生成

20个100以内的正整数，

并分别统计奇数和偶数的个数。.................................................................................................18

实验题目24：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平

均成绩的人数。............................................................................................................................18

实验题目25：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。

........................................................................................................................................................19

实验题目26：阅读并上机运行下面程序，理解动态数组的用法。........................................19

实验题目27：阅读并上机运行下面程序，理解array函数的用法。.....................................20

实验题目28：阅读并上机运行下面程序，理解for each …… next语句的用法。...........20

实验题目29：用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件数组，

当单击某个单选按钮时，标签的背景分别显示不同的颜色）.................................................21

实验题目30：阅读并运行以下程序，理解过程中的参数传递。............................................21

实验题目31：编写程序，实现两个变量值的交换。要求用过程。........................................22

实验题目32：以下代码的功能是：调用max “

子过程”，求出两个数中的最大值。请将以下

代码补充完整。............................................................................................................................22

实验题目33：以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。请将以下

代码补充完整。............................................................................................................................23

实验题目34：阅读并运行下面的程序代码，

多次单击command1命令按钮，比较两种数组的

区别。............................................................................................................................................24

实验题目35两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋

初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；

用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值

都为0。.........................................................................................................................................25

，“图片2”，“图片3”时，图片（像）

实验题目36：设计窗体，界面如下：当单击“图片

1”

框分别加载不同图片。（要求：图片自己从网上下载）...........................................................25

26

实验题目37：设计个人情况登记程序。程序初始界面如下：................................................26

& & ......................................................26

实验题目38：设计“商品统计”窗体。初始界面如下：........................................................26

实验题目39：设计界面，实现调色板功能。............................................................................27

28

实验题目40：...............................................................................................................................28

实验题目1：

设计窗体。参考界面如下：

运行前 运行后

要求：

1） 在窗体上添加一个标签，通过属性窗囗设置标签格式：

Caption：字体格式 Alignment：2—Center（居中）

BorderStyle ：1—Fixed Single（有边框） Backstyle：0—Tansparent（背景透明）

2） 运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；

单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline

实验题目1源程序代码：

Private Sub Command1_Click()

ze = 30

End Sub

Private Sub Command2_Click()

ld = true

End Sub

Private Sub Command3_Click()

derline = True

End Sub

实验题目2：

设计一个计算器。参考界面如下：

要求：怎么在文本框中输入数据----直接输入，文本框有输入、编辑和显示文本的作用。

1）实现算术运算（+、-、*、/）的功能；

2）实现清除和结束的功能；

3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：

Private Sub Command1_Click()

= Val() + Val()

End Sub

Private Sub Command2_Click()

= Val() - Val()

End Sub

Private Sub Command3_Click()

= Val() * Val()

End Sub

Private Sub Command4_Click()

= Val() / Val()

End Sub

实验题目3：

设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按

钮才可用。

说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。

实验题目3源程序代码：

Private Sub Command1_Click()

= Val() + Val() + Val()

d = True

End Sub

Private Sub Command2_Click()

= Val() / 3

End Sub

Private Sub Command3_Click()

‘（cls用于清除form和picturebox运行时生成的图片和文本）

= ""

= ""

= ""

= ""

= ""

End Sub

实验题目4：

设计界面，编写程序计算圆的周长和面积。参考界面如下：

要求：

①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目4源程序代码：

Private Sub Command1_Click()

Dim r As Double, s As Double , c As Double

Const pi = 3.1415926 ‘声明用于代替文字量的常数。

r = Val()

s = pi * r * r

c = 2 * pi * r

= Str(c)

‘返回代表一数值的 Variant (String)。当一数字转成字符串时，总会在前头保留一空位

来表示正负。如果 number 为正，返回的字符串包含一前导空

格暗示有一正号。

= Str(s)

End Sub

Private Sub Command2_Click()

= ""

= ""

= ""

us ‘ 将焦点移到第一个文本框中。

End Sub

实验题目5：

设计界面，编写程序验证算术运算符的功能。参考界面如下：

要求：

①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目5源程序代码：

Private Sub Command1_Click()

= Val() / Val()

= Val() Val()

= Val() Mod Val()

End Sub

Private Sub Command2_Click()

= ""

= ""

= ""

= ""

= ""

us

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目6：

设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考

界面如下：

要求：

①设置窗体的标题为“分离三位数”。

②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。

③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目6源程序代码：

Private Sub Command1_Click()

Dim a As Integer

a = Val()

= Str(a 100) ‘ 读入用Val（），读出用Str（）。

= Str((a Mod 100) 10)

= Str(a Mod 10)

End Sub

Private Sub Command2_Click()

= ""

= ""

= ""

= ""

us

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目7：

输入一个三位数，将它按逆序输出。参考界面如下：

要求此题用两种解法：

第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；

第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、、

*、+等运算符）。

实验题目7源程序代码：

第一种解法：

Private Sub Command1_Click()

Dim a As String, b As String, c As String, d As String

a = Trim()

‘trim()是去除字符串头或尾部的空格，但不包含中间的空格。ltrim()是去除字符串左边

的空格。rtrim()是去除字符串右边的空格。

b = Left(a, 1)

‘返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。

c = Mid(a, 2, 1)

‘ Mid

(string, start[, length])

d = Right(a, 1)

= d & c & b

End Sub

Private Sub Command2_Click()

= ""

= ""

End Sub

第二种解法：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

a = Val()

b = a 100

c = (a Mod 100) 10

d = a Mod 10

= Str(d * 100 + c * 10 + b)

End Sub

Private Sub Command2_Click()

= ""

= ""

End Sub

实验题目8：

输入两个数，将这两个数交换。

要求：不允许使用第三个文本框，可以借助一个中间变量。

实验题目8源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val()

b = Val()

c = a

a = b

b = c

= Str(a)

= Str(b)

End Sub

实验题目9：

设计文本编辑窗体。

复制按钮的功能：

移动按钮的功能：

提示：文本框的SelText属性表示选定的内容。

要求：文本框可以多行输入。

说明：设计时先将文本框的multiline属性设置为true。

实验题目9源程序代码：

Private Sub Command1_Click()

= t

End Sub

Private Sub Command2_Click()

= t

t = ""

End Sub

Private Sub Command3_Click()

= ""

= ""

End Sub

Private Sub Command4_Click()

End

End Sub

实验题目10：

编写程序计算某个学生三门课程的平均成绩。

要求：

（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调

用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）

提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入

第一门课的成绩"))

（2）单击“结束”命令按钮结束程序运行。

界面如下：

实验题目10 源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

a = Val(InputBox("请输入第一门成绩"))

b = Val(InputBox("请输入第二门成绩"))

c = Val(InputBox("请输入第三门成绩"))

d = (a + b + c) / 3

= d

End Sub

实验题目12：

编写程序计算长方体的体积。

要求：

（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，

并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，

输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：

（2）单击“结束”命令按钮结束程序运行。

实验题目12源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, v As Integer

a = Val(InputBox("请输入长方体的长"))

b = Val(InputBox("请输入长方体的宽"))

c = Val(InputBox("请输入长方体的高"))

v = a * b * c

MsgBox "长方体的体积为：" & v, , "计算长方形的体积"

End Sub

Private Sub Command2_Click()

end

End Sub

实验题目13：

编写程序求出四个数中的最小数。

实验题目13源程序代码：

Private Sub Command1_Click()

Dim a!, b!, c!, d!, min!

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = Val(Text4)

min = a

If b < min Then min = b

If c < min Then min = c

If d < min Then min = b

Label1 = "最小的数是：" & min

End Sub

实验题目14：

编写程序判断某个数是否是水仙花数。

要求：用inputbox函数输入一个数，将结果输出在窗体上。

提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。

实验题目14源程序代码：

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

d = InputBox("请输入一个三位数", "判断水仙花数")

a = d 100

b = (d Mod 100) 10

c = d Mod 10

If d = a ^ 3 + b ^ 3 + c ^ 3 Then

Print True

Else

Print False

End If

End Sub

实验题目15：

编写程序，实现数字和英文单词的对应。

提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。

实验题目15 源程序代码：

Private Sub Command1_Click()

Dim a As Integer

a = Val()

If a = 0 Then

= "sunday"

ElseIf a = 1 Then

= "monday"

ElseIf a = 2 Then

= "tuesday"

ElseIf a = 3 Then

= "wednesday"

ElseIf a = 4 Then

= "thursday"

ElseIf a = 5 Then

= "friday"

ElseIf a = 6 Then

= "saturday"

End If

End Sub

实验题目16：

设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字

母、数字字符或其他字符）

要求：用select case语句实现。

提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength

属性设置为1，则一次只能输入一个字符。

实验题目16源程序代码：

Private Sub Command1_Click()

Dim a As String

a =

Select Case a

Case "a" To "z"

n = "它是小写字母"

Case "A" To "Z"

n = "它是大写字母"

Case "0" To "9"

n = "它是数字字符"

Case Else

n = "其他字符"

End Select

End Sub

实验题目17：设计一个简单的文本编辑器，可以实现文本的

简单格式化操作。

具体要求如下：

（1）可以设置字号，包括10、20、30号

（2）可以设置字体，包括宋体、隶书、幼圆

（3）可以设置字型，包括加粗、倾斜、下划线

（4）可以设置字的颜色，包括红色、绿色、蓝色

实验题目17源程序代码：

Private Sub Check1_Click()

If = 1 Then

ld = True

Else

ld = false

End If

End Sub

Private Sub Check2_Click()

If =1 Then

alic = True

Else

alic = false

End If

End Sub

Private Sub Check3_Click()

If =1 Then

derline = True

Else

derline = false

End If

End Sub

Private Sub Option1_Click()

ze = 10

End Sub

Private Sub Option2_Click()

ze = 20

End Sub

Private Sub Option3_Click()

ze = 30

End Sub

Private Sub Option4_Click()

me = "宋体"

End Sub

Private Sub Option5_Click()

me = "隶书"

End Sub

Private Sub Option6_Click()

me = "幼圆"

End Sub

Private Sub Option7_Click()

lor = vbRed

End Sub

Private Sub Option8_Click()

lor = vbGreen

End Sub

Private Sub Option9_Click()

lor = vbBlue

End Sub

实验题目18：

编写程序输出图形，运行界面如下：

实验题目18源程序代码：

Private Sub Command1_Click()

Dim a%

a = 1

While a <= 6

Print "******"

a = a + 1

Wend

End Sub

。

实验题目19：

编写程序求n！

实验题目19源程序代码：

Private Sub Command1_Click()

Dim a as integer, b as integer, c As Long

a = Val()

b = 1: c = 1

Do While b <= a

c = c * b

b = b + 1

Loop

n = a & "!=" & c

End Sub

实验题目20：

编写程序，求出某班所有同学某门课程的平均成绩。

实验题目20源程序代码：

Private Sub Command1_Click()

Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Double

s = 0: i = 1: n = Val()

Do While i <= n

d = InputBox("输入第" & i & "位同学的成绩", "成绩输入")

s = s + d

i = i + 1

Loop

a = s / n

MsgBox "全班" & n & "位同学的平均分为:" & a, , "求平均分"

End Sub

实验题目21：

编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。

并输出这些整数的和。（用for语句实现）

实验题目20源程序代码：

Private Sub Command1_Click()

Dim i As Integer, n As Integer, s As Integer

s = 0

n = 0

For i = 1 To 100 Step 1

If i Mod 3 = 0 Then

Print i;

n = n + 1

If n Mod 5 = 0 Then

Print

End If

s = s + i

End If

Next i

Print s

End Sub

实验题目21：

编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实

现）

实验题目21源程序代码：

Private Sub Command1_Click()

Dim i%, a%, b%, c%, d%, s As String

s =

For i = 1 To Len(s) Step 1

Select Case Mid(s, i, 1)

Case "a" To "z"

a = a + 1

Case "A" To "Z"

b = b + 1

Case "0" To "9"

c = c + 1

Case Else

d = d + 1

End Select

Next i

Print a, b, c, d,

End Sub

实验题目22：

编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元

素赋值为3，6，9，12……数字，并以顺序和逆序两种方式输出各元素值。

实验题目22源程序代码：

Private Sub Command1_Click()

Dim i As Integer

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = 3 * i

Print a(i);

Next i

Print

For i = 10 To 1 Step -1

Print a(i);

Next i

End Sub

实验题目23：

随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在

窗体上，并分别统计奇数和偶数的个数。

实验题目23源程序代码：

Private Sub Command1_Click()

Dim i As Integer, n As Integer, m As Integer

Dim a(1 To 20) As Integer

For i = 1 To 20

a(i) = Int(100 * Rnd + 1)

If a(i) Mod 2 = 0 Then

Print a(i);

n = n + 1

End If

Next i

Print

For i = 1 To 20

If a(i) Mod 2 <> 0 Then

Print a(i);

m = m + 1

End If

Next i

Print

Print m, n

End Sub

实验题目24：

用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和

高于平均成绩的人数。

实验题目24源程序代码：

Option base 1

Private Sub Command1_Click()

Dim sum As Integer, i As Integer, n As Integer, m As Integer

Dim data(10) As Integer, average As Single

sum = 0: i = 1: n = Val()

Do While i <= n

data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")

sum = sum + data(i)

i = i + 1

Loop

average = sum / n

MsgBox "全班" & n & "位学生的平均成绩为:" & average, , "求平均分"

For i = 1 To 10

If data(i) > average Then

m = m + 1

End If

Next i

Print m

End Sub

实验题目25：

用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低

分。

实验题目25源程序代码：

Option base 1

Private Sub Command1_Click()

Dim i As Integer, n As Integer, max As integer, min As integer

Dim data(10) As Integer

data(1) = InputBox("输入第" & 1 & "位学生的成绩", "成绩输入")

max = data(1): min = data(1)

For i = 2 To 10

data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")

If data(i) > max Then

max = data(i)

End If

If data(i) < min Then

min = data(i)

End If

Next i

Print "最高分是："; max, "最低分是："; min

End Sub

实验题目26：

阅读并上机运行下面程序，理解动态数组的用法。

实验题目26程序运行结果：

21

实验题目27：

阅读并上机运行下面程序，理解array函数的用法。

实验题目27程序运行结果：

1234

实验题目28：

阅读并上机运行下面程序，理解for each …… next语句的用法。

在实验题目7中用到for each …… next语句，该语句中用到的Temp变

量必须是什么类型的？

答：变体类型

实验题目29：

用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件

数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色）

提示：根据控件数组的index值进行判断，用if语句实现。

实验题目29源程序代码：

Private Sub Option1_Click(Index As Integer)

If Index = 0 Then

lor = vbRed

ElseIf Index = 1 Then

lor = vbGreen

ElseIf Index = 2 Then

lor = vbBlue

End If

End Sub

实验题目30：

阅读并运行以下程序，理解过程中的参数传递。

实验题目30各参数传递的方式：

i和j是按值传递；k是按地址传递。

两种方式参数传递的区别：

按值传递是把实参的值传给形参，形参值的变化不会影

响到实参，而按地址传递是把实参的地址传给形参，实参和形参共用一个存储单元，形参值

的变化也就是实参值的变化。

实验题目30程序运行结果：

8

实验题目31：

编写程序，实现两个变量值的交换。要求用过程。

实验题目31源程序代码：

Public Sub gc(ByRef x As Integer, ByRef y As Integer)

Dim t As Integer

t = x: x = y: y = t

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = val()

b = val()

Call gc(a, b)

= a

= b

End Sub

实验题目32：

以下代码的功能是：调用max “子过程”，求出两个数中的最大值。

请将以下代码补充完整。

实验题目32源程序代码：

Public Sub max(m%, n%, t%)

If m > n Then

t = m

Else

t = n

End If

End Sub

Private Sub Form_Click()

Dim x%, y%, z%

x = Val(InputBox("请输入数据"))

y = Val(InputBox("请输入数据"))

Call max(x, y, z)

Print "最大值是:"; z

End Sub

实验题目33：

以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。

请将以下代码补充完整。

实验题目33源程序代码：

Function max(m%, n%) As Integer

If m > n Then

max = m

Else

max = n

End If

End Function

Private Sub Form_Click()

Dim x%, y%, z%

x = Val(InputBox("请输入数据"))

y = Val(InputBox("请输入数据"))

z = max(x, y)

Print "最大值是:"; z

End Sub

实验题目34：

阅读并运行下面的程序代码，多次单击command1命令按钮，比较两

种数组的区别。

实验题目35两种数组的区别是：

用static定义的数组表示静态数组，如果没有

给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作

为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各

元素的初值都为0。

实验题目35程序运行结果：

第一次输出 22222

22222

第二次输出 44444

22222

……

实验题目36：

设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图

片（像）框分别加载不同图片。（要求：图片自己从网上下载）

实验题目36源程序代码：

Private Sub Option1_Click()

e = LoadPicture( + "")

End Sub

Private Sub Option2_Click()

e = LoadPicture( + "")

End Sub

Private Sub Option3_Click()

e = LoadPicture( + "")

End Sub

实验题目37：

设计个人情况登记程序。程序初始界面如下：

窗体中共包含3个标签，3个组合框，1个图片框和2个命令按钮。

Combo1提供2个选项：东校区、西校区

Combo2提供3个选项：中文系、外语系、教心系

Combo3提供3个选项：0901、0902、0903

程序运行时，当在3个组合框中分别选择相应内容后，单击“确认”按钮，会将选择的内容

在图片框中打印出来。

实验题目37源程序代码：

Private Sub Command1_Click()

& &

End Sub

Private Sub Command2_Click()

End

End Sub

实验题目38：

设计“商品统计”窗体。初始界面如下：

运行时，在“商品列表”列表框中选择商品（注：可以多选），然后在组合框中选择卡号，

单击“确定”按钮，在“您的卡号”所对应的文本框中显示所选择的卡号，同时在“您所选

的商品数量”所对应的文本框中显示用户所选择的商品数量。

实验题目38源程序代码：

Private Sub Command1_Click()

=

Dim i As Integer, j As Integer

For i = 0 To unt - 1

If ed(i) = True Then

j = j + 1

End If

Next

= j

End Sub

Private Sub Command2_Click()

End

End Sub

实验题目39：

设计界面，实现调色板功能。

实验题目39源程序代码：

Private Sub HScroll1_Change(Index As Integer)

Text1(Index).Text = HScroll1(Index).Value

lor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

lor = lor

Private Sub HScroll1_scroll(Index As Integer)

Text1(Index).Text = HScroll1(Index).Value

lor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

End Sub

实验题目40：

设计一个窗体含1个图像框和1个计时器。运行程序时，图像从右下角向左上角移动，

当图像移出左上角后，再从右下角向左上角移动，周而复始。Interval属性设置为50。

实验题目40源程序代码：

Private Sub form_load()

=

=

End Sub

Private Sub timer1_timer()

- 50, - 50

If <= 0 Then

=

=

End If

End Sub