延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx

延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx

《延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx（45页珍藏版）》请在冰豆网上搜索。

数值型

文本框的默认属性是_____。

Text

text

TEXT

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

CAPTION

Caption

caption

【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，

Text1中输入字符个数不得超过100个。

开始运行时，“结束”命令按钮不能响应；

按“开始”

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

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

PrivateSubCommand1_Click（）

DimnAsByte,iAsByte,jAsByte,pAsByte

Dima（100）AsString*1,str1AsString,tAsString

str1=Text1.Text:

n=Len（str1）

Fori=1Ton:

_____:

Nexti

Fori=1Ton-1

p=i

Forj=i+1Ton

Ifa（p）>

a（j）Then_____Nextj

Ifp<

>

iThent=a（i）:

a（p）=t

Printa（i）;

:

_____

Command1.Enabled=False

EndSub

PrivateSubCommand2_Click（）

End

PrivateSubForm_Load（）

Command2.Enabled=False

【空1】错误

【学生答案】

【参考答案】

False

============================================================

【空2】错误

Date

【空3】错误

CommonDialog1.Color

【空4】错误

m1

【程序说明】文件c:

\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，

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

DimbsAsString,csAsString

Open"

c:

\a1.dat"

ForInputAs#1

temp.dat"

bs=InputBox（"

输入学生姓名"

DoWhileNotEof

（1）

LineInput#1,cs

ifInStr（cs,Trim（bs））=_____Thenprint#2,cs

Loop

Close#1:

Close#2

Kill"

Name_____

[无]

ForOutputAs#2

"

As"

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

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

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

PrivateSubForm_Click（）

DimrAsInteger,xAsInteger,iAsInteger

Randomize:

r=_____

Fori=1To10

x=Val（InputBox（"

请输入一个整数：

））

Ifx<

rThenm=MsgBox（"

太小了，请继续猜！

Ifx>

太大了，请继续猜！

Ifx=rThen

Print"

猜中了！

共猜了"

+_____+"

次"

Ifi<

=5ThenPrint"

太棒了！

ElsePrint"

加油！

EndIf

1

【程序说明】右击窗体则打开Windows自带的计算器“C:

\windows\calc.exe”；

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

_____

PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,_

XAsSingle,YAsSingle）

IfButton=2Thenn=n+1:

Shell_____

C:

For_____

Print#1,n:

Close#1

DimnAsInteger

\windows\calc.exe"

Output

End

【程序说明】本程序求3～100之间的所有素数（质数）并统计个数；

同时将这些素数从

小到大依次写入顺序文件e:

\dataout.txt；

素数的个数显示在窗体Form1上。

DimcounAsInteger,flagAsBoolean

Dimt1AsInteger,t2AsInteger

coun=0

Fort1=3To100

flag=True

Fort2=2ToInt（Sqr（t1））

If_____thenflag=False

Nextt2

coun=coun+1

Write#1,t1

Nextt1

Open"

e:

\dataout.txt"

ForOutputAs#1

t1Modt2=0

IfflagThen

Printcoun

【程序说明】窗体上有两个命令按钮：

Command1（显示）和Command2（退出）。

下列程序运行时，

“显示”按钮能响应，“退出”按钮不能响应；

单击“显示”按钮后，在窗体上显示一个用字符“*”

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

DimiAsInteger,jAsInteger

Fori=1To5

PrintSpc（5-i）;

Forj=_____:

*"

;

:

Nextj

Print

Command1.Enabled=True

Int（Rnd*100）

Str（i）

ExitFor

【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。

界面设计如图9-1所示。

PrivateSubCombo1_Click（）

Shape1.Shape=Combo1.List（_____）

PrivateSubCombo2_Click（）

_____=Combo2.List（Combo2.ListIndex）

DimiAsInteger

Fori=0To5:

Combo1.AddItemStr（i）:

Fori=0To6:

_____:

Combo1.ListIndex

Shape1.BorderStyle

Combo2.AddItemStr（i）

【程序说明】自制一个简单的图片浏览器。

要求在窗体上建立一个影像框和两个命令按钮，

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

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

“上一张”按钮能响应。

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

（假设在C:

\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片）

DimnAsByte

Ifn<

8ThenCommand2.Enabled=True

n=n-1

=1ThenCommand1.Enabled=_____:

n=1

Ifn>

=1ThenCommand1.Enabled=True

Callpic

Ifn=8ThenCommand2.Enabled=False

n=1:

Command1.Enabled=False:

Image1.Picture=_____

Subpic（）

DimfnAsString

fn="

\windows\"

+Trim（str（n））+"

.bmp"

Image1.Picture=_____

Callpic

False

n=n+1

LoadPicture（"

\windows\1.bmp"

）

【空5】错误

LoadPicture（fn）

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

PrivateFunctionf（_____,xAsDouble）AsDouble

DimsAsDouble,iAsInteger,tAsDouble

t=x:

s=a

（1）

Fori=2Ton

s=s+a（i）*t:

a（）asdouble,nasinteger

a（）AsDouble,nAsInteger

t=t*x

f=s

【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。

各控件名称取缺省值，

控件Command1、Command2标题分别为“开始”、“结束”。

运行时，单击“开始”按钮后秒

表开始计时，并在标签上显示总秒数；

单击“结束”按钮后，计时结束，在窗体上显示出运行

的时间（折算成小时、分钟和秒数）。

DimxAsLong

Timer1.Interval=1000:

Timer1.Enabled=False

Cls

x=0

DimhAsInteger,mAsInteger,sAsInteger

h=_____

m=_____

s=xMod3600Mod60

运行了"

+Str（h）+"

小时"

+Str（m）+"

分"

+Str（s）+"

秒"

PrivateSubTimer1_Timer（）

Label1.Caption=x

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

“显示日期”、“颜色”、“字体”和“清空”操作。

m1为不可见菜单项，m11

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

Timer1.Enabled=False'

锁定定时器（时间间隔已设置为1秒）

PrivateSubm11_Click（IndexAsInteger）

SelectCaseIndex

Case0:

Timer1.Enabled=True

Case1

Timer1.Enabled=_____:

Text1.Text="

日期：

+_____

Case2

CommonDialog1.Action=3:

Text1.ForeColor=_____

Case3

CommonDialog1.Flags=256'

选择字体范围，否则出现运行错误

CommonDialog1.Action=4'

打开“字体”对话框

Text1.FontBold=CommonDialog1.FontBold'

用修改后的属性设置

Text1.FontItalic=CommonDialog1.FontItalic'

文本框相应属性

Text1.FontName=CommonDialog1.FontName

Text1.FontSize=CommonDialog1.FontSize

Case4:

Text1.Text="

EndSelect

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_

xAsSingle,yAsSingle）

IfButton=2Then_____,2

时间：

+Time$

【学生答