Visual Basic Dot Net程序设计教程第2版课后实验题文档格式.docx

Visual Basic Dot Net程序设计教程第2版课后实验题文档格式.docx

《Visual Basic Dot Net程序设计教程第2版课后实验题文档格式.docx》由会员分享，可在线阅读，更多相关《Visual Basic Dot Net程序设计教程第2版课后实验题文档格式.docx（10页珍藏版）》请在冰豆网上搜索。

Randomize（）

T1.Text="

"

T2.Text="

T3.Text="

a=Int（Rnd（）*（9-0+1）+0）

b=Int（Rnd（）*（99-10+1）+10）

c=Int（Rnd（）*（999-100+1）+100）

T1.Text=Val（a）

T2.Text=Val（b）

T3.Text=Val（c）

EndSub

PrivateSubB2_Click（senderAsObject,eAsEventArgs）HandlesB2.Click

av=（a+b+c）/3

L5.Text=Val（av）

PrivateSubB3_Click（senderAsObject,eAsEventArgs）HandlesB3.Click

End

EndClass

第四题

PublicClassForm1

PrivateSubForm1_Load（senderAsObject,eAsEventArgs）HandlesMyBase.Load

T1.Font=NewFont（"

BaskervilleOldFace"

12）

T2.Font=NewFont（"

Youarethebest,butIambetter.Socomeon!

"

EndSub

PrivateSubB1_Click（senderAsObject,eAsEventArgs）HandlesB1.Click

T2.Text=Len（T1.Text）

PrivateSubB2_Click（senderAsObject,eAsEventArgs）HandlesB2.Click

T2.Text=UCase（T1.Text）

PrivateSubB3_Click（senderAsObject,eAsEventArgs）HandlesB3.Click

T2.Text=LCase（T1.Text）

PrivateSubB4_Click（senderAsObject,eAsEventArgs）HandlesB4.Click

T2.Text=Trim（T1.Text）

PrivateSubB5_Click（senderAsObject,eAsEventArgs）HandlesB5.Click

T2.Text=StrDup（5,"

S"

）

PrivateSubB6_Click（senderAsObject,eAsEventArgs）HandlesB6.Click

T2.Text=InStr（T1.Text,"

are"

PrivateSubB7_Click（senderAsObject,eAsEventArgs）HandlesB7.Click

T2.Text=Replace（T1.Text,"

but"

"

while"

PrivateSubB8_Click（senderAsObject,eAsEventArgs）HandlesB8.Click

T2.Text=Mid（T1.Text,33,16）

EndClass

第六题

Dima,bAsInteger

Randomize（）

a=Int（Rnd（）*（999-100+1）+100）

b=a\100+（a\10Mod10）*10+（aMod10）*100

T2.Text=b