单项选择题

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是______。

A.-369
B.369
C.0.369
D.整数集合{1，2，3，4，5)

你可能感兴趣的试题

单项选择题

下列关于栈叙述正确的是______。

A.栈顶元素最先能被删除
B.栈顶元素最后才能被删除
C.栈底元素永远不能被删除
D.栈底元素最先被删除

单项选择题

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

A.顺序结构
B.GOTO跳转
C.选择(分支)结构
D.重复(循环)结构

单项选择题

某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为(假设根结点在第1层)______。

A.3
B.4
C.6
D.7

单项选择题

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

A.学生成绩管理系统
B.C语言编译程序
C.UNIX操作系统
D.数据库管理系统

单项选择题

下列叙述中正确的是______。

A.在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化
B.在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化
C.在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化
D.以上说法都不正确

单项选择题

下面描述中错误的是______。

A.系统总体结构图支持软件系统的详细设计
B.软件设计是将软件需求转换为软件表示的过程
C.数据结构与数据库设计是软件设计的任务之一
D.PAD图是软件详细设计的表示工具

单项选择题

负责数据库中查询操作的数据库语言是______。

A.数据定义语言
B.数据管理语言
C.数据操纵语言
D.数据控制语言

单项选择题

-个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是______。

A.1:1联系
B.1:m联系
C.m:1联系
D.m:n联系

单项选择题

有三个关系R、S和T如下：则由关系R和S得到关系T的操作是______。

A.自然连接
B.并
C.交
D.差

单项选择题

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是______。

A.-369
B.369
C.0.369
D.整数集合{1，2，3，4，5)

单项选择题

VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是______。

A..vbp
B..bas
C..vbw
D..frm

单项选择题

能够产生1到50之间(含1和50)随机整数的表达式是______。

A.Int (Rnd*51)
B.Int (Rnd (50)+1)
C.Int (Rnd*50)
D.Int (Rnd*50+1)

单项选择题

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

A.If x mod 7=2 Then Print x
B.If x-(x\7)*7-2 Then Print x
C.If x-(x/7)*7=2 Then Print x
D.If x-lnt(x/7)*7-2 Then Print x

单项选择题

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

A.-1
B.0
C.1
D.0.5

单项选择题

如下关于变体类型变量的叙述中，错误的是______。

A.变体类型数组中只能存放同类型数据
B.使用Array初始化的数组变量，必须是Variant类型
C.没有声明而直接使用的变量其默认类型均是Variant
D.在同一程序中，变体类型的变量可以被多次赋以不同类型的数据

单项选择题

满足下列条件之一的年份是闰年： 1)年份能被4整除但不能被100整除 2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是______。

A.y Mod 4 And y Mod 100 0r y Mod 400
B.y Mod 4=0 0r y Mod 100＜＞0 And y Mod 400=0
C.y Mod 100＜＞0 And(y Mod 4=0 0r y Mod 400=0)
D.y Mod 4=0 And y Mod 100＜＞0 0r y Mod 400=0

单项选择题

以下关于键盘事件的叙述中，错误的是______。

A.按下键盘按键既能触发KeyPress事件，也能触发KeyDown事件
B.KeyDown、KeyUp事件过程中，大、小写字母被视作相同的字符
C.KeyDown、KeyUp事件能够识别Shift、Alt、Ctrl等键
D.KeyCode是KeyPress事件的参数

单项选择题

以下关于窗体的叙述中错误的是______。

A.窗体的Hide方法将窗体隐藏并卸载
B.窗体的Show方法可以将窗体装入内存并显示该窗体
C.若工程中包含多个窗体，则可指定一个为启动窗体
D.窗体的Load事件在加载窗体时发生

单项选择题

如果在窗体模块中所有程序代码的前面有语句：Dim x，则x是______。

A.全局变量
B.局部变量
C.静态变量
D.窗体级变量

单项选择题

计算下面分段函数的正确语句是______。

