东北大学13秋《可视化程序设计Ⅰ》在线作业答案
东北大学13秋学期《可视化程序设计Ⅰ》在线作业1试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
满分：5分
2.设组合框Combol中有3个项目，则以下能删除最后一项的语句是
A. Combol.RemoveItem Text
B. Combol.RemoveItem 2
C. Combol.RemoveItem 3
D. Combol.RemoveItem Combol.Listcount
满分：5分
3.VB窗口中缺省的度量单位为
A. Twip
B. Point
C. Pixed
D. Inch
满分：5分
4.用下面语句定义的数组的元素个数是Dim A (-3 To 5) As Integer
A. 6
B. 7
C. 8
D. 9
满分：5分
5.文件列表框的Pattern属性的作用是（ ）
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示某一类型的文件
D. 显示该路径下的文件
满分：5分
6.为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A. 5
B. 500
C. 300
D. 5000
满分：5分
7.删除ListBox对象list1最后一个列表项的可行语句
A. list1.removeitem list1.listcount
B. list1.removeitem list1.listcount -1
C. list1.deleteitem list1.listcount -1
D. list1.deleteitem list1.listcount
满分：5分
8.一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1()……End SubForm2中定义的过程Public Sub frmFunction2()……End SubmdlFunc中定义的过程：Public Sub md1Function()……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用
满分：5分
9.对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(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程序运行后，按回车键，输出结果为
A. 48 4
B. 237 1
C. 498 5
D. 498 4
满分：5分
10.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
满分：5分
11.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
B. 15 6
C. 15 15
D. 5 6
满分：5分
12.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
A. ","
B. ；
C. 、
D. ：
满分：5分
13.决定窗体有无控制菜单的属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
14.使文本框获得焦点的方法是
A. Change
B. GotFocus
C. SetFocus
D. LostFocus
满分：5分
15.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
A. TRUE
B. 2
C. 0
D. 1
满分：5分
16.以下叙述中错误的是
A. 一个工程可以包括多种类型的文件
B. Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C. 程序运行后，在内存中只能驻留一个窗体
D. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
满分：5分
17.假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor 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类型的两个数据元素写到文件中"
满分：5分
18.确定一个控件在窗体上的位置的属性是
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
满分：5分
19.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
满分：5分
20.(9)下列可以打开立即窗口的操作是（）
A. "Ctrl+D
B. "
东北大学13秋学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.设组合框Combol中有3个项目，则以下能删除最后一项的语句是
A. Combol.RemoveItem Text
B. Combol.RemoveItem 2
C. Combol.RemoveItem 3
D. Combol.RemoveItem Combol.Listcount
满分：5分
2.inputBox函数反回值的类型为
A. 数值
B. 字符串
C. 变体
D. 数值或字符串（视输入的数据而定）
满分：5分
3.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
满分：5分
4.在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A. Button
B. Button.index
C. Button.key=true
D. Button.text
满分：5分
5.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
满分：5分
6.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
A. A) For i=0 To List1.ListCount-1……
B. B) For i=0 To ListCount-1……Next
C. C) For i=1 To List1.listCount……Next
D. D) For i=1 To ListCount……Next
满分：5分
7.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1_Click()Dim city As VariantCity=Array("北京"，"上海"，"天津"，"重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
满分：5分
8.假定窗体上有一个文本框，名为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
满分：5分
9.实现MDI窗体mdiMainFrm中子窗体水平平铺的语句为
A. mdiMainFrm.arrange = 0
B. mdiMainFrm.arrange = 1
C. mdiMainFrm.arrange = 0
D. mdiMainFrm.arrange = 0
满分：5分
10.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
满分：5分
11.以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
A. 32548.5
B. "32,548.50"
C. "32,548.50"
D. "32,548.50"
满分：5分
12.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
满分：5分
13.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
14.在窗体上面一个命令按钮（其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
满分：5分
15.以下关于窗体的描述中，错误的是
A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B. 窗体的Load事件在加载窗体时发生
C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D. 窗体的Height、Width属性用于设置窗体的高和宽
满分：5分
16.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
A. TRUE
B. 2
C. 0
D. 1
满分：5分
17.关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
满分：5分
18.对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(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程序运行后，按回车键，输出结果为
A. 48 4
B. 237 1
C. 498 5
D. 498 4
满分：5分
19.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A. Value
B. Default
C. Cancel
D. Enabled
满分：5分
20.使文本框获得焦点的方法是
A. Change
B. GotFocus
C. SetFocus
D. LostFocus
东北大学13秋学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. .ocx
满分：5分
2.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
满分：5分
3.要清除组合框Combol中的所有内容，可以使用（ ）语句
A.
B. Combo1.Clear
C. Combo1.Delete
D. Combo1.Remove
满分：5分
4.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A. Cos(a+b)^2+5*exp(2)
B. Cos^2(a+b)+5*exp(2)
C. Cos(a+b)^2+5*ln(2)
D. Cos^2(a+b)+5*ln(2)
满分：5分
5.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A. 4
B. 5
C.
D. 7
满分：5分
6.(6)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是
A. TabStop
B. Enabled
C. Visible
D. TabIndex
满分：5分
7.以下能判断是否到达文件尾的函数是
A. BOF
B. LOC
C. LOF
D. EOF
满分：5分
8.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. .bmp
满分：5分
9.有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
D. 或小于15个字节
满分：5分
10.(8)下列不能打开属性窗口的操作是（）
A. "执行“视图”菜单中的“属性窗口”命令"
B. "按F4键"
C. 按Ctrl+T
D. 单击工具栏上的“属性窗口”按钮
满分：5分
11.语句Print 5/4*6\5 Mod 2的输出结果是
A. 0
B. 1
C. 2
D. 3
满分：5分
12.下列可作为Visual Basic变量名的是
A.
B. 4A
C. xy
D. constA
满分：5分
13.确定一个控件在窗体上的位置的属性是
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
满分：5分
14.(9)下列可以打开立即窗口的操作是（）
A. "Ctrl+D
B. "
C. Ctrl+E
D. Ctrl+F
E. Ctrl+G
满分：5分
15.(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A. 单选按钮
B. 图片框
C. " 通用对话框
D. "
E. 文本框
满分：5分
16.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. "BB CC DD EE"
B. A BB CCC DDD
C. B CC DD EEE
D. AA BBB CCCC DDDD
满分：5分
17.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. "Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function"
B. "Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Function"
C. "Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd Function"
D. "Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function"
满分：5分
18.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Then y = Sgn(x ^ 2)Else y = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是
A. -5
B. 25
C. 1
D. -1
满分：5分
20.下列不能打开菜单编辑器的操作是
A. 按Ctrl+E
B. 单击工具栏中的“菜单编辑器”按钮
C. 执行“工具”菜单中的“菜单编辑器”命令
D. 按Shift + Alt + M
满分：5分
页:
[1]