设有以下程序代码： Private Sub Commandl—Clic...

单项选择题

定义学生、教师和课程的关系模式S(s#，sn，Sd，Dc，sa)(其属性分别为学号、姓名、所在系、所在系的系主任、年龄)；C(C#，Cn，P#)(其属性分别为课程号、课程名、先修课)；SC(S#，C#，G)(其属性分别为学号、课程号和成绩)，则该关系为( )。

A．第二范式
B．第一范式
C．第三范式
D．BCNF范式

单项选择题

当Visual Basic表达式中含有以下多种运算时( )。①关系运算 ②算术运算 ③逻辑运算 ④函数运算正确的运算顺序为( )。

A．④②①③
B．②④①③
C．②①④③
D．②④③①

单项选择题

下列语句中，不能用于定义数组的关键字是( )。

A．Dim
B．ReDim
C．Static
D．Const

单项选择题

针对Visual Basic的菜单设计操作，下面叙述中错误的是( )。

A．同一个下拉菜单中允许出现名称相同的菜单项
B．菜单项可以没有标题，但不能没有名称
C．可以设置某个菜单项是否可见
D．菜单项的标题内容可以设置为“一”

单项选择题

下列不是Visual Basic合法常量的是( )。

A．&H15&
B．‘abc’
C．1 E一8
D．#2—2—2015#

单项选择题

以下语句中正确的是( )。

A．Dim n(1 To 5，10)As Single
B．Dim m[1，5]As Integer
C．Option Base 5
D．Dim m(5)As Integer：ReDim m(10)

单项选择题

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

A．设a=4，b=3，c=2，则语Print a>b>c的输出结果为False
B．语句Const B As Double=Sin(2)的作用是定义名称为B的符号常量
C．Case y Is＞=80是一个合法的Case子句
D．MsgBox函数没有返回值

单项选择题

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

A．在Visual Basic工程中，可以作为启动对象的是Sub Main过程或任何窗体
B．在KeyPress事件过程中，利用其参数KeyAscii可得到所有键盘键上标注的字符
C．窗体的Hide方法可以从内存中清除该窗体
D．从大键盘上输入‘21’和从右侧小键盘上输入“2”时，在KeyDown事件过程中，其参数KeyCode具有相同的值

单项选择题

执行下面程序段的输出是( )。 Print 1，2； Print 3 Print 4；5

A．1 2 3 4 5
B．1 2 3 4 5
C．1 2 3 4 5
D．1 2 3 4 5

单项选择题

设有如下数组声明： Dim a()As Single 下面关于这一声明的叙述中正确的是( )。

A．因为没有定义a的维数和下标范围，该语句是错误的
B．若在此之后又用语句ReDim定义了a的维数和下标范围，则a是一个合法的动态数组
C．因为没有定义a的维数和下标范围，默认a是一维数组，下标范围为0一10
D．a是一维动态数组，可以直接使用，其元素个数可以变化

单项选择题

设程序中定义了下面的过程： Private Sub proc(ch As String) Print ch End Sub下面语句中错误的是( )。

A．Call proc“OK”
B．Call proc(“”)
C．Call proc(“OK”)
D．proc“OK”

单项选择题

下列方法中，能够使对象获得焦点的是( )。

A．GotFocus
B．FocusOn
C．SetFocus
D．Focus

单项选择题

程序运行时，要清除图片框Picturel中的图像，应使用语句( )。

A．Picturel．Clear
B．Picturel．Picture=“”
C．Picturel．Cls
D．Picturel．Picture=LoadPicture()

单项选择题

程序运行时，要清除组合框Combol qlt，的所有内容，应使用语句( )。

A．Combol．Delete
B．Combol．Cls
C．Combol．Clear
D．Combol．Remove

单项选择题

设窗体上有一个名称为Text1的文本框，程序运行时，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是( )。

A．Textl．Enabled=Flase
B．Textl．Locked=False
C．Text1．Visible=Flase
D．Text1．Width=0

单项选择题

能得到组合框Combol中最后一个列表项序号的表达式是( )。

A．Combol．Index
B．Combol．ListIndex
C．Combol．ListCount一1
D．Combol．List(ListCount)

单项选择题

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

A．调用图像框的Line方法可以在图像框中画线
B．把图片框的Picture属性设置为””时，可以清除图片框中的图形
C．语句P1．Picture=“sky．jPg”可以在图片框P1中装入名称为sky。jPg的图片文件
D．调用图片框的Print方法可以在图片框中输出文本

单项选择题

设已经在菜单编辑器中设计了弹出式菜单mnuStyle，要求程序运行时，当用户在文本框Textl上单击鼠标右键时，能够弹出该菜单，则应使用的事件过程是( )。

A．Private Sub Text1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu mnuStyle End If End Sub
B．Private Sub Textl_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then PopupMenu mnuStyle End If End Sub
C．Private Sub Textl—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then mnuStyle．Show End If End Sub
D．Private Sub Text1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then mnuStyle．Popup End If End Sub

单项选择题

设窗体上有1个名称为Commandl的命令按钮，并编写了下面的事件过程：Private Sub Commandl—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print X，YEnd Sub运行程序后，当用鼠标单击命令按钮时，则输出的是( )。

A．单击鼠标时鼠标光标相对于命令按钮左上角的坐标
B．单击鼠标时鼠标光标相对于窗体左上角的坐标
C．单击鼠标时鼠标光标相对于屏幕左上角的坐标
D．命令按钮左上角的坐标

单项选择题

下面关于计时器控件的叙述中正确的是( )。

A．一个窗体中只能使用一个定时器控件
B．Interval属性的值表示的是两次产生Timer事件所间隔的秒数
C．计时器在程序运行时是不显示的，但也有Left属性
D．如果Enabled属性被设置为True，则计时器一定被启动，并定时产生Timer事件

单项选择题

为了使通用对话框弹出的窗口标题显示为“文件操作”，应对通用对话框控件设置的属性是( )。

A．Caption
B．DialogTitle
C．FileName
D．DialogCaption

单项选择题

编写如下程序代码： Private Sub Commandl—Click() Dim t As Integer Dim n As Integer，x As Integer t=0 For n=1 To 12 x=2*n一1 If x／3=x 3 Then t=t+1 Next Print t End Sub程序运行后，单击命令按钮Command1，输出结果为( )。

A．5
B．3
C．2
D．4

单项选择题

分段函数入下：
设x中已经有一个数值。下列程序段中，能正确计算y值的是( )。

A．Select Case x Cage Is<0 y=一1 Case Is<10 y=0 Case Else y=1 End Select
B．Select Case x Cage Is<0 y=一1 Cage Is>=0．Is<10 y=0 Case Is>=10 y=1 End Select
C．Select Case x Case x<0 y= 一1 Case x<10 y=0 Cage Else y=1 End Select
D．Select Case x Cage x<0 y=一1 Cage X>=0 And X<10 y=0 Case Else y=1 End Select

单项选择题

编写如下程序代码： Private Sub Commandl—Click() Call sub pro End Sub Sub sub_pro() Static sum As Integer Dim i As Integer For i=1 To 10 Step 2 sum=sum+i Next Print sum End Sub程序运行后，第三次单击命令按钮Commandl时，输出结果为( )。

A．25
B．75
C．55
D．165

单项选择题

有以下程序代码： Const NUM As Integer=5 Private Sub Form—Click() Dim a As Integer，b As Integer a=1：b=NUM Do a=a+b b=b+1 Loop Until b>NUM Ptint a End Sub 当程序运行时，单击窗体产生的输出结果是( )。

A．5
B．1
C．6
D．出错

单项选择题

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

A．54
B．53
C．55
D．56

单项选择题

在窗体上画一个名称为Textl的文本框，编写如下事件过程代码： Private Sub Textl—KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) If Not(ch>=“0”And ch<=“9”)Then End If End Sub程序的功能是，当程序运行时，只能向文本框中输人数字字符，则以下叙述中正确的是( )。

