东北大学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"
正确答案:————
奥鹏作业答案
奥鹏东北大学作业
页:
[1]