东北大学12春学期《可视化程序设计Ⅰ》在线作业1、2、3答案
东北大学12春学期《可视化程序设计Ⅰ》在线作业1一、单选题：
1. 实现MDI窗体mdiMainFrm中子窗体水平平铺的语句为 （满分：5）
A. mdiMainFrm.arrange = 0
B. mdiMainFrm.arrange = 1
C. mdiMainFrm.arrange = 0
D. mdiMainFrm.arrange = 0
2. 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "C （满分：5）
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
3. 下列叙述不正确的是() （满分：5）
A. 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
B. 驱动器列表框的Drive属性只能在运行时被设置
C. 从驱动器列表框中选择驱动器能自动变更系统当前的工作驱动器
D. 要改变系统当前的工作驱动器需要使用ChDrive语句
4. 要获得当前驱动器应使用驱动器列表框的哪个属性？( ) （满分：5）
A. Path
B. Drive
C. Dir
D. Patten
5. 设a=3,b=5，则以下表达式值为真的是 （满分：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)
6. 在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End selectEnd Sub （满分：5）
A. Button
B. Button.index
C. Button.key=true
D. Button.text
7. 有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于( ) （满分：5）
A. 15个字符
B. 15个字节
C. 或小于15个字符
D. 或小于15个字节
8. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1Click() For I=1 To 4For J=0 To 1 Print Chr$(65+I);Next JPrint Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 （满分：5）
A. "BB CC DD EE"
B. A BB CCC DDD
C. B CC DD EEE
D. AA BBB CCCC DDDD
9. 执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是 （满分：5）
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
10. 设有语句x=InputBox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是 （满分：5）
A. 变量X的值是数值10
B. 在InputBox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量X的值是字符串“10”
11. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 （满分：5）
A. Left
B. Mid
C. String
D. Instr
12. 关于记录操作的说明错误的 （满分：5）
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
13. 关于记录集的常用方法说法不正确的 （满分：5）
A. EOF属性用于获得是否到达记录集末尾
B. BOF属性用于获得是否到达记录集开始
C. AbsolutionPostion属性用于获得记录的当前位置
D. RecordCount属性用于获得精确的记录数量
14. 关于子窗体说法正确的是 （满分：5）
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
15. 若有如下定义：Dim fs As New FileSystemObject, f As File现在要引用C盘根目录下存放的文件text.txt，可以使用的代码是( ) （满分：5）
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”)
16. 设置VB窗口frm1中坐标系为 X:(-100，100)，Y：(-100，100)的方法为 （满分：5）
A. "frm1.scale(0,0)-(200,200)"
B. "frm1.scale(-100,100)-(100,-100)"
C. "frm1.scale(100,-100)-(-100,100)"
D. "frm1.scale(0,0)-(100,-100)"
17. 在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码： Private Sub Command1Click( ) Dim s As String*20 S=Text1.text …… End Sub 该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是( ) （满分：5）
A. "Open “dat1.dat” For Input As #1Write #1,SClose #1"
B. "Open “dat1.dat” For Output As #1 Write #1,S Close #1 "
C. "Open “dat1.dat” For Binary As #1 Write #1,SClose #1"
D. "Open “dat1.dat” For Random As #1 Write #1,S Close #1 "
18. 关于MDI窗体不正确描述的是 （满分：5）
A. 所有子窗体均在MDI窗体工作区，可进行排列
B. 所有子窗体的大小和位置均可以调整，并且可以移动出MDI窗体工作区
C. 所有子窗体最小化后，其图标显示在MDI窗体工作区，而不是状态栏
D. MDI窗体和子窗体均可以有自己的菜单
19. 设置图片框pic1大小随所加载图像大小变化的正确语句是 （满分：5）
A. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
20. 目录列表框的Path属性的作用是 （满分：5）
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
转载请注明奥鹏作业答案网 www.ap5u.com
东北大学12春学期《可视化程序设计Ⅰ》在线作业2
一、单选题：
1. 以下叙述中错误的是 （满分：5）
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B. 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C. KeyPress事件中不能识别键盘上某个键的按下与释放
D. KeyPress事件中可以识别键盘上某个键的按下与释放
2. 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd SubPrivate Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮 （满分：5）
A. 5和3
B. 25和3
C. 25和6
D. 5和6
3. 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1 ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是 （满分：5）
A. Enabled
B. Visible
C. Interval
D. Timer
4. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1Click()x=0n=InputBox("")For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是 （满分：5）
A. 3
B. 4
C. 5
D. 6
5. 以下叙述中错误的是 （满分：5）
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C. 程序运行过程中，可以重新设置菜单的Visible属性
D. 弹出式菜单也在菜单编辑器中定义
6. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim x As Integer,n As Integerx=1n=0Do While x窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub FormLoad()Combo1.AddIt （满分：5）
A. Text1.Text=Combo1.List(0)
B. Text1.Text=Combo1.List(1)
C. Text1.Text=Combo1.List(2)
D. Text1.Text=Combo1.List(3)
7. 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是 （满分：5）
A. 变量X、Y的作用域相同
B. Y的作用域是Model1
C. 在Form1中可以直接使用X
D. 在Form2中可以直接使用X和Y
8. 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是() （满分：5）
A. TRUE
B. 2
C. 0
D. 1
9. 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中 （满分：5）
A. 空
B. abcdef
C. abc
D. def
10. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()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程序运行后，单击命令按钮，在两个文本框中显示的值分别是 （满分：5）
A. 15和1
B. 27和3
C. 195和3
D. 600和4
11. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1Click() 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该事件过程的功能是 （满分：5）
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
12. 假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=UCase(Mid(S,i,1))+s1Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim Str1 As String,Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print St （满分：5）
A. abcdefg
B. ABCDEFG
C. gfedcba
D. GEFDCBA
13. 删除ListBox对象list1最后一个列表项的可行语句 （满分：5）
A. list1.removeitem list1.listcount
B. list1.removeitem list1.listcount -1
C. list1.deleteitem list1.listcount -1
D. list1.deleteitem list1.listcount
14. 以下关系表达式中，其值为False的是 （满分：5）
A. """ABC"">""AbC"""
B. """the""<>""they"""
C. """VISUAL""=UCase(""Visual"")"
D. """Integer"">""Int"""
15. 在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是() （满分：5）
A. ","
B. ；
C. 、
D. ：
16. 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 （满分：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
17. 在窗体上面画一个命令按钮，然后编写如下事件过程：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
18. 对窗体编写如下事件过程：Private Sub Form MouseDown(Button As Integer,Shift As Integer, X As Single Y As Single)If Button =2 ThenPrint "AAAAA"End IfEnd SubPrivate Sub FormMouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single)Print "BBBBB"End （满分：5）
A. AAAAABBBBB"
B. BBBBB
C. AAAAA
D. "BBBBBAAAAA"
19. 在窗体上画一个名称为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. 7236
B. 10836
C. 726
D. 1086
20. 语句Print 5/4*6\5 Mod 2的输出结果是 （满分：5）
A. 0
B. 1
C. 2
D. 3转载请注明奥鹏作业答案网 www.ap5u.com
东北大学12春学期《可视化程序设计Ⅰ》在线作业3
一、单选题：
1. 把焦点移到某个指定的控件，所使用的方法是 （满分：5）
A. SetFocus
B. Visible
C. Refresh
D. GetFocus
2. (10)为了把窗体上某个控件变成活动控件，应执行的操作是( ) （满分：5）
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. "双击窗体
3. VB6.0集成环境的主窗口中不包括 （满分：5）
A. 标题栏
B. 菜单栏
C. 状态栏
D. 工具栏
4. 确定一个控件在窗体上的位置的属性是 （满分：5）
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
5. 假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为 （满分：5）
A. Text1.Alignment=1: Text1.BorderStyle=0
B. Text1.Alignment=2: Text1.BorderStyle=1
C. Text1.Alignment=1 : Text1.BorderStyle=1
D. Text1.Alignment=2 : Text1.BorderStyle=0
6. 窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是 （满分：5）
A. Private Sub Command1Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B. Private Sub Command1Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D. Private Sub Command1Click( ) Command2.Enabled=False : Command3.Visible=False End Sub
7. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 （满分：5）
A. 12
B. 13
C. 14
D. 15
8. 在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序 （满分：5）
A. TabStop
B. Enabled
C. Visible
D. TabIndex
9. (5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click()Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为 （满分：5）
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
10. 为了把窗体上某个控件变成活动控件，应执行的操作是 （满分：5）
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. 双击窗体
11. 若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置 （满分：5）
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
12. 以下不能在“工程资源管理器”窗口中列出的文件类型是 （满分：5）
A. .bas
B. .res
C. .frm
D. .bmp
13. 在窗体(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）
A. 444
B. 321123
C. 123321
D. 132231
14. (6)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 （满分：5）
A. TabStop
B. Enabled
C. Visible
D. TabIndex
15. 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 （满分：5）
A. Value
B. Default
C. Cancel
D. Enabled
16. 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 （满分：5）
A. "Private Sub Command1Click()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 Command1Click()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 Command1Click()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 Command1Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function"
17. 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 （满分：5）
A. Label1. BackStyle=0Label1.Borderstyle=0
B. Label1.BackStyle=1Label1.Borderstyle=1
C. Label1.BackStyle=TrueLabel1.BorderStyle=True
D. Label1.BackStyle=FalseLabel1.Borderstyle=False
18. (2)以下叙述中正确的是 （满分：5）
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
19. 以下叙述中正确的是 （满分：5）
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
20. VB中工程文件 的扩展名为 （满分：5）
A. vbp
B. frm
C. ds
D. bas
转载请注明奥鹏作业答案网 www.ap5u.com
页:
[1]