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)
实验题目36：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载） (25)
End Sub (26)
实验题目37：设计个人情况登记程序。程序初始界面如下： (26)
Picture1.Print Combo1.Text & Combo2.Text & Combo3.Text (26)
实验题目38：设计“商品统计”窗体。初始界面如下： (26)
实验题目39：设计界面，实现调色板功能。 (27)
End Sub (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()
Label1.FontSize = 30
End Sub
Private Sub Command2_Click()
Label1.FontBold = true
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
实验题目2： 设计一个计算器。参考界面如下：
要求：怎么在文本框中输入数据----直接输入，文本框有输入、编辑和显示文本的作用。 1）实现算术运算（+、-、*、/）的功能；
2）实现清除和结束的功能；
3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：
要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。
说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码：
Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text5.Text = Val(Text4.Text) / 3
End Sub
Private Sub Command3_Click()
‘（cls用于清除form和picturebox运行时生成的图片和文本）
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：
要求：
①设置窗体的标题为“计算圆的周长和面积”。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目4源程序代码：
Private Sub Command1_Click()
Dim r As Double, s As Double , c As Double
Const pi = 3.1415926 ‘声明用于代替文字量的常数。
r = Val(Text1.Text)
s = pi * r * r
c = 2 * pi * r
Text2.Text = Str(c)
‘返回代表一数值的 Variant (String)。当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空
格暗示有一正号。
Text3.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus ‘ 将焦点移到第一个文本框中。
End Sub
实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：
要求：
①设置窗体的标题为“验证算术运算符”。
②“计算”命令按钮的功能：计算两个数的除、整除和取余。
③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目5源程序代码：
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Text4.Text = Val(Text1.Text) \ Val(Text2.Text)
Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.Setfocus
End Sub
Private Sub Command3_Click()
End
End Sub
实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：
要求：
①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目6源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text4.Text = Str(a \ 100) ‘ 读入用Val（），读出用Str（）。
Text3.Text = Str((a Mod 100) \ 10)
Text2.Text = Str(a Mod 10)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
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(Text1.Text)
‘trim()是去除字符串头或尾部的空格，但不包含中间的空格。ltrim()是去除字符串左边的空格。rtrim()是去除字符串右边的空格。
b = Left(a, 1)
‘返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。
c = Mid(a, 2, 1)
‘ Mid(string, start[, length])
d = Right(a, 1)
Text2.Text = d & c & b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
第二种解法：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(Text1.Text)
b = a \ 100
c = (a Mo
d 100) \ 10
d = a Mod 10
Text2.Text = Str(d * 100 + c * 10 + b)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
实验题目8：输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。
实验题目8源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a
a = b
b = c
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
实验题目9：设计文本编辑窗体。
复制按钮的功能：
移动按钮的功能：
提示：文本框的SelText属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的multiline属性设置为true。 实验题目9源程序代码：
Private Sub Command1_Click()
Text2.Text = Text1.SelText
End Sub
Private Sub Command2_Click()
Text2.Text = Text1.SelText
Text1.SelText = ""
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
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
Text1.Text = 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(Text1.Text)
If a = 0 Then
Text2.Text = "sunday"
ElseIf a = 1 Then
Text2.Text = "monday"
ElseIf a = 2 Then
Text2.Text = "tuesday"
ElseIf a = 3 Then
Text2.Text = "wednesday"
ElseIf a = 4 Then
Text2.Text = "thursday"
ElseIf a = 5 Then
Text2.Text = "friday"
ElseIf a = 6 Then
Text2.Text = "saturday"
End If
End Sub
实验题目16：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）
要求：用select case语句实现。
提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength 属性设置为1，则一次只能输入一个字符。
实验题目16源程序代码：
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Select Case a
Case "a" To "z"
Label1.Caption = "它是小写字母"
Case "A" To "Z"
Label1.Caption = "它是大写字母"
Case "0" To "9"
Label1.Caption = "它是数字字符"
Case Else
Label1.Caption = "其他字符"
End Select
End Sub
实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。
具体要求如下：
（1）可以设置字号，包括10、20、30号
（2）可以设置字体，包括宋体、隶书、幼圆
（3）可以设置字型，包括加粗、倾斜、下划线
（4）可以设置字的颜色，包括红色、绿色、蓝色
实验题目17源程序代码：
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.fontbold = false
End If
End Sub
Private Sub Check2_Click()
If Check2.Value =1 Then
Text1.FontItalic = True
Else
Text1.fontitalic = false End If
End Sub
Private Sub Check3_Click() If Check3.Value =1 Then Text1.FontUnderline = True Else
Text1.fontunderline = false End If
End Sub
Private Sub Option1_Click() Text1.FontSize = 10
End Sub
Private Sub Option2_Click() Text1.FontSize = 20
End Sub
Private Sub Option3_Click() Text1.FontSize = 30
End Sub
Private Sub Option4_Click() Text1.FontName = "宋体" End Sub
Private Sub Option5_Click() Text1.FontName = "隶书" End Sub
Private Sub Option6_Click() Text1.FontName = "幼圆"
End Sub
Private Sub Option7_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option8_Click()
Text1.ForeColor = vbGreen
End Sub
Private Sub Option9_Click()
Text1.ForeColor = 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(Text1.Text)
b = 1:
c = 1
Do While b <= a
c = c * b
b = b + 1
Loop
Label2.Caption = 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(Text1.Text)
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
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 = Text1.Text
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
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
For i = 1 To 20
If a(i) Mod 2 <> 0 Then
Print a(i);
m = m + 1
End If
Next i
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(Text1.Text)
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语句的用法。
vb程序设计的几个简单例子
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
完整word版,VB程序设计例题12例
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
VB程序设计例题程序改错程序填空程序设计
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
VB可视化程序设计实例——小时钟
VB可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框
图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口
vb程序的设计实例
vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load()
VB编程实例精讲(150例)
ExcelVBA编程实例（150例） 主要内容和特点 《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelV BA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。 ■分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解； ■一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作； ■各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解； ■您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。VBE编辑器及VBA代码输入和调试的基本知识 在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。 激活VBE编辑器 一般可以使用以下三种方式来打开VBE编辑器： ■使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；■在Visual Basic工具栏上，按“Visual Basic编辑器”按钮，如图00-02所示；■按Alt+F11组合键。
图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器 图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器 此外，您也可以使用下面三种方式打开VBE编辑器： ■在任一工作表标签上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问该工作表的代码模块，如图00-03所示； ■在工作簿窗口左上角的Excel图标上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块，如图00-04所示； ■选择菜单“工具——宏——宏”命令打开宏对话框，若该工作簿中有宏程序，则单击该对话框中的“编辑”按钮即可进行VBE编辑器代码模块，如图00-05所示。
vb程序设计经典例题
VB程序设计期末模拟试题及答案 《VB》期末复习题及答案 综合复习题 一、填空题 1．创建一个VB应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。 2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性__窗口中，把此文本框的_text_属性设置成空白。 3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用__Label___控件；若允许用户输入文本，则应使用 _TextBox__控件。 4．窗体的常用方法有__Load方法__、_show方法_、 Hide方法__和_Unload方法_。 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_Txtshow.Text="GOOD WORK"_。 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ Click()___ __Frm1.show__ End Sub 7．Visual Basic 6种类型的表达式是_数算表达式____、__字符串表达式_、__关系表达式__、 __布尔表达式__、___日期表达式__、___对象表达式_。Visual Basic根据表达式的__运算符_来确定表达式的类型。 8．表达式93 \ 7 Mod 2 ^ 2 的值是______1_____。 9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c VB程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题 题目：（事件）单击窗体 （响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100, 结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i Sum =1/a + Sum Next Print Sum 第八题 题目：（事件）单击窗体 （响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。 将结果存入变量J中 代码：Dim j As Single VB 程序设计过程 程序设计——编程人员使用程序设计语言设计一个计算机程序。 【引例】简单VB程序设计实例。功能要求：单击←、→、↑、↓中的任何一个命令按钮，红色小球就会向相应方向移动一定距离。 1、分析问题 根据程序的功能要求，可见程序必须具有以下具体功能。 （1）程序必须能够接收程序用户输入的小球移动方向，即原始数据输入。本例使用4个“命令按钮”向程序用户提供给方向数据输入平台。 （2）当程序用户输入一个方向数据后，程序必须能够立即自动计算小球新的位臵，即数据处理。本例对于4个不同的移动方向分别计算新的位臵数据。 （3）程序必须能够向程序用户展示小球的移动效果，即输出结果数据。本例使用一个红色小球图形向程序用户实时展示移动效果。 2、建立一个VB应用程序工程 启动VB6.0 IDE后会弹出“新建工程”对话框，在“新建” 选项卡中选择“标准.EXE”图标，单击“打开”命令按钮，或双击“标准.EXE”图标，即可新建一个默认名为“工程1” 的应用程序设计工程项目。 ?【问1-3-3】什么是工程？ 【答1-3-3】用来建造VB应用 程序的设计文件集合。 在新建一个工程时后，VB6.0 IDE会根据设计内容自动建立一系列设计文件。 第一个设计文件就是VB6.0 IDE 自动新建一个默认名为“Form1”的窗体对象，这个窗体对象就是程序界面的设计平台。 在命令行操作系统下运行应用程序（例如DOS），程序用户需要在按照操作系统规则输入相应的命令行使用应用程序。 在图形界面操作系统（例如Windows）下运行应用程序，程序用户使用鼠标和键盘通过对图形界面的操作使用应用程序。可见，应用程序用户图形界面（简称程序界面）是用户使用应用程序的一个图形化控制平台，程序界面的设计是设计Windows应用程序的基础。 【设计程序界面的方法】使用VB6.0 IDE工具箱中提供的控件类，在窗体对象上创建需要的控件对象。 习题一 习题二 .对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。 事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。 (10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico 或.cur）。图标库在Graphics目录下。 3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)我国现有人口为13亿，设年增长率为1%，' 计算多少年后增加到20亿。并将结果输出' 在窗体上。将结果存入变量year中。 ' 使用do while ...loop语句完成程序。 '------------------------------------------------- Private Sub Form_Click() Dim year As Integer, sum As Single '***************** Begin ************** Dim p as double Dim r as single P=1300000000 r=0.01 Do while p<2000000000 P=p+p*r n=n+1 Loop Print “n=”,n Year=n '*************** End ************************* '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求从100到1000之间所有是3的倍数的数之' 和，当和大于3000时，停止计算并输出和。请将结果输' 出到窗体上,并存入所给变量SUM中。使用for...next语 ' 句完成程序 '------------------------------------------------- Private Sub Form_Click() Dim sum As Integer '***************** Begin ************** sum = 0 Dim i As Integer For i = 100 To 1000 If i Mod 3 = 0 Then sum = sum + i If sum > 3000 Then Exit For End IfVB程序设计题库(全)
一个简单VB程序设计过程
VB程序设计教程课后答案
VB程序设计经典案例