东北大学17春《可视化程序设计Ⅰ》在线作业123答案
东北大学17春学期《可视化程序设计Ⅰ》在线作业1答案一、单选题：
1.窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1Click( )For I=1 To 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 (满分:5)
A. BB CC CC DD EE
B. A BB CCC DDDD
C. B BB CCC DDDD
D. AA CC DDD CCCC
2.表示滚动条控件取值范围最大值的属性是 (满分:5)
A. Max
B. LargeChange
C. Value
D. Max-Min
3.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub FormLoad( )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是 (满分:5)
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
4.在窗体上画一个名称为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
5.VB6.0集成环境的主窗口中不包括 (满分:5)
A. 标题栏
B. 菜单栏
C. 状态栏
D. 工具栏
6.关于子窗体说法正确的是 (满分:5)
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
7.在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub CommandlClick( )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程序运行后，单击命令按钮，其输出结果为 (满分:5)
A. 6 9 7 10
B. 7 10 8 11
C. 8 11 9 12
D. 9 12 10 13
8.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1Click( )Dim city As VariantCity=Array("北京"，"上海"，"天津"，"重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 (满分:5)
A. 空白
B. 错误提示
C. 北京
D. 上海
9.在窗体上画一个命令按钮，名称为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"
10.目录列表框的Path属性的作用是 (满分:5)
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
11.可以惟一标识控件数组中的每一个控件属性的是 (满分:5)
A. Name
B. Caption
C. Index
D. Enabled
12.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是 (满分:5)
A. "dx
dy为传送源左上角坐标"
B. "dx
dy为传送目标左上角坐标"
C. "sw
sh为传送目标的大小"
D. "dw
dh为传送源的大小"
13.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( ) (满分:5)
A. Dir
B. Path
C. Drive
D. FileName
14.在窗体上画一个名称为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. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
15.在窗体上画一个命令按钮，然后编写如下事件过程：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)
A. 7
B. 15
C. 157
D. 538
16.在窗体上画两个名称分别为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
17.设置图片框pic1大小随所加载图像大小变化的正确语句是 (满分:5)
A. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
18.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为( ) (满分:5)
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
19.把焦点移到某个指定的控件，所使用的方法是 (满分:5)
A. SetFocus
B. Visible
C. Refresh
D. GetFocus
20.列表框控件中的列表内容是通过( )属性设置的 (满分:5)
A. Name
B. Caption
C. List
D. Text
17春学期《可视化程序设计Ⅰ》在线作业2
一、单选题：
1.以下叙述中正确的是 (满分:5)
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
2.在窗体上画两个名称分别为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
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)
A. 48 4
B. 237 1
C. 498 5
D. 498 4
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Move 500，500End Sub (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 命令按钮移动到距窗体左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
5.(6)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 (满分:5)
A. TabStop
B. Enabled
C. Visible
D. TabIndex
6.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1Click( ) a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是 (满分:5)
A. 123.45
B. 12345.00
C. 345.00
D. 123.00
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.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 (满分:5)
A. Visible
B. Timer
C. Enabled
D. Interval
9.实现子窗体frmNewDoc自动加载的方法是 (满分:5)
A. frmNewDoc.show
B. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
D. frmNewDoc.Enable=true
10.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub FormLoad( )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是 (满分:5)
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
11.以下不能在“工程资源管理器”窗口中列出的文件类型是 (满分:5)
A. .bas
B. .res
C. .frm
D. .bmp
12.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 (满分:5)
A. 15 16
B. 15 6
C. 15 15
D. 5 6
13.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是( ) (满分:5)
A.
B. "F=""c
14.以下能判断是否到达文件尾的函数是 (满分:5)
\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c
15.在窗体上画一个名称为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)
\filel.txt"" For Output As # 2"
D. Open c
16.以下能够触发文本框Change事件的操作是 (满分:5)
\filel.txt For Input As # 1
17.确定一个控件在窗体上的位置的属性是 (满分:5)
A. BOF
B. LOC
C. LOF
D. EOF
18.假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub CommandlClick( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为 (满分:5)
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
19.为了使标签中的内容居中显示，应把Alignment属性设置为 (满分:5)
A. 文本框失去焦点
B. 文本框获得焦点
C. 设置文本框的焦点
D. 改变文本框的内容
20.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click( ) Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为 (满分:5)
A. Width和Height
B. Width或Height
C. Top和Left
D. Top或Left
17春学期《可视化程序设计Ⅰ》在线作业3
一、单选题：
1.下列可作为Visual Basic变量名的是 (满分:5)
A.
B. 4A
C. ?xy
D. constA
2.把焦点移到某个指定的控件，所使用的方法是 (满分:5)
A. SetFocus
B. Visible
C. Refresh
D. GetFocus
3.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 (满分:5)
A. Private Sub List1Click( )Label1.Caption=List1.ListIndexEnd Sub"
B. "Private Sub List1Chilk( )Label1.Name=List1.ListIndexEnd Sub"
C. "Private Sub List1click( )Label1.Name=List1.TextEnd Sub"
D. "Private Sub List1Click( )Label1.Caption=List1.TextEnd Sub"
4.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是 (满分:5)
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
5.下列叙述中正确的是 (满分:5)
A. 在窗体的FormLoad事件过程中定义的变量是全局变量
B. 局部变量的作用域可以超出所定义的过程
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
6.以下不能在“工程资源管理器”窗口中列出的文件类型是 (满分:5)
A. .bas
B. .res
C. .frm
D. .bmp
7.设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是 (满分:5)
A. "open”c：＼Test29．dat"" For Random As#1 Put #1，1，p Close #1 "
B. "open ""c
8.以下叙述中错误的是 (满分:5)
＼Test29.dat"" For Random As #1 Get#1，1，p C10se #1 "
C. "open ""c＼Test29．dat"" For Random As #1 Len＝Len(p) Put #1，1，p Close #1 "
D. "Open ""c：＼Test29．dat "" For Random As #1=Len(p) Get #1，1，p CloSe #1 "
9.设组合框Combol中有3个项目，则以下能删除最后一项的语句是 (满分:5)
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
10.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub FormLoad( )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是 (满分:5)
A. Combol.RemoveItem Text
B. Combol.RemoveItem 2
C. Combol.RemoveItem 3
D. Combol.RemoveItem Combol.Listcount
11.在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 (满分:5)
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
12.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click( ) Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为 (满分:5)
A. "Private Sub Command1Click( )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
B. "Private Sub Command1Click( )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
C. "Private Sub Command1Click( )CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
D. "Private Sub Command1Click( )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
13.VB6.0集成环境的主窗口中不包括 (满分:5)
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
14.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1Click( ) 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运行上面的程序，单击命令按钮，其输出结果是 (满分:5)
A. 标题栏
B. 菜单栏
C. 状态栏
D. 工具栏
15.可以惟一标识控件数组中的每一个控件属性的是 (满分:5)
A. 4321
B. 1234
C. 34
D. 12
16.目录列表框的Path属性的作用是 (满分:5)
A. Name
B. Caption
C. Index
D. Enabled
17.在窗体上画两个名称分别为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.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
18.假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为( ) (满分: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)
19.在窗体上画两个名称分别为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. Txt1.MultiLine = True
20.在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End selectEnd Sub (满分:5)
Txt1.ScrollBars = 0
B. Txt1.MultiLine = True
页:
[1]