《答案-东师2020年4月《VB程序设计（高起专）》离线考核》由会员分享，可在线阅读，更多相关《答案-东师2020年4月《VB程序设计（高起专）》离线考核（6页珍藏版）》请在金锄头文库上搜索。
1、离线考核VB程序设计（高起专）（ 完整答案附后 ）满分100分一、填空题（每空2分，共20分。）1语句Print Int(12345.6789*100+0.5)/100的输出结果是: _。2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = VB程序设计End SubPrivate Sub Text1_Change()Picture1.Print VB ProgrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是_ ,而在图片框中显示的内容是_ 。3.在窗体上画一个文本框，名称为Text1
2、，然后编写如下程序：Private Sub Form_Load_()Open d:tempdat.txt _ Text1.Text=End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then_ Close #1EndElse_ Text1.Text=End IfEnd Sub以上程序的功能是：在D 盘temp 文件夹下建立一个名为dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。
3、4.某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a2 ThenIsprime = FalseElseIsprime = Truek=2Do While ka/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_ inchar=Input$(n,1)For k=1 To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)= _ T
5、henoutchar=outchar & tempEnd IfNext kPrint #2, _ Close #2Close #1End Sub 二、判断题(正确的用“T”表示，错误的用“F”表示。每小题2分，共20分。)( )1. 可获得字符 ASCII 码值的函数为 Chr( )。( )2. 静态变量只能在过程中定义而不能在通用声明段中定义。( )3. 命令按钮 Command1 的单击事件代码如下： Private Sub Command1_Click() Dim I As Integer I=I+1 End Sub 单击按钮 3 次,I 的值为 3。( )4. 一个符号常量可以赋同一类
6、型的不同值。 ( )5. InputBox 函数可以不带参数调用，而 MsgBox 函数则要求至少带一个参数调用。( )6. LoadPicture 是 VB 的一个函数，用于将指定的图片文件调入内存。( )7. 各种控件的所有属性都可以在设计模式下通过属性窗口设置，也都可以在运行模式下通过程序语句进行赋值。 ( )8. Input# 语句是从文件中读取数据项, Line Input# 读取的是文件中的一行,而 InputBox 函数要求从键盘输入数据。 ( )9. 用菜单编辑器设计菜单时, 顶层菜单不能加快捷键,但可以在菜单标题中的字母前插入“&”符号来设置热键。 ( )10.定时器控件的时
7、间间隔设为 0 或 Enabled 属性设为 False都将停止触发 Timer 事件。三、编程题（每小题30分，共60分。)1. 在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,编写事件过程实现单击窗体时把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。(文件位置在D盘的test文件夹里)。2. 已知登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName 、 txt Password ）以及两个按钮(cmdExi
8、t、cmdOk) 组成。其中，口令文本框 （txtPassword ）的 PasswordChar 属性已经设置为“*”，运行时要求输入姓名和密码，单击cmdExit按钮退出程序，单击cmdOk按钮则判断在两个文本框中输入的内容是否为“Guest”和“12345”，是则弹出消息框，显示“欢迎使用本系统！”，并将1!+2!+3!+10!的值作为窗体（Form1）的标题显示否则显示“对不起，你不是本系统用户！”，写出相应的事件过程。温馨提示： 复制后面的答案到你的原卷答案区：离线考核VB程序设计（高起专）满分100分一、填空题（每空2分，共20分。）1语句Print Int(12345.6789*
9、100+0.5)/100的输出结果是: _12345.68_。2. 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = VB程序设计End SubPrivate Sub Text1_Change()Picture1.Print VB ProgrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是_ VB程序设计_,而在图片框中显示的内容是_ VB Programming3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load_()Open d:te
10、mpdat.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 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件
11、dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。4.某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As BooleanIf a2 ThenIsprime = FalseElseIsprime = Truek=2Do While ka/2 And isprimeIf a Mod k=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=ispr
12、imeEnd 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
13、)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(F )。( 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# 读取的是文
