[东北大学]18秋学期《可视化程序设计Ⅰ》在线作业1(参考资料）

hezuo001

【奥鹏】[东北大学]18秋学期《可视化程序设计Ⅰ》在线作业1
试卷总分:100    得分:100
第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)"



第2题,在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
A、","
B、；
C、、
D、：



第3题,执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
A、BBBB
B、空
C、AAAA
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、"rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
B、"rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
C、"rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
D、"rivate 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的命令按钮，然后编写如下事件过程rivate 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、"语句"ut #1, , rec"将animal类型的两个数据元素写到文件中"



第20题,(10)为了把窗体上某个控件变成活动控件，应执行的操作是（ ）
A、单击窗体的边框
B、单击控件的内部
C、双击控件
D、"双击窗体