二级VB上机题库15.docxVIP

二级VB上机题库15

第29套

一、基本操作题

1.[10分]

参考答案：

PrivateSubCommand1_Click()

Label1.Visible=0

Text1.Visible=0

PrintText1.Text

EndSub

2.[10分]

参考答案：

PrivateSubHScroll1_Change()

Text1.FontSize=Form1.HScroll1.Value

EndSub

二、简单应用题

1.[10分]

参考答案：

PrivateSubAdd_Click()

Text1.Text=InputBox(请输入要添加的项目)

List1.AddItem?

List1.AddItemText1.Text

EndSub

PrivateSubDelete_Click()

Text1.Text=InputBox(请输入要删除的项目)

Fori=0To?

Fori=0ToList1.ListCount-1

IfList1.List(i)=?Then

IfList1.List(i)=Text1.TextThen

List1.RemoveItem?

List1.RemoveItemi

EndIf

Nexti

EndSub

2.

OptionBase1

PrivateSubSort(a()AsInteger)

DimStartAsInteger,FinishAsInteger

DimiAsInteger,jAsInteger,tAsInteger

Start=?(a)

Finish=?(a)

Fori=?To2Step-1

Forj=1To?

Ifa(j)?a(j+1)Then

t=a(j+1)

a(j+1)=a(j)

a(j)=t

EndIf

Nextj

Nexti

EndSub

PrivateSubCommand1_Click()

Dimarr1

Dimarr2(4)AsInteger

arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))

Fori=1To4

arr2(i)=CInt(arr1(i))

Nexti

Sortarr2()

Text1.Text=arr2(1)

Text2.Text=arr2(2)

Text3.Text=arr2(3)

Text4.Text=arr2(4)

EndSub[10分]

参考答案：

OptionBase1

PrivateSubSort(a()AsInteger)

DimStartAsInteger,FinishAsInteger

DimiAsInteger,jAsInteger,tAsInteger

Start=LBound(a)

Finish=UBound(a)

Fori=UBound(a)To2Step-1

Forj=1Toi-1

Ifa(j)a(j+1)Then

t=a(j+1)

a(j+1)=a(j)

a(j)=t