A．当该事件被触发时，形参KeyAscii表示的是所输入字符的ASCII码
B．程序代码中，横线处应填入的语句为KeyAscii=“”
C．程序运行过程中，若按下字母键，则不执行此事件过程
D．将该事件过程中的代码移到Textl的KeyDown事件过程中时，程序功能不变

单项选择题

编写如下程序代码： Option Explicit Private Sub Form—Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub以下叙述中正确的是( )。

A．程序的功能是输出数组X中的所有奇数
B．将语句For Each i In x改为For i=0 To 5，程序功能不变
C．变量x和i也可定义为Integer类型，程序功能不变
D．程序的功能是输出数组X中的所有偶数

单项选择题

有下面程序代码： Private Sub Commandl—Click() Dim a As Integer，b a=2 b=3 Print fun(a，b)；a；b End Sub Private Function fun(ByVal x As Integer，y)As Integer y=x+y x=y fun=x End Function执行Commandl—Click过程后的输出结果是( )。

A．6 2 3
B．6 6 6
C．6 2 2
D．6 2 6

单项选择题

设有以下程序代码： Private Sub Commandl—Click() a=Array(1，2，7，10，6) b=Array(5，4，7，8，2) i=0 j=0 Do If i<=UBound(a)And j<=UBound(b)Then If a(i)UBound(a)And j>UBound(b) End Sub 上面事件过程执行后产生的输出是( )。

A．1 5 2 4 7 7 10 8 6 2
B．1 2 2 4 5 6 7 7 8 10
C．1 2 7 10 6 5 4 7 8 1
D．1 2 5 4 7 7 8 2 10 6

单项选择题

