东大18秋学期《可视化程序设计Ⅰ》在线作业1[答案]满分答案
18秋学期《可视化程序设计Ⅰ》在线作业1-0001
试卷总分:100 得分:0
一、 单选题 (共 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)"
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."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"
