端木老师 发表于 2019-3-15 08:46:01

东北大学19春《可视化程序设计Ⅰ》在线作业123

19春学期《可视化程序设计Ⅰ》在线作业1
奥鹏作业答案可以联系微信761296021
一、单选题:1.[单选题]设a=“Visual Basic”,下面使b=“Basic”的语句是
    A."b=Left(a,8,12) "    B." b=Mid(a,8,5)"
    C."b=Rigth(a,5,5)"
    D."b=Left(a,8,5)"
    正确答案:——B——
2.[单选题]在一行内写多条语句时,语句之间要用某个符号分隔。这个符号是()
    A.","
    B.;
    C.、
    D.:
    正确答案:——D——
3.[单选题]执行下面的语句后,所产生的信息框的标题是( )a = MsgBox("AAAA", "BBBB", "", 5)
    A.BBBB
    B.空
    C.AAAA
    D.出错,不能产生信息框
    正确答案:——D——
4.[单选题]假定窗体上有一个Text1文本框,为使它的文本内容位于中间并且没有边框,则正确的属性设置为
    A.Text1.Alignment=1: Text1.BorderStyle=0
    B.Text1.Alignment=2: Text1.BorderStyle=1
    C.Text1.Alignment=1 : Text1.BorderStyle=1
    D.Text1.Alignment=2 : Text1.BorderStyle=0
    正确答案:————
5.[单选题]以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
    A. 32548.5
    B."32,548.5"
    C."032,548.50"
    D."32,548.50"
    正确答案:————
6.[单选题]有如下语句:Open “f1.dat” For Random As #1 Len =15,表示文件f1.dat每个记录的长度等于( )
    A.15个字符
    B.15个字节
    C.或小于15个字符
    D.或小于15个字节
    正确答案:————
7.[单选题]以下关于图片框控件的说法中,错误的是
    A.可以通过Print方法在图片框中输出文本
    B.清空图片框控件中图形的方法之一是加载一个空图形
    C.图片框控件可以作为容器使用
    D.用Stretch属性可以自动调整图片框中图形的大小
    正确答案:————
8.[单选题]以下能判断是否到达文件尾的函数是
    A.BOF
    B.LOC
    C.LOF
    D.EOF
    正确答案:————
9.[单选题]以下叙述中错误的是
    A.一个工程可以包括多种类型的文件
    B.Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
    C.程序运行后,在内存中只能驻留一个窗体
    D.对于事件驱动型应用程序,每次运行时的执行顺序可以不一样
    正确答案:————
10.[单选题]阅读程序:Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd SubPrivate 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
    正确答案:————
11.[单选题]VB中工程文件 的扩展名为
    A.vbp
    B.frm
    C.ds
    D.bas
    正确答案:————
12.[单选题]关于MDI窗体不正确描述的是
    A.所有子窗体均在MDI窗体工作区,可进行排列
    B.所有子窗体的大小和位置均可以调整,并且可以移动出MDI窗体工作区
    C.所有子窗体最小化后,其图标显示在MDI窗体工作区,而不是状态栏
    D.MDI窗体和子窗体均可以有自己的菜单
    正确答案:————
13.[单选题]在窗体中添加一个通用对话框,其名称为CommonDialog1,然后添加一个命令按钮。要求单击命令按钮时,打开一个打开文件的通用对话框。该窗口的标题为“打开”,在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是( )
    A."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    B."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    C."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    D."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    正确答案:————
14.[单选题]阅读程序: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
    D.出错
    正确答案:————
15.[单选题]在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为
    A.A) For i=0 To List1.ListCount-1……
    B.B) For i=0 To ListCount-1……Next
    C.C) For i=1 To List1.listCount……Next
    D.D) For i=1 To ListCount……Next
    正确答案:————
16.[单选题]设在窗体上有一个名称为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"
    正确答案:————
17.[单选题]当一个工程含有多个窗体时,其中的启动窗体是    无忧答案网
    A.启动VB时建立的窗体
    B.第一个添加的窗体
    C.最后一个添加的窗体工程属性
    D.在工程属性对话框中指定的窗体
    正确答案:————
