下面有关标准模块的叙述中，错误的是( )。

单项选择题

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print“VB Program”End Sub

A．用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B．用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C．用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D．用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

单项选择题

窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Commandl一Click() Text1．Text=“程序设计” Text1．SetFocus End Sub Private SubText 1一GotFocus() Text1．Text=“等级考试” End Sub运行以上程序，单击命令按钮后( )。

A．文本框中显示的是“程序设计”，且焦点在文本框中
B．文本框中显示的是“等级考试”，且焦点在文本框中
C．文本框中显示的是“程序设计”，且焦点在命令按钮上
D．文本框中显示的是“等级考试”，且焦点在命令按钮上

单项选择题

设窗体上有名称为Optionl的单选按钮，且程序中有语句：If Optionl．Value=True Then下面语句审与该语句丕等俭的是( )。

A．If Optionl．Value Then
B．If Optionl=True Then
C．If Value=True Then
D．If Optionl Then

单项选择题

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。

A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C．由于滚动条的Max属性值小于Min属性值，程序会出错
D．由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

单项选择题

下列关于通用对话框CommonDialog1的叙述中，错误的是( )。

A．只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开
B．使用CommonDialogl．ShowColor方法，可以显示“颜色”对话框
C．CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告
D．在显示“字体”对话框前，必须先设置CommonDialogl的Flags属性，否则会出错

单项选择题

在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为( )。

