东北大学17秋《可视化程序设计Ⅰ》在线作业123答案
17秋学期《可视化程序设计Ⅰ》在线作业1一、单选题:【20道,总分:100分】
1.VB窗口中缺省的度量单位为 (满分:5)
A. Twip B. Point C. Pixed D. Inch
2.以下叙述中错误的是 (满分:5)
A. 用Shell函数可以调用能够在Windows下运行的应用程序
B. 用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数
C. 调用Shell函数的格式应为：<变量名>=Shell(……)
D. 用Shell函数不能执行DOS命令
3.一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1( )……End SubForm2中定义的过程Public Sub frmFunction2( )……End SubmdlFunc中定义的过程：Public Sub md1Function( )……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以 (满分:5)
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用
4.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 (满分:5)
A. Visible
B. Timer
C. Enabled
D. Interval
5.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 (满分:5)
A. A) For i=0 To List1.ListCount-1……
B. B) For i=0 To ListCount-1……Next
C. C) For i=1 To List1.listCount……Next
D. D) For i=1 To ListCount……Next
6.如果在立即窗口中执行以下操作：a=8 (是回车键，下同)b=9 print a>b 则输出结果是 (满分:5)
A. -1
B. 0
C. FALSE
D. TRUE
7.有如下语句：Open “test.dat” For Random As #1 Len =20，表示文件f1.dat每个记录的长度等于( ) (满分:5)
A. 20个字符
B. 20个字节
C. 或小于20个字符
D. 或小于20个字节
8.以下Case语句中错误的是 (满分:5)
A. Case 0 To 10
B. Case Is>10
C. Case Is>10 And Is<50
D. "Case 3,5,Is>10"
9.确定一个窗体或控件大小属性是 (满分:5)
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
10.在窗体上画一个命令按钮，其名称为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
11.关于子窗体说法正确的是 (满分:5)
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
12.设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 (满分:5)
A. "Private Sub Command1Click( )Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,B.Name,B.TelNumClose #1End Sub"
B. "Private Sub Command1Click( )Dim B As BooksOpen “c:\Person.txt”For Input As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Print #1,B.Name,B.TelNumClose #1End Sub"
C. "Private Sub Command1Click( )Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,BClose #1End Sub"
D. "Private Sub Command1Click( )Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
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.以下叙述中错误的是 (满分:5)
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B. Sub过程中不能嵌套定义Sub过程
C. Sub过程中可以嵌套调用Sub过程
D. 事件过程可以像通用过程一样由用户定义过程名
15.(2)以下叙述中正确的是 (满分:5)
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
16.下列可作为Visual Basic变量名的是 (满分:5)
A.
B. 4A
C. ?xy
D. constA
17.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1Click( )Dim city As VariantCity=Array("北京"，"上海"，"天津"，"重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 (满分:5)
A. 空白
B. 错误提示
C. 北京
D. 上海
18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( ) 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程序运 (满分:5)
A. 15
B. 14
C. 13
D. 12
19.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是 (满分:5)
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
20.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )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程序运行后，单击命令按钮，在文本框中显示的值是 (满分:5)
A. 2
B. 3
C. 4
D.
17秋学期《可视化程序设计Ⅰ》在线作业2
一、单选题:【20道,总分:100分】
1.为了保存一个VB应用程序，下列中正确的是 (满分:5)
A. 只保存窗体文件（.frm）
B. 只保存工程文件（.vbp）
C. 分别保存工程文件和窗体文件
D. 分别保存工程文件和标准模块文件（.bas）
2.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置 (满分:5)
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
3.在窗体上面画一个命令按钮，然后编写如下事件过程：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
4.设有如下的类型声明 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:＼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 "
5.对窗体编写如下代码：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
6.在窗体上画一个命令按钮，然后编写如下事件过程：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
7.在窗体上画一个名称为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
8.在窗体上画一个命令按钮，名称为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
9.目录列表框的Path属性的作用是 (满分:5)
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
10.关于Line语句正确的说法是 (满分:5)
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
11.当利用Line方法进行添加图时，以下正确的说法是( ) (满分: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 "
12.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是 (满分:5)
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
13.为了使标签中的内容居中显示，应把Alignment属性设置为 (满分:5)
A. 0
B. 1
C. 2
D. 3
14.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是( ) (满分:5)
A.
B. Name
C. Text
D. Value
15.执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i\5Next i (满分:5)
A. 21
B. 22
C. 23
D. 24
16.在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1Click( )x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (满分:5)
A. 1和0
B. 2和72
C. 3和50
D. 4和168
17.(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 (满分:5)
A. 单选按钮
B. 图片框
C. " 通用对话框
D. "
E. 文本框
18.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( ) (满分:5)
A. Dir
B. Path
C. Drive
D. FileName
19.假设有如下事件过程Private Sub FormMouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是 (满分:5)
A. 该过程的功能是弹出一个菜单
B. popForm是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
20.在窗体中添加一个命令按钮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 "
17秋学期《可视化程序设计Ⅰ》在线作业3
一、单选题:【20道,总分:100分】
1.确定一个窗体或控件大小属性是 (满分:5)
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
2.在窗体上画一个名称为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
3.用下面语句定义的数组的元素个数是Dim A(-3 To 5) As Integer (满分:5)
A. 6
B. 7
C. 8
D. 9
4.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是 (满分:5)
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
5.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 (满分:5)
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
6.设有如下程序：Option Base 0Private Sub FormClick( )Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是 (满分:5)
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
7.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 (满分:5)
A. Left
B. Mid
C. String
D. Instr
8.删除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
9.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是 (满分:5)
A. "Student.name=""张红"""
B. Dim s As Student
C. "Dim s As Type Student s.name=""张红"""
D. "Dim s As Types.name=""张红"""
10.一个工程中含有窗体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
11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1Click( ) Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是 (满分:5)
A. Visual
B. Basic
C. Program
D. 出错
12.假定有如下的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. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
13.对窗体编写如下代码：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
14.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序 (满分:5)
A. TabStop
B. Enabled
C. Visible
D. TabIndex
15.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 (满分:5)
A. Visible
B. Timer
C. Enabled
D. Interval
16.以下叙述中正确的是 (满分:5)
A. 一个记录中所包含的各个元素的数据类型必须相同
B. 随机文件中每个记录的长度是固定的
C. Open命令的作用是打开一个已经存在的文件
D. 使用Input #语句可以从随机文件中读取数据
17.设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是( ) (满分:5)
A. Caption
B. Name
C. Text
D. Value
18.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 (满分:5)
A. “text(.txt)|(*.txt)”
B. “文本文件( .txt) |(.txt)”
C. “text(.txt)( )(*.txt)”
D. “text(.txt)(*.txt)”
19.若有如下定义：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”)
20.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是 (满分:5)
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
页:
[1]