建立一个新的标准模块，应该选择（）下的“添加模块”命令。

单项选择题

执行x$一InputBox(“请输人x的值”)时，在弹出的对话框巾输入123，在列表框Listl中选中一个列表项(数据为456)，使结果为123456的语句是（）。

A．y=x$+List1．List(0)
B．y=x$+List1．List(1)
C．Y=Val(x$)+Val(List1．List(0))
D．y=Val(x$)＆Val(List1．List(1))

单项选择题

在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。

A．工程资源管理器窗口
B．工具箱窗口
C．代码窗口
D．属性窗口

单项选择题

下面的控件可作为其他控件容器的是（）。

A．PictureBox和Data
B．Frame和Image
C．PictureBox和Framc
D．Image和Data

单项选择题

下面循环语句巾在任何情况下都至少执行一次循环体的是（）。

A．Do While<条件> 循环体 Loop
B．While<条件> 循环体 Wend
C．Do 循环体 Loop
D．Do Until<条件> 循环体 Until<条件>Loop

单项选择题

下列说法错误的是（）。

A．窗体文件的扩展名为“．frm”
B．一个窗体对应一个窗体文件
C．Visual Basic中的一个工程只包含一个窗体
D．Visual Basic中一个工程最多可以包含255个窗体

单项选择题

要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是( )。

A．设置BorderStyle的值为Fixed ToolWindow
B．设置Borderstyle的值为Sizable ToolWindow
C．设置Borderstyle的值为Fixed Dialog
D．设置Borderstyle的值为Sizable

单项选择题

如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是（）。

A．Redim a As Integer
B．Static a As Integer
C．Public a As Integer
D．Dim a As Integer

单项选择题

把窗体的KeyPreview属性设置为Frue，然后编写如下事件过程： Private Sub Form Key：Press(KevAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（）。

A．A
B．B
C．C
D．D

单项选择题

用InputBox函数设计的对话框，其功能是（）。

A．只能接收用户输入的数据．但不会返回任何信息
B．能接收用户输入的数据，并能返回用户输入的信息
C．既能用于接收用户输入的信息。义能用于输出信息
D．专门用于输出信息

单项选择题

假定有如下的Sub过程：Sub S(X As Single，Y As Single) t=X x=t／y y=t Mod YEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl Click() Dim a AS Single Dim b AS Singlea=3 b：=4 S(a，b) Print a，b End Sub 程序运行后，单击命令按钮，输出结果为（）。

A．5 4
B．1 1
C．1．25 4
D．1．25 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)

单项选择题

在窗体上画一个名称为Labell、标题为“Visual Basic考试”的标签，两个名称分别为Commandl和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500．如图所示。编写如下程序：
Private Sub Form Load() Timerl．Enabled=false End Sub Private Sub Commandl Click() Tlinerl．Enabied=True End Sub Private Sub Timerl Timer() If Labell．Left

A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动

单项选择题

当在滚动条内拖动滚动块时触发（）。A．KeyUp事件 B。KeyPress事件C．Scroll事件D．Change事件22．下面程序的输出结果是（）。Private Sub Commandl Click() Ch$=“ABCDEF”End SubPrivate Sub proc(ch As String) S="" For k=Len(ch)To 1 Step-l s=s＆．Mid(ch，k，1) Next k ch=SEnd Sub

A．ABCDEF
B．FEDCBA
C．A
D．F

单项选择题

执行下列程序段后，输出的结果是（）。For kl=0 To 4 y=20 For k2=0 To 3 Y=10 For k3=0 To 2 y=Y+10 Next k3 Next k2Next k1Print y

A．90
B．60
C．40
D．10

单项选择题

在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name属性为Commandl)，然后编写如下事件过程： Private Sub Commandl Click() x=0 Do While X<50 x=(x+2)*(x+3) n=n+1 Loop Text1．Text=Str(n) Text2．Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A．1和0
B．2和72
C．3和50
D．4和168

单项选择题

用下面语句定义的数组的元素个数是（）。 Dim A(-3 To 5)As Integer

