VB循环结构程序设计答案Word文档格式.docx
- 文档编号:8278768
- 上传时间:2023-05-10
- 格式:DOCX
- 页数:27
- 大小:545.40KB
VB循环结构程序设计答案Word文档格式.docx
《VB循环结构程序设计答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB循环结构程序设计答案Word文档格式.docx(27页珍藏版)》请在冰点文库上搜索。
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)奇数偶数之和
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
Label3.Text="
偶数的和为"
j
Label4.Text="
奇数的和为"
k
MsgBox("
请输入合法的数据"
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox1.Text="
"
TextBox2.Text="
3.产生66
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&
产生"
End
(4)能被5整除的数
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&
IfjMod4=0ThenTextBox3.Text&
=vbCrLf4个换一行
(5)计算π的近似值
Dimn,t,sAsDouble
s=2
Forn=1ToVal(TextBox1.Text)
t=(2*n)^2/(2*n-1)/(2*n+1)
s*=t
π的近似值为"
s
(6)。
1
DimiAsInteger
Dims1AsString
Fori=1To10
s1=StrDup(2*i-1,"
☆"
Label1.Text&
=Space(20-2*i)&
s1&
vbCrLf☆占两字节
6
(2)
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimiAsInteger,s,bAsString
s=Chr(Asc("
A"
)+i-1)
b=StrDup(2*i-1,s)
=Space(20-i)&
b&
vbCrLf
中等题
(1)
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&
是素数"
不是素数"
m=Math.Sqrt(x)
=Fix(m)
IfxModi=0Thenflag=False
i=i+2
IfflagThen
中等题
(2)
Dimi,min,max,xAsInteger,avgAsSingle
max=1
min=100
Randomize()
x=Int(Rnd()*(100-1+1)+1)
Ifx>
maxThenmax=x
Ifx<
minThenmin=x
avg=avg+x
=x&
最大值"
Space(5)&
最小值"
平均值"
Label3.Text=max&
Space(8)&
min&
avg/10
中等题(3)
Dimi,j,nAsInteger
Label2.Text&
=Space(i)
Forj=1To(2*n-2*i+1)
=i
=vbCrLf
中等题(4)
Dimi,m,k,NAsInteger,tagAsBoolean
N=Val(TextBox1.Text)
2~"
TextBox1.Text&
之间的素数有:
Form=2ToN
tag=True
Fori=2To(m-1)
If(mModi)=0Then
tag=False
ExitFor
IftagThen
TextBox2.Text&
=m&
Space
(2)
k=k+1
IfkMod8=0ThenTextBox2.Text&
中等题(5)
Dimt%
ProgressBar1.Value=ProgressBar1.Maximum
ProgressBar1.Maximum=Val(TextBox1.Text)*60
t=Val(TextBox1.Text)*60
TextBox1.ReadOnly=True
timer1.enabled=True
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
3难题1
Hscrollbar1.minimum=10
Hscrollbar1.maximum=PictureBox1.Width+9
Vscrollbar1.minimum=10
Vscrollbar1.maximum=PictureBox1.Height+9
PrivateSubHScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar1.Scroll
PictureBox1.Width=HScrollBar1.Value
PrivateSubVScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesVScrollBar1.Scroll
PictureBox1.Height=VScrollBar1.Value
PrivateSubPictureBox1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesPictureBox1.Click
DimpicturepathAsString
StaticiAsInteger=0
i=i+1
Ifi>
5Then
i=1
picturepath="
D:
\picture\p"
.jpg"
PictureBox1.Image=Image.FromFile(picturepath)‘路径
难题2。
Dims1,s2AsString
Fori=1To11
=1Andi<
=5Then
s1=StrDup(17-3*i,"
=Space(3*(i-1))&
★"
ElseIfi=6Then
=Space(15)&
s2=StrDup(2+(i-7)*3,"
=Space((11-i)*3)&
s2&
难题2.2
ublicClassForm1
Dims1,x,jAsInteger
StaticiAsInteger
Fori=1To13
s1=Asc("
)+i-1
Forj=s1To77
=Chr(j)
="
*"
Forx=78To(91-i)
=Chr(x)
Nexti
=Space(14)&
-------------------------------------------------------------------------------------------------------
四、实验心得:
1.求阶乘和
n=Val(TextBox1.Text)
a=a*I倒着的阶层!
2/5个一行
Dimi,jAsInteger
j=j+15个一行
3.
Fori=1To10
s1=StrDup(2*i-1,"
vbCrLf☆占两字节算前面的空格
4.
Chr(Asc("
asc(字符):
给出字符的ASCII码值,十进制数
chr(数值):
返回以该数值为ASCII码的字符
5.
EndClass
5.分钟----秒
Dimtasinteger
IfAsc(e.KeyChar)=13
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 循环 结构 程序设计 答案
![提示](https://static.bingdoc.com/images/bang_tan.gif)