东北大学13春《可视化程序设计Ⅰ》在线作业答案
东北大学13春学期《可视化程序设计Ⅰ》在线作业1试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为
A. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
满分：5分
2.以下叙述中错误的是
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B. Sub过程中不能嵌套定义Sub过程
C. Sub过程中可以嵌套调用Sub过程
D. 事件过程可以像通用过程一样由用户定义过程名
满分：5分
3.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
满分：5分
4.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. .bmp
满分：5分
5.确定一个控件在窗体上的位置的属性是
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
满分：5分
6.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next iEnd Sub该事件过程的功能是
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
满分：5分
7.(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
满分：5分
8.关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
满分：5分
9.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
A. 2
B. 3
C. 4
D.
满分：5分
10.假定窗体上有一个文本框，名为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分
11.设置图片框pic1大小随所加载图像大小变化的正确语句是
A. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
满分：5分
12.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
13.实现MDI窗体mdiMainFrm中子窗体水平平铺的语句为
A. mdiMainFrm.arrange = 0
B. mdiMainFrm.arrange = 1
C. mdiMainFrm.arrange = 0
D. mdiMainFrm.arrange = 0
满分：5分
14.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
15.若有如下定义：Dim fs As New FileSystemObject, f As File现在要引用C盘根目录下存放的文件text.txt，可以使用的代码是（ ）
A. f=fs.GetFile(“c:\text.txt”)
B. Set f=fs.GetFile(“c:\text.txt”)
C. f=fs.GetFile(“text.txt”)
D. Set f=fs.GetFile(“text.txt”)
满分：5分
16.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A. 0
B. 12
C. Str(z)
D. 没有显示
满分：5分
17.如果在立即窗口中执行以下操作：a=8 <CR> (<CR>是回车键，下同)b=9 <CR>print a>b <CR>则输出结果是
A. -1
B. 0
C. FALSE
D. TRUE
满分：5分
18.以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
A. 32548.5
B. "32,548.50"
C. "32,548.50"
D. "32,548.50"
满分：5分
19.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
满分：5分
20.定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
东北大学13春学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A. 5
B. 500
C. 300
D. 5000
满分：5分
2.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A. 4
B. 5
C.
D. 7
满分：5分
3.以下关于图片框控件的说法中，错误的是
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
C. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
满分：5分
4.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
满分：5分
5.设a=“Visual Basic”，下面使b=“Basic”的语句是
A. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
C. "b=Rigth(a,5,5)"
D. "b=Left(a,8,5)"
满分：5分
6.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运
A. 15
B. 14
C. 13
D. 12
满分：5分
7.定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
B. 秒
C. 毫秒
D. 微秒
满分：5分
8.有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
D. 或小于15个字节
满分：5分
9.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
满分：5分
10.在窗体上画两个名称分别为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分
11.执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
A. BBBB
B. 空
C. AAAA
D. 出错，不能产生信息框
满分：5分
12.在窗体上画两个名称分别为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分
13.在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()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，则输出结果为
A. 2
B. 3
C. 14
D. 15
满分：5分
14.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5分
15.在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) PrintC;D End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
满分：5分
16.关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
满分：5分
17.在窗体上画一个名称为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"
满分：5分
18.文件列表框的Pattern属性的作用是（ ）
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示某一类型的文件
D. 显示该路径下的文件
满分：5分
19.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
A. “text (.txt)|(*.txt)”
B. “文本文件( .txt) | (.txt)”
C. “text(.txt)||(*.txt)”
D. “text(.txt)(*.txt)”
满分：5分
20.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮
A. 5和3
B. 25和3
C. 25和6
D. 5和6
东北大学13春学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.确定一个控件在窗体上的位置的属性是
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
满分：5分
2.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
A.
B. Name
C. Text
D. Value
满分：5分
3.设置图片框pic1大小随所加载图像大小变化的正确语句是
A. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
满分：5分
4.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为
A. MenuItem. Enabled=False
B. MenuItem. Enabled=True
C. MenuItem. Visible=True
D. Menultem. Visible=False
满分：5分
5.定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
B. 秒
C. 毫秒
D. 微秒
满分：5分
6.对窗体编写如下代码：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分
7.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5分
8.以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
满分：5分
9.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
满分：5分
10.以下关于图片框控件的说法中，错误的是
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
C. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
满分：5分
11.语句Print 5/4*6\5 Mod 2的输出结果是
A. 0
B. 1
C. 2
D. 3
满分：5分
12.下列叙述中正确的是
A. 在窗体的Form_Load事件过程中定义的变量是全局变量
B. 局部变量的作用域可以超出所定义的过程
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
满分：5分
13.设a=“Visual Basic”，下面使b=“Basic”的语句是
A. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
C. "b=Rigth(a,5,5)"
D. "b=Left(a,8,5)"
满分：5分
14.下列叙述不正确的是（）
A. 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
B. 驱动器列表框的Drive属性只能在运行时被设置
C. 从驱动器列表框中选择驱动器能自动变更系统当前的工作驱动器
D. 要改变系统当前的工作驱动器需要使用ChDrive语句
满分：5分
15.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub运行上面的程序，单击命令按钮，其输出结果是
A. 4321
B. 1234
C. 34
D. 12
满分：5分
16.以下能够正确计算n!的程序是
A. Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
B. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
C. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<=nPrint xEnd Sub
D. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i>nPrint xEnd Sub
满分：5分
17.(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A. 单选按钮
B. 图片框
C. " 通用对话框
D. "
E. 文本框
满分：5分
18.以下叙述中错误的是
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B. 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C. KeyPress事件中不能识别键盘上某个键的按下与释放
D. KeyPress事件中可以识别键盘上某个键的按下与释放
满分：5分
19.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. ") Private Sub Command1_Click() x=InputBox(“请输入整数”) a=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"
B. "Private Sub Command1_Click() 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 Command1_Click() 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 Command1_Click() 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
满分：5分
20.为了把窗体上某个控件变成活动控件，应执行的操作是
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. 双击窗体
满分：5分
D. 微秒
满分：5分
页:
[1]