以下关于事件、事件驱动的叙述中，错误的是(　　)。

单项选择题

设有窗体的Form_MouseMove事件过程如下：Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single)　　If(Button And 3)＝3 Then　　　　Print "检查按键"　　End IfEnd Sub关于上述过程，以下叙述中正确的是(　　)。

A．按下鼠标左键时，在窗体上显示"检查按键"
B．按下鼠标右键时，在窗体上显示"检查按键"
C．同时按下鼠标左、右键时，在窗体上显示"检查按键"
D．不论做何种操作，窗体上都不会显示

单项选择题

确定图片框Picture1在窗体上位置的属性是(　　)。

A．Width和Height
B．Left和Top
C．Width和Top
D．Height和Left

单项选择题

以下不属于单选按钮的属性是(　　)。

A．Caption
B．Name
C．Min
D．Enabled

单项选择题

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。

A．List1.Text
B．List1.Index
C．List1.ListIndex
D．List1.List

单项选择题

当文本框中的内容发生改变时所触发的事件是(　　)。

A．KeyUp
B．Change
C．LostFocus
D．GotFocus

单项选择题

窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1_Timer()　　Static flag As Integer　　If flag＝0 Then flag＝1　　flag＝－flag　　If flag＝1 Then　　　　Text1.ForeColor＝&HFF&　　’&HFF&为红色　　Else　　　　Text1.ForeColor＝&HC000&　　’&HC000&为绿色　　End IfEnd Sub以下叙述中正确的是(　　)。

A．每次执行此事件过程时，flag的初始值均为0
B．flag的值只可能取0或1
C．程序执行后，文本框中的文字每5秒改变一次颜色
D．程序有逻辑错误，Else分支总也不能被执行

单项选择题

关于KeyPress事件，以下叙述中正确的是(　　)。

A．在控件数组的控件上按键盘键，不能触发KeyPress事件
B．按下键盘上任一个键时，都能触发KeyPress事件
C．按字母键时，拥有焦点的控件的KeyPress事件会被触发
D．窗体没有KeyPress事件

单项选择题

下面程序运行时，若输入"Visual Basic Programming"，则在窗体上输出的是(　　)。Private Sub Command1_Click()　　Dim count(25)As Integer， ch As String　　ch＝UCase(InputBox("请输入字母字符串"))　　For k＝1 To Len(ch)　　　　n＝Asc(Mid(ch，k,1))－Asc("A")　　　　If n>＝0 Then　　　　　　count(n)＝count(n)＋1　　　　End If　　Next k　　m＝count(0)　　For k＝1 To 25　　　　If m

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

单项选择题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()　　　　a＝InputBox("Enter an integer")　　　　b＝Text1.Text　　　　Text1.Text＝b＋a End Sub程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是(　　)。

A．579
B．123
C．456123
D．456

单项选择题

现有如下一段程序：　　x＝UCase(InputBox("输入："))　　Select Case x　　　　Case "A" To "C"　　　　　　Print "考核通过！"　　　　Case "D"　　　　　　Print "考核不通过！"　　　　Case Else　　　　　　Print "输入数据不合法！"　　End SelectEnd Sub执行程序，在输入框中输入字母"B"，则以下叙述中正确的是(　　)。

A．程序运行错
B．在窗体上显示"考核通过！"
C．在窗体上显示"考核不通过！"
D．在窗体上显示"输入数据不合法！"

单项选择题

窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。
程序代码如下：Dim color(3)As IntegerPrivate Sub Form_Load()　　Call fill(color())End SubPrivate Sub fill(c() As Integer)　　Form1.BackColor＝RGB(c(1)，c(2)，c(3))End SubPrivate Sub HSRed_Change()　　color(1)＝HSRed.Value　　Call fill(color())End SubPrivate Sub HSGreen_Change()　　color(2)＝HSGreen.Value　　Call fill(color())End SubPrivate Sub HSBlue_Change()　　color(3)＝HSBlue.Value　　Call fill(color())End Sub关于以上程序，如下叙述中错误的是(　　)。

A．color是窗体级整型数组
B．改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变
C．3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败
D．fill 函数定义中的形式参数是数组型参数

单项选择题

设有如下通用过程：Public Function Fun(xStr As String)As String　　Dim tStr As String， strL As Integer　　tStr＝""　　strL＝Len(xStr)　　i＝strL / 2　　Do While i<＝strL　　　　tStr＝tStr & Mid(xStr， i＋1， 1)　　　　i＝i＋1　　Loop　　Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()　　Dim S1 As String　　S1＝"ABCDEF"　　Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是(　　)。

A．ABCDEF
B．abcdef
C．defdef
D．defabc

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()　　Show　　Text1.Text＝""　　Text1.SetFocusEnd SubPrivate Sub Command1_Click()　　Text1.Text＝LCase(SaveAll)＋SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)　　SaveAll＝SaveAll＋Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为(　　)。

A．vbVB
B．不显示任何信息
C．VB
D．出错

单项选择题

窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序： Private Sub command1_Click() 　　Dim n 　　If Text1.Text<>"123456"Then 　　　　n＝n＋1 　　　　Print "口令输入错误"& n & "次" 　　End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击"确认口令"命令按钮，若输入的口令不是"123456"，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是(　　)。

A．在Dim n语句的下面添加一句：n＝0
B．把 Print "口令输入错误" & n & "次" 改为 Print "口令输入错误"＋n＋"次"
C．把 Print "口令输入错误" & n & "次" 改为 Print "口令输入错误" & Str(n)& "次"
D．把Dim n 改为 Static n

单项选择题

