20春学期《可视化程序设计Ⅰ》在线平时作业3

adminhan

为了把窗体上某个控件变成活动控件，应执行的操作是
A:单击窗体的边框
B:单击控件的内部
C:双击控件
D:双击窗体

以下叙述中正确的是
A:窗体的Name属性指定窗体的名称，用来标识一个窗体
B:窗体的Name属性的值是显示在窗体标题栏中的文本
C:可以在运行期间改变对象的Name属性的值
D:对象的Name属性值可以为空

阅读程序：Function F(a As Integer)b = 0Static cb = b+1c = c+1f = a+b+cEnd Function
Private Sub Commandl_Click ()Dim a As Integera =2For i =1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为
A:4 4 4
B:4 5 6
C:4 6 8
D:4 7 9

用下面语句定义的数组的元素个数是Dim A (-3 To 5) As Integer
A:6
B:7
C:8
D:9

关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A:"dx,dy为传送源左上角坐标"
B:"dx,dy为传送目标左上角坐标"
C:"sw,sh为传送目标的大小"
D:"dw,dh为传送源的大小"

语句Print 5/4*6\5 Mod 2的输出结果是
A:0
B:1
C:2
D:3

以下Case语句中错误的是
A:Case 0 To 10
B:Case Is>10
C:Case Is>10 And Is<50
D:"Case 3,5,Is>10"

要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( )
A:Dir
B:Path
C:Drive
D:FileName

下列可以打开立即窗口的操作是
A:Ctrl+D
B:Ctrl+E
C:Ctrl+F
D:Ctrl+G

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序
A:TabStop
B:Enabled
C:Visible
D:TabIndex

假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=UCase(Mid(S,i,1))+s1Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Str1 As String,Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print St
A:abcdefg
B:ABCDEFG
C:gfedcba
D:GEFDCBA

若有如下定义：Dim fs As New FileSystemObject, f As File现在要引用C盘根目录下存放的文件text.txt，可以使用的代码是（ ）
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”)

下列关于过程叙述不正确的是（）
A:过程的传值调用是将实参的具体值传值递给形参
B:过程的传址调用是将实参在内存的地址传递给形参
C:过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D:无论过程传值调用还是过程传址调用，参数传递都是双向的

关于数据控件的描述中不正确的是
A:数据控件通过RecordSource属性获得数据库信息
B:数据控件通过RecordType属性设置记录集类型
C:数据控件通过Exclusive属性为True实现对数据库的共享访问
D:数据控件通过readonly属性决定是否按只读方式打开数据库

在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
A:"Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
B:"Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
C:"Private Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
D:"Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"

删除ListBox对象list1最后一个列表项的可行语句
A:list1.removeitem list1.listcount
B:list1.removeitem list1.listcount -1
C:list1.deleteitem list1.listcount -1
D:list1.deleteitem list1.listcount

在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub Commandl_Click( )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程序运行后，单击命令按钮，其输出结果为
A:6 9 7 10
B:7 10 8 11
C:8 11 9 12
D:9 12 10 13

(9)下列可以打开立即窗口的操作是（）
A:"Ctrl+D
B:"
C:Ctrl+E
D:Ctrl+F
E:Ctrl+G

software and hardwarB) softwareC) hardwareD) 1(26)执行如下语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是
A:Today
B:Tomorrow
C:Yesterday
D:Day before Yesterday

关于记录集的常用方法说法不正确的
A:EOF属性用于获得是否到达记录集末尾
B:BOF属性用于获得是否到达记录集开始
C:AbsolutionPostion属性用于获得记录的当前位置
D:RecordCount属性用于获得精确的记录数量