《东大18秋学期《可视化程序设计Ⅰ》在线作业1答案》由会员分享，可在线阅读，更多相关《东大18秋学期《可视化程序设计Ⅰ》在线作业1答案（4页珍藏版）》请在金锄头文库上搜索。
1、东大18秋学期可视化程序设计在线作业1 1、B 2、D 3、D 4、D 5、C 一、单选题共20题，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)“ 正确答案是：B 2、在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（） A“,“ B； C、 D： 正确答案是：D 3、执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox(“AAAA“, “BBBB“, “, 5) ABBBB B空 CAAAA
2、D出错，不能产生信息框 正确答案是：D 4、假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属 性设置为 AText1.Alignment=1: Text1.BorderStyle=0 BText1.Alignment=2: Text1.BorderStyle=1 CText1.Alignment=1 : Text1.BorderStyle=1 DText1.Alignment=2 : Text1.BorderStyle=0 正确答案是：D 5、以下语句的输出结果是。Print Format $(32548.5,“000,000.00”) A 32548.5 B
3、“32,548.5“ C“032,548.50“ D“32,548.50“ 正确答案是：C 6、有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ） A15个字符 B15个字节 C或小于15个字符 D或小于15个字节 正确答案是：B 7、以下关于图片框控件的说法中，错误的是 A可以通过Print方法在图片框中输出文本 B清空图片框控件中图形的方法之一是加载一个空图形 C图片框控件可以作为容器使用 D用Stretch属性可以自动调整图片框中图形的大小 正确答案是：D 8、以下能判断是否到达文件尾的函数是 ABOF
4、BLOC CLOF DEOF 正确答案是：D 9、以下叙述中错误的是 A一个工程可以包括多种类型的文件 BVisual Basic应用程序既能以编译方式执行，也能以解释方式执行 C程序运行后，在内存中只能驻留一个窗体 D对于事件驱动型应用程序，每次运行时的执行顺序可以不一样 正确答案是：C 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 (
5、)For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为 A2 4 6 8 B5 6 7 8 C10 12 14 16 正确答案是：A 11、VB中工程文件 的扩展名为 Avbp Bfrm Cds Dbas 正确答案是：A 12、关于MDI窗体不正确描述的是 A所有子窗体均在MDI窗体工作区，可进行排列 B所有子窗体的大小和位置均可以调整，并且可以移动出MDI窗体工作区 C所有子窗体最小化后，其图标显示在MDI窗体工作区，而不是状态栏 DMDI窗体和子窗体均可以有自己的菜单 正确答案是：B 13、在窗体中添加一个通用对话框，其名称为Co
6、mmonDialog1，然后添加一个命令按钮。要 求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型 框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是（ ） A“Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = “allfiles(*.*)|*.*|textfiles“ & “(*.txt)|*.txt|Batchfiles(*.bat)|*.bat“CommonDialog1.FilterIndex = 1
7、CommonDialog1.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.File
8、NameEnd 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()Commo
9、nDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = “allfiles(*.*)|*.*|textfiles“ & “(*.txt)|*.txt|Batchfiles(*.bat)|*.bat“CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub“ 正确答案是：B 14、阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Privat
10、e 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运行上面的程序，单击命令按钮，输出结果为() A2 4 6 8 B5 6 7 8 C 10 12 14 16 D出错 正确答案是：A 15、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使 用的循环语句为 AA) For i=0 To List1.ListCount-1 BB) For i=0 To ListCount-1Nex
11、t CC) For i=1 To List1.listCountNext DD) For i=1 To ListCountNext 正确答案是：A 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）。为实现此功能，省略号 处的程序段应该是 AFor i=0 to 5-12tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext“ B“For i
12、=0 to 5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext“ C“For i=0 to 52tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext“ D“For i=0 to 52tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext“ 正确答案是：C 17、当一个工程含有多个窗体时，其中的启动窗体是 A启动VB时建立的窗体 B第一个添加的窗体 C最后一个添加的窗体工程属性 D在工程属性对话框中指定的窗体 正确答案是：D 18、对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(
13、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程序运行后，按回车键，输出结果为 A48 4 B237 1 C498 5 D498 4 正确答案是：C 19、假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor
14、 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类型的两个数据元素写到文件中“ 正确答案是：C 20、(10)为了把窗体上某个控件变成活动控件，应执行的操作是（ ） A单击窗体的边框 B单击控件的内部 C双击控件 D“双击窗体 正确答案是：B
