VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口Word文档格式.docx
《VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口Word文档格式.docx（25页珍藏版）》请在冰点文库上搜索。
PSet（xi,yi）
Printi-1
Nextj
Nexti
EndSub
PrivateSubForm_Load（）
Print"
要求：
"
;
1.将圆周等分成16份；
"
2.每个等分点要标记成0-16的数字；
3.按样本图的图案画图。
EndSub
附图：
二、加密
Functioncode（ByVals$,ByValkey%）
DimcAsString*1,iAsc%
code="
Fori=1ToLen（s）
c=Mid$（s,i,1）
SelectCasec
Case"
A"
To"
Z"
iAsc=Asc（c）+key
IfiAsc>
Asc（"
）TheniAsc=iAsc-26
code=code+Chr（iAsc）
a"
z"
CaseElse
code=code+c
EndSelect
EndFunction
PrivateSubclose_Click（）
Form11.Hide
Form1.Show
PrivateSubJiami_Click（）
Text2=code（Text1,2）
PrivateSubopen_Click（）
CommonDialog1.Action=1
Text1.Text="
OpenCommonDialog1.FileNameForInputAs#1
DimcounterAsInteger
Dimworkarea（25000）AsString
ProgressBar1.min=LBound（workarea）
ProgressBar1.max=UBound（workarea）
ProgressBar1.Visible=True
ProgressBar1.Value=ProgressBar1.min
Forcounter=LBound（workarea）ToUBound（workarea）
workarea（counter）="
initialvalue"
&
counter
ProgressBar1.Value=counter
Nextcounter
DoWhileNotEOF
（1）
LineInput#1,inputdata
Text1.Text=Text1.Text+inputdata+vbCrLf
Loop
Close#1
PrivateSubsave_Click（）
CommonDialog1.FileName="
a1.txt"
CommonDialog1.DefaultExt="
txt"
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text2.Text
三、解密
FunctionUnCode（ByVals$,ByValkey%）
DimcAsString*1,iAsc%
UnCode="
Fori=1ToLen（s）
c=Mid$（s,i,1）
SelectCasec
Case"
iAsc=Asc（"
c"
）-key
IfiAsc<
）TheniAsc=iAsc+26
UnCode=UnCode+Chr（iAsc）
iAsc=Asc（c）-key
CaseElse
UnCode=UnCode+c
EndSelect
Nexti
Form2.Hide
PrivateSubJiemi_Click（）
Text2=UnCode（Text1,2）
a.txt"
四、蝴蝶飞舞
蝴蝶飞出窗体后重新定位到左下方再向右上方飞"
PrivateSubTimer1_Timer（）
StaticPickBmpAsInteger
IfPickBmp=0Then
Image1.Picture=Image2.Picture
PickBmp=1
Else
Image1.Picture=Image3.Picture
PickBmp=0
EndIf
Callmymove
Submymove（）
Image1.MoveImage1.Left+40,Image1.Top-25
IfImage1.Top<
=0Then
Image1.Left=0
Image1.Top=2325
图：
五、文本编辑
PrivateSubCopy_Click（）
Clipboard.Clear
Clipboard.SetTextRichTextBox1.SelText
PrivateSubCut_Click（）
RichTextBox1.SelText="
PrivateSubExit_Click（）
Form3.Hide
PrivateSubFont_Click（）
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
CommonDialog1.Action=4
RichTextBox1.FontName=CommonDialog1.FontName
RichTextBox1.FontSize=CommonDialog1.FontSize
RichTextBox1.FontBold=CommonDialog1.FontBold
RichTextBox1.FontItalic=CommonDialog1.FontItalic
RichTextBox1.FontStrikethru=CommonDialog1.FontStrikethru
RichTextBox1.FontUnderline=CommonDialog1.FontUnderline
RichTextBox1.ForeColor=CommonDialog1.Color
注：
1.'
打开'
对话框的初始文件夹应是所要打开文件所在的"
文件夹，将提供的xz.txt文件打开；
2.要实现将选定的内容格式化，必须在工具箱中添加"
RichTextBox控件（MicrosoftRichTextboxComtrol6.0）"
并在帮助菜单中查阅其字体设置的相关属性。
3.TichTextBox中要设置垂直滚动条，文本格式化时要将选"
定的内容格式化。
PrivateSubLabel1_Click（）
RichTextBox1.Text="
RichTextBox1.Text=RichTextBox1.Text+inputdata+vbCrLf
PrivateSubPaste_Click（）
RichTextBox1.SelText=Clipboard.GetText
PrivateSubPrint_Click（）
CommonDialog1.Action=5
Fori=1ToCommonDialog1.Copies
Printer.PrintRichTextBox1.Text
Printer.EndDoc
SubRichTextBox1_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）
IfButton=2ThenPopupMenuEditMenu,vbPopupMenuCenterAlign
CommonDialog1.Action=2
Print#1,
PrivateSubSaveAs_Click（）
default.Txt"
Txt"
Print#1,RichTextBox1.Text
六、统计
Dima（0To9）,i%,min%,max%,ave%
PrivateSubCommand1_Click（）
Dimj%,imin%,s%,t%
Form5.Cls
CurrentX=0
CurrentY=0
Fori=0To9
a（i）=Int（Rnd*90+10）
s=s+a（i）
Printa（i）;
ave=s/10
Fori=0To8
imin=i
Forj=i+1To9
Ifa（j）<
a（imin）Thenimin=j
t=a（i）
a（i）=a（imin）
a（imin）=t
PrivateSubCommand2_Click（）
PrivateSubCommand3_Click（）
Printa（9）;
PrivateSubCommand4_Click（）
Printa（0）;
PrivateSubCommand5_Click（）
Printave;
PrivateSubCommand6_Click（）
Form5.Hide
将随机产生的10个2位数升序排序，并求出其最大值、最小"
值和平均值。
七、小球跳动
DimdAsBoolean
Shape1.Shape=3
Shape1.FillColor=vbRed
Shape1.FillStyle=0
Timer1.Interval=20
IfNotdThen
IfShape1.Top<
Form6.ScaleHeight-Shape1.HeightThen
Shape1.Top=Shape1.Top+100
d=Notd
IfShape1.Top>
100Then
Shape1.Top=Shape1.Top-100
八、计算器（彩票摇奖）
Dimx,i%,a%（0To4）,j%
Randomize
Fori=0To4
Do
a（i）=Int（Rnd*30）
Forj=0Toi-1
Ifa（i）=a（j）ThenExitFor
LoopWhilej<
i
x=a（i）&
x
Text1=x
Dimb%（0To4）,k%,l%,q%,r%,yAsString,c
y=Trim$（Text1）
c=Split（y,"
）
n=0
Fork=0To4
Do
b（k）=Int（Rnd*30）
Forl=0Tok-1
Ifb（k）=b（l）ThenExitFor
Nextl
LoopWhilel<
k
Nextk
Forq=0To4
Forr=0To4
Ifb（q）=c（r）Then
n=n+1
EndIf
Nextr
Nextq
Ifn=0Then
编写一个简易的30选5彩票摇奖程序。
功能要求用户可以输入5个不同的整数，或"
者通过‘机选’按钮，自动生成5个互不相同的随机数；
单击‘摇奖’按钮，生成中奖号码，"
并对用户输入或机选的彩票数字进行评奖，用户选对1个数字，获5等奖，选对2个数"
获4等奖......程序运行界面如样本所示。
CurrentY=1900
CurrentX=300
本期中奖号码为：
b（0）;
b
（1）;
b
（2）;
b（3）;
b（4）
对不起，您没有中奖"
ElseIfn=1Then
恭喜了，您中了五等奖"
ElseIfn=2Then
恭喜了，您中了四等奖"
ElseIfn=3Then
恭喜了，您中了三等奖"
ElseIfn=4Then
恭喜了，您中了二等奖"
ElseIfn=5Then
恭喜了，您中了一等奖"
升级会员 