延边大学计算机VB期末考试试题

一个名为Pic2.gif的图形文件，要在运行期间把该文件装入一个图片框(Picture])，应执行的

语句是。

Picturel.Picture=LoadPicture(，，pic2.gif*)

picturel.picture=loadpicture(，zpic2.gif")

组合框有3种不同的类型，这3种类型是下拉式列表框、筒单组合框和o

下拉式组合框

VB6.0识别对象靠的是对象的属性。

NAME

Name

name

为了使列表框中的项目分为多列显示，需要设置的属性是O

COLUMNS

columns

Columns

当用一方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。

APPEND

append

Append

关闭所有已经打开的文件，应使用语句O

CLOSE

close

Close

如果要将变量a在过程中定义为静态的整型变量，应使用的语句是。

statica%

staticaasinteger

Statica%

StaticaAsInteger

MsgBox函数的返回值的类型为.

数值型

文本框的默认属性是。

Text

text

TEXT

标签控件的默认属性是一O

CAPTION

Caption

caption

【程序说明】窗体上已建立命令按钮Commandl(开始)、Command2(结束)和文本框Textl,

Textl中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”

命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上

输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。

PrivateSubCommand1_Click()

DimnAsByte,iAsByte,jAsByte,pAsByte

Dima(100)AsSiring*1,strlAsString,tAsString

strl=TextI.Text:n=Len(strl)

Fori=1Ton::Nexti

Fori=1Ton-1

P=i

Forj=i+1Ton

Ifa(p)>a(j)ThenNextj

Ifp<>iThent=a(i)::a(p)=t

Nexti

Fori=1Ton:Printa(i);:Nexti

Command1.Enabled二False

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Command2.Enabled=False

EndSub

【空11错误

【学生答案】

【参考答案】

False

【空2】错误

【学生答案】

【参考答案】

Date

【空3]错误

【学生答案】

【参考答案】

CommonDialogl.Color

【空4]

【学生答案】

【参考答案】

ml

【程序说明】文件c:\al.dat中存放若干个学生信息的记录(行)，按Commandl按钮后,

查找文件中姓名与输入姓名相同的记录，找到则删除该记录。

PrivateSubCommand1_Click()

DimbsAsString,csAsString

Open"c:\al.dat"ForInputAs#1

Openntemp.dat"

bs=InputBox("输入学生姓名”)

DoWhileNotEof(l)

LineInput#1,cs

ifInSlr(cs,Trim(bs))=Thenprint#2,cs

Loop

Close#1:Close#2

KillMc:\al.dat"

Name_____

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

ForOutputAs#2

【空2】错误

【学生答案】

［无］

【参考答案】

【空3］错误

【学生答案】

［无］

【参考答案】

“lemp.dal"As"c:\al.dat”

【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数

与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。

单击窗体则开始猜数，如要终止VisualBasic程序运行可以按Qrl+Break组合键。

PrivateSubForm_Click（）

DimrAsInteger,xAsInteger,iAsInteger

Randomize:r=

Fori=1To10

x=Val（InputBox（"请输入一个整数："））

IfxvrThenm=MsgBox（"太小了,请继续猜！”）

Ifx>rThenm=MsgBox（"太大了，请继续猜!"）

Ifx=rThen

Print”猜中了！共猜了“++”次"

Ifi<=5ThenPrint"太棒T!"ElsePrint"加油!

EndIf

Nexti

EndSub

【空11错误

【学生答案】

［无］

【参考答案】

【空2］错误

【学生答案】

［无］

【参考答案】

【空3］错误

【学生答案】

［无］

【参考答案】

【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；

单击“退出”按钮时将右击窗体的次数写入磁盘文件。

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,_

XAsSingle,YAsSingle)

IfButton=2Thenn=n+1:Shell

EndSub

PrivateSubCommandl_Click()

Open"C:\al.dat"For

Print#l,n:Close#1

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

DimnAsInteger

【空2］错误

【学生答案】

［无］

【参考答案】

〃C:\windows\calc.exe〃

【空3】错误

【学生答案】

［无］

【参考答案】

Output

【空4］错误

【学生答案】

［无］

【参考答案】

End

【程序说明】本程序求3〜100之间的所有素数(质数)并统计个数；同时将这些素数从

小到大依次写入顺序文件e:\dataout.txt；素数的个数显示在窗体Forml上。

PrivateSubCommand1_Click()

DimcounAsInteger,flagAsBoolean

DimtlAsInteger,t2AsInteger

coun=0

