东北大学19春学期《可视化程序设计Ⅰ》在线作业1（含答案）

奥鹏作业答案

19春学期《可视化程序设计Ⅰ》在线作业1

奥鹏作业答案
奥鹏东北大学作业

一、单选题：
1.[单选题]设a=“Visual Basic”，下面使b=“Basic”的语句是
    A."b=Left(a,8,12) "
    B." b=Mid(a,8,5)"
    C."b=Rigth(a,5,5)"
    D."b=Left(a,8,5)"
    正确答案:——B——
2.[单选题]在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
    A.","
    B.；
    C.、
    D.：
    正确答案:——D——
3.[单选题]执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
    A.BBBB
    B.空
    C.AAAA
    D.出错，不能产生信息框
    正确答案:——D——
4.[单选题]假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为
    A.Text1.Alignment=1: Text1.BorderStyle=0
    B.Text1.Alignment=2: Text1.BorderStyle=1
    C.Text1.Alignment=1 : Text1.BorderStyle=1
    D.Text1.Alignment=2 : Text1.BorderStyle=0
    正确答案:————
5.[单选题]以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
    A. 32548.5
    B."32,548.5"
    C."032,548.50"
    D."32,548.50"
    正确答案:————
6.[单选题]有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
    A.15个字符
    B.15个字节
    C.或小于15个字符
    D.或小于15个字节
    正确答案:————
7.[单选题]以下关于图片框控件的说法中，错误的是
    A.可以通过Print方法在图片框中输出文本
    B.清空图片框控件中图形的方法之一是加载一个空图形    易百教育

    C.图片框控件可以作为容器使用
    D.用Stretch属性可以自动调整图片框中图形的大小
    正确答案:————
8.[单选题]以下能判断是否到达文件尾的函数是
    A.BOF
    B.LOC
    C.LOF
    D.EOF
    正确答案:————
9.[单选题]以下叙述中错误的是
    A.一个工程可以包括多种类型的文件
    B.Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
    C.程序运行后，在内存中只能驻留一个窗体
    D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
    正确答案:————
10.[单选题]阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为
    A.2 4 6 8
    B.5 6 7 8
    C.10 12 14 16
    正确答案:————
11.[单选题]VB中工程文件 的扩展名为
    A.vbp
    B.frm
    C.ds
    D.bas
    正确答案:————
12.[单选题]关于MDI窗体不正确描述的是
    A.所有子窗体均在MDI窗体工作区，可进行排列
    B.所有子窗体的大小和位置均可以调整，并且可以移动出MDI窗体工作区
    C.所有子窗体最小化后，其图标显示在MDI窗体工作区，而不是状态栏
    D.MDI窗体和子窗体均可以有自己的菜单
    正确答案:————
13.[单选题]在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是（ ）
    A."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    B."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    C."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    D."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    正确答案:————
14.[单选题]阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为()
    A.2 4 6 8
    B.5 6 7 8
    C. 10 12 14 16
    D.出错
    正确答案:————
15.[单选题]在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
    A.A) For i=0 To List1.ListCount-1……
    B.B) For i=0 To ListCount-1……Next
    C.C) For i=1 To List1.listCount……Next
    D.D) For i=1 To ListCount……Next
    正确答案:————
16.[单选题]设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程Private Sub Command1_Click()Static b As Variantb=Array(1,3,5,7,9)……End Sub此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是
    A.For i=0 to 5-1\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
    B."For i=0 to 5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
    C."For i=0 to 5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
    D."For i=0 to 5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
    正确答案:————
17.[单选题]当一个工程含有多个窗体时，其中的启动窗体是
    A.启动VB时建立的窗体
    B.第一个添加的窗体
    C.最后一个添加的窗体工程属性
    D.在工程属性对话框中指定的窗体
    正确答案:————
18.[单选题]对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)＞ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为
    A.48 4
    B.237 1
    C.498 5
    D.498 4
    正确答案:————
19.[单选题]假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "C
    A.记录类型animal不能在Form1中定义，必须在标准模块中定义
    B.如果文件c:\vbTest.dat不存在，则Open命令执行失败
    C.由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
    D."语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
    正确答案:————
20.[单选题](10)为了把窗体上某个控件变成活动控件，应执行的操作是（ ）
    A.单击窗体的边框
    B.单击控件的内部
    C.双击控件
    D."双击窗体
    正确答案:————
奥鹏作业答案
奥鹏东北大学作业