东师《VB程序设计（高起专）》离线考核
离线考核VB程序设计（高起专）请核对好题目后下载满分100分一、填空题（每空2分，共20分。）1语句Print Int(12345.6789*100+0.5)/100的输出结果是: _12345.68 _。2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = "VB程序设计"End SubPrivate Sub Text1_Change()Picture1.Print "VB Programming"End Sub程序运行后,单击窗体,在文本框中显示的内容是_VB程序设计_ ,而在图片框中显示的内容是_VB Programming_ 。3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load_()Open "d:tempdat.txt" _For Output As #1_ Text1.Text=""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then_ If UCase(Text1.Text)= "END" Then _ Close #1EndElse_ If UCase(Text1.Text)= Text1.Text Then_ Text1.Text=""End IfEnd Sub以上程序的功能是：在D 盘temp 文件夹下建立一个名为dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。4.某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a<2 ThenIsprime = FalseElseIsprime = Truek=2Do While k<a/2 And isprimeIf a Mod k=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1 个非素数也被判断为素数，这个错判的数是 _4_ 。5.下列程序的功能是把文件filel.txt 中重复字符去掉后(即若有多个字符相同，则只保留1 个)写入文件file2.txt。请填空。Private Sub Command1_Click( )Dim inchar As String, temp As String, outchar As Stringoutchar=""Open "file1.txt" For Input As #1Open "file2.txt" For Output As #2_ n=LOF(1)_ inchar=Input$(n,1)For k=1 To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)= _0_ Thenoutchar=outchar & tempEnd IfNext kPrint #2, _outchar_ Close #2Close #1End Sub 二、判断题(正确的用“T”表示，错误的用“F”表示。每小题2分，共20分。)( F )1. 可获得字符 ASCII 码值的函数为 Chr( )。( T )2. 静态变量只能在过程中定义而不能在通用声明段中定义。( F )3. 命令按钮 Command1 的单击事件代码如下： Private Sub Command1_Click() Dim I As Integer I=I+1 End Sub 单击按钮 3 次,I 的值为 3。( F )4. 一个符号常量可以赋同一类型的不同值。 ( F )5. InputBox 函数可以不带参数调用，而 MsgBox 函数则要求至少带一个参数调用。( T )6. LoadPicture 是 VB 的一个函数，用于将指定的图片文件调入内存。( F )7. 各种控件的所有属性都可以在设计模式下通过属性窗口设置，也都可以在运行模式下通过程序语句进行赋值。 ( T )8. Input# 语句是从文件中读取数据项, Line Input# 读取的是文件中的一行,而 InputBox 函数要求从键盘输入数据。 ( T )9. 用菜单编辑器设计菜单时, 顶层菜单不能加快捷键,但可以在菜单标题中的字母前插入“&”符号来设置热键。 ( T )10.定时器控件的时间间隔设为 0 或 Enabled 属性设为 False都将停止触发 Timer 事件。三、编程题（每小题30分，共60分。)1. 在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,编写事件过程实现单击窗体时把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。(文件位置在D盘的test文件夹里)。答：1、Private Sub Form_Click()Open "d:testsmtext1.txt" For Input As #1Do While Not EOF(1)Line Input #1, a$whole$ = whole$ + a$ + Chr(13) + Chr(10)LoopText1.Text = whole$Close #1Open "d:testsmtext2.txt" For Output As #1Print #1, text1.textClose #1End Sub2. 已知登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName 、 txt Password ）以及两个按钮(cmdExit、cmdOk) 组成。其中，口令文本框 （txtPassword ）的 PasswordChar 属性已经设置为“*”，运行时要求输入姓名和密码，单击cmdExit按钮退出程序，单击cmdOk按钮则判断在两个文本框中输入的内容是否为“Guest”和“12345”，是则弹出消息框，显示“欢迎使用本系统！”，并将1!+2!+3!+10!的值作为窗体（Form1）的标题显示；否则显示“对不起，你不是本系统用户！”，写出相应的事件过程。答：Private Sub cmdExit_Click ( )EndEnd SubPrivate Sub cmdOK_Click ( )If txtName.text = "Guest" And TxtPassword.text = "12345" ThenMsgBox "欢迎使用本系统！", vbOKOnly Sum=0For i = 1 To 10 jch = 1 For j = 1 To i jch = jch * j Next Sum = Sum + jch NextForm1.Caption=SumElse MsgBox "对不起，你不是本系统用户！", vbOKOnlyEnd IfEnd Sub
