VB课后答案.docx
- 文档编号:24669765
- 上传时间:2023-05-30
- 格式:DOCX
- 页数:13
- 大小:17.70KB
VB课后答案.docx
《VB课后答案.docx》由会员分享,可在线阅读,更多相关《VB课后答案.docx(13页珍藏版)》请在冰豆网上搜索。
VB课后答案
1.通过文本框TextBook1舒服一个实数,单击计算按钮,在TextBook2-6中分别输出该数的相反数,平方,绝对值平方根,立方以及绝对值的立方根。
需要在文本框前添加注释文本框内的数据。
PublicClassForm1
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimxAsSingle
x=TextBox1.Text
TextBox2.Text=-x
TextBox3.Text=x^2
TextBox4.Text=System.Math.Sqrt(System.Math.Abs(x))
TextBox5.Text=x^3
TextBox6.Text=(System.Math.Abs(x))^(1/3)
EndSub
EndClass
2.使用文本框Textbook1和Textbook2分别输入两个数,给变量X和Y赋值,单击交换按钮变换按钮,交换extbook1和Textbook2中的内容。
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimx,y,tAsInteger
x=TextBox1.Text
y=TextBox2.Text
t=x
x=y
y=t
TextBox1.Text=x
TextBox2.Text=y
EndSub
EndClass
3.输入一元二次方程ax^2+bx+c=0的系数a.b.c计算并输出方程的两个根X1和X2。
创图界面如图所示
PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
Dima,b,cAsInteger,x1AsSingle,x2AsSingle
a=TextBox1.Text
b=TextBox2.Text
c=TextBox3.Text
x1=(-b+(b^2-4*a*c)^(1/2))/(2*a)
x2=(-b-(b^2-4*a*c)^(1/2))/(2*a)
TextBox4.Text=x1
TextBox5.Text=x2
EndSub
EndClass
4使用输入对话框输入球的半径,计算。
然后在两个文本框中分别输入球的体积和表面积
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimr,s,vAsSingle
Constpi=3.14
r=InputBox("请输入球的半径")
Label1.Text="球的半径是"&r
s=4*pi*r^2
v=4/3*pi*r^3
TextBox1.Text=s
TextBox2.Text=v
EndSub
5.用输入对话框inputbox输入一个正整数,判断其能是否同时被3和17整除,如能则用标签输出xxx能同时被3和17整除,否则输出不能同时被3和17整除。
其中标签中的xxx应显示为实际输出数据。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimx%
x=InputBox("请输入一个正整数")
IfxMod3=0AndxMod17=0Then
Label1.Text=x&"能同时骸被3和17整除"
Else
Label1.Text=x&"不能同时骸被3和17整除"
EndIf
EndSub
3.编写程序,在文本框中输出三位数中的所有素数。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,mAsInteger,str1AsString,flagAsBoolean
str1=""
Form=101To999
flag=True
Fori=2Tom-1
IfmModi=0Then
flag=False
ExitFor
EndIf
Next
IfflagThenstr1=str1&m&vbCrLf
Next
TextBox1.Text=str1
EndSub
EndClass
5.求出2000-2100年之间的所有闰年,使用文本框输出闰年,并统计共有多少闰年。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimy,nAsInteger
Fory=2000To2100
If(yMod4=0AndyMod100<>0)OryMod400=0Then
TextBox1.Text=TextBox1.Text&y&vbCrLf
n=n+1
EndIf
Next
TextBox2.Text=n
EndSub
1.编写程序,计算并输出数列1*2,2*4,3*6,。
。
。
,n*2n。
。
。
前N项中偶数项的和。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger,nAsInteger
DimsAsSingle
n=InputBox("请输入n")
s=0
Fori=2TonStep2
s=s+i*2*i
Next
TextBox1.Text=s
EndSub
11.找出并输出所有三位数中,能同时被5和7整除。
切个位十位百位的数码之和等于13的数据。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,a,b,cAsInteger
Fori=100To999
a=i\100
b=(i\10)Mod10
c=iMod10
IfiMod5=0AndiMod7=0anda+b+c=13Then
TextBox1.Text=TextBox1.Text&i&vbCrLf
EndIf
Next
EndSub
EndClass
10.随机产生是个区间位于10-90之间的整数,计算其平均值,并输出大于均值的整数,统计其个数。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger,nAsInteger
DimsAsSingle
n=InputBox("请输入n")
s=0
Fori=2TonStep2
s=s+i*2*i
Next
TextBox1.Text=s
EndSub
2.百万白瓦问题。
有100匹马驼100快瓦,大马驼三块,小马托2块。
两个马驹驼一块,问大马小马马驹各有多少?
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimxAsInteger,yAsInteger,zAsInteger
Dimstr1AsString
str1=""
Forx=0To33
Fory=0To50
z=100-x-y
If3*x+2*y+z/2=100Then
str1=str1&"大马:
"&x&vbtab"小马:
"&y&"马驹v:
阰&z&vbCrLf
EndIf
Nexty
Nextx
Label1.Text=str1
EndSub
EndClass
3.通过文本框输入一串符号,以问号作为结束标志,单击命令按钮,要求分别统计字符串中所含字母和字符串的个数。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dims,letterAsString,n1,n2,iAsInteger
s=TextBox1.Text
i=1
Do
letter=Mid(s,i,1)
SelectCaseletter
Case"A"To"Z","a"To"z"
n1+=1
Case"0"To"9"
n2+=1
EndSelect
i+=1
LoopUntilletter="?
"
TextBox2.text=n1
TextBox3.Text=n2
EndSub
9.有一个数列,其前三项分别为1.2.3,从第四项开始,每项均为其前三项之和的1/2,问该数列从第几项开始,其数值超过1200
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger,f1,f2,f3,f4AsDouble
f1=1:
f2=2:
f3=3:
i=3
Do
f4=(f1+f2+f3)/2
f1=f2:
f2=f3:
f3=f4
i+=1
LoopUntilf4>1200
Debug.Print(i)
EndSub
EndClass
8.利用随机函数产生一个由15个10-90之间的奇数的随机整数,并显示在标签1中,单击明令按钮,将该数列中的数据从大到小的顺序排列,并显示在标签2中。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,tAsInteger,a(15)AsInteger,xAsInteger,sAsString
Randomize()
s=""
Do
x=Int(Rnd()*81)+10
IfxMod2<>0Then
i=i+1
a(i)=x
s=s&Str(a(i))
EndIf
LoopUntili=15
Label1.Text=s
Fori=1To14
Forj=i+1To15
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)