A.y=IIf (x＞0,x+1,IIf (x＜0,x-1,0)
B.y=IIf (x=0,0,IIf(x＞0,x-1,x+1))
C.y=IIf (x＞0,x+1,IIf(x＜0,0,x-1)
D.y=IIf(x=0,0,x-1,x+1)

单项选择题

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

A.事件是可以由窗体或控件识别的操作
B.事件可以由用户的动作触发
C.一个操作动作只能触发一个事件
D.事件可以由系统的某个状态的变化而触发

单项选择题

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

A.List1.Removeltem ListCount
B.List1.Removeltem List1.ListCount
C.List1.Removeltem ListCount-1
D.List1.Removeltem List1.ListCount-1

单项选择题

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。
关于此菜单，以下叙述中错误的是______。

A.针对此菜单进行操作，单击“斜体”菜单项时，将执行它的鼠标单击事件过程
B.针对此菜单进行操作，单击“下划线”菜单项时，“√”被去掉
C.针对此菜单进行操作，单击“退出”菜单项时，不能执行对应的单击事件过程
D.针对此菜单进行操作，单击“编辑”菜单项时，打开下拉菜单，但不执行相应的单击事件过程

单项选择题

以下关于通用对话框的叙述中，错误的是______。

A.在程序运行状态下，通用对话框控件是不显示的
B.通用对话框控件是Visual Basic的标准控件
C.设计时，通用对话框控件的大小是固定的，不能改变
D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框

单项选择题

设工程中有Form1、Form2两个窗体，要求单击Form2上的Commandl命令按钮，Form2就可以从屏幕上消失，下面的事件过程中不能实现此功能的是______。

A.Private Sub Commandl_Click() Form2.Hide End Sub
B.Private Sub Commandl_Click() Unload Me End Sub
C.Private Sub Commandl_Click () Form2.Unload End Sub
D.Private Sub Commandl_Click() Me.Hide End Sub

单项选择题

向文本框中输入字符时，下面能够被触发的事件是______。

A.GotFocus
B.KeyPress
C.Click
D.MouseDown

单项选择题

若要把窗体上命令按钮Commandl的状态设置为不可用，应该执行的命令是______。

A.Commandl.Enabled=False
B.Commandl.Visible=False
C.Commandl.Cancel=False
D.Commandl.Default=False

单项选择题

窗体上有一个名称为VScroll1的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是______。

A.Click
B.KeyDown
C.DragDrop
D.Scroll

单项选择题

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

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

单项选择题

窗体上有一个名称为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=&HCOOO&’&HCOOO&为绿色 End If End Sub 以下叙述中正确的是______。

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

单项选择题

为计算1+2+2²+2³+2₄+...+2₁₀的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Commandl Click() Dim a&,s&,k& s=1 a=2 For k=2 To 10 a=a*2 s=s+a Next k Text1.Text=S End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______，

A.把s=1改为s=0
B.把For k=2 To 10改为For k=1 To 10
C. 交换语句s=s+a和a=a*2的顺序
D. 把For k=2 To 10改为For k=1 To 10、交换语句s=s+a和a=a*2的顺序

单项选择题

标准模块中有如下程序代码： Public x As Integer,y As Integer Sub varpub() x=10:y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Commandl_Click() Dim x As Integer Call varpub x=x+100 y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是______。

A.100 100
B.100 120
C.110 100
D.110 120

单项选择题

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数： Function fun(a As Integer,b As Integer) While a＞b a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是______。

A.把a=a-b改为a=b-a
B.把a=a-b改为a=a\b
C.把While a＞b改为While a＜b
D.把While a＞b改为While a＞-b

单项选择题

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress (KeyAscii As Integer) If Chr (KeyAscii)＜＞""Then ss=ss+Chr (KeyAscii) End Sub Private Sub Commandl_Click () Dim m As String,i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid (ss,i,1) Next Text1.Text=UCase (m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是______。

A.NUMBER 100
B.REBMUN
C.REBMUN 100
D.001 REBMUN

单项选择题

窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shapel的圆靠在左边的Line1直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。
为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer () For k=Line1.X1 To Line2. X1 Step 100 If Shapel.Left+Shapel.Width＜Line2.XI Then Shapel.Left=Shapel.Left+100 End If Next k End Sub 运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是______。

A.把计时器的Interval属性设置为1
B.把For k=Line1.X1 To Line2.X1 Step 100各Next k两行删除
C.把For k=Line1.X1 To Line2.X1 Step 100改为For k=Line2.X1 To Line1.X1Step 100
D.把If Shapel.Left+Shapel.Width＜Line2.X1 Then改为IfShapel.Left＜Line2.X1 Then

单项选择题

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Commandl)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Commandl_Click() Dim n%,k% n=Len (Text1.Text) For k=0 To List1.ListCount-1 If Left (List1.List(k),n)=Text1.Text Then List1.Removeltem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为______。

A.For k=List1.ListCount-1 To 0 Step-1
B.For k=0 To List1.ListCount
C.For k=1 To List1.ListCount-1
D.For k=1 To List1.ListCount

单项选择题

窗体上有一个Text1文本框，一个Commandl命令按钮，并有以下程序： Private Sub commandl_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 Commandl_Click() a=10 s=0 Do s=s+aaa a=a-1 Loop Until a＜=0 Print s End Sub

A.1³+2³+3³+...+10³的值
B.10!+…+3!+2!+1!的值
C.(1+2+3+…+10)³的值
D.10个10³的和

单项选择题

在设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框： Private Sub Commandl_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filter="所有文件|.|Word文档|.doc|文本文件|.txt" CD1.FileName="" CD1.Action=1 If CD1.FileName=""Then Print"未打开文件" Else Print"要打开文件v&CD1.FileName End If End Sub
但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是______。

A.把CD1.Action=1改为CD1.Action=2
B.把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C.在语句CD1.Action=1的前面添加：CD1.Filterlndex=3
D.把CD1.FileName=""改为CD1.FileName=“文本文件”

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Forml窗体文件中编写如下程序：

菜单结构

标题名称级别

成绩管理 mark 1

成绩查询 query 2

成绩录入 input 3
Private Sub Text11_KeyPress (KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text="Teacher"Then Form2.input.Visible=True Else Form2.input.Visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是______。

A.把Form1中Text1文本框及相关程序放到Form2窗体中
B.把Form1.Hide、Form2.Show两行移到2个End If之间
C.把If KeyAscii=13 Then改为If KeyAscii=”Teacher”Then
D.把2个Form2.input.Visible中的“Form2.”删去