VB循环结构程序设计答案.docx
- 文档编号:5427115
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:27
- 大小:545.40KB
VB循环结构程序设计答案.docx
《VB循环结构程序设计答案.docx》由会员分享,可在线阅读,更多相关《VB循环结构程序设计答案.docx(27页珍藏版)》请在冰豆网上搜索。
VB循环结构程序设计答案
实验4循环结构程序设计
2014年月日
姓名:
金梦仙
学号:
136330862
班级:
法政2班
短号:
658399
一、实验目的:
1.掌握FOR语句的使用。
2.掌握DO语句各种形式的使用。
3.掌握如何控制循环条件,防止死循环或不循环。
4.掌握滚动条、进度条和定时器控件的使用。
二、实验内容:
请在每题窗体的合适位置写上你的姓名和学号(以后所有实验均有此要求)
1.完成实践教材实验4“三、实验内容”的题。
(最前面两题做在实验3中)
2.进入10.22.98.189\edu课程网站,并将此实验报告和代码文件一起打包压缩交到课程作业相应处,请务必在作业有效期内上交。
三、实验步骤及结果:
(实验结果截图,代码拷贝过来。
)
1容易题
(1)阶乘和
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,n,s,aAsInteger
n=Val(TextBox1.Text)
s=0求阶乘和!
!
!
!
a=1
Fori=1Ton
a=a*i
s=s+a
Next
Label2.Text="1!
+2!
+3!
+…+"&n&"!
="
TextBox2.Text=s
EndSub
EndClass
(2)奇数偶数之和
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimm,n,i,j,k,tAsInteger
IfIsNumeric(TextBox1.Text)AndIsNumeric(TextBox2.Text)Then
m=Val(TextBox1.Text)
n=Val(TextBox2.Text)
Ifm>nThent=m:
m=n:
n=t
Fori=mTon
IfiMod2=0Then
j=j+i
Else
k=k+i
EndIf
Next
Label3.Text="偶数的和为"&j
Label4.Text="奇数的和为"&k
Else
MsgBox("请输入合法的数据")
EndIf
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox1.Text=""
TextBox2.Text=""
Label3.Text=""
Label4.Text=""
EndSub
EndClass
3.产生66
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Randomize()
Label1.Text=""
Dimi,jAsInteger
DoWhilei<>66
j=j+15个一行
i=Int(Rnd()*(80-60+1)+60)
Label1.Text=Label1.Text&i&Space(3)
IfjMod5=0ThenLabel1.Text&=vbCrLf换行
Loop
Label1.Text&=vbCrLf&"产生"
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
EndClass
(4)能被5整除的数
代码
PublicClassForm1
PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged
Dimm,n,i,jAsInteger
n=Val(TextBox1.Text)
m=Val(TextBox2.Text)
Fori=nTom
j=j+1
IfiMod5=0Then
TextBox3.Text=TextBox3.Text&i&Space(3)
IfjMod4=0ThenTextBox3.Text&=vbCrLf4个换一行
EndIf
Next
EndSub
EndClass
(5)计算π的近似值
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimn,t,sAsDouble
s=2
Forn=1ToVal(TextBox1.Text)
t=(2*n)^2/(2*n-1)/(2*n+1)
s*=t
Next
Label2.Text="π的近似值为"&s
EndSub
EndClass
(6)。
1
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
Dims1AsString
Fori=1To10
s1=StrDup(2*i-1,"☆")
Label1.Text&=Space(20-2*i)&s1&vbCrLf☆占两字节
Next
EndSub
EndClass
6
(2)
代码
PublicClassForm1
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimiAsInteger,s,bAsString
Fori=1To10
s=Chr(Asc("A")+i-1)
b=StrDup(2*i-1,s)
Label1.Text&=Space(20-i)&b&vbCrLf
Next
EndSub
EndClass
中等题
(1)
代码
PublicClassForm1
PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress
Dimx,iAsInteger,mAsDouble,flagAsBoolean
i=3
flag=True
x=Val(TextBox1.Text)
IfAsc(e.KeyChar)=13Then
IfxMod2=0Then
Ifx=2Then
TextBox2.Text=x&"是素数"
Else
TextBox2.Text=x&"不是素数"
EndIf
Else
m=Math.Sqrt(x)
DoWhilei<=Fix(m)
IfxModi=0Thenflag=False
i=i+2
Loop
IfflagThen
TextBox2.Text=x&"是素数"
Else
TextBox2.Text=x&"不是素数"
EndIf
EndIf
EndIf
EndSub
EndClass
中等题
(2)
代码
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi,min,max,xAsInteger,avgAsSingle
max=1
min=100
Fori=1To10
Randomize()
x=Int(Rnd()*(100-1+1)+1)
Ifx>maxThenmax=x
Ifx avg=avg+x Label1.Text&=x&Space(3) Next Label2.Text="最大值"&Space(5)&"最小值"&Space(5)&"平均值" Label3.Text=max&Space(8)&min&Space(8)&avg/10 EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub EndClass 中等题(3) 代码 PublicClassForm1 PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress IfAsc(e.KeyChar)=13Then Dimi,j,nAsInteger n=Val(TextBox1.Text) Fori=1Ton Label2.Text&=Space(i) Forj=1To(2*n-2*i+1) Label2.Text&=i Next Label2.Text&=vbCrLf Next EndIf EndSub EndClass 中等题(4) PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dimi,m,k,NAsInteger,tagAsBoolean N=Val(TextBox1.Text) TextBox2.Text="2~"&TextBox1.Text&"之间的素数有: "&vbCrLf Form=2ToN tag=True Fori=2To(m-1) If(mModi)=0Then tag=False ExitFor EndIf Next IftagThen TextBox2.Text&=m&Space (2) k=k+1 IfkMod8=0ThenTextBox2.Text&=vbCrLf EndIf Next EndSub EndClass 中等题(5) 代码 PublicClassForm1 Dimt% PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load ProgressBar1.Value=ProgressBar1.Maximum EndSub PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress IfAsc(e.KeyChar)=13Then ProgressBar1.Maximum=Val(TextBox1.Text)*60 t=Val(TextBox1.Text)*60 TextBox1.ReadOnly=True timer1.enabled=True EndIf EndSub PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick t=t-1 TextBox1.Text=t\60&": "&tMod60 ProgressBar1.Value=t Ift=0Then Timer1.Enabled=False TextBox1.ReadOnly=False EndIf EndSub EndClass 3难题1 PublicClassForm1 PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load Hscrollbar1.minimum=10 Hscrollbar1.maximum=PictureBox1.Width+9 Vscrollbar1.minimum=10 Vscrollbar1.maximum=PictureBox1.Height+9 EndSub PrivateSubHScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar1.Scroll PictureBox1.Width=HScrollBar1.Value EndSub PrivateSubVScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesVScrollBar1.Scroll PictureBox1.Height=VScrollBar1.Value EndSub PrivateSubPictureBox1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesPictureBox1.Click DimpicturepathAsString StaticiAsInteger=0 i=i+1 Ifi>5Then i=1 EndIf picturepath="D: \picture\p"&i&".jpg" PictureBox1.Image=Image.FromFile(picturepath)‘路径 EndSub EndClass 难题2。 1 代码 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimiAsInteger Dims1,s2AsString Fori=1To11 Ifi>=1Andi<=5Then s1=StrDup(17-3*i,"☆") Label1.Text&=Space(3*(i-1))&"★"&s1&"★"&vbCrLf ElseIfi=6Then Label1.Text&=Space(15)&"☆"&vbCrLf Else s2=StrDup(2+(i-7)*3,"★") Label1.Text&=Space((11-i)*3)&"☆"&s2&"☆"&vbCrLf EndIf Next EndSub EndClass 难题2.2 代码 ublicClassForm1 PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load Dims1,x,jAsInteger StaticiAsInteger Fori=1To13 s1=Asc("A")+i-1 Label1.Text&=Space(i) Forj=s1To77 Label1.Text&=Chr(j) Next Label1.Text&="*" Forx=78To(91-i) Label1.Text&=Chr(x) Next Label1.Text&=vbCrLf Nexti Label1.Text&=Space(14)&"*" EndSub EndClass ------------------------------------------------------------------------------------------------------- 四、实验心得: 1.求阶乘和 n=Val(TextBox1.Text) s=0求阶乘和! ! ! ! a=1 Fori=1Ton a=a*I倒着的阶层! ! ! s=s+a 2/5个一行 Dimi,jAsInteger DoWhilei<>66 j=j+15个一行 i=Int(Rnd()*(80-60+1)+60) Label1.Text=Label1.Text&i&Space(3) IfjMod5=0ThenLabel1.Text&=vbCrLf换行 Loop Label1.Text&=vbCrLf&"产生" 3. Fori=1To10 s1=StrDup(2*i-1,"☆") Label1.Text&=Space(20-2*i)&s1&vbCrLf☆占两字节算前面的空格 4. Chr(Asc("A")+i-1) asc(字符): 给出字符的ASCII码值,十进制数 chr(数值): 返回以该数值为ASCII码的字符 5. 代码 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dimi,min,max,xAsInteger,avgAsSingle max=1 min=100 Fori=1To10 Randomize() x=Int(Rnd()*(100-1+1)+1) Ifx>maxThenmax=x Ifx avg=avg+x Label1.Text&=x&Space(3) Next Label2.Text="最大值"&Space(5)&"最小值"&Space(5)&"平均值" Label3.Text=max&Space(8)&min&Space(8)&avg/10 EndSub EndClass 5.分钟----秒 PublicClassForm1 Dimtasinteger PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load ProgressBar1.Value=ProgressBar1.Maximum EndSub PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress IfAsc(e.KeyChar)=13
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 循环 结构 程序设计 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)