东北大学14春《可视化程序设计Ⅰ》在线作业答案
东北大学14春学期《可视化程序设计Ⅰ》在线作业1试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. EnabledB. VisibleC. IntervalD. Timer
满分：5分
2.在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（ ）
A. Private Sub Command1_Click()CommonDialog1.ShowEnd Sub
B. Private Sub Command1_Click()Open CommonDialog1.ShowColorEnd Sub
C. Private Sub Command1_Click()CommonDialog1.ShowFontEnd Sub
D.
满分：5分
3.假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "C
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
满分：5分
4.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A. Cos(a+b)^2+5*exp(2)
B. Cos^2(a+b)+5*exp(2)
C. Cos(a+b)^2+5*ln(2)
D. Cos^2(a+b)+5*ln(2)
满分：5分
5.以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. 窗体的Name属性的值是显示在窗体标题栏中的文本
C. 可以在运行期间改变对象的Name属性的值
D. 对象的Name属性值可以为空
满分：5分
6.在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()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，则输出结果为
A. 2
B. 3
C. 14
D. 15
满分：5分
7.在列表框中当前被选中的列表项的序号是由下列哪个属性表示（ ）
A.
B. Index
C. ListIndex
D. TabIndex
满分：5分
8.阅读程序：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
满分：5分
9.可以惟一标识控件数组中的每一个控件属性的是
A. Name
B. Caption
C. Index
D. Enabled
满分：5分
10.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1_Click()Dim city As VariantCity=Array("北京"，"上海"，"天津"，"重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
满分：5分
11.当利用Line方法进行添加图时，以下正确的说法是（ ）
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 "
满分：5分
12.以下关于过程及过程参数的描述中，错误的是
A. 过程的参数可以是控件名称
B. 用数组作为过程的参数时，使用的是“传地址”方式
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中
D. 窗体可以作为过程的参数
满分：5分
13.下面关于多重窗体的叙述中，正确的是（）
A. 作为启动对象的Main 子过程只能放在窗体模块内
B. 如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体
C. 没有启动窗体，程序不能执行
D. 以上都不对
满分：5分
14.下列关于过程叙述不正确的是（）
A. 过程的传值调用是将实参的具体值传值递给形参
B. 过程的传址调用是将实参在内存的地址传递给形参
C. 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D. 无论过程传值调用还是过程传址调用，参数传递都是双向的
满分：5分
15.当一个工程含有多个窗体时，其中的启动窗体是
A. 启动VB时建立的窗体
B. 第一个添加的窗体
C. 最后一个添加的窗体工程属性
D. 在工程属性对话框中指定的窗体
满分：5分
16.设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A. 变量X的值是数值10
B. 在InputBox对话框标题栏中显示的是“示例”
C. 0是默认值
D. 变量X的值是字符串“10”
满分：5分
17.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
满分：5分
18.下列叙述中正确的是
A. "在窗体的Form_Load事件过程中定义的变量是全局变量"
B. "局部变量的作用域可以超出所定义的过程"
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. "在调用过程时，所有局部变量被系统初始化为0或空字符串
满分：5分
19.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
满分：5分
20.在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) PrintC;D End Sub 程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
14春学期《可视化程序设计Ⅰ》在线作业2
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.语句Print 5/4*6\5 Mod 2的输出结果是
A. 0
B. 1
C. 2
D. 3
满分：5分
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是
A. 11
B. 10
C. 9
D. 8
满分：5分
3.以下叙述中错误的是
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C. 程序运行过程中，可以重新设置菜单的Visible属性
D. 弹出式菜单也在菜单编辑器中定义
满分：5分
4.函数String(n, "str")的功能是
A.
B. 返回由n个字符组成的字符串
C. 从字符串中取出n个字符
D. 从字符串中第n个字符的位置开始取子字符串
满分：5分
5.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是
A. Visible
B. Timer
C. Enabled
D. Interval
满分：5分
6.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A. 4
B. 5
C.
D. 7
满分：5分
7.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
8.以下关系表达式中，其值为False的是
A. """ABC"">""AbC"""
B. """the""<>""they"""
C. """VISUAL""=UCase(""Visual"")"
D. """Integer"">""Int"""
满分：5分
9.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
A. 12
B. 13
C. 14
D. 15
满分：5分
10.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是
A. Visual
B. Basic
C. 6
D.
满分：5分
11.在窗体上画一个名称为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分
12.为了把窗体上某个控件变成活动控件，应执行的操作是
A. 单击窗体的边框
B. 单击控件的内部
C. 双击控件
D. 双击窗体
满分：5分
13.以下程序的输出结果是Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next IFor i=1 To 3k=k+p(i)*2Next iPrint kEnd sub
A. 33
B. 28
C. 35
D. 37
满分：5分
14.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
满分：5分
15.把焦点移到某个指定的控件，所使用的方法是
A. SetFocus
B. Visible
C. Refresh
D. GetFocus
满分：5分
16.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. "BB CC DD EE"
B. A BB CCC DDD
C. B CC DD EEE
D. AA BBB CCCC DDDD
满分：5分
17.设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
D. frm1.DrawStyle =1
满分：5分
18.有窗体上画一个名称为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分
19.窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub
满分：5分
20.阅读程序：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
14春学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100 测试时间：--
一、单选题（共20道试题，共100分。）
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是
A. 11
B. 10
C. 9
D. 8
满分：5分
2.在窗体上画一个名称为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"
满分：5分
3.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
A. TRUE
B. 2
C. 0
D. 1
满分：5分
4.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮
A. 5和3
B. 25和3
C. 25和6
D. 5和6
满分：5分
5.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程:Private Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是
A. software and hardwar
B. software
C. hardware
D. 1
满分：5分
6.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
满分：5分
7.下列叙述中正确的是
A. "在窗体的Form_Load事件过程中定义的变量是全局变量"
B. "局部变量的作用域可以超出所定义的过程"
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. "在调用过程时，所有局部变量被系统初始化为0或空字符串
满分：5分
8.在窗体上面画一个命令按钮，然后编写如下事件过程：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分
9.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为
A. MenuItem. Enabled=False
B. MenuItem. Enabled=True
C. MenuItem. Visible=True
D. Menultem. Visible=False
满分：5分
10.阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub Commandl_Click()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运行上面的程序，单击命令按钮，输出结果为
A. 2 4 6 8
B. 5 6 7 8
C. 10 12 14 16#出错
满分：5分
11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
A. 2
B. 3
C. 4
D.
满分：5分
12.决定窗体有无控制菜单的属性是
A. ControlBox
B. MinButton
C. Enabled
D. MaxButton
满分：5分
13.在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A. Button
B. Button.index
C. Button.key=true
D. Button.text
满分：5分
14.窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub
满分：5分
15.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. ") Private Sub Command1_Click() 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 Command1_Click() 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 Command1_Click() 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 Command1_Click() 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
满分：5分
16.执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
A. BBBB
B. 空
C. AAAA
D. 出错，不能产生信息框
满分：5分
17.假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "C
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
满分：5分
18.以下Case语句中错误的是
A. Case 0 To 10
B. Case Is>10
C. Case Is>10 And Is<50
D. "Case 3,5,Is>10"
满分：5分
19.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A. Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub"
B. "Private Sub List1_Chilk()Label1.Name=List1.ListIndexEnd Sub"
C. "Private Sub List1_click()Label1.Name=List1.TextEnd Sub"
D. "Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub"
满分：5分
20.设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
D. frm1.DrawStyle =1
满分：5分
页:
[1]