vb实验 程序代码Word下载.docx
- 文档编号:16451669
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:23
- 大小:18.36KB
vb实验 程序代码Word下载.docx
《vb实验 程序代码Word下载.docx》由会员分享,可在线阅读,更多相关《vb实验 程序代码Word下载.docx(23页珍藏版)》请在冰豆网上搜索。
Text1.ForeColor=Label1.BackColor
PrivateSubLabel2_Click()
Text1.ForeColor=Label2.BackColor
PrivateSubLabel3_Click()
Text1.ForeColor=Label3.BackColor
PrivateSubLabel4_Click()
Text1.ForeColor=Label4.BackColor
P2-4
DimShuAsDouble
Shu=Val(Text1)
Label5=Fix(Shu)
Label6=Int(Shu)
Label7=Round(Shu)
P2-5
Randomize
Label1=Int(Rnd()*899+100)
Label2="
DimZhAsString
Zh=Label1
Label2=Right(Zh,1)&
Mid(Zh,2,1)&
Left(Zh,1)
PrivateSubCommand3_Click()
DimYhAsInteger
DimAAsInteger
DimBAsInteger
DimCAsInteger
Yh=Val(Label1)
A=Yh\100
B=(YhMod100)\10
C=YhMod10
Label2=C*100+B*10+A
P3-1
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
P3-2
DimLxAsLong,UxAsLong
Lx=Val(Text1)
Ux=Val(Text2)
Label3=Int((Ux-Lx)*Rnd+Lx)
P4-1
DimaAsInteger,bAsInteger,cAsInteger
DimdAsSingle,r1AsSingle,r2AsSingle
a=Val(Text1)
b=Val(Text2)
c=Val(Text3)
Ifa=0Then
Ifb=0Then
MsgBox("
方程无解"
Else
r1=-c/b
方程有一个根为:
+Str(r1))
EndIf
Else
d=b*b-4*a*c
Ifd>
0Then
r1=(-b+Sqr(d))/(2*a)
r2=(-b-Sqr(d))/(2*a)
方程有两个根为:
+Str(r1)+Chr(13)+"
"
+Str(r2))
ElseIfd=0Then
r1=-b/(2*a)
方程有两个相同根为:
方程无实根"
EndIf
End
P4-2
DimaAsDouble,bAsDouble
DimysAsString*1
b=Val(Text3)
ys=Text2
SelectCaseys
Case"
+"
Label4=a+b
-"
Label4=a-b
Label4=a*b
/"
MsgBox"
除数不能为0!
重新输入"
Text3.SetFocus
Text3.SelStart=0
Text3.SelLength=Len(Text3)
Label4=a/b
EndSelect
P4-3
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimtAsSingle
a=Val(InputBox("
请输入第一个数:
))
b=Val(InputBox("
请输入第二个数:
c=Val(InputBox("
请输入第三个数:
Label1="
输入的三个数为:
&
a&
、"
b&
c
Ifa<
bThent=a:
a=b:
b=t
cThen
t=c:
c=b:
b=a:
a=t
Ifb<
cThent=b:
b=c:
c=t
Label2="
排序后的结果为:
P4-4
DimzfAsString
DimzaAsInteger
zf=Text1
za=Asc(zf)
Ifza>
=Asc("
A"
)Andza<
Z"
)Then
Label3=Chr(za+32)
ElseIfza>
a"
z"
Label3=Chr(za-32)
Label3="
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=1
SelectCaseza
CaseAsc("
)ToAsc("
CaseElse
Text1.MaxLength=1
P4-5
DimxAsInteger
x=Val(InputBox("
请输入一个整数!
Picture1.Cls
IfxMod2=0Then
Picture1.Print"
你输入的数"
;
x;
是偶数"
是奇数"
P4-6
DimaAsDate
a=Now
输出结果为:
PrintFormat(a,"
hh:
mm:
ssAMPMdddd,yyyy-mm-dd"
Form1.FontSize=18
Command1.FontSize=15
P5-1
DimnAsInteger,sumAsSingle
n=0
sum=0
Do
n=n+1
sum=sum+n^2
LoopUntilsum>
1000
n="
n
P5-2
DimnAsInteger,iAsInteger
DimsumAsSingle,midAsSingle
n=Val(InputBox("
请输入n值"
mid=0
Fori=1Ton
mid=mid+i
sum=sum+mid
Nexti
Label4=n
Label5=sum
P5-3
DimxAsInteger,maxAsInteger,minAsInteger
DimkAsInteger
Randomize
max=100
min=999
Fork=1To10
x=Int(Rnd*900+100)
Ifmax<
xThenmax=x
Ifmin>
xThenmin=x
Picture1.Printx
Nextk
Text1=max
Text2=min
P5-4
DimiAsInteger
DimaaAsInteger
Cls
Print:
PrintTab(5);
Fori=1To36
aa=i+Asc("
)-1
Ifaa<
PrintChr(aa);
PrintChr(aa-26);
IfiMod6=0Then
PrintTab(5+i/6);
Next
Show
DimjAsInteger
Fori=0To5
PrintTab(5+i);
Forj=0To5
aa=Asc("
)+i*6+j
Nextj
P6-1
Dimcj(1To10)AsSingle
DimsumAsSingle,iAsInteger
Fori=1To10
cj(i)=Val(InputBox("
请输入第"
i&
位同学的成绩:
sum=sum+cj(i)
Print"
这10位同学的成绩如下:
Printcj(i);
IfiMod5=0ThenPrint
平均成绩为:
Spc(3);
sum/i
Dima(5,5)AsInteger
DimsAsInteger
Fori=1To5
PrintTab(10);
Forj=1To5
a(i,j)=Int(Rnd*10)
Printa(i,j);
s=0
Fori=2To5
Forj=1Toi-1
s=s+a(i,j)
Nextj,i
下三角元素之和为:
s
Fori=1To4
Forj=i+1To5
上三角元素之和为:
s=s+a(i,i)
主对角线元素之和为:
P6-3
ReDimsl(1To6)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1To6
sl(i)=Int(90*Rnd+10)
Forj=i+1To6
Ifsl(i)<
sl(j)Then
t=sl(i)
sl(i)=sl(j)
sl(j)=t
原数据序列是:
Printsl(i);
ReDimPreservesl(1To7)
DimnAsInteger
请输入一个两位数:
插入的数为:
Fori=6To1Step-1
Ifn<
sl(i)Then
ExitFor
sl(i+1)=sl(i)
sl(i+1)=n
新的数据序列是:
Fori=1To7
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
除数不能为零!
Text3=Int(a/b*1000+0.5)/1000
P7-1
DimaAsString
a=Text1
Label2=Fx(a)
FunctionFx(ByValPsAsString)AsString
DimchAsString
DimkAsInteger,iAsInteger
k=Len(Ps)
Fori=1Tok
ch=Mid(Ps,i,1)
Fx=ch&
Fx
Nexti
EndFunction
P7-2
DimaAsSingle,bAsSingle,cAsSingle
a=Val(InputBox("
b=Val(InputBox("
c=Val(InputBox("
输入的三个数是:
a;
b;
其中的最大值是:
Max3(a,b,c)
FunctionMax3(ByValXAsSingle,ByValYAsSingle,ByValZAsSingle)AsSingle
IfX>
=YAndX>
=ZThen
Max3=X
ElseIfY>
Max3=Y
Max3=Z
P7-3
DimaAsString*1
a=InputBox("
请输入一个字符:
输入的字符是:
a
它是:
CallPd(a)
SubPd(ByValOsAsString)
DimaAsInteger
a=Asc(Os)
SelectCasea
Case48To57
数字字符"
Case65To90
大写字母"
Case97To122
小写字母"
其它字符"
EndSelect
P7-4
DimaAsLong
DimresAsBoolean
a=Val(Text1)
Ws2a,res
Ifres=TrueThen
Label2=a&
是完数"
不是完数"
SubWs2(ByValXAsLong,ByRefYAsBoolean)
DimiAsIntege
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb实验 程序代码 vb 实验