VBNET课后答案.docx
- 文档编号:10044849
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:31
- 大小:24.23KB
VBNET课后答案.docx
《VBNET课后答案.docx》由会员分享,可在线阅读,更多相关《VBNET课后答案.docx(31页珍藏版)》请在冰点文库上搜索。
VBNET课后答案
VB.NET课后答案
第一章
一、选择题
1.A2.A3.A4.D
二、填空题
1.公共语言运行库
2.解决方案资源管理器
3.Text
4.Read或ReadLineWrite或WriteLine
5.Main()
6.方法事件
1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
End
EndSub
2SubMain()
Dima,b,cAsInteger
Console.Write("请输入第一个数:
")
a=Console.ReadLine()'输入第一个数
Console.Write("请输入第二个数:
")
b=Console.ReadLine()
c=a+b
Console.WriteLine("和为:
"&c)
EndSub
第二章
一、选择题
1.A2.A3.B4.C
二、填空题
1.True
2.7
3.0
4._(下划线加空格)
5.Math.Exp(B+8)*Math.Sin(75/180*Math.PI)
6.Math.Pow(a+b,x+y)
7.jd/180*Math.PIc*Math.Cos(d)
1DimDAsSingle'存放直径
DimSAsSingle'存放面积
S=Val(TextBox1.Text)'获取面积
D=Math.Sqrt(S/Math.PI)*2'求得直径
TextBox2.Text=CStr(D)'显示出直径
EndSub
2Dima,b,c,sinv,cosv,tanvAsDouble'用来存放三角形的三个边长
c=Val(TextBox1.Text)'斜边长度
a=Val(TextBox2.Text)'一直角边长度
b=Math.Sqrt(c*c-a*a)'另一直角边
sinv=a/c:
TextBox3.Text=CStr(sinv)'求得正弦值并显示
cosv=b/c:
TextBox4.Text=CStr(cosv)'求得余弦值并显示
tanv=a/b:
TextBox5.Text=CStr(tanv)'求得正切值并显示
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
第三章
一、选择题
1.A2.C3.B4.D
二、填空题
1.While…EndWhileFor…Next
2.3
3.edcba
4.ExitFor
5.999a^3+b^3+c^3=i
6."合格"
1DimsAsSingle=100,tAsSingle=100
DimiAsInteger
i=1
DoWhilei<10
s=s+t
t=t/2
i=i+1
Loop
TextBox1.Text=Str(s)
TextBox2.Text=Str(t)
EndSub
2ivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimSAsDouble,TAsDouble,IAsInteger
T=1:
S=0
ForI=1To10
T=T*I
S=S+T
NextI
TextBox1.Text=S
EndSub
第四章
一、选择题
1.B2.D3.A4.B
二、填空题
1.Arr(5,5)
2.0
3.ReDimPreserveArr(10)
4.UBound(Arr,2)
5.i,ji,ii,4-i
6.ForEach
1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
Randomize()
TextBox1.Text=""
Fori=0ToN-1
Arr(i)=Int(90*Rnd())+10
TextBox1.Text=TextBox1.Text+CStr(Arr(i))+""
Nexti
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimaverAsDouble
Dimi,countAsInteger
aver=0.0:
count=0
Fori=0ToN-1
aver=aver+Arr(i)
Nexti
aver=aver/N
Fori=0ToN-1
IfArr(i)>=averThen
count=count+1
EndIf
Nexti
TextBox2.Text=CStr(aver)
TextBox3.Text=CStr(count)
EndSub
2PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,jAsInteger
Randomize()
Label1.Text="数组:
"+Chr(10)+Chr(13)
Fori=0ToM-1'本循环生成数组各元素
Forj=0ToN-1
Arr(i,j)=Int(90*Rnd())+10'产生两位随机整数赋值给数组元素
Label1.Text=Label1.Text+CStr(Arr(i,j))+""'连接到Label1中
Nextj
Label1.Text=Label1.Text+Chr(10)+Chr(13)'换到下一行
Nexti
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimC1,C2,I,JAsInteger
C1=0:
C2=0
ForI=0ToM-1
ForJ=0ToN-1
IfArr(I,J)Mod2<>0Then
C1=C1+1
Else
C2=C2+1
EndIf
NextJ
NextI
Label1.Text=Label1.Text+"奇数个数为:
"+CStr(C1)+Chr(10)+Chr(13)
Label1.Text=Label1.Text+"偶数个数为:
"+CStr(C2)+Chr(10)+Chr(13)
EndSub
第五章
一、选择题
1.A2.C3.D4.C
二、填空题
1.ByRef
2.Optional
3.ParamArray
4.函数过程有返回值而通用过程无返回值
5.Func1过程中的
6.1520M=15,N=55
1PrivateFunctionPingFeng(ByValDf()AsSingle)AsSingle
DimM,iAsInteger
DimSumAsSingle=0.0,Maxdf,MindfAsSingle
Maxdf=Df(0):
Mindf=Df(0)
M=UBound(Df)
Fori=0ToM
Sum+=Df(i)
IfMaxdf IfMindf>Df(i)ThenMindf=Df(i) Nexti PingFeng=(Sum-Maxdf-Mindf)/(M+1-2) EndFunction PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dimpf()AsSingle,FinalAsSingle,pfstr()AsString Dimi,NumAsInteger pfstr=Split(TextBox1.Text,",") Num=UBound(pfstr) ReDimpf(Num) Fori=0ToNum pf(i)=pfstr(i) Nexti Final=PingFeng(pf) TextBox2.Text=CStr(Final) EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click TextBox1.Text="" TextBox2.Text="" EndSub PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click End EndSub 2PrivateFunctionTaoZi(ByValNAsInteger)AsInteger DimkAsInteger IfN=1Then k=1 Else k=2*TaoZi(N-1)+1 EndIf Returnk EndFunction PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimNAsInteger N=Val(TextBox1.Text) TextBox2.Text=CStr(TaoZi(N)) EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub 第六章 一、选择题 1.D2.D3.D4.B 二、填空题 1.逻辑 2.中断 3.监视 4.语法 5.Number 6.Finally 7.Message 8.前面 1PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimScoreStr(N-1)AsString,averAsSingle=0 DimScore(N-1),iAsInteger'存放成绩 Try ScoreStr=Split(TextBox1.Text,",") Fori=0ToN Score(i)=Val(ScoreStr(i)) aver=aver+Score(i) Nexti TextBox2.Text=CStr(aver) CatchexamAsSystem.IndexOutOfRangeException TextBox2.Text="数组下标越界" Catch TextBox2.Text="其它异常" EndTry EndSub 2PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimNum1,Num2,ResultAsSingle,OpAsString Try Num1=Val(TextBox1.Text): Num2=Val(TextBox3.Text) Op=TextBox2.Text SelectCaseOp Case"+": Result=Num1+Num2 Case"-": Result=Num1-Num2 Case"*": Result=Num1*Num2 Case"/": Result=Num1/Num2 EndSelect TextBox4.Text=CStr(Result) CatchExamAsSystem.NotFiniteNumberException MsgBox("无穷大异常") CatchExamAsSystem.OverflowException MsgBox("溢出异常") EndTry EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub 第七章 一、选择题 1.B2.B3.A4.A 二、填空题 1.TextChanged 2.Increment 3.CheckState 4.MultiColumn 5.SelectedItems 6.SizeMode 7.Interval 8.Value 1PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) EndSub PrivateSubTextBox1_TabStopChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.Click DimbtnAsButton btn=sender TextBox1.Text+=btn.Text EndSub PrivateSubButton12_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton12.Click DimbtnAsButton btn=sender TextBox1.Text=TextBox1.Text+""+btn.Text+"" EndSub PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click TextBox1.Text="" EndSub PrivateSubButton13_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton13.Click DimbtnAsButton btn=sender TextBox1.Text=TextBox1.Text+""+btn.Text+"" EndSub PrivateSubButton14_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton14.Click DimbtnAsButton btn=sender TextBox1.Text=TextBox1.Text+""+btn.Text+"" EndSub PrivateSubButton15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.Click DimbtnAsButton btn=sender TextBox1.Text=TextBox1.Text+""+btn.Text+"" EndSub PrivateSubButton16_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton16.Click DimrAsSingle'保存计算结果 D
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBNET 课后 答案