最新消息:可做奥鹏等各院校作业论文,答案请联系QQ/微信:18866732

电科20秋《VB程序设计》在线作业1【标准答案】

20秋《VB程序设计》在线作业1题目

试卷总分:100  得分:100

一、单选题 (共 20 道试题,共 100 分)

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.246

B.123

C.456

D.123123

 

2.在窗体上画一个名称为Command1的命令按钮和两个名称分别为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 Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是( )。

A.10

B.20

C.30

D.40

 

3.指出下面哪个语句不是写文件语句( )。

A.Print

B.Output

C.Write

D.Put

 

4.窗体上有一组合框Combol,窗体加载时的代码如下: Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目,则正确的语句的是( )。

A.Textl.Text=Combol.List(0)

B.Textl.Text=Combol.List(1)

C.Textl.Text=Combol.List(2)

D.Textl.Text=Combol.List(3)

 

5.设组合框Combo1中有三个项目,则以下能删除最后一项的语句是( )。

A.Combo1.RemoveItem Text

B.Combo1.RemoveItem 2

C.Combo1.RemoveItem 3

D.Combo1.RemoveItem Combo1.Listcount

 

6.设有如下通用过程: 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.10

B.15

C.25

D.24

 

7.为了把一个记录型变量的内容写入文件中指定的位置,要使用语句( )。

A.Get文件号,记录号,变量名

B.Get文件号,变量名,记录号

C.Put文件号,变量名,记录号

D.Put文件号,记录号,变量名

 

8.在下列动作中,不能引发命令按钮Click事件的是( )。

A.在按钮上单击鼠标左键

B.在按钮上单击鼠标右键

C.把焦点转移到按钮上,然后按回车

D.如果按钮有快捷字母键,按Alt+快捷字母键

 

9.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10) As Integer Dim 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.12

B.13

C.14

D.15

 

10.设有如下程序: Option Base 0 Private Sub Form_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(5 – I); Next I End Sub 程序运行后,单击窗体,则在窗体上显示的是( )。

A.4321

B.5432

C.6543

D.7654

 

11.在调用“打开”或“保存”文件对话框时,如果需要指定文件列表框列出的文件类型是.doc文件,则正确的描述格式是( )。

A.CommonDialog1.Filter=“*.DOC|*.doc”

B.CommonDialog1.Filter=“文本文件(.doc)|(*.doc)”

C.CommonDialog1.Filter=“text(.doc)||(*.doc)”

D.CommonDialog1.Filter=“text(.doc)(*.doc)”

 

12.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为( )。

A.*

B.=

C.&

D.-

 

13.下列哪个属性设置文本框中文字的对齐方式( )。

A.SelLength

B.Alignment

C.Multiline

D.ScrollBars

 

14.以下能判断是否到达文件尾的函数是( )。

A.BOF

B.LOC

C.LOF

D.EOF

 

15.下面叙述错误的是( )。

A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器

B.目录列表框DirListBox显示当前驱动器分层目录树

C.文件列表框FileListBox显示选定目录中的所有文件

D.文件列表框FileName属性是设定允许显示文件名的文件类型

 

16.设a=10,b=5,c=1,执行语句Print a>b>c后,窗体上显示的是( )。

A.True

B.False

C.1

D.出错信息

 

17.在窗体上画一个名称为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.1 3.4 5.8

B.1 3 5

C.1 4 7

D.无数据输出

 

18.以下关于焦点的叙述中,错误的是( )。

A.如果文本框的TabStop属性为False,则不能接收从键盘输入的数据

B.当文本框失去焦点时,触发LostFocus事件

C.当文本框的Enabled属性为False时,其Tab顺序不起作用

D.可以用TabIndex属性改变Tab顺序

 

19.执行语句:Open “Tel.dat” For Random As #1 Len=50后,对文件Tel.dat中的数据能够执行的操作是( )。

A.只能写,不能读

B.只能读,不能写

C.既可以读,也可以写

D.不能读,不能写

 

20.Sub过程与Function函数的最根本区别是( )。

A.Function过程可以有参数,而Sub过程不可以

B.两种过程参数的传递方式不同

C.Sub过程无返回值,但Function过程有返回值

D.Sub过程是语句级调用,可以使用Call或直接使用过程名,但Function过程是在表达式中调用

转载请注明:奥鹏作业之家 » 电科20秋《VB程序设计》在线作业1【标准答案】

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址