Fortl=3To100

flag=True

Fort2=2ToInt(Sqr(tl))

Ifthenflag二False

Nextt2

coun=coun+l

Write#l,tl

EndIf

Nexttl

Close#1

EndSub

【空11错误

【学生答案】

［无］

【参考答案】

Open"e:\dataout.txt"ForOutputAs#1

【空2］错误

【学生答案】

［无］

【参考答案】

tlModt2=0

【空3］错误

【学生答案】

［无］

【参考答案】

IfflagThen

【空4］

【学生答案】

［无］

【参考答案】

Printcoun

【程序说明】窗体上有两个命令按钮：Command1(显示)和Command2(退出)。下列程序运行时,

“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符”叱

组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。

PrivateSubCommand1_C1ick()

DimiAsInteger,jAsInteger

Fori=1To5

PrintSpc(5-i);

Forj=:Print"*"；:Nextj

Print

Nexti

Command1.Enabled=False

EndSub

PrivateSubCommand2_CIick()

End

EndSub

PrivateSubForm_Load()

Command1.Enabled=True

EndSub

【空1】错误

【学生答案】

［无］

【参考答案】

Int(Rnd*100)

【空2】错误

【学生答案】

［无］

【参考答案】

Str(i)

【空3】错误

【学生答案】

［无］

【参考答案】

ExitFor

【程序说明】选择形状、边框后，图片框中控件Shapel作相应变化。界面设计如图9-1所示。

PrivateSubCombol_Click()

Shape1.Shape=Combol.List()

EndSub

PrivateSubCombo2_Click()

=Combo2.List(Combo2.Listindex)

EndSub

PrivateSubForm_Load()

DimiAsInteger

Fori=0To5:Combo1.AdditemStr(i):Nexti

Fori=0To6::Nexti

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

Combo1.Listindex

【空2】错误

【学生答案】

［无］

【参考答案】

Shape1.BorderStyle

【空3］错误

【学生答案】

［无］

【参考答案】

Combo2.AddItcmStr(i)

【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，

命令按钮上显示文字“上一张”和“下一张，

运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片,

“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。

(假设在C:\Windows目录下有l.bmp、2.bmp、...、8.bmp这样8张图片)

DimnAsByte

PrivateSubCommandl_Click()

Ifn<8ThenCommand2.EnabIed=True

n=n-1

Ifn<=1ThenCommand1.Enabled=:n=1

EndSub

PrivateSubCommand2_Click()

Ifn>=1ThenCommand1.Enabled=True

Callpic

Ifn=8ThenCommand2.Enabled=False

EndSub

PrivateSubForm_Load()

n=l:Command1.Enabled=False:Image1.Picture=

EndSub

Subpic()

DimfnAsString

fn=Hc:\windows\H+Trim(str(n))+”.bmp"

Image1.Picture=

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

Callpic

【空2］错误

【学生答案】

［无］

【参考答案】

False

【空3］错误

【学生答案】

［无］

【参考答案】

n=n+1

【空4］错误

【学生答案】

［无］

【参考答案】

LoadPicture("c:'windows'1.bmp")

【空5］错误

【学生答案】

［无］

【参考答案】

LoadPicture(fn)

【程序说明】下列过程用于求一元nT次代数多项式的值。

PrivateFunctionf(_____,xAsDouble)AsDouble

DimsAsDouble,iAsInteger,tAsDouble

t=x:s=a(l)

Fori=2Ton

s=s+a(i)*t:

Nexti

EndSub

【空11错误

【学生答案】

［无］

【参考答案】

a()asdouble,nasinteger

aOAsDouble,nAsInteger

【空2］错误

【学生答案】

［无］

【参考答案】

t=t*X

【空3】年k

【学生答案】

［无］

【参考答案】

【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。各控件名称取缺省值,

控件CommandsCommand2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒

表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行

的时间(折算成小时、分钟和秒数)。

DimxAsLong

PrivateSubForm_Load()

Timerl.Interval=1000:Timer1.Enabled=False

EndSub

PrivateSubCommand1_C1ick()

Cis

x=0

EndSub

PrivateSubCommand2_Click()

DimhAsInteger,mAsInteger,sAsInteger

Timerl.Enabled=False

h=_____

m=_____

s=xMod3600Mod60

Print”运行了“+Str(h)+”小时“+Str(m)+“分”+Str(s)+"秒”

EndSub

PrivateSubTimerl_Timer()

Label1.Caption=x

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

1

【空2】错误

【学生答案】

