《可视化程序设计Ⅰ》1.在窗体上画一个名称为Drive1的驱动...
奥鹏东大本部16秋学期《可视化程序设计Ⅰ》在线作业1标准答案一、单选题：
1.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是 (满分:5)
A. Drive1Change
B. Drive1Click
C. Dir1Click
D. Dir1Change
2.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 (满分:5)
A. 工程资源管理器窗口
B. 工具箱窗口
C. 代码窗口
D. 属性窗口
3.在窗体上画一个命令按钮，名称为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
4.(2)以下叙述中正确的是 (满分:5)
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
5.(10)为了把窗体上某个控件变成活动控件，应执行的操作是( ) (满分:5)
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. "双击窗体
6.语句Print 5/4*6\5 Mod 2的输出结果是 (满分:5)
A. 0
B. 1
C. 2
D. 3
7.一个工程中包含两个名称分别为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过程能够被工程中各个窗体或模块调用
8.假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为 (满分:5)
A. Text1.Alignment=1
9.关于Line语句正确的说法是 (满分:5)
Text1.BorderStyle=0
B. Text1.Alignment=2
10.当利用Line方法进行添加图时，以下正确的说法是( ) (满分:5)
Text1.BorderStyle=1
C. Text1.Alignment=1
11.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是 (满分:5)
Text1.BorderStyle=1
D. Text1.Alignment=2
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)
Text1.BorderStyle=0
13.inputBox函数反回值的类型为 (满分:5)
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
14.在列表框中当前被选中的列表项的序号是由下列哪个属性表示( ) (满分: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 "
15.software and hardwarB) softwareC) hardwareD) 1(26)执行如下语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是 (满分:5)
A. 4
B. 5
C.
D. 7
16.在窗体上面画一个命令按钮，然后编写如下事件过程：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. 1
B. 5
C. 27
D. 45
17.假定有如下的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. 数值
B. 字符串
C. 变体
D. 数值或字符串（视输入的数据而定）
18.在窗体上画一个命令按钮，然后编写如下事件过程：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.
B. Index
C. ListIndex
D. TabIndex
19.有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于( ) (满分:5)
A. Today
B. Tomorrow
C. Yesterday
D. Day before Yesterday
20.(8)下列不能打开属性窗口的操作是( ) (满分:5)
A. 4321
B. 12
C. 34
D. 1234
页:
[1]