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

欧阳老师

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

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

一、单选题：
1.[单选题]设a=3,b=5，则以下表达式值为真的是
    A.a＞=b And b＞10
    B.(a＞b)Or(b＞0)
    C.(a＜0)Eqv(b＞0)
    D.(-3+5＞a)And(b＞0)
    正确答案:——B——
2.[单选题]假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（ ）
    A.Txt1.MultiLine = True : Txt1.ScrollBars = 0
    B.Txt1.MultiLine = True : Txt1.ScrollBars = 3
    C.Txt1.MultiLine = False: Txt1.ScrollBars = 0
    D.Txt1.MultiLine = False Txt1.ScrollBars = 3
    正确答案:——B——
3.[单选题]下列不能打开菜单编辑器的操作是
    A.按Ctrl+E
    B.单击工具栏中的“菜单编辑器”按钮
    C.执行“工具”菜单中的“菜单编辑器”命令
    D.按Shift + Alt + M
    正确答案:——D——
4.[单选题]以下关于图片框控件的说法中，错误的是
    A.可以通过Print方法在图片框中输出文本
    B.清空图片框控件中图形的方法之一是加载一个空图形
    C.图片框控件可以作为容器使用
    D.用Stretch属性可以自动调整图片框中图形的大小
    正确答案:————
5.[单选题]可以惟一标识控件数组中的每一个控件属性的是
    A.Name
    B.Caption
    C.Index
    D.Enabled
    正确答案:————
6.[单选题]下列可以打开立即窗口的操作是
    A.Ctrl+D
    B.Ctrl+E
    C.Ctrl+F
    D.Ctrl+G
    正确答案:————
7.[单选题]阅读程序：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.出错
    正确答案:————
8.[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是
    A.7
    B.15
    C.157    易百教育

    D.538
    正确答案:————
9.[单选题]刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
    A.单选按钮
    B.图片框
    C.通用对话框
    D.文本框
    正确答案:————
10.[单选题]阅读程序：Function F(a As Integer)b = 0Static cb = b+1c = c+1f = a+b+cEnd Function
Private Sub Commandl_Click ()Dim a As Integera =2For i =1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为
    A.4 4 4
    B.4 5 6
    C.4 6 8
    D.4 7 9
    正确答案:————
11.[单选题](5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
        Private Sub Command1_Click()
                Move 500，500
        End Sub
        程序运行后，单击命令按钮，执行的操作为
    A.命令按钮移动到距窗体左边界、上边界各500的位置
    B.窗体移动到距屏幕左边界、上边界各500的位置
    C.命令按钮向左、上方向各移动500
    D.窗体向左、上方向各移动500
    正确答案:————
12.[单选题]在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub Commandl_Click( )Dim a(4,4)For i =1 To 4For j =1 To 4a(i,j) = (i-1)*3+jNext jNext iFor i =3 To 4For j =3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为
    A.6 9 7 10
    B.7 10 8 11
    C.8 11 9 12
    D.9 12 10 13
    正确答案:————
13.[单选题]关于MDI窗体不正确描述的是
    A.所有子窗体均在MDI窗体工作区，可进行排列
    B.所有子窗体的大小和位置均可以调整，并且可以移动出MDI窗体工作区
    C.所有子窗体最小化后，其图标显示在MDI窗体工作区，而不是状态栏
    D.MDI窗体和子窗体均可以有自己的菜单
    正确答案:————
14.[单选题]假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为
    A.Label1. BackStyle=0Label1.Borderstyle=0
    B.Label1.BackStyle=1Label1.Borderstyle=1
    C.Label1.BackStyle=TrueLabel1.BorderStyle=True
    D.Label1.BackStyle=FalseLabel1.Borderstyle=False
    正确答案:————
15.[单选题]在窗体中添加一个通用对话框，其名称为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"
    正确答案:————
16.[单选题]为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
    A.5
    B.500
    C.300
    D.5000
    正确答案:————
17.[单选题]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddIt
    A.Text1.Text=Combo1.List(0)
    B.Text1.Text=Combo1.List(1)
    C.Text1.Text=Combo1.List(2)
    D.Text1.Text=Combo1.List(3)
    正确答案:————
18.[单选题]在当前窗体中已经添加一公共对话框commonDialog1 ，实现打开文件保存对话框的语句
    A.commonDialog1.showsave
    B.commonDialog1.action=3
    C.commonDialog1.showopen
    D.lcommonDialog1.action=1
    正确答案:————
19.[单选题]当利用Line方法进行添加图时，以下正确的说法是（ ）
    A.有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
    B."使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线 "
    C."可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF "
    D."可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F "
    正确答案:————
20.[单选题]在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
    A."Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
    B."Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
    C."Private Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
    D."Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
    正确答案:————
奥鹏作业答案
奥鹏东北大学作业