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 Sub  Function 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