VB编写各种趣味小程序附代码Word文件下载.docx
- 文档编号:22983013
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:30
- 大小:161.02KB
VB编写各种趣味小程序附代码Word文件下载.docx
《VB编写各种趣味小程序附代码Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB编写各种趣味小程序附代码Word文件下载.docx(30页珍藏版)》请在冰豆网上搜索。
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"
要求:
"
;
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
恭喜了,您中了一等奖"
Form7.Hide
List1.Clear
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编写 各种 趣味 程序 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)