VB 过程Word文件下载.docx

VB 过程Word文件下载.docx

《VB 过程Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB 过程Word文件下载.docx（14页珍藏版）》请在冰点文库上搜索。

请在窗体的合适位置写上你的姓名和学号（以后所有实验均有此要求）

1．完成实践教材实验6“三、实验内容”的题。

2．进入10.22.98.189\edu课程网站，并将此实验报告和代码文件一起打包压缩交到课程作业相应处，请务必在作业有效期内上交。

附部分原代码

P81

PrivateSubButton1_Click（…）HandlesButton1.Click

Dimx%,y%,z%

x=TextBox1.Text

y=TextBox2.Text

Callproc（x,y,z）

TextBox3.Text&

=x&

"

和"

&

y&

的最大公约数是"

z&

vbCrLf

EndSub

Subproc（ByVala%,ByValb%,ByRefs%）

‘请编写过程

P82

Subproc（ByValsAsString）

s=s&

InputBox（"

请输入你的姓名：

）

Label1.Text&

="

过程调用时，变量s的值为：

&

s&

EndSub

Subproc1（ByRefs1AsString）

s1=s1&

Label1.Text&

过程调用时，变量s1的值为：

s1&

EndSub

三、实验步骤及结果：

（实验结果截图，代码拷贝过来。

1/容易题1

PublicClassForm1

Do

s=aModb

a=b

b=s

LoopWhiles<

>

0Andb<

0

s=a

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

End

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Dimx%,y%,z%,x0%,y0%

x0=Val（TextBox1.Text）

y0=Val（TextBox2.Text）

x=x0

y=y0

Callproc（x,y,z）

=x0&

"

y0&

EndClass

2/容易题2

Functionjudge（ByValx%）AsString

IfxMod2=0Then

judge="

True"

Else

False"

EndIf

EndFunction

TextBox1.Text="

TextBox2.Text="

TextBox1.Focus（）

Dimx%

x=Val（TextBox1.Text）

TextBox2.Text=judge（x）

EndClass中等题1

Functionf%（ByValn%）

Dimi%

f=1

Fori=1Ton

f*=i

Next

Dimx%,y%,s%

Fory=1Tox

s=s+f（y）

Label2.Text="

S=1!

+2!

+3!

+……+"

x&

!

="

TextBox2.Text=s

中等题2

Dimmax%

Subprocmax（ByRefs（）AsInteger,ByRefmaxs%,ByRefx%）

maxs=1

Fori=0Tox

Randomize（）

s（i）=Int（Rnd（）*（99-1+1）+1）

TextBox1.Text&

=s（i）&

Space

（2）

Ifs（i）>

maxsThenmaxs=s（i）

Dima（9）AsInteger

Callprocmax（a,max,9）

TextBox2.Text=max

中等题3

Functionprime（ByValm%）AsString

DimtagAsBoolean

Tag=True

Fori=2Tom-1

If（mModi）=0Then

tag=False

ExitFor

Iftag=TrueThen

Returnm&

是素数"

不是素数"

TextBox2.Text=prime（x）

中等题4

Subproc（ByValsAsString）'

按值传递

s=s&

Label1.Text&

Subproc1（ByRefs1AsString）'

按地址

s1=s1&

DimaAsString

a="

你好"

传值调用：

过程调用前，变量s的值为：

a&

Callproc（a）

过程调用后，变量s的值为：

vbCrLf&

Dima1AsString

a1="

传地址调用：

过程调用前，变量s1的值为：

a1&

Callproc1（a1）

过程调用后，变量s1的值为：

难题1

Functionprime（ByValm%）AsBoolean

Forx=2Tom-1

IfmModx=0Then

Ifx=mThen

prime=True

PrivateSubListBox1_SelectedIndexChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesListBox1.SelectedIndexChanged

ListBox1.Text="

Dima%,j%,k%

Fora=6To100Step2

Forj=3Toa/2

Ifprime（j）=TrueThen

Ifprime（a-j）=TrueThen

k=k+1

ListBox1.Items.Add（a&

j&

+"

（a-j））

Label1.Text="

6到之间有"

k&

对素数和"

四、实验心得：

1/定义数组

Fori=0Tox

Callprocmax（a,max,9）x=9“要求出10个元素

难题1验证歌德巴赫猜想

教师评语：