16春学期奥鹏东大《可视化程序设计Ⅰ》在线作业2标准答案
16春学期《可视化程序设计Ⅰ》在线作业2一、单选题：
1.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( ) (满分:5)
A. "
"
B. ；
C. 、
D. ：
2.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是( ) (满分:5)
A.
B. "F=""c
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)
\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c
4.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是( ) (满分:5)
\filel.txt"" For Output As # 2"
D. Open c
5.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 (满分:5)
\filel.txt For Input As # 1
6.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 (满分:5)
A. 48 4
B. 237 1
C. 498 5
D. 498 4
7.以下语句的输出结果是。Print Format $(32548.5,“000,000.00”) (满分:5)
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C. 当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D. 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
8.假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是( ) (满分:5)
A. 单选按钮
B. 图片框
C. 通用对话框
D. 文本框
9.以下能判断是否到达文件尾的函数是 (满分: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
10.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 (满分:5)
A. 32548.5
B. "32
548.50"
C. "032
548.50"
D. "32
548.50"
11.在窗体上画一个名称为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. 选择图片框，然后按Del键
B. 执行语句Picture1=LoadPicture(“”)
C. 执行语句Picture1.parent=””
D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键
12.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1Click( )s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是 (满分:5)
A. BOF
B. LOC
C. LOF
D. EOF
13.阅读程序：Sub subP(b( ) As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub CommandlClick( )Dim a(1 To 4)As Integera(1)=5a(2)=6a(3)=7a(4)=8subP a( )For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为( ) (满分:5)
A. “text(.txt)|(*.txt)”
B. “文本文件( .txt) |(.txt)”
C. “text(.txt)( )(*.txt)”
D. “text(.txt)(*.txt)”
14.设有语句Open"c:\Test.Dat"For Output As#1则以下错误的叙述是 (满分:5)
A. 7236
B. 10836
C. 726
D. 1086
15.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是 (满分:5)
A. 1
B. 5
C. 27
D. 45
16.关于数据控件的描述中不正确的是 (满分:5)
A. 2 4 6 8
B. 5 6 7 8
C. 10 12 14 16
D. 出错
17.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是( ) (满分:5)
A. 该语句打开C盘根目录下一个已存在的文件Test.Dat
B. 该语句在C盘根目录下建立一个名为Test.Dat的文件
C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息
18.以下Case语句中错误的是 (满分:5)
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
19.在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1Click( )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，则输出结果为 (满分:5)
A. 数据控件通过RecordSource属性获得数据库信息
B. 数据控件通过RecordType属性设置记录集类型
C. 数据控件通过Exclusive属性为True实现对数据库的共享访问
D. 数据控件通过readonly属性决定是否按只读方式打开数据库
20.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 (满分:5)
A.
B. Name
C. Text
D. Value
页:
[1]