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

hezuo001

【奥鹏】[东北大学]18秋学期《可视化程序设计Ⅰ》在线作业2
试卷总分:100    得分:100
第1题,设a=3,b=5，则以下表达式值为真的是
A、a=b And b10
B、(ab)Or(b0)
C、(a0)Eqv(b0)
D、(-3+5a)And(b0)



第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



第3题,下列不能打开菜单编辑器的操作是
A、按Ctrl+E
B、单击工具栏中的"菜单编辑器"按钮
C、执行"工具"菜单中的"菜单编辑器"命令
D、按Shift + Alt + M



第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，500End 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"