［无］

【参考答案】

【空3］错误

【学生答案】

［无］

【参考答案】

【空4］:

【学生答案】

［无］

【参考答案】

【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间，

“显示日期”、“颜色”、“字体”和“清空”操作。ml为不可见菜单项，mil

为其子菜单(共5项，均同名，索引值依次为0,1,2,3,4)。

PrivateSubForm_Load()

Timer1.Enabled=False'锁定定时器(时间间隔已设置为1秒)

EndSub

PrivateSubmll_Click(IndexAsInteger)

SelectCaseIndex

Case0:Timerl.Enabled=True

Case1

Timerl.Enabled=:Textl.Text="日期："+

Case2

CommonDialogl.Action=3:Textl.ForeColor=

Case3

CommonDialogl.Flags=256，选择字体范围，否则出现运行错误

CommonDialog1.Action=4，打开"字体''对话框

Textl.FontBold=CommonDialogl.FontBold，用修改后的属性设置

Textl.Fontltalic=CommonDialogl.Fontltalic'文本框相应属性

Textl.FontName=CommonDialog1.FontName

Textl.FontSize=CommonDialog1.FontSize

Case4:Text1.Text=',n

EndSelect

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,

xAsSingle,yAsSingle)

IfButton=2Then,2

EndSub

PrivateSubTimerl_Timer()

Text1.Text二"时间：”+Time$

EndSub

【空11错误

【学生答案】

［无］

【参考答案】

【空2］错误

【学生答案】

［无］

【参考答案】

【空3】俳襄

【学生答案】

［无］

【参考答案】

【空4】错误

【学生答案】

［无］

【参考答案】

【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：

1)运行时标签框内的文字从窗体左边向右边移动，当标签框的

左边界超出窗体的右边界时，从窗体的左边进入窗体(尾部先

进入)。

(2)文字移动时颜色不断产生随机变化。

PrivateSubForm_Load()

Form1.WindowState=2

Timer1.Interval=100

EndSub

PrivateSubTinierl_Timer()

Label1.ForeColor=RGB(255*Rnd,255*Rnd,255*Rnd)

=Label1.Left+150

IfLabel1.Left>=Form1.WidthThen

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

【空2】错误

【学生答案】

［无］

【参考答案】

【程序说明】下列程序能在一定范围内找出所有素数，要求：文本框用来输入所要找的数的范围，

且只能先在Textl(必须大于1)输入结束后才能在Text2(必须大于Textl中的数)中输入，按回车

键表示输入结束。在Text2输入结束后，才能单击“Command1”(确定)命令按钮，并在窗体上

输出该范围内的所有素数。

以上过程可重复。

PrivateSubForm_Load()

Command1.Enabled=False:

EndSub

PrivateSubCommand1_Click()

DimnAsInteger,mAsInteger,iAsInteger,pAsInteger

n=Val(Textl.Text):m=Val(Text2.Text)

Fori=nTom

DoWhilep<=Inl(Sqr(i))

IfiModp=0ThenExitDoElsep=p+1

Loop

Ifp>Int(Sqr(i))Then

Nexti

Textl.Text=Text2.Text="”

Textl.Enabled=True:Text2.Enabled=False

Command1.Enabled=False

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

IfThen

Textl.Text

Else

Text2.Enabled=True:Text!.Enabled=False

EndIf

EndIf

EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfThen

IfVal(Text2.Text)<=Val(Textl.Text)Then

Text2.Text二"”

Else

Text2.Enabled=False

Command1.Enabled=True

EndIf

EndIf

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

【空2】错误

【学生答案】

［无］

【参考答案】

【空3］错误

【学生答案】

［无］

【参考答案】

【空4］错误

【学生答案】

［无］

【参考答案】

【空5］：

【学生答案】

［无］

【参考答案】

1

程序说明】单击窗体后输出6〜100之间所有整数的质数因子。

PrivateSubpp(kAsInteger)

DimiAsInteger

i=2

DoWhilek>1

If=0Then

Printi;

Else

i=i+1

EndIf

Loop

Print

EndSub

PrivateSubForm_Click()

Fori=6To100::Nexti

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

byval

ByVai

【空2］错误

【学生答案】

［无］

【参考答案】

kmodi

kModi

【空3］错误

【学生答案】

［无］

【参考答案】

k=k\i

【空4】错误

【学生答案】

［无］

【参考答案】

callpp(i)

Cal1pp(i)

【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。

PrivateSubcmdDel_Click()

i=0

