东北大学15秋《可视化程序设计Ⅰ》在线作业答案
东北大学15秋《可视化程序设计Ⅰ》在线作业1试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.下列不能打开菜单编辑器的操作是
A. 按Ctrl+E
B. 单击工具栏中的“菜单编辑器”按钮
C. 执行“工具”菜单中的“菜单编辑器”命令
D. 按Shift + Alt + M
满分：5分
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为
A. "Right(c1,i)"
B. "Left(c1,i)"
C. "Mid(c1,i,1)"
D. "Mid(c1,i,i)"
满分：5分
3.下列叙述中正确的是
A. 在窗体的Form_Load事件过程中定义的变量是全局变量
B. 局部变量的作用域可以超出所定义的过程
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
满分：5分
4.执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i\5Next i
A. 21
B. 22
C. 23
D. 24
满分：5分
5.在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Timer
满分：5分
6.(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.
满分：5分
7.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5分
8.窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub
满分：5分
9.假定有如下的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分
10.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
满分：5分
11.software and hardwarB) softwareC) hardwareD) 1(26)执行如下语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是
A. Today
B. Tomorrow
C. Yesterday
D. Day before Yesterday
满分：5分
12.列表框控件中的列表内容是通过（ ）属性设置的
A. Name
B. Caption
C. List
D. Text
满分：5分
13.在窗体上画一个名称为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分
14.以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
A.32548.5
B. "32,548.5"
C. "032,548.50"
D. "32,548.50"
满分：5分
15.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
满分：5分
16.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ ）
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C. 当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D. 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
满分：5分
17.在窗体上画一个命令按钮，名称为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分
18.在窗体中添加一个通用对话框，其名称为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"
满分：5分
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 命令按钮移动到距窗体左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
满分：5分
20.在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码： Private Sub Command1_Click( ) Dim s As String*20 S=Text1.text …… End Sub 该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是（ ）
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 "
满分：5分15秋学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.在窗体上画两个名称分别为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分
2.以下关于菜单的叙述中，错误的是
A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C
C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少
满分：5分
3.确定一个控件在窗体上的位置的属性是
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
满分：5分
4.以下叙述中错误的是
A. 一个工程可以包括多种类型的文件
B. Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C. 程序运行后，在内存中只能驻留一个窗体
D. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
满分：5分
5.以下能够正确计算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分
6.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
7.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序
A. TabStop
B. Enabled
C. Visible
D. TabIndex
满分：5分
8.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
9.software and hardwarB) softwareC) hardwareD) 1(26)执行如下语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是
A. Today
B. Tomorrow
C. Yesterday
D. Day before Yesterday
满分：5分
10.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
满分：5分
11.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
满分：5分
12.为了保存一个VB应用程序，下列中正确的是
A. 只保存窗体文件（.frm）
B. 只保存工程文件（.vbp）
C. 分别保存工程文件和窗体文件
D. 分别保存工程文件和标准模块文件（.bas）
满分：5分
13.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()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程序运行后，单击命令按钮，在文本框中显示的值是
A. 12
B. 13
C. 14
D. 15
满分：5分
14.关于记录集的常用方法说法不正确的
A. EOF属性用于获得是否到达记录集末尾
B. BOF属性用于获得是否到达记录集开始
C. AbsolutionPostion属性用于获得记录的当前位置
D. RecordCount属性用于获得精确的记录数量
满分：5分
15.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
A. TRUE
B. 2
C. 0
D. 1
满分：5分
16.以下关系表达式中，其值为False的是
A. """ABC"">""AbC"""
B. """the""<>""they"""
C. """VISUAL""=UCase(""Visual"")"
D. """Integer"">""Int"""
满分：5分
17.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
满分：5分
18.为了把窗体上某个控件变成活动控件，应执行的操作是
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. 双击窗体
满分：5分
19.不能实现向ListBox对象list1追加一项 “Test”的语句
A. list1.additem “Test”
B. list1.additem “Test” list1.listcount
C. list1.List（list1.listcount -1）= “Test”
D. list1.List（list1.listcount）= “Test”
满分：5分
20.(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
满分：5分15秋学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.(7)VB中工程文件 的扩展名为（）
A. vbp
B. frm
C. ds
D. bas
满分：5分
2.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)……End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
满分：5分
3.以下关于菜单的叙述中，错误的是
A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C
C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少
满分：5分
4.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
满分：5分
5.下列不能打开属性窗口的操作是
A. 执行“视图”菜单中的“属性窗口”命令
B. 按F4键
C. 按Ctrl+T
D. 单击工具栏上的“属性窗口”按钮
满分：5分
6.在窗体上画一个命令按钮，名称为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分
7.用下面语句定义的数组的元素个数是Dim A (-3 To 5) As Integer
A. 6
B. 7
C. 8
D. 9
满分：5分
8.使文本框获得焦点的方法是
A. Change
B. GotFocus
C. SetFocus
D. LostFocus
满分：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.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
满分：5分
11.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是()
A. 123.45
B. 12345.00
C. 345.00
D. 123.00
满分：5分
12.下列可作为Visual Basic变量名的是
A.
B. 4A
C. xy
D. constA
满分：5分
13.假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为
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
满分：5分
14.以下叙述中错误的是
A. 下拉式菜单和弹出式菜单都用菜单编辑器建立
B. 在多窗体程序中，每个窗体都可以建立自己的菜单系统
C. 除分隔线外，所有菜单项都能接收Click事件
D. 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
满分：5分
15.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
A.
B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c:\filel.txt"" For Output As # 2"
D. Open c:\filel.txt For Input As # 1
满分：5分
16.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程:Private Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是
A. software and hardwar
B. software
C. hardware
D. 1
满分：5分
17.以下关于函数过程的叙述中，正确的是
A. 函数过程形参的类型与函数返回值的类型没有关系
B. 在函数过程中，过程的返回值可以有多个
C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D. 如果不指明函数过程参数的类型，则该参数没有数据类型
满分：5分
18.假定有以下函数过程：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 Command1_Click()Dim Str1 As String,Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print St
A. abcdefg
B. ABCDEFG
C. gfedcba
D. GEFDCBA
满分：5分
19.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1_Click()s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是
A. 1
B. 5
C. 27
D. 45
满分：5分
20.可以惟一标识控件数组中的每一个控件属性的是
A. Name
B. Caption
C. Index
D. Enabled
满分：5分
页:
[1]