东北师范大学 2020春 VB程序设计（高起专）（离线考核）答案.docVIP

离线考核

《VB程序设计（高起专）》

满分100分

一、填空题（每空2分，共20分。）

1．语句PrintInt(12345.6789*100+0.5)/100的输出结果是:_____12345.68_____。

2.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

PrivateSubForm_Click()

Text1.Text=VB程序设计

EndSub

PrivateSubText1_Change()

Picture1.PrintVBProgramming

EndSub

程序运行后,单击窗体,在文本框中显示的内容是_____VB程序设计__,而在图片框中显示的内容是____VBProgramming____。

3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：

PrivateSubForm_Load_()

Opend:\temp\dat.txt______ForOutputAs#1_____

Text1.Text=

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

___IfUCase(Text1.Text)=ENDThen__

Close#1

End

Else

____IfUCase(Text1.Text)=Text1.TextThen___

Text1.Text=

EndIf

EndSub

以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。

4.某人编写下列函数来判断a是否为素数，若是，则函数返回True；否则返回False。

Functionprime(aAsInteger)AsBoolean

DimkAsInteger，isprimeAsBoolean

Ifa2Then

Isprime=False

Else

Isprime=True

k=2

DoWhileka/2Andisprime

IfaModk=0Then

isprime=False

Else

k=k+1

EndIf

Loop

EndIf

prime=isprime

EndFunction

在测试时发现有1个非素数也被判断为素数，这个错判的数是_____4_______。

5.下列程序的功能是把文件filel.txt中重复字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。

PrivateSubCommand1_Click()

DimincharAsString,tempAsString,outcharAsString

outchar=

Openfile1.txtForInputAs#1

Openfile2.txtForOutputAs#2

_____n=LOF(1)______

inchar=Input$(n,1)

Fork=1Ton

temp=Mid(inchar,k,1)

IfInStr(outchar,temp)=_______0_______Then

outchar=outchartemp

EndIf

Nextk

Print#2,_____outchar_______

Close#2

Close#1

EndSub

二、判断题(正确的用“T”表示，错误的用“F”表示。每小题2分，共20分。)

(F)1.可获得字符ASCII码值的函数为Chr()。

(T)2.静态变量只能在过程中定义而不能在通用声明段中定义。

(F)3.命令按钮Command1的单击事件代码如下：

PrivateSubCommand1_Click()

DimIAsInteger

I=I+1

EndSub

单击按钮3次,I的值为3。

(F)4.一个符号常量可以赋同一类型的不同值。

(F)5.InputBox函数可以不带参数调用，而MsgBox函数则要求至少带一个参数调用。

(T)6.LoadPicture是VB的一个函数，用于将指定的图片文件调入内存。

(F)7.各种控件的所有属性都可以在设