★VB程序设计(高起专).docxVIP

离线考核 《VB程序设计(高起专)〉〉 满分100分 一、填空题(每空 2分，共20分。) .语句 Print Int(12345.6789*100+0.5)/100 的输出结果是：12345.68 。 .在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程 ： Private Sub Form_Click() Textl.Text = VB 程序设计 End Sub Private Sub Text1_Change() Picture1.Print VB Programming End Sub 程序运行后，单击窗体，在文本框中显示的内容是 VB程序设计，而在图片框中显示的内容是 VB Programming 。 .在窗体上画一个文本框，名称为 Text1 ,然后编写如下程序： Private Sub Form_Load_() Open d:\temp\dat.txt For Output As #1 Text1.Text= End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If UCase(Text1.Text尸END Then Close #1 End Else If UCase(Text1.Text)= Text1.Text Then Text1.Text= End If End Sub 以上程序的功能是：在 D盘temp文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符， 每次 按回车键都把当前文本框中的内容写入文件 dat.txt ,并清除文本框中的内容：如果输入“ END,则不 写入文件，直接结束程序。请填空。 .某人编写下列函数来判断 a是否为素数，若是，则函数返回 True;否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer , isprime As Boolean If a2 Then Isprime = False Else Isprime = True k=2 Do While ka/2 And isprime If a Mod k=0 Then isprime=False Else k=k+1 End If Loop End If prime=isprime End Function 在测试时发现有1个非素数也被判断为素数，这个错判的数是 4 .下列程序的功能是把文件 filel.txt 中重复字符去掉后(即若有多个字符相同，则只保留 1个)写入文 件file2.txt 。请填空。 Private Sub Command1_Click() Dim inchar As String, temp As String, outchar As String outchar= Open file1.txt For Input As #1 Open file2.txt For Output As #2 n=LOF⑴ inchar=Input$(n,1) For k=1 To n temp=Mid(inchar,k,1) If InStr(outchar,temp)= 0 Then_ outchar=outchar temp End If Next k Print #2,outchar Close #2 Close #1 End 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