东师19秋学期《VB程序设计（高起专）》离线考核（纸考转离线）

作业辅导

离线考核
《VB程序设计（高起专）》
东北师范大学
作业答案联系QQ 515224986

满分100分
一、填空题（每空2分，共20分。）
1．语句PrintInt(12345.6789*100+0.5)/100的输出结果是__________。
2.在窗体上画一个文本框和一个图片框然后编写如下两个事件过程
　　PrivateSubForm_Click()　　
　　Text1.Text=&quotVB程序设计&quot　　
　　EndSub
　　PrivateSubText1_Change()　　
　　Picture1.Print&quotVBProgramming&quot　　
　　EndSub
　　程序运行后单击窗体在文本框中显示的内容是_________________而在图片框中显示的内容是_________________。
3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：
PrivateSubForm_Load_()    奥鹏作业答案
联系QQ 515224986
Open&quotd\temp\dat.txt&quot_________________
Text1.Text=&quot&quot
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
_________________
Close#1
End
Else
_________________
Text1.Text=&quot&quot
EndIf
EndSub
以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。
4.某人编写下列函数来判断a是否为素数，若是，则函数返回True；否则返回False。
Functionprime(aAsInteger)AsBoolean
DimkAsInteger，isprimeAsBoolean
Ifa&lt2Then
Isprime=False
Else
Isprime=True
k=2
DoWhilek&lta/2Andisprime
IfaModk=0Then
isprime=False
Else
k=k+1
EndIf
Loop
EndIf
prime=isprime
EndFunction
在测试时发现有1个非素数也被判断为素数，这个错判的数是_________________。
5.下列程序的功能是把文件filel.txt中重复字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。
PrivateSubCommand1_Click()
DimincharAsStringtempAsStringoutcharAsString
outchar=&quot&quot
Open&quotfile1.txt&quotForInputAs#1
Open&quotfile2.txt&quotForOutputAs#2
_________________
inchar=Input$(n1)
Fork=1Ton
temp=Mid(inchark1)
IfInStr(outchartemp)=_________________Then
outchar=outchar&amptemp
EndIf
Nextk
Print#2_________________
Close#2
Close#1
EndSub
二、判断题(正确的用“T”表示，错误的用“F”表示。每小题2分，共20分。)
()1.可获得字符ASCII码值的函数为Chr()。
()2.静态变量只能在过程中定义而不能在通用声明段中定义。
()3.命令按钮Command1的单击事件代码如下：
PrivateSubCommand1_Click()
DimIAsInteger
I=I+1
EndSub
单击按钮3次I的值为3。
()4.一个符号常量可以赋同一类型的不同值。
()5.InputBox函数可以不带参数调用，而MsgBox函数则要求至少带一个参数调用。
()6.LoadPicture是VB的一个函数，用于将指定的图片文件调入内存。
()7.各种控件的所有属性都可以在设计模式下通过属性窗口设置，也都可以在运行模式下通过程序语句进行赋值。
()8.Input#语句是从文件中读取数据项LineInput#读取的是文件中的一行而InputBox函数要求从键盘输入数据。
()9.用菜单编辑器设计菜单时顶层菜单不能加快捷键但可以在菜单标题中的字母前插入“&amp”符号来设置热键。
()10.定时器控件的时间间隔设为0或Enabled属性设为False都将停止触发Timer事件。
三、编程题（每小题30分，共60分。)
1.在名称为Form1的窗体上画一个文本框其名称为Text1在属性窗口中把文本框的MultiLine属性设置为True编写事件过程实现单击窗体时把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来然后把该文本框中的内容存入磁盘文件smtext2.txt。(文件位置在D盘的test文件夹里)。
2.已知登录界面，由两个标签（Label1、Labe12）和两个文本框（txtName、txtPassword）以及两个按钮(cmdExit、cmdOk)组成。其中，口令文本框（txtPassword）的PasswordChar属性已经设置为“*”，运行时要求输入姓名和密码，单击cmdExit按钮退出程序，单击cmdOk按钮则判断在两个文本框中输入的内容是否为“Guest”和“12345”，是则弹出消息框，显示“欢迎使用本系统！”，并将1!+2!+3!+…+10!的值作为窗体（Form1）的标题显示；否则显示“对不起，你不是本系统用户！”，写出相应的事件过程。

东北师范大学
答案联系QQ 515224986