东北大学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."双击窗体
正确答案:————
奥鹏作业答案
奥鹏东北大学作业
页:
[1]