vb课后习题答案华中科技大学独家docWord格式文档下载.docx

vb课后习题答案华中科技大学独家docWord格式文档下载.docx

《vb课后习题答案华中科技大学独家docWord格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb课后习题答案华中科技大学独家docWord格式文档下载.docx（18页珍藏版）》请在冰豆网上搜索。

,False）

{0}{1}{2}{3}{4}”,a,“AND”,b,”为a”，aAndb）

Console.WriteLine（n{0}{1}{2}{3}{4}{5}”,a,"

AND"

“Not”,b,”为a”，aAndNotb）

Console.WriteLine（n{0}{1}{2}{3}{4}{5}{6}”,a,b,"

OR"

b,”为an,a>

bOrb）

Console.ReadLineQ

EndModule

B2ModuleModule2

Submain（）

DimxAsInteger

DimyAsInteger

Console.Write（,,lnputx=,,）

x=Console.ReadLine

Console.Write（"

lnputy="

）

y=Console.ReadLine

{0}{1}"

"

表达式1的结果为。

Math.Sin（x）+

Math.Cos（y））

Console.WriteLine（,,{0}{l},,/”表达式2的结果为“，（（x八2+y八2）/

Math.Abs（y））A（1/3））

Console.WriteLine（,,{0}{l}H,”表达式3的结果为“,x+y>

xA2-10*x）

Console.ReadLine（）

B3PrivateSubButtonl_Click（ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click

TextBoxi.Text=lnt（Rnd（）*100+-49）

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButton2.Click

TextBoxi.Text=lnt（Rnd（）*9998+1）*0.01EndSub

B4Randomize（）

Labell.Text=lnt（Rnd（）*9000+1000）Dima,b,c,dAsIntegera=Labell.Text\1000b=（Labell.TextMod1000）\100c=（Labell.TextMod（a*1000+b*100））\10d=（Labell.TextMod10）Label2.Text=c*1000+a*100+d*10+b

B5DimaAsDouble

a=TextBoxi.Text

Labell.Text=Format（a,"

##,###.0000"

）Label2.Text=a

BIOTextBoxi.Text=UCase（TextBoxl.Text）

TextBoxl.Selectionstart=Len（TextBoxl.Text）

B6Dima=TextBoxl.Text

Labell.Text=Microsoft.VisualBasic.Left（a,16）

Label2.Text=Mid（a,17,6）

Label3.Text=Microsoft.VisualBasic.Right（a,5）

B7

Dima,bAsStringa=TextBoxl.Textb=TextBox2.TextLabell.Text=Replace（a,b,"

"

B8PrivateSubButtonl_Click（ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click

DimF=VaI（TextBoxl.Text）,C=VaI（TextBox2.Text）

C=（5/9）*（F-32）

TextBoxl.Text=Math.Round（C,2）

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByVaieAs

System.EventArgs）HandlesButton2.Click

F=（9/5）*C+32

TextBox2.Text=Math.Round（F,2）

B9PrivateSubButtonl_Click（ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click

Dimp=3.14,a=Val（TextBoxl.Text）

TextBox2.Text=Format（p*a*a,"

##.00"

TextBox3.Text=Format（2*p*a,"

PrivateSubTextBoxl_KeyPress（ByValsenderAsObject,ByVaieAs

System.Windows.Forms.KeyPressEventArgs）HandlesTextBoxi.KeyPress

Ife.KeyChar=Chr（13）Then

IfIsNumeric（TextBoxl.Text）=FalseThen

MsgBox（"

输入非法字符，请重新输入"

0,"

友情提示"

TextBoxl.Text="

TextBoxl.Focus（）

EndIf

ClPrivateSubButton1_CIick（ByVaIsenderAsSystem.Object,ByVaieAs

System.EventArgs）HandlesButtonl.Click

Dimp=3.14,a=Val（TextBoxl.Text）,b=VaI（TextBox2.Text）

TextBox2.Text=2*p*a

TextBox3.Text=p*a*a

输入值不合法"

C2Dimx,yAsSingle

x=lnputBox（"

输入x="

Ifx>

20Then

y=xA2+3*x+2

结果为"

&

y）

Elselfx<

10Then

y=0.5+Math.Abs（x）

Else

y=（3*x）A0.5-2

或者Dimx,yAsSingle

x=Val（TextBoxl.Text）

SelectCasex

CaseIs<

10

CaseIs>

20

CaseElse

y=（3*x）A0.5-2

EndSelect

C3Dima,b,cAsSingle

a=lnputBox（"

输入a:

b=lnputBox（"

输入b:

c=lnputBox（"

输入c:

Ifa+b>

cAndb+c>

aAnda+c>

bThen

Ifa=bAndb=cThenMsgBox（”等边"

lfaA2+bA2=cA2OraA2+cA2=bA2OrbA2+cA2=aA2

ThenMsgBox（”直角“）

If（a=bXorb=c）Or（a=cXora=b）ThenMsgBox（"

等腰”）

C4Dima,b,cAsInteger

Randomize（）

Labe11.Text=lnt（Rnd（）*（900）+100）

a=Labell.Text\100

Labe12.Text=a

b=（Labell.TextMod100）\10

Label3.Text=b

c=Labell.TextMod10

Label4.Text=c

C5Dima,b,cAsInteger

a=lnt（Rnd（）*90+10）

b=lnt（Rnd（）*90+10）

c=lnt（Rnd（）*4+0）

SelectCasec

Case0

Labell.Text=a+b

Case1

Labell.Text=a*b

Case2

Labell.Text=a/b

Case3

Labell.Text=a-bEndSelect

C6

PrivateSubButtonl_Click（ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs）HandlesButtonl.Click

Dima,bAsSinglea=TextBoxl.TextIfa>

5000Then

Label5.Text="

八折"

:

Label6.Text=a*0.8

Elselfa>

3000Then

Label5