DoWhilei<

IfListl.Selected(i)=TrueThen

Else

EndIf

Loop

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

【空21错误

【学生答案】

［无］

【参考答案】

【空3】错误

【学生答案】

［无］

【参考答案】

【程序说明】下列过程用选择法对double类型数组按值从小到大排序。

PrivateSubSort()

DimiAsInteger,jAsInteger,kAsInteger,tAsDouble

Fori=1To

k=i

Forj=i+1Ton

IfThenk=j

Nextj

t=a(i):a(i)=a(k):a(k)=t

Nexti

EndSub

【空1］错误

【学生答案】

［无］

【参考答案】

a()Asdouble

a()AsDouble

【空2)

【学生答案】

［无］

【参考答案】

n-l

【空3］错误

【学生答案】

［无］

【参考答案】

a(j)<a(k)

组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_o

下拉式组合框

如果菜单标题的某个字母前输入一个符号，那么该字母就成了热键字母。

&

关闭所有已经打开的文件，应使用语句0

CLOSE

close

Close

文本框的默认属性是o

Text

text

TEXT

如果建立菜单时在标题文本框中输入一个,那么显示时将形成一行分隔符。

在窗体上有一个命令按钮，其名称为Commandl,然后编写如下程序：

FunctionM(xAsInteger,yAsInteger)AsInteger

M=IIf(x>y,x,y)

EndFunction

PrivateSubcommand1_C1ick()

DimaAsInteger,bAsInteger

a=100

b=200

PrintM(a,b)

结果为：。

200

在程序运行中，要想使用按钮变成看得见但不可操作，则应设置_____的属性是False。

ENABLED

Enabled

enabled

InputBox函数返回值的类型为o

字符型

组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和。

下拉式组合框

为了使列表框中的项目分为多列显示，需要设置的属性是o

COLUMNS

columns

Columns

关闭所有已经打开的文件，应使用语句____O

CLOSE

close

Close

在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是。

False

FALSE

false

文本框的默认属性是____。

Text

text

TEXT

如果菜单标题的某个字母前输入一个符号，那么该字母就成了热键字母。

&

当用方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。

APPEND

append

Append

确定单选框是否选中，应访问的属性是0

value

VALUE

Value

printformat(32548.5,〃##,####.##〃)的输出结果是。

32,548.5

MsgBox函数的返回值的类型为

数值型

VB6.。识别对象靠的是对象的属性。

NAME

Name

name

如果要将变量a在过程中定义为静态的整型变量，应使用的语句是o

statica%

staticaasinteger

Statica%

StaticaAsInteger

标签控件的默认属性是____。

CAPTION

Caption

caption

设a="北京"，b="Shanghai”,则表达式LEFT(a,2)+STRING(3,"-")+LEFT(b,8)构成的字符串是

___________O

北京--Shanghai

'【程序说明】下列程序用来在窗体上输出如图4T所示的数据。

12345.

2345b

34512.

45123.

51234。

，图4-1P

'注意：不要删除'**********FILL**********,否则影响评分成绩

'去掉，填写代码。

PrivateSubForm_Click()

Dima(5,5)AsByte,iAsByte,jAsByte

Fori=1To5

Forj=1To6-i

‘**********FILL**********

a(i,j)=Nextj,i

Fori=2To5

，**********F[LL**********

Forj=To5

a(i,j)=j+i-6

Nextj,i

Fori=1To5

Forj=1To5

Printa(i,j);

Nextj

'山17TlI«1>>1>U><J<<X<>X<>X<

不不不不不不不不不不「LL不不不不不不不不不不

Nexti

EndSub

【空1】错误

【学生答案】

a(i,j)=

【参考答案】

i+j-1

j+i-1

【空2］错误

【学生答案】

Forj=_To5

【参考答案】

7-i

【空3］错误

【学生答案】

【参考答案】

print

734

1----1--------F...+(-1)，，+1n

'【程序说明】下面是一段计算数学表达式2!3!4!〃!的程序。

'注意：不要删除'**********FILL**********,否则影响评分成绩

'去掉,填写代码。

PrivateSubForm_Click()

DimnAsInteger,pAsInteger,sAsSingle,qAsInteger,iAsInteger

n=InputBox(“请输入N的值:")

s=0:p=-1:q=1

Fori=1Ton

'虫比匚TII比比必@>>3^w

不不不不不可不不不不rLL不不不不不不不不不不

P="P：q=

'个士士个士个妥个妥个士个士个士个也个士个「17T।l］.1I，个士士个妥个士个士个妥个义个士个士个丈个

S二___________

'**********FILL**********

Prints

EndSub

【空1】错误

【学生答案】

p=_P：q=

【参考答案】

q*i

【空2］错误

【学生答案】

【参考答案】

s+p*i/q

【空3］错误

【学生答案】

【参考答案】

Nexti

当程序运行时，在文本框中输入整数10,单击“显示”按钮，在图片框中显示10行的杨辉三角形,

单击“清屏”按钮时，清除图片框中显示的内容。

■卖分7.1(3回区］

1

21

331

464

5

51

61061

1510

720152171

8214

283535681

93656705(1289

84126*268436

输入行数清屏

图7-1

【空1】错误

【学生答案】

a(i)=______

【参考答案】

a(i-1)

1空2】错误

【学生答案】

a(j)=

【参考答案】

a(j)+a(j-1)

a(j-1)+a(j)

【空3】i

【学生答案】

【参考答案】

Picturel.Print

【空4］错误

【学生答案】

【参考答案】

Picturel.Cis

利用随机数生成两个矩阵A和B,A矩阵数据范围为30〜70,B矩阵数据范围为101〜

135»要求：

1、将A矩阵和B矩阵相加放入C矩阵中；

2、将A矩阵转置；

3、求C矩阵中元素最大值和下标。运行界面如图所示。

«实验7.213回区)

【空1】错误

【学生答案】

A(i,j)=Int(+30)

【参考答案】

Rnd*41

41*Rnd

【空2］错误

【学生答案】

B(i,j)=Int(+101)

【参考答案】

Rnd*35

35*Rnd

【空3］错误

【学生答案】

C(i,j);

【参考答案】

A(i,j)+B(i,j)

B(i,j)+A(i,j)

【空4]错误

【学生答案】

【参考答案】

D(i,j)=A(j,i)

【空5]

【学生答案】

max=_

【参考答案】

C(i,j)

【空6]错误

【学生答案】

nl=_______

【参考答案】

【空7]

