vb小程序设计实例
VB小程序
1、VB定时器'*************************************************************'新建一个窗体，放两个控件：label和timer'*************************************************************Public hor As LongPublic minu, sec As IntegerPrivate Sub Form_Load()'设置计时器时间间隔为1秒。
'考虑到Sub Timer1_Timer()中判断等操作要花时间，所以Timer1.Interval设为994 Timer1.Interval = 994Dim longTime, tmp As Long'********************************longTime = 65'时间值，要你自己从数据库取，我就不写了！'********************************'初始化显示时间hor = CLng(longTime / 3600 - 0.5)'小时数tmp = longTime - 3600 * hor '剩余秒数minu = CLng(tmp / 60 - 0.5) '分钟数tmp = tmp - 60 * minu'剩余秒数sec = tmp'秒数Label1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End SubPrivate Sub Timer1_Timer()If sec = 0 ThenIf minu = 0 ThenIf hor = 0 ThenExit SubElsehor = hor - 1End Ifminu = 59Elseminu = minu - 1sec = 59End IfElsesec = sec - 1End IfLabel1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End Sub2、VB倒计时Dim h, m, s As IntegerPrivate Sub Command1_Click()Label1.Visible = FalseText1.Visible = TrueIf Command1.Caption = "倒计时" Then Timer1.Enabled = TrueCommand1.Caption = "停止"Command2.Enabled = FalseElseTimer1.Enabled = FalseCommand1.Caption = "倒计时"Command2.Caption = "重设倒计时" Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = "重设倒计时" Then Call againCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()a = MsgBox("你确定要退出嗎")EndEnd SubPrivate Sub Form_Load()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseEnd SubPrivate Sub Timer1_Timer()If s > 0 Thens = s - 1End IfIf s < 1 And m > 0 Thenm = m - 1s = 60End IfIf m < 1 And s = 0 And h > 0 Thenh = h - 1m = 60End IfIf h < 0 Thenh = 0End IfIf m < 0 Thenm = 0End IfText1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")If h = 0 And m = 0 And s = 0 ThenText1.Text = "時間到了"Command1.Caption = "倒计时"Command1.Enabled = FalseTimer1.Enabled = FalseCommand2.Enabled = TrueEnd IfEnd SubSub again()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseLabel1.Visible = TrueEnd Sub3、VB应该怎样取得本机上网用的动态IP应该是电信局动态分配给宽带用户的那种动态IP。
VB小程序代码实例
VB小程序代码实例1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: ")If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEnd IfNext iprintprint "NegativeSum=";NegativeSumPrint "PostiveSum=";PostiveSumEnd Sub2.打印九九表：在窗体上打印九九表：程序如下：Print Sub Form_Click()FontSize=12Print Tab(30);"9*9 T able"Print:Print '输出两个空行Print "* ";For i=1 To 9Print Tab(i*6);i; '打印横行序号Next iFor j=1 To 9Print j;" "; '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6);temp;" "; '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click()Print:PrintFontName="魏碑"FontSize=16Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯"PrintPrint "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
VB程序代码(简单小程序)
实验一：（带有进度条的倒计时程序）Public Class Form1Dim timers As IntegerDim temp As IntegerPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timersElseTimer1.Enabled = FalseProgressBar1.Value = ProgressBar1.MaximumMessageBox.Show("进度完成！")End Iftemp += 1Label1.Text = temp.ToString()End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadtimers = 30End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clicktimers = Val(InputBox("输入", "请输入总时间。
", 30, 0, 0))End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = TrueEnd SubEnd Class实验二（定时器控制蝴蝶飞舞）Public Class Form1Dim t As IntegerPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick’Dim t As Boolean' If t = True Then' PictureBox3.Image = PictureBox2.Image' t = False'Else' PictureBox3.Image = PictureBox1.Image' t = True'End IfSelect Case tCase 0PictureBox3.Image = PictureBox1.Imaget = 1Case 1PictureBox3.Image = PictureBox2.Imaget = 2Case 2PictureBox3.Image = PictureBox1.Imaget = 3Case 3PictureBox3.Image = PictureBox1.Imaget = 0End SelectEnd SubEnd Class实验三（递推法迭代法--猴子吃桃）Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, y As Integern = Val(TextBox1.Text)y = Val(TextBox2.Text)Dim xi As Doublexi = yTextBox3.Text = "第" + n.ToString() + "天的桃子为：" + y.ToString() + "个。
小时候经典游戏用VB编的编写实例教程大全全!
这些游戏以前玩过吧，快下载看它们是怎么编写的！目录：·编写趣味撞球小游戏·用VB6.0设计简易赛车游戏·Visual Basic小游戏：猜英雄·VB游戏写作技巧（1）秀图篇·VB游戏写作技巧（2）网络篇·VB 贪吃蛇单人版游戏(一)·VB 贪吃蛇单人版游戏(二)·VB 贪吃蛇单人版游戏(三)·VB 贪吃蛇单人版游戏(四)·用VB开发即时战略游戏正文：编写趣味撞球小游戏文章来源：沐风经典文章作者：佚名Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。
首先启动VB5，新建一个标准的EXE工程。
此时可以看到，工程包括一个Form1框体。
在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。
再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。
现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。
然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。
再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。
VB趣味小程序
VB趣味小程序1. 空心三角形Dim i%, j%Print Space(20); "*"For i = 2 To 9Print Space(21 - i); "*"; Space(2 * i - 3); "*"NextPrint Space(10);For i = 1 To 10Print Space(1); "*";Next扩展程序Const n = 15Dim a(1 To n) As IntegerDim i%, j%, t%RandomizeFor i = 1 To na(i) = Int(100 * Rnd) '生成15个0～100的随机整数存入数组NextPrint "排序前："For i = 1 To nPrint a(i);NextPrintFor i = 1 To n - 1For j = i + 1 To nIf a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t NextNextPrint "排序后："For i = 1 To nPrint a(i);Next2. 六角星Dim i%, j%, k%For i = 1 To 10If i < 4 Or i > 6 ThenPrint Space(20 - i);For j = 1 To iPrint "○";Next jElsePrint Space(6 + i);For k = 14 - i To 1 Step -1Print "○";Next kEnd IfPrintNext iFor i = 3 To 1 Step -1Print Space(20 - i);For j = 1 To iPrint "○";Next jPrintNext i3. 球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用Dim bzPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0If bz = 0 Then Shape1.Left = Shape1.Left + 10If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意：bz的使用（bz为一临时标志，用于判断移动方向）4. 从大到小再从小到大变化在窗体添加一标签label1，autosize=true，caption="★",添加一计时器空间timer1，inteval=100通用：Dim bzPrivate Sub Timer1_Timer()If Label1.FontSize >= 72 Then bz = 1If Label1.FontSize <= 8 Then bz = 0If bz = 0 Then Label1.FontSize = Label1.FontSize + 2If bz = 1 Then Label1.FontSize = Label1.FontSize - 2End Sub5. 在VB中用画圆Dim x, y, i As SingleClsScale (-15, 15)-(15, -15) '定义笛卡儿坐标系For i = 0 To 6.28 Step 0.05y = 10 * Sin(i)x = 10 * Cos(i)CurrentX = xCurrentY = yPrint "*"Next6. 四周循环移动创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1 在窗体上添加一个shape控件，设置背景不透明，红色，调整大小程序代码如下：Option ExplicitDim bz%Private Sub Command1_Click() '开始按钮Timer1 = TrueEnd SubPrivate Sub Command2_Click() '停止按钮Timer1 = FalseEnd SubPrivate Sub Form_Load()Shape1.Left = 0Shape1.T op = 0Timer1 = FalseTimer1.Interval = 10End SubPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.T op <= 0 Then bz = 1If Shape1.T op >= Form1.ScaleHeight - Shape1.Height Then bz = 2If Shape1.Left <= 0 Then bz = 3If Shape1.T op <= 0 And Shape1.Left <= 0 Then bz = 0Select Case bzCase 0Shape1.Left = Shape1.Left + 10Case 1Shape1.T op = Shape1.T op + 10Case 2Shape1.Left = Shape1.Left - 10Case 3Shape1.T op = Shape1.T op - 10End SelectEnd SubTHANKS !!!致力为企业和个人提供合同协议，策划案计划书，学习课件等等打造全网一站式需求欢迎您的下载，资料仅供参考。
vba小程序实例
vba小程序实例VBA小程序实例VBA（Visual Basic for Applications）是一种用于宏编程的编程语言，常用于Microsoft Office软件中。
通过编写VBA小程序，我们可以实现自动化处理数据、操作软件等功能。
本文将通过几个实例来展示VBA小程序的具体应用。
一、实例一：批量处理Excel表格数据假设我们需要对一个包含大量数据的Excel表格进行处理，例如筛选、排序、求和等操作。
使用VBA小程序可以大大提高工作效率。
我们打开Excel软件，按下“Alt + F11”快捷键，打开VBA编辑器。
然后在工程资源管理器中选择“插入”-“模块”，在新建的模块中编写VBA代码。
代码示例：Sub Data_Processing()' 定义变量Dim ws As WorksheetDim rng As Range' 设置工作表和数据范围Set ws = ThisWorkbook.Worksheets("Sheet1")Set rng = ws.Range("A1:E10")' 进行数据处理rng.AutoFilter Field:=1, Criteria1:=">100" ' 筛选大于100的数据' 其他数据处理操作...End Sub上述代码中，我们首先定义了两个变量ws和rng，分别表示工作表和数据范围。
然后通过设置工作表和数据范围，我们可以对指定范围内的数据进行处理。
例如，上述代码中使用了“AutoFilter”方法对第一列数据进行筛选，只显示大于100的数据。
二、实例二：自动发送邮件在日常工作中，我们经常需要发送邮件给固定的收件人。
使用VBA 小程序，我们可以编写一个自动发送邮件的程序，实现批量发送邮件的功能。
我们同样需要打开VBA编辑器。
然后在工程资源管理器中选择“插入”-“模块”，在新建的模块中编写VBA代码。
小时候经典游戏用VB编的编写实例教程大全全!
这些游戏以前玩过吧，快下载看它们是怎么编写的！目录：·编写趣味撞球小游戏·用VB6.0设计简易赛车游戏·Visual Basic小游戏：猜英雄·VB游戏写作技巧（1）秀图篇·VB游戏写作技巧（2）网络篇·VB 贪吃蛇单人版游戏(一)·VB 贪吃蛇单人版游戏(二)·VB 贪吃蛇单人版游戏(三)·VB 贪吃蛇单人版游戏(四)·用VB开发即时战略游戏正文：编写趣味撞球小游戏文章来源：沐风经典文章作者：佚名Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。
首先启动VB5，新建一个标准的EXE工程。
此时可以看到，工程包括一个Form1框体。
在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。
再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。
现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。
然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。
再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。
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），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB小程序设计实例
引言
VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，它具有简单
易学的特点，因此非常适合初学者入门。
本文将以一个实际的VB小程序设计实例
为例，介绍如何使用VB语言进行简单的程序开发。
项目背景
我们的目标是创建一个简单的VB小程序，用于管理学生信息。
该程序将允许
用户添加、删除和修改学生的基本信息，例如姓名、年龄和班级。
此外，用户还可以根据特定条件检索学生信息，并显示学生列表。
设计步骤
1. 创建VB项目
首先，打开Visual Studio并选择“创建新项目”，然后选择“Visual Basic”作为项
目类型。
接下来，选择“Windows Forms应用程序”作为模板，并给项目命名。
点
击“确定”按钮以创建新的VB项目。
2. 设计用户界面
在VB中，用户界面是通过拖放控件来创建的。
在“工具箱”中选择所需的控件，例如按钮、文本框和标签，并将它们放置在窗体上。
使用控件的属性面板可以更改它们的外观和行为。
3. 编写代码
现在，我们需要为各个控件添加相应的事件处理程序。
例如，当用户点击一个
按钮时，我们需要执行特定的操作。
首先，选择要添加事件处理程序的控件，然后在属性面板中找到“事件”部分。
在相应的事件上双击以创建并打开处理程序。
4. 实现学生信息管理功能
在代码中，我们需要定义学生类和学生信息管理类。
学生类包含学生的属性，
例如姓名、年龄和班级。
学生信息管理类包含对学生信息进行增删改查的方法。
我们可以使用集合类来存储学生对象，并使用LINQ进行查询操作。
在事件处理程序
中调用适当的方法以实现相应的功能。
5. 运行和测试程序
在完成代码的编写之后，我们可以点击“运行”按钮来启动程序。
通过与程序交互，测试各个功能是否按预期工作。
如果发现问题，可以调试程序并对代码进行调整。
6. 部署和发布程序
一旦我们满意了程序的功能和性能，我们可以将程序部署和发布给其他人使用。
在Visual Studio中，选择“生成”菜单并点击“发布”选项。
按照向导的指示进行操作，并选择适当的发布目标和选项。
最终，我们将获得一个可执行的安装程序，可以将程序安装在其他计算机上。
结论
通过本文的实例，我们了解了如何使用VB语言创建一个简单的小程序，并实
现基本的学生信息管理功能。
这只是VB语言的冰山一角，它提供了许多其他功能
和特性，可以让我们创建更复杂和强大的应用程序。
希望本文对初学者能够提供一些有用的指导和启发，帮助大家更好地学习和应用VB语言。