20秋电子科技大学《VB程序设计》在线作业1答卷VIP

1、20秋电子科技大学VB程序设计在线作业1答卷注意：图片可根据实际需要调整大小在窗体中添加一个命令按钮，然后编写如下程序：Private Sub Command1_Click() Dim a As Integer， b As Integer a=InputBox(“Enter the Firstinteger”) b=InputBox(“Enter the Secondinteger”) Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是()。A.456B.246C.123123D.123在窗体上画一个名称为Command1的命令

2、按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n= Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case IsA.40B.30C.20D.10指出下面哪个语句不是写文件语句?()A.WriteB.PutC.PrintD.Output窗体上有一组合框Combol，窗体加载时的代码如下： Private Sub _Load() Combol. AddItem“电视机”Combol. AddItem“录像机”Combol. AddItem“

3、VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是()。A.Textl.TextCombol.List3B.Textl.TextCombol.List2C.Textl.TextCombol.List1D.Textl.TextCombol.List0设组合框Combo1中有三个项目，则以下能删除最后一项的语句是()。A.Combo1.RemoveItem TextB.Combo1.RemoveItem Combo1.ListcountC.Combo1.RemoveItem 3D.Combo1.RemoveItem

4、2设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。A.25B.24C.15D.

5、10为了把一个记录型变量的内容写入文件中指定的位置，要使用语句()。A.Put文件号，记录号，变量名B.Put文件号，变量名，记录号C.Get文件号，记录号，变量名D.Get文件号，变量名，记录号在下列动作中，不能引发命令按钮Click事件的是()。A.把焦点转移到按钮上，然后按回车B.如果按钮有快捷字母键，按Alt+快捷字母键C.在按钮上单击鼠标左键D.在按钮上单击鼠标右键在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10，10) As Integer Dim

6、 I， j As Integer For I=1 To 3 For j=2 To 4 array1(I， j)=I+j Next j Next I Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。A.15B.14C.13D.12设有如下程序： Option Base 0 Private Sub_Click() Dim a Dim I As Integer a=Array(1，2，3，4，5，6，7，8，9) For I=0 To 3 Print a(5I); Next I End Sub 程序运行后，单击

7、窗体，则在窗体上显示的是()。A.7654B.6543C.5432D.4321在调用“打开”或“保存”文件对话框时，如果需要指定文件列表框列出的文件类型是.doc文件，则正确的描述格式是()。A.CommonDialog1.Filter=“文本文件(.doc)|(*.doc)”B.CommonDialog1.Filter=“text(.doc)|(*.doc)”C.CommonDialog1.Filter=“text(.doc)(*.doc)”D.CommonDialog1.Filter=“*.DOC|*.doc”如果要在菜单中添加一个分隔线，则应将其Caption属性设置为()。A.=B.-

8、C.*D.&下列哪个属性设置文本框中文字的对齐方式?()A.SelLengthB.AlignmentC.MultilineD.ScrollBars以下能判断是否到达文件尾的函数是()。A.BOFB.LOCC.LOFD.EOF下面叙述错误的是()。A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器B.目录列表框DirListBox显示当前驱动器分层目录树C.文件列表框FileListBox显示选定目录中的所有文件D.文件列表框FileName属性是设定允许显示文件名的文件类型设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是()。A

9、.TrueB.FalseC.1D.出错信息在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_ Click() Dim num As Integer num = 1 Do Until num > 6 Print num;num = num+2.4 Loop End Sub程序运行后，单击命令按钮，则窗体上显示的内容是()。A.无数据输出B.1 3.4 5.8C.1 4 7D.1 3 5以下关于焦点的叙述中，错误的是()。A.当文本框的Enabled属性为False时，其Tab顺序不起作用B.当文本框失去焦点时，触发LostFo

10、cus事件C.如果文本框的TabStop属性为False，则不能接收从键盘输入的数据D.可以用TabIndex属性改变Tab顺序执行语句：Open “Tel.dat” For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是()。A.既可以读，也可以写B.只能读，不能写C.只能写，不能读D.不能读，不能写Sub过程与Function函数的最根本区别是()。A.两种过程参数的传递方式不同B.Sub过程是语句级调用，可以使用Call或直接使用过程名，但Function过程是在表达式中调用C.Sub过程无返回值，但Function过程有返回值D.Function过程