vb程序设计教程第三版实验E.docx

vb程序设计教程第三版实验E.docx

《vb程序设计教程第三版实验E.docx》由会员分享，可在线阅读，更多相关《vb程序设计教程第三版实验E.docx（13页珍藏版）》请在冰豆网上搜索。

vb程序设计教程第三版实验E

1题

PrivateSubForm_click（）

Dima（9）AsInteger

s=0

Max=30

Min=100

Fori=0To9

Randomize

a（i）=Int（Rnd*71+30）

Ifa（i）>MaxThenMax=a（i）

Ifa（i）

s=s+a（i）

Printa（i）;

Nexti

Print

Print"Max=";Max,"Min=";Min,"Avg=";s/10

Print

EndSub

2题

PrivateSubForm_click（）

Dima（）

a=Array（56,78,98,88,76,78）

Fori=LBound（a）ToUBound（a）

PrintString（Int（a（i）/5）,"◆"）;a（i）

Print

Nexti

EndSub

3题

OptionBase1

Dima（20）AsInteger

PrivateSubCommand1_Click（）

Fori=1To20

Randomize

a（i）=Int（Rnd*101）

Picture1.Printa（i）;

Print

IfiMod4=0ThenPicture1.Print

Nexti

EndSub

PrivateSubCommand2_Click（）

Fori=1To20

SelectCasea（i）

Case0To59

n=n+1

Case60To69

b=b+1

Case70To79

c=c+1

Case80To89

d=d+1

EndSelect

Nexti

Picture2.Print"分数在0︿59的人数有";n

Picture2.Print"分数在60︿69的人数有";b

Picture2.Print"分数在70︿79的人数有";c

Picture2.Print"分数在80︿89的人数有";d

Picture2.Print"分数在90︿100的人数有";20-n-d-b-c

EndSub

PrivateSubForm_click（）

Dima（9）AsInteger

PrintTab

（2）;"排序前",

Fori=0To9

a（i）=Int（Rnd*90+10）

Printa（i）;

Nexti

Forn=0To8

nmax=n

Form=n+1To9

Ifa（m）>a（nmax）Thennmax=m

Nextm

t=a（nmax）:

a（nmax）=a（n）:

a（n）=t

Nextn

Print

PrintTab

（2）;"排序前",

Fori=0To9

Printa（i）;

Nexti

EndSub

PrivateSubForm_click（）

Dima（9）AsInteger

PrintTab

（2）;"排序前",

Fori=0To9

a（i）=Int（Rnd*90+10）

Printa（i）;

Nexti

Forn=8To0Step-1

Form=0Ton

Ifa（m）

a（m+1）=a（m）:

a（m）=t

Nextm

Nextn

Print

PrintTab

（2）;"排序前",

Fori=0To9

Printa（i）;

Nexti

EndSub

5题

DimA（3,3）,B（3,3）AsInteger

PrivateSubCommand1_Click（）

Fori=0To3

Forj=0To3

Randomize

A（i,j）=Int（Rnd*90+10）

Ifi>=jThenPicture1.PrintTab（j*5）;A（i,j）;

Nextj

Nexti

EndSub

PrivateSubCommand2_Click（）

Fori=0To3

Forj=0To3

Randomize

B（i,j）=Int（Rnd*900+100）

Ifj>=iThenPicture2.PrintTab（6*j）;B（i,j）;

Nextj

Nexti

EndSub

PrivateSubCommand3_Click（）

Fori=0To3

Forj=0To3

Ifi=jThens=s+A（i,j）:

m=m+B（i,j）

Nextj

Nexti

Picture3.Print"A数组主对角线元素和为：

";s

Picture3.Print"B数组主对角线元素和为：

";m

EndSub

6题

PrivateSubPicture1_Click（）

Dima（）

n=Val（Text1）

ReDima（1Ton,1Ton）

Fori=1Ton

Forj=1Ton

Ifi=jOrj=1Thena（i,j）=1

Ifi>jAndi>=3Andj<>1Thena（i,j）=a（i-1,j-1）+a（i-1,j）