18.[单选题]对窗体编写如下代码:Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后,按回车键,输出结果为
    A.48 4
    B.237 1
    C.498 5
    D.498 4
    正确答案:————
19.[单选题]假定在窗体(名称为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类型的两个数据元素写到文件中"
    正确答案:————
20.[单选题](10)为了把窗体上某个控件变成活动控件,应执行的操作是( )
    A.单击窗体的边框
    B.单击控件的内部
    C.双击控件
    D."双击窗体
    正确答案:————
19春学期《可视化程序设计Ⅰ》在线作业2

一、单选题:
1.[单选题]设a=3,b=5,则以下表达式值为真的是
    A.a>=b And b>10
    B.(a>b)Or(b>0)
    C.(a<0)Eqv(b>0)
    D.(-3+5>a)And(b>0)
    正确答案:——B——
2.[单选题]假定窗体上有一个文本框,名为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
    正确答案:——B——
3.[单选题]下列不能打开菜单编辑器的操作是
    A.按Ctrl+E
    B.单击工具栏中的“菜单编辑器”按钮
    C.执行“工具”菜单中的“菜单编辑器”命令
    D.按Shift + Alt + M
    正确答案:——D——
4.[单选题]以下关于图片框控件的说法中,错误的是
    A.可以通过Print方法在图片框中输出文本
    B.清空图片框控件中图形的方法之一是加载一个空图形
    C.图片框控件可以作为容器使用
    D.用Stretch属性可以自动调整图片框中图形的大小
    正确答案:————
5.[单选题]可以惟一标识控件数组中的每一个控件属性的是
    A.Name
    B.Caption
    C.Index
    D.Enabled
    正确答案:————
6.[单选题]下列可以打开立即窗口的操作是
    A.Ctrl+D
    B.Ctrl+E
    C.Ctrl+F
    D.Ctrl+G
    正确答案:————
7.[单选题]阅读程序: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
    D.出错
    正确答案:————
8.[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后,单击命令按钮,输出结果是
    A.7
    B.15
    C.157
    D.538
    正确答案:————
9.[单选题]刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是
    A.单选按钮
    B.图片框
    C.通用对话框
    D.文本框
    正确答案:————
10.[单选题]阅读程序: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
    正确答案:————
11.[单选题](5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
      Private Sub Command1_Click()
                Move 500,500
      End Sub
      程序运行后,单击命令按钮,执行的操作为
    A.命令按钮移动到距窗体左边界、上边界各500的位置
    B.窗体移动到距屏幕左边界、上边界各500的位置
    C.命令按钮向左、上方向各移动500
    D.窗体向左、上方向各移动500
    正确答案:————
12.[单选题]在窗体上面一个命令按钮(其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
    正确答案:————
13.[单选题]关于MDI窗体不正确描述的是
    A.所有子窗体均在MDI窗体工作区,可进行排列
    B.所有子窗体的大小和位置均可以调整,并且可以移动出MDI窗体工作区
    C.所有子窗体最小化后,其图标显示在MDI窗体工作区,而不是状态栏
    D.MDI窗体和子窗体均可以有自己的菜单
    正确答案:————
14.[单选题]假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为
    A.Label1. BackStyle=0Label1.Borderstyle=0
    B.Label1.BackStyle=1Label1.Borderstyle=1
    C.Label1.BackStyle=TrueLabel1.BorderStyle=True
    D.Label1.BackStyle=FalseLabel1.Borderstyle=False
    正确答案:————
15.[单选题]在窗体中添加一个通用对话框,其名称为CommonDialog1,然后添加一个命令按钮。要求单击命令按钮时,打开一个打开文件的通用对话框。该窗口的标题为“打开”,在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是( )
    A."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    B."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    C."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    D."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    正确答案:————
16.[单选题]为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为( )
    A.5
    B.500
    C.300
    D.5000
    正确答案:————
17.[单选题]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x窗体上有一组合框Combo1,并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中,当窗体加载时的代码如下:Private Sub Form_Load()Combo1.AddIt
    A.Text1.Text=Combo1.List(0)
    B.Text1.Text=Combo1.List(1)
    C.Text1.Text=Combo1.List(2)
    D.Text1.Text=Combo1.List(3)
    正确答案:————
18.[单选题]在当前窗体中已经添加一公共对话框commonDialog1 ,实现打开文件保存对话框的语句
    A.commonDialog1.showsave
    B.commonDialog1.action=3
    C.commonDialog1.showopen
    D.lcommonDialog1.action=1
    正确答案:————
19.[单选题]当利用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 "
    正确答案:————
20.[单选题]在窗体上画一个名称为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"
    正确答案:————
19春学期《可视化程序设计Ⅰ》在线作业3

一、单选题:
1.[单选题]在窗体上画一个名称为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"
    正确答案:——A——
2.[单选题]确定一个控件在窗体上的位置的属性是
    A.Width和Height
    B.Width或Height
    C.Top和Left
    D.Top或Left
    正确答案:——C——
3.[单选题]在窗体上面一个命令按钮(其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
    正确答案:——D——
4.[单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click()    strText = InputBox("请输入")    Text1.Text = strTextEnd Sub
Private Sub Text1_Change()    Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中
    A.空
    B.abcdef
    C.abc
    D.def
    正确答案:————
5.[单选题]在窗体上面画一个命令按钮,然后编写如下事件过程: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
    正确答案:————
6.[单选题]要从磁盘上读入一个文件名为“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
    正确答案:————
7.[单选题]在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
    A.“text (.txt)|(*.txt)”
    B.“文本文件( .txt) | (.txt)”
    C.“text(.txt)||(*.txt)”
    D.“text(.txt)(*.txt)”
    正确答案:————
8.[单选题]列表框控件中的列表内容是通过( )属性设置的
    A.Name
    B.Caption
    C.List
    D.Text
    正确答案:————
9.[单选题]为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
    A.Value
    B.Default
    C.Cancel
    D.Enabled
    正确答案:————
10.[单选题]在窗体中添加一个通用对话框,其名称为CommonDialog1,然后添加一个命令按钮。要求单击命令按钮时,打开一个打开文件的通用对话框。该窗口的标题为“打开”,在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是( )
    A."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    B."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
    C."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    D."Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
    正确答案:————
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
    正确答案:————
12.[单选题]删除ListBox对象list1最后一个列表项的可行语句
    A.list1.removeitem list1.listcount
    B.list1.removeitem list1.listcount -1
    C.list1.deleteitem list1.listcount -1
    D.list1.deleteitem list1.listcount
    正确答案:————
13.[单选题]可以惟一标识控件数组中的每一个控件属性的是
    A.Name
    B.Caption
    C.Index
    D.Enabled
    正确答案:————
14.[单选题]定时器的Interval属性以( )为单位指定Timer事件之间的时间间隔
    A.分
    B.秒
    C.毫秒
    D.微秒
    正确答案:————
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"
    正确答案:————
16.[单选题](6)在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是
    A.TabStop
    B.Enabled
    C.Visible
    D.TabIndex
    正确答案:————
17.[单选题]刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是
    A.单选按钮
    B.图片框
    C.通用对话框
    D.文本框
    正确答案:————
18.[单选题]以下能够正确计算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
    正确答案:————
19.[单选题]关于数据控件的常用方法说法正确的
    A.Refresh方法用于从数据库中读取数据更新界面
    B.Refresh方法用于将界面中的数据更新到数据库
    C.UpdateControl方法用于从数据库中读取数据更新界面
    D.UpdateControl方法用于将界面中的数据更新到数据库
    正确答案:————
20.[单选题]以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
    A. 32548.5
    B."32,548.5"
    C."032,548.50"
    D."32,548.50"
    正确答案:————
附件是答案,请核对题目下载
页: [1]
查看完整版本: 东北大学19春《可视化程序设计Ⅰ》在线作业123