东北大学14春学期《可视化程序设计Ⅰ》在线作业3

14春学期《可视化程序设计Ⅰ》在线作业3 cYi傲朋学习网
试卷总分：100 奥鹏学习网（aopeng123.cn) 发布 cYi傲朋学习网
单选题cYi傲朋学习网
一、单选题（共 20 道试题，共 100 分。） cYi傲朋学习网
V cYi傲朋学习网
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程序运行后，单击命令按钮，在窗体上显示的是cYi傲朋学习网
A. 11 cYi傲朋学习网
B. 10 cYi傲朋学习网
C. 9 cYi傲朋学习网
D. 8 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
2. 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是cYi傲朋学习网
A. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub" cYi傲朋学习网
B. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub" cYi傲朋学习网
C. "rivate Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub" cYi傲朋学习网
D. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files *.* (*.txt) *.txt (*.doc) *.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub" cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
3. 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）cYi傲朋学习网
A. TRUE cYi傲朋学习网
B. 2 cYi傲朋学习网
C. 0 cYi傲朋学习网
D. 1 cYi傲朋学习网
此题选: D 满分：5 分 cYi傲朋学习网
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程序运行后，单击命令按钮cYi傲朋学习网
A. 5和3 cYi傲朋学习网
B. 25和3 cYi傲朋学习网
C. 25和6 cYi傲朋学习网
D. 5和6 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
5. 在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程rivate Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是cYi傲朋学习网
A. software and hardwar cYi傲朋学习网
B. software cYi傲朋学习网
C. hardware cYi傲朋学习网
D. 1 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
6. (5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为cYi傲朋学习网
A. 命令按钮移动到距窗体左边界、上边界各500的位置 cYi傲朋学习网
B. 窗体移动到距屏幕左边界、上边界各500的位置 cYi傲朋学习网
C. 命令按钮向左、上方向各移动500 cYi傲朋学习网
D. 窗体向左、上方向各移动500 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
7. 下列叙述中正确的是cYi傲朋学习网
A. "在窗体的Form_Load事件过程中定义的变量是全局变量" cYi傲朋学习网
B. "局部变量的作用域可以超出所定义的过程" cYi傲朋学习网
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程 cYi傲朋学习网
D. "在调用过程时，所有局部变量被系统初始化为0或空字符串 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
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运行上面的程序，单击命令按钮，其输出结果是cYi傲朋学习网
A. 4321 cYi傲朋学习网
B. 12 cYi傲朋学习网
C. 34 cYi傲朋学习网
D. 1234 cYi傲朋学习网
此题选: D 满分：5 分 cYi傲朋学习网
9. 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为cYi傲朋学习网
A. MenuItem. Enabled=False cYi傲朋学习网
B. MenuItem. Enabled=True cYi傲朋学习网
C. MenuItem. Visible=True cYi傲朋学习网
D. Menultem. Visible=False cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
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运行上面的程序，单击命令按钮，输出结果为cYi傲朋学习网
A. 2 4 6 8 cYi傲朋学习网
B. 5 6 7 8 cYi傲朋学习网
C. 10 12 14 16#出错 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
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程序运行后，单击命令按钮，在文本框中显示的值是cYi傲朋学习网
A. 2 cYi傲朋学习网
B. 3 cYi傲朋学习网
C. 4 cYi傲朋学习网
D. cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
12. 决定窗体有无控制菜单的属性是cYi傲朋学习网
A. ControlBox cYi傲朋学习网
B. MinButton cYi傲朋学习网
C. Enabled cYi傲朋学习网
D. MaxButton cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
13. 在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End SubcYi傲朋学习网
A. Button cYi傲朋学习网
B. Button.index cYi傲朋学习网
C. Button.key=true cYi傲朋学习网
D. Button.text cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
14. 窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是cYi傲朋学习网
A. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub cYi傲朋学习网
B. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub cYi傲朋学习网
C. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub cYi傲朋学习网
D. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
15. 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是cYi傲朋学习网
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" cYi傲朋学习网
B. "rivate 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" cYi傲朋学习网
C. "rivate 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 " cYi傲朋学习网
D. "rivate 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 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
16. 执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)cYi傲朋学习网
A. BBBB cYi傲朋学习网
B. 空 cYi傲朋学习网
C. AAAA cYi傲朋学习网
D. 出错，不能产生信息框 cYi傲朋学习网
此题选: D 满分：5 分 cYi傲朋学习网
17. 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程rivate Sub Command1_Click() Dim rec As animal Open "c:vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "CcYi傲朋学习网
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义 cYi傲朋学习网
B. 如果文件c:vbTest.dat不存在，则Open命令执行失败 cYi傲朋学习网
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 cYi傲朋学习网
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中" cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
18. 以下Case语句中错误的是cYi傲朋学习网
A. Case 0 To 10 cYi傲朋学习网
B. Case Is 10 cYi傲朋学习网
C. Case Is 10 And Is 50 cYi傲朋学习网
D. "Case 3,5,Is 10" cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分 cYi傲朋学习网
19. 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是cYi傲朋学习网
A. Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub" cYi傲朋学习网
B. "rivate Sub List1_Chilk()Label1.Name=List1.ListIndexEnd Sub" cYi傲朋学习网
C. "rivate Sub List1_click()Label1.Name=List1.TextEnd Sub" cYi傲朋学习网
D. "rivate Sub List1_Click()Label1.Caption=List1.TextEnd Sub" cYi傲朋学习网
此题选: D 满分：5 分 cYi傲朋学习网
20. 设置VB窗口frm1绘图所用线型调整为点划线的方法cYi傲朋学习网
A. frm1.DrawMode =1 cYi傲朋学习网
B. frm1.BorderStyle =1 cYi傲朋学习网
C. frm1.DrawStyle =3 cYi傲朋学习网
D. frm1.DrawStyle =1 cYi傲朋学习网
需要购买答案的联系QQ:79691519满分：5 分