A．6
B．7
C．8
D．9

单项选择题

若在某窗体模块中有如下事件过程： Private Sub Commandl Click(Index As Integer) End Sub则以下叙述中正确的是（）。

A．此事件过程与不带参数的事件过程没有区别
B．有一个名称为Commandl的窗体，单击此窗体则执行此事件过程
C．有一个名称为Commandl的控件数组，数组中有多个不同类型控件
D．有一个名称为Commandl的控件数组，数组中有多个相同类型控件

单项选择题

下列程序段的执行结果为（）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“* 0 ” Case 1 Print“ 1 ” End Select Case 2 Print“ 2 *” End Select

A．* *0* *
B．* * 1* *
C．* *2**
D．0

单项选择题

没有数组定义语句：Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋值的语句错误的是（）。

A．a(3)=3
B．a(3)=InputBox(“input data”)
C．a(3)=Listl．ListIndex
D．a=Array(1，2，3，4，5，6)

单项选择题

在窗体上画一个名称为Textl的文奉框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub ComInandl Click() Dim arrayl(10，10)As Integer Dim i．j As Integer For i=1 TO 3 For j=2 To 4 arrayl(i，j)=i+j Next j Next i Textl．Text=arrayl(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮。在文本框中显示的值是（）。

A．12
B．13
C．14
D．15

单项选择题

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。

A．任何时刻最多只有一个窗体是活动窗体
B．不能把标准模块设置为启动模块
C．用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D．如果工程中含有Sub Main过程，则程序一定首先执行该过程

单项选择题

下列程序的执行结果为（）。 Private Sub Commandl Click() Dim X As Integer，Y As Integer x=1 2：y=20 Call Value(x，y) Print x:Y End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m*2：n=n-5 Print m：n End Sub

A．20 12 20 15
B．12 20 12 25
C．24 15 12 20
D．24 12 12 15

单项选择题

在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Commandl，然后编写如下事件过程： Private Sub Commandl Click()Cont．FileName=“”Cont．Flags=vbOFNFileMustExist Cont．Filter=“All Files丨．”Cont．Filterlndex=3 Cont．DialogTitle=“Open File”CO nt．Action=1 If Cont．FileName=“”Then MsgBox“No file selected” Else Open Cont．FileName For Input As#1 Do While Not EOF(1) Input#1，b$ Print b$ Loop End IfEnd Sub 以下各选项，对上述事件过程描述错误的是（）。

A．该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B．选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值
C．Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D．过程中的”Cont．Action=1”用来建立Open对话框，它与Cont．ShowOpen等价

单项选择题

以下叙述中错误的是（）。

A．在KeyUp和KeyDown事件过程巾，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B．在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C．KeyPress事件中不能识别键盘上某个键的按下与释放
D．KeyPress事件中可以识别键盘上某个键的按下与释放

单项选择题

建立一个新的标准模块，应该选择（）下的“添加模块”命令。

A．“工程”菜单
B．“文件”菜单
C．“工具”菜单
D．“编辑”菜单

单项选择题

以下能判断是否到达文件尾的函数是（）。

A．BOF
B．LOC
C．LOF
D．EOF

单项选择题

下面循环语句巾在任何情况下都至少执行一次循环体的是（）。

A．Do While<条件> 循环体 Loop
B．While<条件> 循环体 Wend
C．Do 循环体 Loop
D．Do Until<条件> 循环体 Until<条件>Loop

单项选择题

设有两个串p和q，求q在p中首次出现位置的运算称为（）。

A．连接
B．模式匹配
C．求子串
D．求串长

建立一个新的标准模块，应该选择（ ）下的“添加模块”命令。

你可能感兴趣的试题

下列关于关系运算的叙述中正确的是（ ）。

索引属于（ ）。

不能脱离控件(包括客体)而独立存在的过程是（ ）。

下列不能打开菜单编辑器的操作是（ ）。

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（ ）。

在窗体上建立通用对话框需要添加的控件是（ ）。

执行如下两条语句后，窗体上显示的是( )。 a=9．8596 Print Format(a，“$00，00．00”)

执行x$一InputBox(“请输人x的值”)时，在弹出的对话框巾输入123，在列表框Listl中选中一个列表项(数据为456)，使结果为123456的语句是（ ）。

在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。

下面的控件可作为其他控件容器的是（ ）。

下面循环语句巾在任何情况下都至少执行一次循环体的是（ ）。

下列说法错误的是（ ）。

要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是( )。

如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是（ ）。

用InputBox函数设计的对话框，其功能是（ ）。

设a=“Visual Basic”，下面使b=“Basic”的语句是（ ）。

执行下列程序段后，输出的结果是（ ）。For kl=0 To 4 y=20 For k2=0 To 3 Y=10 For k3=0 To 2 y=Y+10 Next k3 Next k2Next k1Print y

用下面语句定义的数组的元素个数是（ ）。 Dim A(-3 To 5)As Integer

若在某窗体模块中有如下事件过程： Private Sub Commandl Click(Index As Integer) End Sub则以下叙述中正确的是（ ）。

下列程序段的执行结果为（ ）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“* *0* *” Case 1 Print“* *1* *” End Select Case 2 Print“* *2* *” End Select

没有数组定义语句：Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋值的语句错误的是（ ）。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（ ）。

下列程序的执行结果为（ ）。 Private Sub Commandl Click() Dim X As Integer，Y As Integer x=1 2：y=20 Call Value(x，y) Print x:Y End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m*2：n=n-5 Print m：n End Sub

以下叙述中错误的是（ ）。

建立一个新的标准模块，应该选择（ ）下的“添加模块”命令。

以下能判断是否到达文件尾的函数是（ ）。

下面循环语句巾在任何情况下都至少执行一次循环体的是（ ）。

设有两个串p和q，求q在p中首次出现位置的运算称为（ ）。

建立一个新的标准模块，应该选择（）下的“添加模块”命令。

下列关于关系运算的叙述中正确的是（）。

索引属于（）。

不能脱离控件(包括客体)而独立存在的过程是（）。

下列不能打开菜单编辑器的操作是（）。

在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）。

在窗体上建立通用对话框需要添加的控件是（）。

执行x$一InputBox(“请输人x的值”)时，在弹出的对话框巾输入123，在列表框Listl中选中一个列表项(数据为456)，使结果为123456的语句是（）。

在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。

下面的控件可作为其他控件容器的是（）。

下面循环语句巾在任何情况下都至少执行一次循环体的是（）。

下列说法错误的是（）。

如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是（）。

用InputBox函数设计的对话框，其功能是（）。

设a=“Visual Basic”，下面使b=“Basic”的语句是（）。

执行下列程序段后，输出的结果是（）。For kl=0 To 4 y=20 For k2=0 To 3 Y=10 For k3=0 To 2 y=Y+10 Next k3 Next k2Next k1Print y

用下面语句定义的数组的元素个数是（）。 Dim A(-3 To 5)As Integer

若在某窗体模块中有如下事件过程： Private Sub Commandl Click(Index As Integer) End Sub则以下叙述中正确的是（）。

下列程序段的执行结果为（）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“* 0 ” Case 1 Print“ 1 ” End Select Case 2 Print“ 2 *” End Select

没有数组定义语句：Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋值的语句错误的是（）。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。

下列程序的执行结果为（）。 Private Sub Commandl Click() Dim X As Integer，Y As Integer x=1 2：y=20 Call Value(x，y) Print x:Y End Sub Private Sub Value(ByVal m As Integer，ByVal n As Integer) m=m*2：n=n-5 Print m：n End Sub

以下叙述中错误的是（）。

建立一个新的标准模块，应该选择（）下的“添加模块”命令。

以下能判断是否到达文件尾的函数是（）。

下面循环语句巾在任何情况下都至少执行一次循环体的是（）。

设有两个串p和q，求q在p中首次出现位置的运算称为（）。