【学生答案】

n2=_______

【参考答案】

统计输入的多行字符串中字母出现的次数(大小写不区分)，

并对出现的字母显示其出现的个数(每行显示8个)，运行界面如下图

•宾药6.3E］回区

IfyoulikeVB,youmust

输入字符串spendalotoftimeonit.

统计

【空1】错误

【学生答案】

c=UCase(._)'取一个字符，转换成大写

【参考答案】

Mid(Textl,i,1)

Mid(Textl.Text,i,1)

【空2］错误

【学生答案】

a(j)=________

【参考答案】

a(j)+1

l+a(j)

【空3］错误

【学生答案】

Picturel.Print”〃；Chr$();"=〃；a(j);

【参考答案】

j+64

64+j

【空4]

【学生答案】

col=______

【参考答案】

col+1

1+col

【空5]错误

【学生答案】

IfThenPicturel.Print

【参考答案】

colMod8=0

'【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中,

'再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

'注意：不要删除'**********FILL**********,否则影响评分成绩

'去掉,填写代码。

PrivateSubForm_Click()

Dima(30)AsByte,iAsByte,jAsByte,mAsByte

‘个士个妥个士个叱个士个士个妥个士个妥个妥］1'7TLlLI个士个士个士个妥个叱个士个士个士个士个妥

Fori=1To30:a(i)=:Nexti

Fori=1To29

‘叱士士士妥妥士叱士士匚rii士士士士士义士妥叱叱

不不不不不不下下下不rLL不不不不不不不卒不不

Forj=

Ifa(i)>a(j)Then

'**********FILL**********

m=a(i)::a(j)=m

EndIf

Nextj,i

Fori=1To30

'**********FILL**********

IfThenPrinta(i);

Nexti

EndSub

【空1】错误

【学生答案】

Fori=1To30:a(i)=:Nexti

【参考答案】

10+Int(Rnd*90)

【空2］错误

【学生答案】

Forj=_

【参考答案】

i+1To30

1+ito30

【空3］错误

【学生答案】

m=a(i)::a(j)=m

【参考答案】

a(i)=a(j)

【空4］错误

【学生答案】

IfThenPrinta(i);

【参考答案】

a(i)Mod2=1

a(i)mod200

【程序说明】下列程序求两个正整数m、n的最大公约数。

'注意：不要删除'**********FILL**********,否则影响评分成绩

'去掉,填写代码。

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger,rAsInteger

m=InputBox（〃请输入M的值：〃）：n=