A．退出(X&)
B．退出(&X)
C．退出(X#)
D．退出(#X)

单项选择题

下面哪个属性肯定不是框架控件的属性( )。

A．Text
B．Caption
C．Left
D．Enabled

单项选择题

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：Private Sub Optionl_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中，正确的是( )。

A．Index为1表示单选按钮被选中，为0表示未选中
B．Index的值可正可负
C．Index的值用来区分哪个单选按钮被选中
D．Index表示数组中单选按钮的数量

单项选择题

设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发( )。

A．Textl的SetFocus事件
B．Textl的GotFocus事件
C．Textl的LostFocus事件
D．窗体的GotFocus事件

单项选择题

窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Commandl，并编写了以下程序：
Private Sub Commandl．Click()Call calc(HV．Value，HT．Value)End SubPublic Sub calc(x As Integer，y As Integer)Text1．Text=x*yEnd Sub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是( )。

A．过程调用语句不对，应为calc(HV，HT)
B．过程定义语句的形式参数不对，应为Sub calc(x As Control，y As Contr01)
C．计算结果在文本框中显示出来
D．程序不能正确运行

单项选择题

现有如下程序：Private Sub Commandl_Click() s=0 For i=1 To 5 S=S+f(5+i) Next Print sEnd SubPublic Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=tEnd Function运行程序，则窗体上显示的是( )。

A．38
B．49
C．61
D．70

单项选择题

窗体上有一个名称为Picturel的图片框控件，一个名称为Labell的标签控件，如图所示。
现有如下程序：Public Sub display(x As Contr01) If TypeOf x Is Label Then x Caption=“计算机等级考试” Else xPicture=LoadPicture(“pic．jpg”) End IfEnd SubPrivate Sub Labell_Click() Call display(Labell)End SubPrivate Sub Picturel_Click() Call display(Picturel)End Sub对以上程序，下列叙述中错误的是( )。

A．程序运行时会出错
B．单击图片框，在图片框中显示一幅图片
C．过程中的x是控件变量
D．单击标签，在标签中显示一串文字

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1—KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2．Text=Chr(Asc+2) End Sub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。

A．A
B．a
C．C
D．c

单项选择题

设窗体上有一个文本框Text1和一个命令按钮Commandl，并有以下事件过程： Private Sub Commandl—Click() Dim s As String，eh As String s=“” For k=1 To Lea(Textl) ch=Mid(Text1，k，1) s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。

A．Basic
B．cisaB
C．BASIC
D．CISAB

单项选择题

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Commandl—Click() Dim a(10)As Integer，max As Integer For k=l To 10 a(k)=InputBox(“输入一个整数”) Next k max=0 For k=1 To 10 If a(k)>max Then max=a(k) End If Next k Print max End Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是( )。

A．把If a(k)>max Then改为Ⅱa(k)B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=0改为max=a(10)

单项选择题

已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Next j Print“第”&i&“个学生的总分是：”；sum Next i End Sub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是( )。

A．把外层循环语句For i=1 To 4改为For i=1 To 3内层循环语句For j=1 To 3改为For j=1 To 4
B．把sum=0移到For i=1 To 4和For j=1 To 3之间
C．把sum=sum+score(i，j)改为8urn：sum+score(j，i)
D．把sum=sum+score(i，j)改为sum=score(i，j)

单项选择题

窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Commandl_Click() m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub Private Sub Command2一Click() m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是 ( )。

A．5
B．6
C．10
D．11

单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程： Private Sub Commandl—Click() Counter=0 For i=1 To 4 For j=6 To 1 Step一2 Counter=Counter+1 Next j Next i Labell．Caption=Str(Counterl End Sub程序运行后，单击命令按钮，标签中显示的内容是( )。

A．11
B．12
C．16
D．20

单项选择题

在窗体上画一个名为Commandl的命令按钮，然后编写以下程序： Private Sub Commandl—Click() Dim M(10)As Integer For k=1 To 10 M(k)=12一k Next k X=8 Print M(2+M(X)) End Sub运行程序，单击命令按钮，在窗体上显示的是( )。

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

单项选择题

在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Commandl—Click() X=5：Y=3 Call proc(X，Y) Labell．Caption=X Label2．Caption=YEnd SubPrivate Sub proc(a As Integer，ByVal b As Integer) X=a*a Y=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。

A．25和3
B．5和3
C．25和6
D．5和6

下面有关标准模块的叙述中，错误的是( )。

你可能感兴趣的试题

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

支持子程序调用的数据结构是( )。

下列排序方法中，最坏情况下比较次数最少的是( )。

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

耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。

某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是( )。

数据库应用系统中的核心问题是( )。

有两个关系R、S如下：由关系R通过运算得到关系S，则所使用的运算为( )。

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

将E—R图转换为关系模式时，实体和联系都可以表示为( )。

语句Dim a(-3 To 4，3 To 6)As Integer定义的数组的元素个数是( )。

以下关于函数过程的叙述中，正确的是( )。

以下关于过程及过程参数的描述中，错误的是( )。

以下变量名中合法的是( )。

把数学表达式表示为正确的VB表达式应该是( )。

下面有关标准模块的叙述中，错误的是( )。

可以产生30～50(含30和50)之间的随机整数的表达式是( )。

在程序运行时，下面的叙述中正确的是( )。

下列有关文件的叙述中，正确的是( )。

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print“VB Program”End Sub

窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Commandl一Click() Text1．Text=“程序设计” Text1．SetFocus End Sub Private SubText 1一GotFocus() Text1．Text=“等级考试” End Sub运行以上程序，单击命令按钮后( )。

设窗体上有名称为Optionl的单选按钮，且程序中有语句：If Optionl．Value=True Then下面语句审与该语句丕等俭的是( )。

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。

下列关于通用对话框CommonDialog1的叙述中，错误的是( )。

在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为( )。

下面哪个属性肯定不是框架控件的属性( )。

窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：Private Sub Optionl_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中，正确的是( )。

设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发( )。

现有如下程序：Private Sub Commandl_Click() s=0 For i=1 To 5 S=S+f(5+i) Next Print sEnd SubPublic Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=tEnd Function运行程序，则窗体上显示的是( )。

在窗体上画一个名为Commandl的命令按钮，然后编写以下程序： Private Sub Commandl—Click() Dim M(10)As Integer For k=1 To 10 M(k)=12一k Next k X=8 Print M(2+M(X)) End Sub运行程序，单击命令按钮，在窗体上显示的是( )。

有两个关系R、S如下：
由关系R通过运算得到关系S，则所使用的运算为( )。

把数学表达式
表示为正确的VB表达式应该是( )。