vb语言程序简单设计实例 5款vb语言设计程序分享

vb程序设计语言简介以vb程序设计语言为工具，分析具体问题，设计解决问题的算法。根据得到的算法，用vb语言编写源程序的过程就是vb编程。

编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机之间的桥梁。就像人类的语言一样，有许多计算机编程语言。目前广泛使用的语言有“C”，“Pascal”，“Basic”。在许多计算机编程语言中，BASIC是最容易学习和使用的。

BASIC是英语初学者通用符号指令代码的缩写，是初学者通用符号指令代码的意思。一直是编程入门的首选语言。

1991年，Visual BASIC(简称VB)问世。它是第三代基础语言。它不仅继承了学习和使用Basic语言的优点，还增加了图形界面设计工具。它简化了复杂的窗口编程过程，并允许程序员将更多的精力投入到问题解决过程中。

vb编程实例(一)option explicit private子命令1 _ click () dim I%，j%，r！i=Val(Text1。Text) j=Val(Text2Text)图片1。打印I；j；调用gysh(i，j) Picture1。打印“最大公约数是”i r=Val(InputBox("输入半径"))调用s (r) end sub公共函数gysh (m为整数，n为整数)为整数Dim t% Do t=m Mod n: m=n: n=t循环While t 《》 0 End函数公共函数s (r！)const pi=3.1415926s=pi * r 2msgbox"圆面积为："S端函数公共函数定积分()端函数

vb编程实例(2) Dim a()为整数，i%，j%，n%，T% private子命令1 _ click () picture1.print"排序前的数组为："n=Val(InputBox("请输入3到100之间的整数"))redim a (1到n) randomize for I=1到n a (i)=int (r) nd * 100) 1 Picture1。打印选项卡(((I-1)Mod 5)* 6)；；I end subparivate子命令2 _ click()picture 1 . print picture 1 . print"排序后的数组为："For I=1 To n-1 For j=1 To n If A(I)"A(j)则t=A(I)A(I)=A(j)A(j)=t End If Next For I=1 To n picture 1。打印选项卡(((I-1)Mod 5)* 6)；；下一个末端接头

vb编程实例(3) Dim a()，i%，J% private子命令1 _ click () dim n% n=val(输入框("请输入一个整数"))随机化redim a(n)for I=1 to n a(I)=int(RND * 00)1下一张I图片1。print"按选择方式排序的数组为："for I=1 to n-1 for j=I 1 to n if A(I)"A(j)则t=A(I):A(I)=A(j):A(j)=t end if next next。对于i=1至n图1。打印选项卡(((I-1)Mod 5)* 6)；；下一张图1。Print End Subprivate子命令2 _ click () Dim n% n=val (Inputbox("请输入一个整数"))Randomize redim A(n for I=1 to n A(I)=int(RND * 00)1 next I Picture 2 . print"冒泡排序后的数组为："for I=1 to n-1 for j=n to I-1 step-1 if A(j)"A(j)则t=a (j): a (j)=a (j-1): a

图片2。打印选项卡(((I-1)Mod 5)* 6)；；下一张图片2。打印结束Sub

动词语言程序设计实例（四)Dim a()，i%，j%，n%，m%，t % Private Sub command 1 _ Click()n=Val(InputBox(“请输入一个整数")调用图片1 .打印"选择排序法后的数组为："调用排虚(名词)图片1。打印ReDim保留a(n)End Sub Private Sub命令2_Click() m=Val(InputBox("请输入一个整数")调用富智图片1 .打印"冒泡排序法后的数组为："For I=1 To m-1 For j=m To I 1 Step-1 If a(j-1)"a(j)则t=a(j-1):a(j-1)=a(j):a(j)=t End If Next For I=1 To m图片1。打印选项卡(((I-1)Mod 5)* 6)；;下一张图片1。打印结束订阅私有订阅命令3_Click()重新设计图片1 .打印"合并后的数组为："叫排须(吨)

图片1。print End Sub Public Sub fuzhi(n %)Randomize ReDim a(n)For I=1 To n a(I)=Int(Rnd * 100)1 Next I End Sub Public Function paixu(n %)As Integer For I=1 To n For j=I 1 To n If a(I)》a(j)Then=a(I):a(I)=a(j):a(j)=t End If Next Next For I=1 To n picture 1 .打印选项卡(((I-1)Mod 5)* 6)；;下一个结束函数

动词语言程序设计实例（五)Dim i%，j%，s% Private子命令1_Click()图片1 .Cls图片1。对于i=1到9的图片1,比例为(0,0)-(10,10)。第(1，i)-(9，I)行图片1。第(一，1)-(一，9)行下一幅图1。FillColor=QBColor(0) Picture1 .圆形(4.5,4.5),0.4图片1。圆形(5.5,5.5),0.4图片1。FillColor=QBColor(15) Picture1 .圆(4.5,5.5),0.4

图片1。圆(5.5，4.5)，0.4 End Sub Private Sub命令2 _ Click()s=Abs(s-1)End Sub Private Sub图片1 _ mousedown(按钮为整数，移位为整数，x！y！)i=Fix(x) j=Fix(y)如果s=0，则图片1 .FillColor=QBColor(0)如果s=1则图片1 .FillColor=QBColor(15) Picture1 .圆(i 0.5，j 0.5)，0.4 s=Abs(s - 1)末端接头