下面程序计算并输出的是(　　)。Private Sub Command1_Click()　　a＝10　　s＝0　　Do　　　　s＝s＋aaa　　　　a＝a－1　　Loop Until a<＝0　　Print sEnd Sub

A．1 ³ ＋2 ³ ＋3 ³ ＋…＋10 ³ 的值
B．10！＋…＋3！＋2！＋1！的值
C．(1＋2＋3＋…＋10)3的值
D．10个10 ³ 的和

单项选择题

设有如下通用过程：Public Function f(x As Integer)　　Dim y As Integer　　x＝20　　y＝2　　f＝x * yEnd Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()　　Static x As Integer　　x＝10 　　y＝5　　y＝f(x)　　Print x； yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(　　)。

A．10 5
B．20 40
C．20 5
D．10 40

单项选择题

假定有以下通用过程：Function Fun(n As Integer)As Integer　　x＝n * n　　Fun＝x－11End Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()　　Dim i As Integer　　For i＝1 To 2　　　　 y＝Fun(i)　　　　 Print y；　　Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是(　　)。

A．1 3
B．10 8
C．－10 －7
D．0 5

以下关于事件、事件驱动的叙述中，错误的是( )。

你可能感兴趣的试题

下列叙述中正确的是( )。

下列关于线性链表的叙述中，正确的是( )。

下面描述中错误的是( )。

在软件开发中，需求分析阶段产生的主要文档是( )。

下列关于数据库设计的叙述中，正确的是( )。

结构化程序所要求的基本结构不包括( )。

软件测试的目的是( )。

数据库系统的三级模式不包括( )。

在软件设计中不使用的工具是( )。

在黑盒测试方法中，设计测试用例的主要根据是( )。

以下叙述中正确的是( )。

下列打开"代码窗口"的操作中错误的是( )。

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是( )。

表达式Sgn(0.25)的值是( )。

以下关于VB文件的叙述中，错误的是( )。

设x为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的Case子句是( )。

语句 Dim Arr(－2 To 4)As Integer 所定义的数组的元素个数为( )。

为了使窗体左上角不显示控制框，需设置为False的属性是( )。

以下说法中正确的是( )。

设有语句：Open "c：\Test.Dat" For Output As #1则以下叙述中错误的是( )。

以下关于事件、事件驱动的叙述中，错误的是( )。

要删除列表框中最后一个列表项，正确的语句是( )。

使用Line控件在窗体上画一条从(0,0)到(600,700)的直线，则其相应属性的值应是( )。

设有窗体的Form_MouseMove事件过程如下：Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If(Button And 3)＝3 Then Print "检查按键" End IfEnd Sub关于上述过程，以下叙述中正确的是( )。

确定图片框Picture1在窗体上位置的属性是( )。

以下不属于单选按钮的属性是( )。

对于列表框控件List1，能够表示当前被选中列表项内容的是( )。

当文本框中的内容发生改变时所触发的事件是( )。

关于KeyPress事件，以下叙述中正确的是( )。

现有如下一段程序： x＝UCase(InputBox("输入：")) Select Case x Case "A" To "C" Print "考核通过！" Case "D" Print "考核不通过 ！" Case Else Print "输入数据不合法！" End SelectEnd Sub执行程序，在输入框中输入字母"B"，则以下叙述中正确的是( )。

下面程序计算并输出的是( )。Private Sub Command1_Click() a＝10 s＝0 Do s＝s＋a*a*a a＝a－1 Loop Until a<＝0 Print sEnd Sub

以下关于事件、事件驱动的叙述中，错误的是(　　)。

下列叙述中正确的是(　　)。

下列关于线性链表的叙述中，正确的是(　　)。

下面描述中错误的是(　　)。

在软件开发中，需求分析阶段产生的主要文档是(　　)。

下列关于数据库设计的叙述中，正确的是(　　)。

结构化程序所要求的基本结构不包括(　　)。

软件测试的目的是(　　)。

数据库系统的三级模式不包括(　　)。

在软件设计中不使用的工具是(　　)。

在黑盒测试方法中，设计测试用例的主要根据是(　　)。

以下叙述中正确的是(　　)。

下列打开"代码窗口"的操作中错误的是(　　)。

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是(　　)。

表达式Sgn(0.25)的值是(　　)。

以下关于VB文件的叙述中，错误的是(　　)。

设x为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的Case子句是(　　)。

语句 Dim Arr(－2 To 4)As Integer 所定义的数组的元素个数为(　　)。

为了使窗体左上角不显示控制框，需设置为False的属性是(　　)。

以下说法中正确的是(　　)。

设有语句：Open "c：\Test.Dat" For Output As #1则以下叙述中错误的是(　　)。

以下关于事件、事件驱动的叙述中，错误的是(　　)。

要删除列表框中最后一个列表项，正确的语句是(　　)。

使用Line控件在窗体上画一条从(0,0)到(600,700)的直线，则其相应属性的值应是(　　)。

设有窗体的Form_MouseMove事件过程如下：Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single)　　If(Button And 3)＝3 Then　　　　Print "检查按键"　　End IfEnd Sub关于上述过程，以下叙述中正确的是(　　)。

确定图片框Picture1在窗体上位置的属性是(　　)。

以下不属于单选按钮的属性是(　　)。

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。

当文本框中的内容发生改变时所触发的事件是(　　)。

关于KeyPress事件，以下叙述中正确的是(　　)。

下面程序计算并输出的是(　　)。Private Sub Command1_Click()　　a＝10　　s＝0　　Do　　　　s＝s＋aaa　　　　a＝a－1　　Loop Until a<＝0　　Print sEnd Sub