东北大学16春学期《可视化程序设计Ⅰ》在线作业参考答案
东北大学16春学期《可视化程序设计Ⅰ》在线作业1一、单选题：
1.以下叙述中错误的是 (满分:5)
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
2.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是( ) (满分:5)
A. "F=""c
3.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1Click( )a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub FormmLoad( )Text1 Text=""Text2 Text=""End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321 (满分:5)
\filel.txt""Open ""F"" For Input As # 2"
B. "Open ""c
4.以下能够正确计算n!的程序是 (满分:5)
\filel.txt"" For Output As # 2"
C. Open c
5.以下关于图片框控件的说法中，错误的是 (满分:5)
\filel.txt For Input As # 1
D. Open c
6.使文本框获得焦点的方法是 (满分:5)
\filel.txt For Input As # 1
7.当利用Line方法进行添加图时，以下正确的说法是( ) (满分:5)
A. 444
B. 321123
C. 123321
D. 132231
8.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置 (满分:5)
A. Private Sub Command1Click( )n=5
9.关于记录操作的说明错误的 (满分:5)
x=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
B. Private Sub Command1Click( )n=5
10.以下程序的输出结果是Option Base 1Private Sub Command1Click( )Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next IFor i=1 To 3k=k+p(i)*2Next iPrint kEnd sub (满分:5)
x=1
11.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1Click( ) For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 (满分:5)
i=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
C. Private Sub Command1Click( )n=5
12.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是 (满分:5)
x=1
13.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是( ) (满分:5)
i=1Dox=x*ii=i+1Loop While i<=nPrint xEnd Sub
D. Private Sub Command1Click( )n=5
14.定时器的Interval属性以( )为单位指定Timer事件之间的时间间隔 (满分:5)
x=1
15.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 (满分:5)
i=1Dox=x*ii=i+1Loop While i>nPrint xEnd Sub
16.窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1Click( )For I=1 To 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 (满分:5)
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
C. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
17.在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是( ) (满分:5)
A. Change
B. GotFocus
C. SetFocus
D. LostFocus
18.以下关于变量作用域的叙述中，正确的是 (满分:5)
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 "
19.一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1( )……End SubForm2中定义的过程Public Sub frmFunction2( )……End SubmdlFunc中定义的过程：Public Sub md1Function( )……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以 (满分:5)
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
20.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private x As IntegerPrivate Sub Command1Click( )Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 (满分:5)
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
16春学期《可视化程序设计Ⅰ》在线作业2
一、单选题：
1.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( ) (满分:5)
A. "
"
B. ；
C. 、
D. ：
2.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是( ) (满分:5)
A.
B. "F=""c
3.对窗体编写如下代码：Option Base 1Private Sub FormKeyPress(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程序运行后，按回车键，输出结果为 (满分:5)
\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c
4.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是( ) (满分:5)
\filel.txt"" For Output As # 2"
D. Open c
5.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 (满分:5)
\filel.txt For Input As # 1
6.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 (满分:5)
A. 48 4
B. 237 1
C. 498 5
D. 498 4
7.以下语句的输出结果是。Print Format $(32548.5,“000,000.00”) (满分:5)
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C. 当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D. 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
8.假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是( ) (满分:5)
A. 单选按钮
B. 图片框
C. 通用对话框
D. 文本框
9.以下能判断是否到达文件尾的函数是 (满分:5)
A. ") Private Sub Command1Click( ) x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End SubFunction F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"
B. "Private Sub Command1Click( ) x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function"
C. "Private Sub Command1Click( ) x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function "
D. "Private Sub Command1Click( ) x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
10.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 (满分:5)
A. 32548.5
B. "32
548.50"
C. "032
548.50"
D. "32
548.50"
11.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1Click( ) n = Val(Text1.Text) If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; nEnd SubPublic Function f1(ByRef x) x=x*x f1=x+xEnd FunctionPublic Function f2(ByVal x) x= (满分:5)
A. 选择图片框，然后按Del键
B. 执行语句Picture1=LoadPicture(“”)
C. 执行语句Picture1.parent=””
D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键
12.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1Click( )s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是 (满分:5)
A. BOF
B. LOC
C. LOF
D. EOF
13.阅读程序：Sub subP(b( ) As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub CommandlClick( )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运行上面的程序，单击命令按钮，输出结果为( ) (满分:5)
A. “text(.txt)|(*.txt)”
B. “文本文件( .txt) |(.txt)”
C. “text(.txt)( )(*.txt)”
D. “text(.txt)(*.txt)”
14.设有语句Open"c:\Test.Dat"For Output As#1则以下错误的叙述是 (满分:5)
A. 7236
B. 10836
C. 726
D. 1086
15.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是 (满分:5)
A. 1
B. 5
C. 27
D. 45
16.关于数据控件的描述中不正确的是 (满分:5)
A. 2 4 6 8
B. 5 6 7 8
C. 10 12 14 16
D. 出错
17.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是( ) (满分:5)
A. 该语句打开C盘根目录下一个已存在的文件Test.Dat
B. 该语句在C盘根目录下建立一个名为Test.Dat的文件
C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息
18.以下Case语句中错误的是 (满分:5)
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
19.在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1Click( )x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 (满分:5)
A. 数据控件通过RecordSource属性获得数据库信息
B. 数据控件通过RecordType属性设置记录集类型
C. 数据控件通过Exclusive属性为True实现对数据库的共享访问
D. 数据控件通过readonly属性决定是否按只读方式打开数据库
20.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 (满分:5)
A.
B. Name
C. Text
D. Value
16春学期《可视化程序设计Ⅰ》在线作业3
一、单选题：
1.在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub CommandlClick( )Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是 (满分:5)
A. 4321
B. 12
C. 34
D. 1234
2.窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是 (满分:5)
A. Private Sub Command1Click( ) Command2.Visible=True
3.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click( )For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是 (满分:5)
Command3.Enabled=TrueEnd Sub
B. Private Sub Command1Click( ) Command2.Visible=False
4.在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub FormClick( )List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub FormLoad( )List1.AddItem "AA"List1.AddItem "BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的内 (满分:5)
Command3.Enabled=False End Sub
C. Private Sub Command1Click( ) Command2.Enable=True
5.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1Click( ) c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为 (满分:5)
Command3.Visible=FalseEnd Sub
D. Private Sub Command1Click( ) Command2.Enabled=False
6.使文本框获得焦点的方法是 (满分:5)
Command3.Visible=False End Sub
7.假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为( ) (满分:5)
A. 7
B. 15
C. 157
D. 538
8.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是 (满分:5)
A. AABB
B. DDEE
C. AACC
D. BBCC
9.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click( ) Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为 (满分:5)
A. "Right(c1
i)"
B. "Left(c1
i)"
C. "Mid(c1
i
1)"
D. "Mid(c1
i
i)"
10.(2)以下叙述中正确的是 (满分:5)
A. Change
B. GotFocus
C. SetFocus
D. LostFocus
11.假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是( ) (满分:5)
A. Txt1.MultiLine = True
12.(9)下列可以打开立即窗口的操作是( ) (满分:5)
Txt1.ScrollBars = 0
B. Txt1.MultiLine = True
13.以下叙述中错误的是 (满分:5)
Txt1.ScrollBars = 3
C. Txt1.MultiLine = False
14.设组合框Combol中有3个项目，则以下能删除最后一项的语句是 (满分:5)
Txt1.ScrollBars = 0
D. Txt1.MultiLine = False Txt1.ScrollBars = 3
15.为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为( ) (满分:5)
A. Drive1Change
B. Drive1Click
C. Dir1Click
D. Dir1Change
16.为了使标签中的内容居中显示，应把Alignment属性设置为 (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
17.设a=“Visual Basic”，下面使b=“Basic”的语句是 (满分:5)
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
18.如果在立即窗口中执行以下操作：a=8 (是回车键，下同)b=9 print a>b 则输出结果是 (满分:5)
A. 选择图片框，然后按Del键
B. 执行语句Picture1=LoadPicture(“”)
C. 执行语句Picture1.parent=””
D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键
19.当利用Line方法进行添加图时，以下正确的说法是( ) (满分:5)
A. "Ctrl+D
B. "
C. Ctrl+E
D. Ctrl+F
E. Ctrl+G
20.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 (满分:5)
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C. 程序运行过程中，可以重新设置菜单的Visible属性
D. 弹出式菜单也在菜单编辑器中定义
页:
[1]