VB程序设计知识

,VB程序设计知识,信息技术,蔡教师,程序和程序设计,程序（Program）：是为实现特定目标或解决特定问题而用计算机语言编写的命令序列的集合。程序的基本结构：顺序结构、选择结构、循环结构。,S1,S2,Sn,S,C,是,否,C,S1,S2,顺序结构，如求解“鸡兔同笼”问题,选择结构，如求解一元二次方程问题,循环结构，如求最大公约数问题,程序和程序设计,程序设计：就是编写程序的过程，这个过程包括了分析问题、建立模型、设计算法和把该算法用某种计算机程序设计语言（如VB语言）转换成为程序，并保证这种转换无二义性。,具体问题,程序设计过程,程序设计,计算机程序,分析问题、建立模型、设计算法、编写程序,程序设计语言的产生与发展,程序设计语言经历了从机器语言、汇编语言到高级语言的发展历程。以下描述的是三类语言完成“9+8”的加法运算的指令。,机器语言1011000000001001000001000000100011110100,汇编语言MovAL,9ADDAL,8HLT,高级语言(如VB语言)Print9+8,说明：汇编语言和高级语言编写的程序必须翻译成机器语言才能在计算机上执行。,例1：用VB实现高考倒计时,PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Label4.Caption=Str(#6/7/2016#)Label5.Caption=Str(Date)Label6.Caption=Str(CDate(Label4.Caption)-CDate(Label5.Caption)clabel1.caption=cEndSub,SelectCaseTrueCaseIs=(b0Andb=1500:c=b*0.03Caseb=4500:c=b*0.1-105Caseb=9000:c=b*0.2-555Caseb=35000:c=b*0.25-1005Caseb=55000:c=b*0.3-2755Caseb=10CaseIs=10,Is0,例5：用VB实现查找星座,PrivateSubCommand1_Click()Dim生日AsDate生日=InputBox(请输入自己的生日（格式:月/日）,查找星座,4/11)SelectCase生日Case#12/22/2016#To#12/31/2016#:Print你是魔羯座Case#1/1/2016#To#1/19/2016#:Print你是魔羯座Case#1/20/2016#To#2/18/2016#:Print你是水瓶座Case#2/19/2016#To#3/20/2016#:Print你是双鱼座Case#3/21/2016#To#4/20/2016#:Print你是牡羊座Case#4/21/2016#To#5/20/2016#:Print你是金牛座Case#5/21/2016#To#6/21/2016#:Print你是双子座Case#6/22/2016#To#7/22/2016#:Print你是巨蟹座Case#7/23/2016#To#8/22/2016#:Print你是狮子座Case#8/23/2016#To#9/22/2016#:Print你是处女座Case#9/23/2016#To#10/22/2016#:Print你是天秤座Case#10/23/2016#To#11/21/2016#:Print你是天蝎座Case#11/22/2016#To#12/21/2016#:Print你是射手座CaseElse:Print输入错误!EndSelectEndSub,例6：用VB绘钻石图案,PrivateSubForm_Click()ConstPIAsSingle=3.1415926Dimx(18)AsSingle,y(18)AsSingleDimiAsInteger,jAsIntegerClsScale(-10,10)-(10,-10)DrawWidth=3Fori=0To17x(i)=8*Cos(i*PI/9)y(i)=8*Sin(i*PI/9)PSet(x(i),y(i),vbRedNextiDrawWidth=1Fori=0To17Forj=i+1To17Fork=1To1000000NextkLine(x(i),y(i)-(x(j),y(j),&HFFFFFFNextjNextiEndSub,例7：用VB实现石头剪刀布游戏,PrivateSubCommand1_Click()a=InputBox(石头,剪刀,布,游戏,石头)Randomizex=Fix(Rnd*3)SelectCasexCase0Ifa=石头ThenMsgBoxdeuce&(计算机出的是石头哦),石头,剪刀,布游戏ElseIfa=剪刀ThenMsgBoxLOSE&(计算机出的是石头哦),石头,剪刀,布游戏ElseIfa=布ThenMsgBoxWIN&(计算机出的是石头哦),石头,剪刀,布游戏ElseMsgBox输入错误EndIf,Case1Ifa=石头ThenMsgBoxwin&(计算机出的是剪刀哦),石头,剪刀,布游戏ElseIfa=剪刀ThenMsgBoxdeuce&(计算机出的是剪刀哦),石头,剪刀,布游戏ElseIfa=布ThenMsgBoxlose&(计算机出的是剪刀哦),石头,剪刀,布游戏ElseMsgBox输入错误EndIfCase2Ifa=石头ThenMsgBoxLOSE&(计算机出的是布哦),石头,剪刀,布游戏Els