VB课后答案复习进程.doc

《VB课后答案复习进程.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、__________________________________________________1.通过文本框TextBook1舒服一个实数，单击计算按钮，在TextBook2-6中分别输出该数的相反数，平方，绝对值平方根，立方以及绝对值的立方根。需要在文本框前添加注释文本框内的数据。PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateS

2、ubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxAsSinglex=TextBox1.TextTextBox2.Text=-xTextBox3.Text=x^2TextBox4.Text=System.Math.Sqrt(System.Math.Abs(x))TextBox5.Text=x^3TextBox6.Text=(System.Math.Abs(x))^(1/3)EndSub_____

3、_______________________________________________________________________________________________EndClass2.使用文本框Textbook1和Textbook2分别输入两个数，给变量X和Y赋值，单击交换按钮变换按钮，交换extbook1和Textbook2中的内容。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Ev

4、entArgs)HandlesButton1.ClickDimx,y,tAsIntegerx=TextBox1.Texty=TextBox2.Textt=xx=yy=tTextBox1.Text=xTextBox2.Text=yEndSubEndClass3.输入一元二次方程ax^2+bx+c=0的系数a.b.c计算并输出方程的两个根X1和X2。创图界面如图所示PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handles___________

5、_________________________________________________________________________________________Me.LoadDima,b,cAsInteger,x1AsSingle,x2AsSinglea=TextBox1.Textb=TextBox2.Textc=TextBox3.Textx1=(-b+(b^2-4*a*c)^(1/2))/(2*a)x2=(-b-(b^2-4*a*c)^(1/2))/(2*a)TextBox4.Text=x1TextBox5

6、.Text=x2EndSubEndClass4使用输入对话框输入球的半径，计算。然后在两个文本框中分别输入球的体积和表面积PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimr,s,vAsSingleConstpi=3.14r=InputBox("请输入球的半径")____________________________________________________________

7、________________________________________Label1.Text="球的半径是"&rs=4*pi*r^2v=4/3*pi*r^3TextBox1.Text=sTextBox2.Text=vEndSub5.用输入对话框inputbox输入一个正整数，判断其能是否同时被3和17整除，如能则用标签输出xxx能同时被3和17整除，否则输出不能同时被3和17整除。其中标签中的xxx应显示为实际输出数据。PrivateSubButton1_Click(ByValsenderAsSystem.Objec

8、t,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx%x=InputBox("请输入一个正整数")IfxMod3=0AndxMod17=0ThenLabel1.Text=x&"能同时骸被3和17整除"ElseLabel1.Te