VB代码.docx
- 文档编号:18076795
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:24
- 大小:105.97KB
VB代码.docx
《VB代码.docx》由会员分享,可在线阅读,更多相关《VB代码.docx(24页珍藏版)》请在冰点文库上搜索。
VB代码
VB代码
*概述(将文本框移动到右上角)
PrivateSubCommand1_Click()
Text1.Left=Form1.Width-Text1.Width
Text1.Top=0
EndSub
*控件1(登录窗口的设置登录名:
admin密码:
123456)
PrivateSubcmdLogin_Click()
IftxtID.Text="admin"AndtxtPsw.Text="123456"Then
MsgBox"登录成功",vbOKOnly+vbInformation
Else
MsgBox"登录失败",vbOKOnly+vbCritical
EndIf
EndSub
PrivateSubcmdReset_Click()
txtID.Text=""
txtPsw.Text=""
EndSub
PrivateSubcmdClose_Click()
End
EndSub
PrivateSubtxtID_Change()
EndSub
*控件2(改变字体字形和字号)
PrivateSubcmdSet_Click()
IfoptST.Value=TrueThen
lblCaption.FontName="宋体"
ElseIfoptLS.Value=TrueThen
lblCaption.FontName="隶书"
Else
lblCaption.FontName="楷体"
EndIf
IfoptFont16.Value=TrueThen
lblCaption.FontSize=16
ElseIfoptFont18.Value=TrueThen
lblCaption.FontSize=18
Else
lblCaption.FontSize=20
EndIf
lblCaption.FontBold=ChkBold.Value
lblCaption.FontItalic=ChkItalic.Value
EndSub
*控件3(对列表框进行选项添加,删除,清空)
OptionExplicit
PrivateSubForm_Load()
List1.AddItem"蚕豆"
List1.AddItem"扁豆"
List1.AddItem"绿豆"
List1.AddItem"红豆"
List1.AddItem"刀豆"
EndSub
PrivateSubCommand1_Click()
List1.AddItemText1
Text1=""
EndSub
PrivateSubCommand2_Click()
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubCommand3_Click()
List1.Clear
EndSub
PrivateSubCommand4_Click()
End
EndSub
*菜单(菜单操作文本框的显示和隐藏)
PrivateSubMhide_Click()
Text1.Visible=False
EndSub
PrivateSubMshow_Click()
Text1.Visible=True
EndSub
*图形(改变图形颜色和大小/位置)
PrivateSubhsbRed_Change()
speDemo.FillColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)
EndSub
PrivateSubhsbRed_Scroll()
hsbRed_Change
EndSub
PrivateSubhsbBlue_Change()
hsbRed_Change
EndSub
PrivateSubhsbBlue_Scroll()
hsbRed_Change
EndSub
PrivateSubhsbGreen_Change()
hsbRed_Change
EndSub
PrivateSubhsbGreen_Scroll()
hsbRed_Change
EndSub
PrivateSubvsbSize_Change()
speDemo.Width=vsbSize.Value
speDemo.Height=vsbSize.Value
EndSub
PrivateSubvsbSize_Scroll()
hsbRed_Change
EndSub
*程序设计基础(计算圆的面积)
PrivateSubCommand1_Click()
DimrAsSingle,cAsSingle
DimsAsSingle
ConstPiAsSingle=3.14159
r=Val(InputBox("请输入圆的半径"))
c=2*Pi*r
s=Pi*r^2
EndSub
*控制结构1(比三个数的大小)
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
DimMinAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa Ifb Min=b Else Min=a EndIf ElseIfc Min=c Else Min=b EndIf Text4.Text=CStr(Min) EndSub *控制结构2(十进制转换成二进制) OptionExplicit PrivateSubCommand1_Click() DimnAsInteger,stAsString,pAsString n=Text1.Text Do p=nMod2 st=p&st n=n\2 LoopUntiln<=0 Text2.Text=st EndSub PrivateSubCommand2_Click() Text1.Text="": Text2.Text="" Text1.SetFocus EndSub PrivateSubCommand3_Click() End EndSub PrivateSubText1_Change() EndSub *控制结构3(颠倒字符串) OptionExplicit PrivateSubCommand1_Click() DimiAsInteger,nAsInteger,sAsString n=Len(Text1.Text) Fori=nTo1Step-1 s=s&Mid(Text1.Text,i,1) Nexti Text2.Text=s Text3.Text=n EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text1.SetFocus EndSub PrivateSubCommand3_Click() End EndSub PrivateSubForm_Load() EndSub PrivateSubText1_Change() EndSub *控制结构4(随机生成的数中产生素数个数) OptionExplicit PrivateSubCommand1_Click() DimiAsInteger,jAsInteger,nAsInteger,n1AsInteger,stAsInteger Fori=1To10 Randomize n=Int((Rnd*90)+10) Forj=2Ton-1 IfnModj=0ThenExitFor Nextj Ifj>n-1Then st=st+1 EndIf Text1.Text=n&""&Text1.Text Text2.Text=st Nexti EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Command1.SetFocus EndSub PrivateSubCommand3_Click() End EndSub **数组1 OptionBase1 DimA(5,5)AsInteger,iAsInteger,jAsInteger PrivateSubCommand1_Click() Randomize Fori=1To5 Forj=1To5 A(i,j)=Int(Rnd()*9+1) Picture1.PrintA(i,j); Nextj Picture1.Print Nexti EndSub PrivateSubCommand2_Click() DimlsumAsInteger,iAsInteger,jAsInteger Forj=1To5 lsum=0 Fori=1To5 lsum=lsum+A(i,j) Nexti Text2.Text=Text2.Text&lsum&"" Nextj EndSub PrivateSubCommand3_Click() DimlsumAsInteger,iAsInteger,jAsInteger Forj=1To5 lsum=0 Fori=1To5 lsum=lsum+A(i,j) Nexti Text1.Text=Text1.Text&lsum&vbCrLf Nextj EndSub PrivateSubCommand4_Click() DimiAsInteger,jAsInteger,xAsInteger,yAsInteger Fori=1To5 Forj=1To5 Ifi=jThenx=x+A(i,j) Ifi+j=6Theny=y+A(i,j) Nextj Text3.Text=x+y Nexti EndSub **数组2 OptionBase1 DimA(4,5)AsInteger,iAsInteger,jAsInteger PrivateSubCommand1_Click() Randomize Fori=1To4 Forj=1To5 A(i,j)=Int(Rnd()*90+10) Text1.Text=Text1.Text&CStr(A(i,j))&"" Nextj Text1.Text=Text1.Text&vbCrLf Nexti EndSub PrivateSubCommand2_Click() DimsumAsInteger,averAsInteger,iAsInteger,jAsInteger Fori=1To4 Forj=1To5 sum=sum+A(i,j) Nextj Nexti Fori=1To4 Forj=1To5 IfA(i,j)-sum/20>0Then Text2.Text=Text2.Text&"H"&"" ElseIfA(i,j)-sum/20<0Then Text2.Text=Text2.Text&"L"&"" Else Text2.Text=Text2.Text&"E"&"" EndIf Nextj Text2.Text=Text2.Text&vbCrLf Nexti EndSub PrivateSubCommand3_Click() Text1.Text="" Text2.Text="" Command1.SetFocus EndSub PrivateSubForm_Load() EndSub 数组3 OptionExplicit OptionBase1 PrivateSubCommand1_Click() DimxAsString,kAsInteger,iAsInteger,a()AsString,jAsInteger,maxAsInteger x=Text1.Text Do i=i+1 ReDimPreservea(i)AsString k=InStr(x,"") a(i)=Left(x,k-1) x=Mid(x,k+1) List1.AddItema(i) LoopUntilInStr(x,"")=0 ReDimPreservea(i+1)AsString a(i+1)=x List1.AddItema(i+1) Forj=1Toi+1 max=Len(a (1)) IfLen(a(j))>maxThenmax=Len(a(j)) Nextj Forj=1Toi+1 IfLen(a(j))>=maxThenText2.Text=Text2.Text&a(j)&vbCrLf Nextj EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" List1.Clear Text1.SetFocus EndSub 过程1 OptionExplicit PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,iAsInteger,xAsString,jAsInteger,aAsInteger m=Val(Text1.Text) n=Val(Text2.Text) List1.AddItem"幻影素数对: " Fori=mTon x="" Forj=Len(CStr(i))To1Step-1 x=x&Mid(i,j,1) Nextj a=Val(x) Ifpu(i)Andpu(a)Andi<>aThenList1.AddItemi&"与"&a Nexti EndSub PrivateFunctionpu(xAsInteger)AsBoolean DimiAsInteger Fori=2Tox-1 IfxModi=0ThenExitFunction Nexti pu=True EndFunction PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" List1.Clear Text1.SetFocus EndSub 过程2 OptionExplicit PrivateSubCommand1_Click() DimnAsString,aAsInteger DimiAsInteger,sumAsLong n=Val(Text1.Text) Fori=1ToLen(n) a=Mid(n,i,1) sum=sum+fact(a) Nexti Text2.Text=sum EndSub PrivateStaticFunctionfact(ByValaAsInteger)AsLong DimxAsInteger fact=1 Forx=1Toa fact=fact*x Nextx EndFunction PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text1.SetFocus EndSub 过程3 OptionExplicit PrivateSubCommand1_Click() DimxAsString,yAsString x=Text1.Text y=Text2.Text Text3.Text=cr(x,y) EndSub PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text1.SetFocus EndSub PrivateSubCommand3_Click() End EndSub PrivateFunctioncr(aAsString,bAsString)AsString DimiAsInteger,kAsInteger,mAsString Fori=1ToLen(a) Ifb k=1 Ifb=Mid(a,i,1)Thenm=Left(a,i-1)&Mid(a,i+1): k=1 Ifk=1ThenExitFor Nexti cr=m EndFunction 文件 打开D盘根目录VB文件夹下的"P1.vbp"的工程文件,完成VB程序设计实验教程(P52)实验6.3: 设计一个文件资源查看程序。 参考界面如图所示。 将窗体文件和工程文件分别以F1.frm和P1.vbp保存在D盘的VB文件夹中。 要求代码书写呈锯齿型,按题目要求保存在相应的文件夹中,否则无法上传你完成的实验! 注意! “驱动器: ”右侧为DriveListBox控件, “路径: ”右侧为DirListBox控件, “文件列表: ”下方为FileListBox控件! OptionExplicit PrivateSubDir1_Change() File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change() Dir1.Path=Drive1.Drive EndSub 综合1 OptionExplicit OptionBase1 PrivateSubCommand1_Click() DimiAsInteger,jAsInteger,maxAsInteger,minAsInteger,maxhgsAsInteger,maxiesAsInteger,minhgsAsInteger,miniesAsInteger Dima(4,5)AsInteger Fori=1To4 Forj=1To5 a(i,j)=10+Int(Rnd*31) Picture1.Printa(i,j); Nextj Picture1.Print Nexti max=a(1,1): min=a(1,1): maxhgs=1: maxies=1: minhgs=1: minies=1 Fori=1To4 Forj=1To5 Ifa(i,j)>maxThenmax=a(i,j): maxhgs=1: maxies=j Nextj Nexti Fori=1To4 Forj=1To5 Ifa(i,j)=maxThenPicture2.Printa(i,j);i;j Nextj Nexti Fori=1To4 Forj=1To5 Ifa(i,j) minhgs=i: minies=j Nextj Nexti Fori=1To4 Forj=1To5 Ifa(i,j)=minThenPicture2.Printa(i,j);i;j Nextj Nexti EndSub PrivateSubCommand2_Click() Picture1.Cls Picture2.Cls EndSub PrivateSubCommand3_Click() End EndSub 综合2 OptionExplicit PrivateSubCommand1_Click() DimiAsInteger,jAsInteger DimaAsInteger,bAsInteger DimsAsString,nAsString DimpAsString
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 代码