vb语言编程概述
以vb编程语言为工具，分析特定问题，设计求解问题的算法，根据得到的算法，用vb语言编写源程序的过程就是vb编程。
编写计算机程序需要计算机编程语言。 计算机编程语言是人与计算机“对话”的桥梁。 像人类语言一样，也有很多计算机编程语言。 现在广泛使用的语言有“c”、“Pascal”、“Basic”等。 在许多计算机编程语言中，BASIC语言是最容易学习和使用的。
BASIC是英语beginner’sallpurposesymbolicinstructioncode的缩写，意思是初学者通用的符号指令代码，是编程入门的首选语言。
1991年，Visual Basic (简称VB )问世。 他是第三代BASIC语言，不仅继承了BASIC语言易学的优点，还增加了图形界面设计工具。 这简化了复杂窗口程序的创建过程，使程序员能够将更多的精力集中在问题的解决过程中。
vb语言编程示例(1) )。
optionexplicitprivatesubcommand1_ click (dimi %，j%，r！ I=val(text1.text ) j=val ) text2.text ) Picture1.Print i； j； callgysh(I，j ) Picture1.Print“最大公约数”Ir=val ) inputbox (“输入半径”) Call S(r ) r ) endsubpublicfunctiongysh (输入管理) (const pi=3.1415926 s=pi * r ^2msgbox (圆的面积为) S End function Public Function定积分) ) End Function
vb语言编程示例(2) )。
DIMa(asinteger，i%，j%，n%，t % private sub command1_ click (picture1. print“排序前的数组为”) n=val(inputbox )“ a(I )； nextiendsubprivatesubcommand2_ click (picture1. print picture1. print )排序后的数组， 成为“For i=1 To n - 1 For j=i 1 To n If a(i ) I”的thent=a(I ) I )=a (a ) j )=tendifnextfori=1ton picture1. print tab a(I )； 下一次结束辅
vb语言编程示例(3) )。
Dim a ()，i%， j % private sub command1_ click (dimn % n=val (inputbox )“请输入整数”) Randomize ReDim a(n ) n ) For i=1 To n a(i ) 、“forI=1ton-1forj=I1tonifa(I )”a(j ) Then t=a(i ):a(j )=a (a ) (a ) ) ) )=tendifnextnexxexx a(I )； next picture1. printendsubprivatesubcommand2_ click (dimn % n=val (输入盒)“请输入整数”) ) randomizeredima(n ) " fori=1吨-1forj=ntoi-1 step-1 IFA (j-1 ) " a ) Then t=a(j ) j ) ) a(j ) "
picture2.printtab () ((I-1 ) Mod 5) * 6)； a(I )； Next Picture2.Print End Sub
vb语言编程示例(四)。
Dim a ()、I (，j )、n )、m )、t % private sub command1_ click (n=val (inputbox )“请输入整数”) Call fuzhi(n ) n ) ) ) Picture1.Print“排序方法picture1.printredimpreservea(n ) end sub private sub command2_ click”m=val (iiii Picture1.Print“气泡排序方法之后的序列是：“fori=1Tom-1 forj=mtoi1step-1 IFA (j-1 )”a ) thent=a ) j-1 ):a ) j-1 ) a(I )； next picture1.printendsubprivatesubcommand3_ click (redima ) t ) picture1. print“合并的数组是”Call paixu(t ) t”
picture1. printendsubpublicsubfuzhi (n % ) Randomize ReDim a(n ) n ) For i=1 To n a(i ) I )=int(rnd* 100 )1nextiendsubpublicfublic sintegerfori=1ton-1 forj=i1 Toni fa (I ) ) j ) Then t=a(i ):a (I )=a (j ) a )=a ) 下一个结束函数
vb语言编程示例(5)。
Dim i%，j%，s % private sub command1_ click (picture1. clspicture1. scale (0，0 )-) 10，10 ) forI=1to9picture1 1)
picture1. circle (5.5，4.5 )，0.4 endsubprivatesubcommand2_ click ) s=ABS(s-1 ) endsubprivatesubpicture1_ mou ses ) I=fix(x ) j=Fix(y ) y ) ifs=0then picture1. fill color=QB color ()