⬆️⬆️⬆️本课程2024最新同名章节期末答案⬆️⬆️

VB面向对象程序设计（山东联盟）章节测试课后答案2024秋

所有课程章节/期末均有答案,可提供word版,点击联系客服✅

5 阅读 0 评论 4 点赞

第九章单元测试

设有如下程序代码：
Private Sub Command1_Click()
  Dim Sname As String, SNo As String, Score As Single
  Open "D:Score.txt" __________ As #1
  SNo = InputBox("输入学号：")
  Sname = InputBox("输入姓名：")
  Score = Val(InputBox("输入成绩："))
  Print #1, SNo, Sname, Score
  Close #1
End Sub
以上程序的功能是，向文件D:Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是________。

答案:For Output

Visual Basic的窗体文件（.frm文件）是一个文本文件，它________。

内容已经隐藏，点击付费后查看

在一个有若干个整数的顺序文件中查找一个数（这个数从文本框中输入），找到后在标签Label1中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息
Private Sub Command1_Click()
    Dim x As Integer, n As Integer
    a = Val(Text1.Text)
    Open "file1.txt" For Input As #1
    Do While Not EOF(1)
        Input __________________
        n = n + 1
        If x = a Then
            Label1.Caption = a & "是文件中第" & n & "个数"
            Close #1
            Exit Sub
        End If
    Loop
    Close #1
    Label1.Caption = "文件中没有" & a
End Sub
要使上面的程序代码实现上述功能，在横线处应填写的是________。

内容已经隐藏，点击付费后查看

下列关于随机文件的描述中，错误的是________。

内容已经隐藏，点击付费后查看

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：
Private Type stu
  sn As String * 20
  class As String * 20
End Type
Private Sub Command1_Click()
  Dim s As stu
  Open "c:allstu.dat" For Random As #1 Len = Len(s)
  s.sn = "John"
  s.class = "Computer 2013"
  Put #1, , s
  Close #1
End Sub
则以下叙述中正确的是________。

内容已经隐藏，点击付费后查看

Print #语句的作用是________。

内容已经隐藏，点击付费后查看

以下关于文件的叙述中，错误的是________。

内容已经隐藏，点击付费后查看

以下不属于Visual Basic数据文件的是________。

内容已经隐藏，点击付费后查看

下列关于顺序文件的描述中，正确的是________。

内容已经隐藏，点击付费后查看

下列关于数据文件的描述中，错误的是________。

内容已经隐藏，点击付费后查看

下面关于文件叙述中错误的是________。

内容已经隐藏，点击付费后查看

以下关于文件的叙述中，错误的是________。

内容已经隐藏，点击付费后查看

以下关于文件的叙述中，正确的是________。

内容已经隐藏，点击付费后查看

关于随机文件，以下叙述中错误的是________。

内容已经隐藏，点击付费后查看

在Open语句中可以用Output和Append两种方式打开顺序文件，其主要区别是________。

内容已经隐藏，点击付费后查看

窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
    Open "c:f1.txt" For Input As #1
    Open "c:f2.txt" For Output As #2
    Do While Not EOF(2)
        Line Input #1, str1
        Print #2, str1
    Loop
Close
Kill "c:f1.txt"
End Sub
该程序运行时发生错误，应该进行的修改是________ 。

内容已经隐藏，点击付费后查看

设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
　　Name As String * 10
　　TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是________。

内容已经隐藏，点击付费后查看

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：
Private Sub Command1_Click()
　　Dim s1 As String， s2 As String
　　Open "c：d4.dat" For Append As #3
　　Line Input #3， s1
　　Line Input #3， s2
　　Text1.Text＝s1＋s2
　　Close
End Sub
该程序运行时有错误，应该进行的修改是________。

内容已经隐藏，点击付费后查看

窗体上有一个名称为Command1的命令按钮。其单击事件过程如下：
Private Sub Command1_Click()
    Open "c:f1.txt" For Input As #1
    Open "c:f2.txt" For Output As #2
    Do While Not EOF(1)
        Line Input #1, str1
        Print #2, str1
    Loop
    Close
End Sub
以下关于上述程序的叙述中，错误的是________。

内容已经隐藏，点击付费后查看

为了保存数据，需打开顺序文件"E:UserData.txt"，以下正确的命令是________。

内容已经隐藏，点击付费后查看

用Open语句打开文件时，如果省略"For 方式"，则该文件的存取方式是________。

内容已经隐藏，点击付费后查看

如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是________。

内容已经隐藏，点击付费后查看

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
  Dim s1 As String, s2 As String
  Open "D:data.txt" For Input As #1
  Seek #1, 5
  s1 = Input$(2, #1)
  s2 = Input$(3, #1)
  Print Seek(1)
  Close #1
End Sub
假设有磁盘文件D:data.txt，且文件足够长，当程序运行时，单击Command1，在窗体上输出的结果是________。

内容已经隐藏，点击付费后查看

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Private Sub Command1_Click()
　　Open "out.txt" For Output As #2
　　Print "Text1"
　　Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是________。

内容已经隐藏，点击付费后查看

某人编写了向随机文件中写一条记录的程序，代码如下：
Type RType
　　Name As String * 10
　　Tel As String * 20
End Type
Private Sub Command1_Click()
　　Dim p As RType
　　p.Name＝InputBox("姓名")
　　p.Tel＝InputBox("电话号")
　　Open "Books.dat" For Random As #1
　　Put #1，， p
　　Close #1
End Sub
该程序运行时有错误，修改的方法是________。

内容已经隐藏，点击付费后查看

有如下过程：
Sub proc()
    Dim ch As String
    Open "file1.txt" For Input As #1
    Open "file1_bak.txt" For Output As #2
    Do While Not EOF(1)
        ch = Input$(1, #1)
        Print #2, ch;
    Loop
    Close #1, #2
End Sub
这一过程的功能是________。

内容已经隐藏，点击付费后查看

窗体的单击事件过程如下：
Private Sub Form_Click()
    n = FreeFile
    Open "e:f1.txt" For Input As n
    Do While Not EOF(n)
        Line Input #n, str1
        Print str1
    Loop
    Close
End Sub
对于以上程序，如下叙述中错误的是________。

内容已经隐藏，点击付费后查看

为了返回或设置磁盘驱动器的名称，应使用的驱动器列表框的属性是________。

内容已经隐藏，点击付费后查看

以下说法中正确的是________。

内容已经隐藏，点击付费后查看

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
    Open "c:f1.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, str1
        List1.AddItem str1
    Loop
    Close
End Sub
对于上述程序，以下叙述中错误的是________。

内容已经隐藏，点击付费后查看

温馨提示支付 ￥3.00 元后可查看付费内容,请先翻页预览!

微信支付

点赞(4) dxwkbang

本文分类：知到答案智慧树章节答案2024秋
本文标签：VB面向对象程序设计（山东联盟）
浏览次数：5 次浏览
发布日期：2024-10-18 02:02:08

上一篇 > 模拟电子技术（山东联盟-山东科技大学）章节测试课后答案2024秋
下一篇 > 伤寒解惑九法章节测试课后答案2024秋