内蒙对口升学计算机VB模拟试题十一带答案.pdfVIP

6．题目：数据由小到大排序。窗体运行如下图。单击“产生数据”按

钮Command1，产生5个10~99之间的随机整数放入数组s，并显示

在图示的标签lblra上；单击“排序”按钮Command2，将数组排序后

的数据输出到图示的标签lblre。（要求for循环实现）

Dims(1To5)AsString

PrivateSubCommand1_Click()PrivateSubCommand1_Click()

Fori=1To5

s(i)=

lblra.Caption=lblra.CaptionStr(s(i))

Nexti

EndSub

PrivateSubCommand2_Click()PrivateSubCommand2_Click()

Fori=1To4

Min=i

Forj=

IfThenMin=j

Nextj

t=s(Min)::s(i)=t

Nexti

Fori=1To5

lblre.Caption=lblre.CaptionStr(s(i))

Nexti

EndSub

7.题目：用公式e=1+1/1！+1/2！+1/3！+…+1/n！+…，计算e

-7

的近似值，直到当前累加项小于10为止。运行界面如下图所示。单

击“计算”按钮在标签lblre中输出结果。（要求用while…wend循环）

PrivateSubCommand1_Click()

DimtAsSingle

DimiAsInteger

DimeAsSingle

t=1:i=1:e=1

DOWhile1/t=0.0000001

t=t*i

LOOP

lblre.Caption=e

EndSub

8．题目：在窗体上放置一个文本框和一个标签，并建立如下菜单：

菜单项菜单名称说明

操作（O）mnuop一级菜单

….产生随机数mnura二级菜单

….判断mnupd二级菜单

单击“产生随机数”菜单项，产生1个60～90之间的随机整数，显

示在文本框中。单击“判断”菜单项，判断该随机数能否被3整除，

判断结果显示在标签上。窗体运行如下图。

PrivateSubmnupd_Click()

IfThen

能被3整除整除

Else

不能被3整除整除

EndIf

EndSub

PrivateSubmnura_Click()

Text1.Text=

EndSub