vb实验 程序代码.docx
《vb实验 程序代码.docx》由会员分享，可在线阅读，更多相关《vb实验 程序代码.docx（23页珍藏版）》请在冰豆网上搜索。
vb实验程序代码
AP1-2
PrivateSubForm_Click（）
Print
Print
Print
Print"欢迎使用visualbasic！
"
EndSub
PrivateSubForm_Load（）
FontSize=20
FontBold=True
ForeColor=vbRed
Picture=LoadPicture（App.Path+"\image\t1.gif"）
EndSub
P2-1
PrivateSubCommand1_Click（）
Label1=Text1
EndSub
PrivateSubForm_Load（）
Text1.PasswordChar="*"
Text1.FontSize=20
Label1.FontSize=20
Label1.Alignment=2
Label1.BorderStyle=1
Label1.BackColor=vbWhite
Command1.FontSize=20
EndSub
P2-2
PrivateSubCommand1_Click（）
Label1="欢迎来到重庆"
Command1.Visible=False
Command2.Visible=True
EndSub
PrivateSubCommand2_Click（）
Label1="welcometoChongQing"
Command2.Visible=False
Command1.Visible=True
EndSub
PrivateSubForm_Load（）
Label1="欢迎来到重庆"
Label1.Alignment=2
Command1.Visible=False
Command2.Visible=True
EndSub
P2-3
PrivateSubForm_Load（）
Label1.BackColor=vbRed
Label2.BackColor=vbBlue
Label3.BackColor=vbGreen
Label4.BackColor=vbYellow
EndSub
PrivateSubLabel1_Click（）
Text1.ForeColor=Label1.BackColor
EndSub
PrivateSubLabel2_Click（）
Text1.ForeColor=Label2.BackColor
EndSub
PrivateSubLabel3_Click（）
Text1.ForeColor=Label3.BackColor
EndSub
PrivateSubLabel4_Click（）
Text1.ForeColor=Label4.BackColor
EndSub
P2-4
PrivateSubCommand1_Click（）
DimShuAsDouble
Shu=Val（Text1）
Label5=Fix（Shu）
Label6=Int（Shu）
Label7=Round（Shu）
EndSub
P2-5
PrivateSubCommand1_Click（）
Randomize
Label1=Int（Rnd（）*899+100）
Label2=""
EndSub
PrivateSubCommand2_Click（）
DimZhAsString
Zh=Label1
Label2=Right（Zh,1）&Mid（Zh,2,1）&Left（Zh,1）
EndSub
PrivateSubCommand3_Click（）
DimYhAsInteger
DimAAsInteger
DimBAsInteger
DimCAsInteger
Yh=Val（Label1）
A=Yh\100
B=（YhMod100）\10
C=YhMod10
Label2=C*100+B*10+A
EndSub
PrivateSubForm_Load（）
EndSub
P3-1
PrivateSubCommand1_Click（）
DimRAsSingle
ConstPiAsSingle=3.1415926
R=Val（Text1）
Label3=Int（2*Pi*R*1000+0.5）/1000
Label5=Int（Pi*R^2*1000+0.5）/1000
EndSub
PrivateSubForm_Load（）
EndSub
P3-2
PrivateSubCommand1_Click（）
DimLxAsLong,UxAsLong
Lx=Val（Text1）
Ux=Val（Text2）
Randomize
Label3=Int（（Ux-Lx）*Rnd+Lx）
EndSub
PrivateSubForm_Load（）
EndSub
P4-1
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
DimdAsSingle,r1AsSingle,r2AsSingle
a=Val（Text1）
b=Val（Text2）
c=Val（Text3）
Ifa=0Then
Ifb=0Then
MsgBox（"方程无解"）
Else
r1=-c/b
MsgBox（"方程有一个根为：
"+Str（r1））
EndIf
Else
d=b*b-4*a*c
Ifd>0Then
r1=（-b+Sqr（d））/（2*a）
r2=（-b-Sqr（d））/（2*a）
MsgBox（"方程有两个根为：
"+Str（r1）+Chr（13）+""+Str（r2））
ElseIfd=0Then
r1=-b/（2*a）
MsgBox（"方程有两个相同根为：
"+Str（r1））
Else
MsgBox（"方程无实根"）
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
EndSub
P4-2
PrivateSubCommand1_Click（）
DimaAsDouble,bAsDouble
DimysAsString*1
a=Val（Text1）
b=Val（Text3）
ys=Text2
SelectCaseys
Case"+"
Label4=a+b
Case"-"
Label4=a-b
Case"*"
Label4=a*b
Case"/"
Ifb=0Then
MsgBox"除数不能为0！
重新输入"
Text3.SetFocus
Text3.SelStart=0
Text3.SelLength=Len（Text3）
Else
Label4=a/b
EndIf
EndSelect
EndSub
PrivateSubForm_Load（）
EndSub
P4-3
PrivateSubCommand1_Click（）
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimtAsSingle
a=Val（InputBox（"请输入第一个数：
"））
b=Val（InputBox（"请输入第二个数：
"））
c=Val（InputBox（"请输入第三个数：
"））
Label1="输入的三个数为：
"&a&"、"&b&"、"&c
Ifaa=b:
b=t
Ifat=c:
c=b:
b=a:
a=t
Else
Ifbb=c:
c=t
EndIf
Label2="排序后的结果为：
"&a&"、"&b&"、"&c
EndSub
PrivateSubForm_Load（）
EndSub
P4-4
PrivateSubCommand1_Click（）
DimzfAsString
DimzaAsInteger
zf=Text1
za=Asc（zf）
Ifza>=Asc（"A"）Andza<=Asc（"Z"）Then
Label3=Chr（za+32）
ElseIfza>=Asc（"a"）Andza<=Asc（"z"）Then
Label3=Chr（za-32）
Else
Label3="*"
EndIf
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=1
EndSub
PrivateSubCommand2_Click（）
DimzfAsString
DimzaAsInteger
zf=Text1
za=Asc（zf）
SelectCaseza
CaseAsc（"A"）ToAsc（"Z"）
Label3=Chr（za+32）
CaseAsc（"a"）ToAsc（"z"）
Label3=Chr（za-32）
CaseElse
Label3="*"
EndSelect
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=1
EndSub
PrivateSubForm_Load（）
Text1.MaxLength=1
EndSub
P4-5
PrivateSubCommand1_Click（）
DimxAsInteger
x=Val（InputBox（"请输入一个整数！
"））
Picture1.Cls
IfxMod2=0Then
Picture1.Print"你输入的数";x;"是偶数"
Else
Picture1.Print"你输入的数";x;"是奇数"
EndIf
EndSub
PrivateSubForm_Load（）
EndSub
P4-6
PrivateSubCommand1_Click（）
DimaAsDate
a=Now
Print"输出结果为：
"
Print
PrintFormat（a,"hh:
mm:
ssAMPMdddd,yyyy-mm-dd"）
EndSub
PrivateSubForm_Load（）
Form1.FontSize=18
Command1.FontSize=15
EndSub
P5-1
PrivateSubCommand1_Click（）
DimnAsInteger,sumAsSingle
n=0
sum=0
Do
n=n+1
sum=sum+n^2
LoopUntilsum>1000
Label2="n="&n
EndSub
PrivateSubForm_Load（）
EndSub
P5-2
PrivateSubCommand1_Click（）
DimnAsInteger,iAsInteger
DimsumAsSingle,midAsSingle
n=Val（InputBox（"请输入n值"））
sum=0
mid=0
Fori=1Ton
mid=mid+i
sum=sum+mid
Nexti
Label4=n
Label5=sum
EndSub
PrivateSubForm_Load（）
EndSub
P5-3
PrivateSubCommand1_Click（）
DimxAsInteger,maxAsInteger,minAsInteger
DimkAsInteger
Randomize
Picture1.Cls
max=100
min=999
Fork=1To10
x=Int（Rnd*900+100）
IfmaxIfmin>xThenmin=x
Picture1.Printx
Nextk
Text1=max
Text2=min
EndSub
PrivateSubForm_Load（）
EndSub
P5-4
PrivateSubForm_Click（）
DimiAsInteger
DimaaAsInteger
Cls
Print:
Print
PrintTab（5）;
Fori=1To36
aa=i+Asc（"A"）-1
Ifaa<=Asc（"Z"）Then
PrintChr（aa）;"";
Else
PrintChr（aa-26）;"";
EndIf
IfiMod6=0Then
Print
PrintTab（5+i/6）;
EndIf
Next
EndSub
PrivateSubForm_Load（）
Show
DimiAsInteger
DimjAsInteger
DimaaAsInteger
Print:
Print
Fori=0To5
PrintTab（5+i）;
Forj=0To5
aa=Asc（"A"）+i*6+j
Ifaa<=Asc（"Z"）Then
PrintChr（aa）;"";
Else
PrintChr（aa-26）;"";
EndIf
Nextj
Print
Nexti
EndSub
P6-1
PrivateSubCommand1_Click（）
Dimcj（1To10）AsSingle
DimsumAsSingle,iAsInteger
sum=0
Cls
Fori=1To10
cj（i）=Val（InputBox（"请输入第"&i&"位同学的成绩：
"））
sum=sum+cj（i）
Nexti
Print"这10位同学的成绩如下：
"
Fori=1To10
Printcj（i）;
IfiMod5=0ThenPrint
Nexti
Print
Print"平均成绩为：
";Spc（3）;sum/i
EndSub
PrivateSubForm_Load（）
EndSub
P6-1
PrivateSubCommand1_Click（）
Dima（5,5）AsInteger
DimsAsInteger
Cls
Fori=1To5
PrintTab（10）;
Forj=1To5
a（i,j）=Int（Rnd*10）
Printa（i,j）;
Nextj
Print
Nexti
s=0
Fori=2To5
Forj=1Toi-1
s=s+a（i,j）
Nextj,i
Print
Print"下三角元素之和为：
";s
s=0
Fori=1To4
Forj=i+1To5
s=s+a（i,j）
Nextj,i
Print"上三角元素之和为：
";s
s=0
Fori=1To5
s=s+a（i,i）
Nexti
Print"主对角线元素之和为：
";s
EndSub
PrivateSubForm_Load（）
EndSub
P6-3
PrivateSubCommand1_Click（）
ReDimsl（1To6）
DimiAsInteger,jAsInteger,tAsInteger
Cls
Fori=1To6
sl（i）=Int（90*Rnd+10）
Nexti
Fori=1To5
Forj=i+1To6
Ifsl（i）t=sl（i）
sl（i）=sl（j）
sl（j）=t
EndIf
Nextj
Nexti
Print"原数据序列是：
"
Fori=1To6
Printsl（i）;
Nexti
Print
EndSub
PrivateSubCommand2_Click（）
ReDimPreservesl（1To7）
DimnAsInteger
n=Val（InputBox（"请输入一个两位数：
"））
Print"插入的数为：
";n
Fori=6To1Step-1
IfnExitFor
Else
sl（i+1）=sl（i）
EndIf
Nexti
sl（i+1）=n
Print"新的数据序列是：
"
Fori=1To7
Printsl（i）;
Next
EndSub
PrivateSubForm_Load（）
EndSub
P6-4
PrivateSubCommand1_Click（IndexAsInteger）
DimaAsSingle,bAsSingle
a=Val（Text1）:
b=Val（Text2）
Text3=""
SelectCaseIndex
Case0:
Text3=a+b
Case1:
Text3=a-b
Case2:
Text3=a*b
Case3
Ifb=0Then
MsgBox（"除数不能为零！
"）
Else
Text3=Int（a/b*1000+0.5）/1000
EndIf
EndSelect
EndSub
PrivateSubForm_Load（）
EndSub
P7-1
PrivateSubCommand1_Click（）
DimaAsString
a=Text1
Label2=Fx（a）
EndSub
FunctionFx（ByValPsAsString）AsString
DimchAsString
DimkAsInteger,iAsInteger
k=Len（Ps）
Fori=1Tok
ch=Mid（Ps,i,1）
Fx=ch&Fx
Nexti
EndFunction
PrivateSubForm_Load（）
EndSub
P7-2
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,cAsSingle
a=Val（InputBox（"请输入第一个数：
"））
b=Val（InputBox（"请输入第二个数：
"））
c=Val（InputBox（"请输入第三个数：
"））
Print"输入的三个数是：
";a;b;c
Print"其中的最大值是：
";Max3（a,b,c）
EndSub
FunctionMax3（ByValXAsSingle,ByValYAsSingle,ByValZAsSingle）AsSingle
IfX>=YAndX>=ZThen
Max3=X
ElseIfY>=ZThen
Max3=Y
Else
Max3=Z
EndIf
EndFunction
PrivateSubForm_Load（）
EndSub
P7-3
PrivateSubCommand1_Click（）
DimaAsString*1
a=InputBox（"请输入一个字符：
"）
Print"输入的字符是：
";a
Print"它是：
";
CallPd（a）
EndSub
SubPd（ByValOsAsString）
DimaAsInteger
a=Asc（Os）
SelectCasea
Case48To57
Print"数字字符"
Case65To90
Print"大写字母"
Case97To122
Print"小写字母"
CaseElse
Print"其它字符"
EndSelect
EndSub
PrivateSubForm_Load（）
EndSub
P7-4
PrivateSubCommand2_Click（）
DimaAsLong
DimresAsBoolean
a=Val（Text1）
Ws2a,res
Ifres=TrueThen
Label2=a&"是完数"
Else
Label2=a&"不是完数"
EndIf
EndSub
SubWs2（ByValXAsLong,ByRefYAsBoolean）
DimiAsIntege
升级会员 