介绍一个VB小的有趣的程序代码

'万花筒程序

'粘贴下面代码即可, 不用添加任何控件

Private WithEvents Timer1 As Timer

Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#

Private Sub Form_Load()

      MeWidth = 4500: MeHeight = 4500

      MeMove (ScreenWidth - MeWidth) \ 2, (ScreenHeight - MeHeight) \ 2

      MeAutoRedraw = True

      MeCaption = "CBM666的万花筒"

      Set Timer1 = ControlsAdd("vbtimer", "Timer1")

      Timer1Interval = 10

End Sub

Private Sub Timer1_Timer()

      Randomize

      r = 340  Rnd

      If r <> 0 Then

         r1 = 500

         s = r  Rnd

         b = RGB(256  Rnd, 256  Rnd, 256  Rnd)

         For t = 1 To 10000

            a1 = t  31415926 / 180

            a2 = (r1 / r)  a1

            xb = 500 + (-(r1 - r)  Cos(a1) - s  Cos(a2 - a1) + 420)  4

            yb = 500 + ((r1 - r)  Sin(a1) - s  Sin(a2 - a1) + 380)  4

            MePSet (xb, yb), b

         Next t

      End If

End Sub

采取了事件驱动的编程机制。

Visual Basic（简称VB）源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序[2]。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

事件驱动的编程机制：

面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。而Visual Basic 60事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。

扩展资料：

在 Visual Basic 程序设计语言中，对象与程序的交互是通过事件来完成的。即针对每一 对象，可能会有多种事件产生，每一事件都可以驱动一段程序运行，完成相应工作。

Visual Basic 的最大的优势在于它的易用性，可以让经验丰富的VB程序员或是刚刚懂得皮毛的人都能用自己的方式快速开发程序。而且 VB 的程序可以非常简单的和数据库连接。比如利用控件可以绑定数据库，这样一来用VB写出的程序就可以掌握数据库的所有信息而不用写一行代码。

参考资料：

百度百科-事件驱动

参考资料：

百度百科-Visual Basic

以上就是关于介绍一个VB小的有趣的程序代码全部的内容，包括:介绍一个VB小的有趣的程序代码、vb采取了什么编程机制、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！