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

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

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

APPEND

append

Append

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

CLOSE

close

Close

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

statica%

staticaasinteger

Statica%

StaticaAsInteger

MsgBox函数的返回值的类型为_____。

数值型

文本框的默认属性是_____。

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层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。