Ifi>=jThenPicture1.PrintTab（4*j）;a（i,j）;

Nextj

Nexti

EndSub

PrivateSubForm_Load（）

List1.AddItem"Web程序设计"

List1.AddItem"多媒体技术与应用"

List1.AddItem"网络技术与应用"

List1.AddItem"软件技术技术基础"

List1.AddItem"大学计算机基础"

List1.AddItem"C/C++程序设计"

List1.AddItem"VB程序设计"

List1.AddItem"数据库技术与应用"

List1.AddItem"硬件技术基础"

EndSub

PrivateSubList1_Click（）

n=List1.ListIndex

IfList2.ListCount<=4Then

List2.AddItemList1.List（n）

List1.RemoveItemn

Else

i=MsgBox（"超过5门课，不能再选",0+64,"警告"）

EndIf

EndSub

PrivateSubList2_DblClick（）

n=List2.ListIndex

List1.AddItemList2.List（n）

List2.RemoveItemn

EndSub

PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

IfNotIsNumeric（Combo1.Text）OrMid（Combo1.Text,1,1）="."Then

MsgBox（"输入的非数字字符，请重新输入"）:

Combo1.Text=""

Else

Combo1.AddItemCombo1.Text:

Combo1.Text=""

EndIf

EndIf

EndSub

'PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）

'SelectCaseKeyAscii'不能输入小数且不能排除首位数字为0的情况且当没有输入数字时按回车键简单组合框中仍会添加空字符串

'Case48To57,13

'CaseElse

'KeyAscii=0

'EndSelect

'IfKeyAscii=13ThenCombo1.AddItemCombo1.Text:

Combo1.Text=""

'EndSub

PrivateSubCommand1_Click（）

n=Combo1.ListCount

imin=0

imax=n-1

Fori=0Ton-1

IfVal（Combo1.List（i））

IfVal（Combo1.List（i））>Val（Combo1.List（imax））Thenimax=i

Nexti

t=Combo1.List（imin）:

Combo1.List（imin）=Combo1.List（0）:

Combo1.List（0）=t

m=Combo1.List（imax）:

Combo1.List（imax）=Combo1.List（n-1）:

Combo1.List（n-1）=m

EndSub

PrivateSubForm_Load（）

Dima（）

a=Array（23,345,9,33,98,123,77,44）

Fori=0ToUBound（a）

Combo1.AddItema（i）

Nexti

EndSub

PrivateTypeworkman

ghAsLong

nameAsString*5

gzAsLong

EndType

Dima（4）Asworkman

Dimi%

PrivateSubCommand1_Click（）

Ifi>=5Then

MsgBox（"最多只能输入5个学生的成绩"）:

Text1.Text="":

Text2.Text="":

Text3.Text=""

Text1.Locked=True:

Text2.Locked=True:

Text3.Locked=True

Else

IfText1=""OrText2=""OrText3=""Then

n=MsgBox（"请认真填写职工的基本信息",0+48,"提示"）

IfText1=""ThenText1.SetFocus

IfText2=""ThenText2.SetFocus

IfText3=""ThenText3.SetFocus

Else

Witha（i）

.gh=Val（Text1）

.name=Text2

.gz=Val（Text3）

EndWith

Text1="":

Text2="":

Text3=""

i=i+1

EndIf

EndIf

EndSub

PrivateSubCommand2_Click（）

DimtAsworkman

Picture1.Cls

Picture1.AutoRedraw=True

Picture1.PrintTab（3）;"工号";Tab（12）;"姓名";Tab（22）;"工资"

Forn=0Toi-2

imax=n

Form=n+1Toi-1

Ifa（m）.gz>a（imax）.gzThenimax=m

Nextm

t=a（n）:

a（n）=a（imax）:

a（imax）=t

Nextn

Fors=0Toi-1

Witha（s）

Picture1.PrintTab

（2）;.gh;Tab（11）;.name;Tab（20）;.gz

EndWith

Nexts

EndSub