东大（本部）17春学期《可视化程序设计Ⅰ》在线作业3答案

在线作业答案

17春学期《可视化程序设计Ⅰ》在线作业3
东北大学（本部）

一、单选题：
1.下列可作为Visual Basic变量名的是          (满分:5)
    A.
    B. 4A
    C. ?xy
    D. constA
2.把焦点移到某个指定的控件，所使用的方法是          (满分:5)
    A. SetFocus
    B. Visible
    C. Refresh
    D. GetFocus
3.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是          (满分:5)
    A. Private Sub List1Click(    )Label1.Caption=List1.ListIndexEnd Sub"
    B. "Private Sub List1Chilk(    )Label1.Name=List1.ListIndexEnd Sub"
    C. "Private Sub List1click(    )Label1.Name=List1.TextEnd Sub"
    D. "Private Sub List1Click(    )Label1.Caption=List1.TextEnd Sub"
4.取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是          (满分:5)
    A. ControlBox
    B. MinButton
    C. Enabled
    D. MaxButton
5.下列叙述中正确的是          (满分:5)
    A. 在窗体的FormLoad事件过程中定义的变量是全局变量
    B. 局部变量的作用域可以超出所定义的过程
    C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
    D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
6.以下不能在“工程资源管理器”窗口中列出的文件类型是          (满分:5)
    A. .bas
    B. .res
    C. .frm
    D. .bmp
7.设有如下的类型声明 　　Type Person 　　name As String*8 　　major As String*20 　　End Type　　当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是          (满分:5)
    A. "open”c：＼Test29．dat"" For Random As#1 　　Put #1，1，p 　　Close #1 "
    B. "open ""c
8.以下叙述中错误的是          (满分:5)
    ＼Test29.dat"" For Random As #1　　Get#1，1，p　　C10se #1 "
    C. "open ""c＼Test29．dat"" For Random As #1 Len＝Len(p)　　Put #1，1，p 　　Close #1 "
    D. "Open ""c：＼Test29．dat "" For Random As #1=Len(p)　　Get #1，1，p 　　CloSe #1 "
9.设组合框Combol中有3个项目，则以下能删除最后一项的语句是          (满分:5)
    A. 一个工程中可以包含多个窗体文件
    B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
    C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
    D. 全局变量必须在标准模块中定义
10.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub FormLoad(    )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是          (满分:5)
    A. Combol.RemoveItem Text
    B. Combol.RemoveItem 2
    C. Combol.RemoveItem 3
    D. Combol.RemoveItem Combol.Listcount
11.在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是          (满分:5)
    A. 在文本框Text1中输出55
    B. 在文本框Text1中输出0
    C. 出错
    D. 在文本框Text1中输出不定值
12.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：        Private Sub Command1Click(    )                Move 500，500        End Sub        程序运行后，单击命令按钮，执行的操作为          (满分:5)
    A. "Private Sub Command1Click(    )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
    B. "Private Sub Command1Click(    )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
    C. "Private Sub Command1Click(    )CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
    D. "Private Sub Command1Click(    )CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
13.VB6.0集成环境的主窗口中不包括          (满分:5)
    A. 命令按钮移动到距窗体左边界、上边界各500的位置
    B. 窗体移动到距屏幕左边界、上边界各500的位置
    C. 命令按钮向左、上方向各移动500
    D. 窗体向左、上方向各移动500
14.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1Click(    ) Dim a s = 0 a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub运行上面的程序，单击命令按钮，其输出结果是          (满分:5)
    A. 标题栏
    B. 菜单栏
    C. 状态栏
    D. 工具栏
15.可以惟一标识控件数组中的每一个控件属性的是          (满分:5)
    A. 4321
    B. 1234
    C. 34
    D. 12
16.目录列表框的Path属性的作用是          (满分:5)
    A. Name
    B. Caption
    C. Index
    D. Enabled
17.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click(    )Dim x As Integer,n As Integerx=1n=0Do While x窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub FormLoad(    )Combo1.AddIt          (满分:5)
    A.
    B. 显示当前驱动器或指定驱动器上的某目录下的文件名
    C. 显示根目录下的文件名
    D. 只显示当前路径下的文件
18.假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为(    )          (满分:5)
    A. Text1.Text=Combo1.List(0)
    B. Text1.Text=Combo1.List(1)
    C. Text1.Text=Combo1.List(2)
    D. Text1.Text=Combo1.List(3)
19.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click(    )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程序运行后，单击命令按钮，在两个文本框中显示的值分别是          (满分:5)
    A. Txt1.MultiLine = True
20.在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End selectEnd Sub          (满分:5)
     Txt1.ScrollBars = 0
    B. Txt1.MultiLine = True
更多免费学习资料请登录www.openhelp100.com