VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口.docx
- 文档编号:23056920
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:25
- 大小:131.98KB
VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口.docx
《VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口.docx》由会员分享,可在线阅读,更多相关《VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口.docx(25页珍藏版)》请在冰豆网上搜索。
VB编程案例蝴蝶飞舞计算器加密解密矩阵转置鸟巢统计文本编辑小球跳动学生信息录入窗口
目录
一、鸟巢绘制……………………………………………………………………………………2
二、加密…………………………………………………………………………………………3
三、解密…………………………………………………………………………………………4
四、蝴蝶飞舞……………………………………………………………………………………6
五、文本编辑……………………………………………………………………………………6
六、统计…………………………………………………………………………………………9
七、小球跳动……………………………………………………………………………………11
八、计算器(彩票摇奖)………………………………………………………………………12
九、学生信息录入………………………………………………………………………………16
十、矩阵转置……………………………………………………………………………………17
一、鸟巢绘制
PrivateSubForm_Click()
Cls
Dimr,xi,yi,xj,yj,x0,y0,aifAsSingle
r=Form10.ScaleHeight/2
x0=Form10.ScaleWidth/2
y0=Form10.ScaleHeight/2
n=16
aif=3.14159*2/n
Fori=1Ton
xi=r*Cos(i*aif)+x0
yi=r*Sin(i*aif)+y0
Forj=iTon
xj=r*Cos(j*aif)+x0
yj=r*Sin(j*aif)+y0
Line(xi,yi)-(xj,yj),QBColor(i-1)
PSet(xi,yi)
Printi-1
Nextj
Nexti
EndSub
PrivateSubForm_Load()
Print"要求:
";
Print"1.将圆周等分成16份;"
Print"2.每个等分点要标记成0-16的数字;"
Print"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("Z")TheniAsc=iAsc-26
code=code+Chr(iAsc)
Case"a"To"z"
iAsc=Asc(c)+key
IfiAsc>Asc("z")TheniAsc=iAsc-26
code=code+Chr(iAsc)
CaseElse
code=code+c
EndSelect
Nexti
EndFunction
PrivateSubclose_Click()
Form11.Hide
Form1.Show
EndSub
PrivateSubJiami_Click()
Text2=code(Text1,2)
EndSub
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
EndSub
PrivateSubsave_Click()
CommonDialog1.FileName="a1.txt"
CommonDialog1.DefaultExt="txt"
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text2.Text
Close#1
EndSub
三、解密
FunctionUnCode(ByVals$,ByValkey%)
DimcAsString*1,iAsc%
UnCode=""
Fori=1ToLen(s)
c=Mid$(s,i,1)
SelectCasec
Case"A"To"Z"
iAsc=Asc("c")-key
IfiAsc UnCode=UnCode+Chr(iAsc) Case"a"To"z" iAsc=Asc(c)-key IfiAsc UnCode=UnCode+Chr(iAsc) CaseElse UnCode=UnCode+c EndSelect Nexti EndFunction PrivateSubclose_Click() Form2.Hide Form1.Show EndSub PrivateSubJiemi_Click() Text2=UnCode(Text1,2) EndSub 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 EndSub PrivateSubsave_Click() CommonDialog1.FileName="a.txt" CommonDialog1.DefaultExt="txt" CommonDialog1.Action=2 OpenCommonDialog1.FileNameForOutputAs#1 Print#1,Text2.Text Close#1 EndSub 四、蝴蝶飞舞 PrivateSubForm_Load() Print"蝴蝶飞出窗体后重新定位到左下方再向右上方飞" EndSub PrivateSubTimer1_Timer() StaticPickBmpAsInteger IfPickBmp=0Then Image1.Picture=Image2.Picture PickBmp=1 Else Image1.Picture=Image3.Picture PickBmp=0 EndIf Callmymove EndSub Submymove() Image1.MoveImage1.Left+40,Image1.Top-25 IfImage1.Top<=0Then Image1.Left=0 Image1.Top=2325 EndIf EndSub 图: 五、文本编辑 PrivateSubCopy_Click() Clipboard.Clear Clipboard.SetTextRichTextBox1.SelText EndSub PrivateSubCut_Click() Clipboard.Clear Clipboard.SetTextRichTextBox1.SelText RichTextBox1.SelText="" EndSub PrivateSubExit_Click() Form3.Hide Form1.Show EndSub 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 EndSub PrivateSubForm_Load() Print"注: " Print"1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print"文件夹,将提供的xz.txt文件打开;" Print"2.要实现将选定的内容格式化,必须在工具箱中添加" Print"RichTextBox控件(MicrosoftRichTextboxComtrol6.0)" Print"并在帮助菜单中查阅其字体设置的相关属性。 " Print"3.TichTextBox中要设置垂直滚动条,文本格式化时要将选" Print"定的内容格式化。 " EndSub PrivateSubLabel1_Click() EndSub PrivateSubopen_Click() CommonDialog1.Action=1 RichTextBox1.Text="" OpenCommonDialog1.FileNameForInputAs#1 DoWhileNotEOF (1) LineInput#1,inputdata RichTextBox1.Text=RichTextBox1.Text+inputdata+vbCrLf Loop Close#1 EndSub PrivateSubPaste_Click() RichTextBox1.SelText=Clipboard.GetText EndSub PrivateSubPrint_Click() CommonDialog1.Action=5 Fori=1ToCommonDialog1.Copies Printer.PrintRichTextBox1.Text Nexti Printer.EndDoc EndSub SubRichTextBox1_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle) IfButton=2ThenPopupMenuEditMenu,vbPopupMenuCenterAlign EndSub PrivateSubsave_Click() CommonDialog1.Action=2 Print#1, Close#1 EndSub PrivateSubSaveAs_Click() CommonDialog1.FileName="default.Txt" CommonDialog1.DefaultExt="Txt" CommonDialog1.Action=2 OpenCommonDialog1.FileNameForOutputAs#1 Print#1,RichTextBox1.Text Close#1 图: 六、统计 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); Nexti ave=s/10 Fori=0To8 imin=i Forj=i+1To9
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编程 案例 蝴蝶 飞舞 计算器 加密 解密 矩阵 鸟巢 统计 文本编辑 小球 跳动 学生 信息 录入 窗口
![提示](https://static.bdocx.com/images/bang_tan.gif)