有下面事件过程： Private Sub Commandl—Click() Dim a(20)As Integer，n(5)As Integer Dim m As Integer，Bum As Integer Randomize For k=l To 20 a(k)=Int(Rnd*5)+1 Print a(k)； n(a(k))=n(a(k))+1 Next k Print m=n(1) num=1 For k=2 To 5 If n(k)>m Then m=n(k) num=k End If Next kPrint m,numEnd Sub此事件过程运行时会出现2行输出，如果第一行输出是：4 2 4 1 4 1 4 5 3 2 5 5 1 4 2 3 4 3 4 2则第2行的输出是( )。

A．5 3
B．7 4
C．3 5
D．4 7

设有以下程序代码： Private Sub Commandl—Click() a=Array(1，2，7，10，6) b=Array(5，4，7，8，2) i=0 j=0 Do If i<=UBound(a)And j<=UBound(b)Then If a(i)UBound(a)And j>UBound(b) End Sub 上面事件过程执行后产生的输出是( )。

你可能感兴趣的试题

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

下列各排序法中，最坏情况下的时间复杂度最低的是( )。

结构化程序的三种基本结构是( )。

某系统结构图如下图所示(n≥5)该系统结构图的最大扇出数是( )。

软件需求规格说明的内容不包括( )。

在数据库管理技术发展的三个阶段中，没有专门的软件对数据进行管理的是( )。

建立表示学生选修课程活动的实体联系模型，其中的两个实体分别是( )。

当Visual Basic表达式中含有以下多种运算时( )。①关系运算 ②算术运算 ③逻辑运算 ④函数运算正确的运算顺序为( )。

下列语句中，不能用于定义数组的关键字是( )。

针对Visual Basic的菜单设计操作，下面叙述中错误的是( )。

下列不是Visual Basic合法常量的是( )。

以下语句中正确的是( )。

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

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

执行下面程序段的输出是( )。 Print 1，2； Print 3 Print 4；5

设有如下数组声明： Dim a()As Single 下面关于这一声明的叙述中正确的是( )。

设程序中定义了下面的过程： Private Sub proc(ch As String) Print ch End Sub下面语句中错误的是( )。

下列方法中，能够使对象获得焦点的是( )。

程序运行时，要清除图片框Picturel中的图像，应使用语句( )。

程序运行时，要清除组合框Combol qlt，的所有内容，应使用语句( )。

设窗体上有一个名称为Text1的文本框，程序运行时，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是( )。

能得到组合框Combol中最后一个列表项序号的表达式是( )。

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

设已经在菜单编辑器中设计了弹出式菜单mnuStyle，要求程序运行时，当用户在文本框Textl上单击鼠标右键时，能够弹出该菜单，则应使用的事件过程是( )。

设窗体上有1个名称为Commandl的命令按钮，并编写了下面的事件过程：Private Sub Commandl—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print X，YEnd Sub运行程序后，当用鼠标单击命令按钮时，则输出的是( )。

下面关于计时器控件的叙述中正确的是( )。

为了使通用对话框弹出的窗口标题显示为“文件操作”，应对通用对话框控件设置的属性是( )。

编写如下程序代码： Private Sub Commandl—Click() Dim t As Integer Dim n As Integer，x As Integer t=0 For n=1 To 12 x=2*n一1 If x／3=x 3 Then t=t+1 Next Print t End Sub程序运行后，单击命令按钮Command1，输出结果为( )。

分段函数入下：设x中已经有一个数值。下列程序段中，能正确计算y值的是( )。

编写如下程序代码： Private Sub Commandl—Click() Call sub pro End Sub Sub sub_pro() Static sum As Integer Dim i As Integer For i=1 To 10 Step 2 sum=sum+i Next Print sum End Sub程序运行后，第三次单击命令按钮Commandl时，输出结果为( )。

有以下程序代码： Const NUM As Integer=5 Private Sub Form—Click() Dim a As Integer，b As Integer a=1：b=NUM Do a=a+b b=b+1 Loop Until b>NUM Ptint a End Sub 当程序运行时，单击窗体产生的输出结果是( )。

编写如下程序代码： Option Explicit Private Sub Form—Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub以下叙述中正确的是( )。

有下面程序代码： Private Sub Commandl—Click() Dim a As Integer，b a=2 b=3 Print fun(a，b)；a；b End Sub Private Function fun(ByVal x As Integer，y)As Integer y=x+y x=y fun=x End Function执行Commandl—Click过程后的输出结果是( )。

设有以下程序代码： Private Sub Commandl—Click() a=Array(1，2，7，10，6) b=Array(5，4，7，8，2) i=0 j=0 Do If i<=UBound(a)And j<=UBound(b)Then If a(i)UBound(a)And j>UBound(b) End Sub 上面事件过程执行后产生的输出是( )。

某系统结构图如下图所示(n≥5)
该系统结构图的最大扇出数是( )。

分段函数入下：
设x中已经有一个数值。下列程序段中，能正确计算y值的是( )。