14秋《可视化程序设计Ⅰ》在线作业答案
14秋学期《可视化程序设计Ⅰ》在线作业1试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.关于子窗体说法正确的是
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
满分：5分
2.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
满分：5分
3.有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
D. 或小于15个字节
满分：5分
4.以下能够正确计算n!的程序是
A. Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
B. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
C. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<=nPrint xEnd Sub
D. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i>nPrint xEnd Sub
满分：5分
5.(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.
满分：5分
6.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
满分：5分
7.关于记录集的常用方法说法不正确的
A. EOF属性用于获得是否到达记录集末尾
B. BOF属性用于获得是否到达记录集开始
C. AbsolutionPostion属性用于获得记录的当前位置
D. RecordCount属性用于获得精确的记录数量
满分：5分
8.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ ）
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C. 当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D. 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
满分：5分
9.设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A. 变量X的值是数值10
B. 在InputBox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量X的值是字符串“10”
满分：5分
10.以下关系表达式中，其值为False的是
A. """ABC"">""AbC"""
B. """the""<>""they"""
C. """VISUAL""=UCase(""Visual"")"
D. """Integer"">""Int"""
满分：5分
11.在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A. 1和0
B. 2和72
C. 3和50
D. 4和168
满分：5分
12.关于记录集的描述中不正确的时
A. 记录集包括Table、Dynset、SnapShort三种类型
B. Table类型记录集只针对一张表，具有速度快的特点，但是对内存开销较大
C. Dynset可以通过关系对应多张表，实现符合查询
D. SnapShort反映数据库的瞬间状态，速度很快，占用内存小，因此在处理数据更新操作时优选采用此种记录集。
满分：5分
13.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1_Click()s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是
A. 1
B. 5
C. 27
D. 45
满分：5分
14.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
A. ","
B. ；
C. 、
D. ：
满分：5分
15.实现子窗体frmNewDoc自动加载的方法是
A. frmNewDoc.show
B. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
D. frmNewDoc.Enable=true
满分：5分
16.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
满分：5分
17.执行以下程序段后，变量c$的值为a$=“Visual Basic Programing”b$=“Quick”c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A. Visual BASIC Programing
B. Quick Basic Programing
C. QUICK Basic Programing
D. Quick BASIC Programing
满分：5分
18.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序
A. TabStop
B. Enabled
C. Visible
D. TabIndex
满分：5分
19.设置图片框pic1大小随所加载图像大小变化的正确语句是
A. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
满分：5分
20.一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1()……End SubForm2中定义的过程Public Sub frmFunction2()……End SubmdlFunc中定义的过程：Public Sub md1Function()……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用
满分：5分
14秋学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub Form_Click()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub Form_Load()List1.AddItem "AA"List1.AddItem "BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的内
A. AABB
B. DDEE
C. AACC
D. BBCC
满分：5分
2.确定一个窗体或控件大小属性是
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
满分：5分
3.设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
A. "Private Sub Command1_Click()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 Command1_Click()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 Command1_Click()Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,BClose #1End Sub"
D. "Private Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
满分：5分
4.设有语句Open"c:\Test.Dat"For Output As#1则以下错误的叙述是
A. 该语句打开C盘根目录下一个已存在的文件Test.Dat
B. 该语句在C盘根目录下建立一个名为Test.Dat的文件
C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息
满分：5分
5.要清除组合框Combol中的所有内容，可以使用（ ）语句
A.
B. Combo1.Clear
C. Combo1.Delete
D. Combo1.Remove
满分：5分
6.以下叙述中错误的是
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B. 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C. KeyPress事件中不能识别键盘上某个键的按下与释放
D. KeyPress事件中可以识别键盘上某个键的按下与释放
满分：5分
7.以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
满分：5分
8.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
9.在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是
A. 4321
B. 12
C. 34
D. 1234
满分：5分
10.关于记录集的描述中不正确的时
A. 记录集包括Table、Dynset、SnapShort三种类型
B. Table类型记录集只针对一张表，具有速度快的特点，但是对内存开销较大
C. Dynset可以通过关系对应多张表，实现符合查询
D. SnapShort反映数据库的瞬间状态，速度很快，占用内存小，因此在处理数据更新操作时优选采用此种记录集。
满分：5分
11.在当前窗体中已经添加一公共对话框commonDialog1 ，实现打开文件保存对话框的语句
A. commonDialog1.showsave
B. commonDialog1.action=3
C. commonDialog1.showopen
D. lcommonDialog1.action=1
满分：5分
12.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
B. 15 6
C. 15 15
D. 5 6
满分：5分
13.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next iEnd Sub该事件过程的功能是
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
满分：5分
14.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是
A. Visual
B. Basic
C. Program
D. 出错
满分：5分
15.以下叙述中错误的是
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C. 程序运行过程中，可以重新设置菜单的Visible属性
D. 弹出式菜单也在菜单编辑器中定义
满分：5分
16.一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1()……End SubForm2中定义的过程Public Sub frmFunction2()……End SubmdlFunc中定义的过程：Public Sub md1Function()……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用
满分：5分
17.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序
A. TabStop
B. Enabled
C. Visible
D. TabIndex
满分：5分
18.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5分
19.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
20.为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A. 5
B. 500
C. 300
D. 5000
满分：5分
14秋学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.以下叙述中错误的是
A. 用Shell函数可以调用能够在Windows下运行的应用程序
B. 用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数
C. 调用Shell函数的格式应为：<变量名>=Shell(……)
D. 用Shell函数不能执行DOS命令
满分：5分
2.关于数据控件的描述中不正确的是
A. 数据控件通过RecordSource属性获得数据库信息
B. 数据控件通过RecordType属性设置记录集类型
C. 数据控件通过Exclusive属性为True实现对数据库的共享访问
D. 数据控件通过readonly属性决定是否按只读方式打开数据库
满分：5分
3.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
满分：5分
4.在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Timer
满分：5分
5.设置VB窗口frm1中坐标系为 X:（-100，100），Y：（-100，100）的方法为
A. "frm1.scale(0,0)-(200,200)"
B. "frm1.scale(-100,100)-(100,-100)"
C. "frm1.scale(100,-100)-(-100,100)"
D. "frm1.scale(0,0)-(100,-100)"
满分：5分
6.目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
满分：5分
7.在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是
A. 4321
B. 12
C. 34
D. 1234
满分：5分
8.执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
满分：5分
9.以下关于菜单的叙述中，错误的是
A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C
C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少
满分：5分
10.假定有以下函数过程：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
满分：5分
11.假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（ ）
A. Txt1.MultiLine = True : Txt1.ScrollBars = 0
B. Txt1.MultiLine = True : Txt1.ScrollBars = 3
C. Txt1.MultiLine = False: Txt1.ScrollBars = 0
D. Txt1.MultiLine = False Txt1.ScrollBars = 3
满分：5分
12.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
B. 15 6
C. 15 15
D. 5 6
满分：5分
13.在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A. 1和0
B. 2和72
C. 3和50
D. 4和168
满分：5分
14.若有如下定义：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”)
满分：5分
15.设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程Private Sub Command1_Click()Static b As Variantb=Array(1,3,5,7,9)……End Sub此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是
A. For i=0 to 5-1\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
B. "For i=0 to 5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
C. "For i=0 to 5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
D. "For i=0 to 5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNext"
满分：5分
16.设有如下程序：Option Base 0Private Sub Form_Click()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程序运行后，单击窗体，则在窗体上显示的是
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
满分：5分
17.(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.
满分：5分
18.删除ListBox对象list1最后一个列表项的可行语句
A. list1.removeitem list1.listcount
B. list1.removeitem list1.listcount -1
C. list1.deleteitem list1.listcount -1
D. list1.deleteitem list1.listcount
满分：5分
19.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
A. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
B. "Open ""c:\filel.txt"" For Output As # 2"
C. Open c:\filel.txt For Input As # 1
D. Open c:\filel.txt For Input As # 1
满分：5分
20.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
满分：5分
答案请在附件下载，需要辅导请联系客服qq 761296021
页:
[1]