现有如下程序：Private Sub Commandl_Click() ...

单项选择题

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。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

现有如下程序：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运行程序，则窗体上显示的是( )。

你可能感兴趣的试题

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

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

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

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

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

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

某二叉树有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表达式应该是( )。