单项选择题

下面关于KeyPress事件的叙述中正确的是

A．按下F1键能够激活KeyPress事件
B．按下字符"A"键和按下"a"键时，KeyPress事件过程的KeyAscii参数的值是不同的
C．无法在KeyPress事件过程中区分按下的字母键是大写还是小写
D．窗体不响应KeyPress事件

你可能感兴趣的试题

单项选择题

下列叙述中错误的是

A．在带链队列中，队头指针和队尾指针都是在动态变化的
B．在带链栈中，栈顶指针和栈底指针都是在动态变化的
C．在带链栈中，栈顶指针是在动态变化的，但栈底指针是不变的
D．在带链队列中，队头指针和队尾指针可以指向同一个位置

单项选择题

下面对软件测试和软件调试有关概念叙述错误的是

A．严格执行测试计划，排除测试的随意性
B．程序调试通常也称为Debug
C．软件测试的目的是发现错误和改正错误
D．设计正确的测试用例

单项选择题

某二叉树的前序序列为ABCDEFG，中序序列为DCBAEFG，则该二叉树的后序序列为

A．EFGDCBA
B．DCBEFGA
C．BCDGFEA
D．DCBGFEA

单项选择题

下列叙述中正确的是

A．在链表中，如果每个结点有两个指针域，则该链表一定是非线性结构
B．在链表中，如果有两个结点的同一个指针域的值相等，则该链表一定是非线性结构
C．在链表中，如果每个结点有两个指针域，则该链表一定是线性结构
D．在链表中，如果有两个结点的同一个指针域的值相等，则该链表一定是线性结构

单项选择题

软件生命周期中，确定软件系统要做什么的阶段是

A．需求分析
B．软件测试
C．软件设计
D．系统维护

单项选择题

设循环队列为Q(1:m)，其初始状态为front=rear=m。经过一系列入队与退队运算后，front=20，rear=15。现要在该循环队列中寻找最小值的元素，最坏情况下需要比较的次数为

A．5
B．6
C．m-5
D．m-6

单项选择题

下面属于系统软件的是

A．财务管理系统
B．编译软件
C．编辑软件Word
D．杀毒软件

单项选择题

将E-R图转换为关系模式时，E-R图中的实体和联系都可以表示为

A．属性
B．键
C．关系
D．域

单项选择题

有两个关系R与S如下，由关系R和S得到关系T，则所使用的操作为

A．并
B．自然连接
C．笛卡尔积
D．交

单项选择题

在数据管理的三个发展阶段中，数据的共享性好且冗余度最小的是

A．人工管理阶段
B．文件系统阶段
C．数据库系统阶段
D．面向数据应用系统阶段

单项选择题

为了在窗体上画一个文件列表框，应先在工具箱窗口中选中的图标是

单项选择题

下面能正确定义二维数组的是

A．Dim x(-1, 3)
B．Dim x(0 To 3)
C．Dim x(-5 To -2, 3)
D．Dim x(0 To -2, 3)

单项选择题

要把数学式
写为Visual Basic表达式，下面正确的写法是

A．3*x+Sqr(y) / 2*y-x^3
B．(3*x+Sqr(y)) / (2*y-x^3)
C．(3*x+Sqr(y)) (2*y-x^3)
D．(3x+Sqr(y)) / (2y-x^3)

单项选择题

某人在窗体模块中定义了如下自定义类型：Type Rec num As Integer name As StringEnd Type但发现程序不能运行，关于这一问题，下面叙述中正确的是

A．自定义类型不能写在窗体模块中
B．自定义类型只能写在标准模块中
C．在Type Rec 前面添加关键字Public就可解决问题
D．在Type Rec 前面添加关键字Private就可解决问题

单项选择题

执行语句 Print Right$(Mid$("ABCDEFG", 2, 5), 3) 后的输出是

A．DEF
B．EFG
C．FG
D．BCDEF

单项选择题

下列关于InputBox函数的叙述中，错误的是

A．InputBox函数用于从键盘输入数据，不能从文件输入数据
B．InputBox函数返回数据的类型与从键盘输入数据的类型相同
C．不论从键盘输入的是数值还是字符串，InputBox函数返回的都是字符串
D．调用一次InputBox函数只能从键盘输入一个数据

单项选择题

如果把Text1文本框的MousePointer属性设置为2（把鼠标光标设置为十字），则

A．当Text1获得焦点时，鼠标光标变为十字
B．当鼠标移动到Text1的范围内时鼠标光标变为十字
C．当按下鼠标右键时鼠标光标变为十字
D．当Text1文本框移动时鼠标光标变为十字

单项选择题

设有以下程序代码：Private Sub Command1_Click() Static a As Integer proc a Print aEnd SubSub proc(x As Integer) x = x + 1End Sub运行程序，3次单击命令按钮，第3次单击后显示的是

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

单项选择题

下面叙述中错误的是

A．全局变量只能在标准模块中定义
B．全局变量可以在窗体模块中定义
C．窗体级变量可以在窗体的过程中定义
D．局部变量可以在窗体的所有过程前面定义

单项选择题

在程序中发现有语句：Put #1，2，num 并且能够正确执行，因此可以判断

A．已经打开了文件号为1的顺序文件
B．已经打开了文件号为2的顺序文件
C．已经打开了文件号为1的随机文件或二进制文件
D．已经打开了文件号为2的随机文件或二进制文件

单项选择题

下面关于单选按钮的叙述中正确的是

A．一个窗体上所有单选按钮是一组，只能有一个被选中，不能分组
B．在两个框架控件中分别各画一组单选按钮，则每组单选按钮中有一个可以被选中
C．在窗体上画两个单选按钮数组，则每个数组中分别有一个可以被选中
D．上述都是错误的

单项选择题

下面关于组合框的叙述中错误的是

A．组合框Text属性的值是其编辑区中的文本
B．组合框Text属性的值是被选中项目的文本
C．组合框的Text属性是个数组，其中存放着所有项目的文本
D．组合框Style属性的值决定了组合框的类型

单项选择题

为了使文本框中的文本能够水平滚动，应采取的正确方法是

A．把文本框的ScrollBars属性设置为1-Horizontal
B．把文本框的MultiLine属性设置为True
C．同时把文本框的ScrollBars属性设置为1-Horizontal，MultiLine属性设置为True
D．在文本框下面画一个长度与文本框宽度相同的水平滚动条控件

单项选择题

下面关于KeyPress事件的叙述中正确的是

A．按下F1键能够激活KeyPress事件
B．按下字符"A"键和按下"a"键时，KeyPress事件过程的KeyAscii参数的值是不同的
C．无法在KeyPress事件过程中区分按下的字母键是大写还是小写
D．窗体不响应KeyPress事件

单项选择题

窗体上有Check1、Check2两个复选框，标题分别为"下划线"、"加粗"，还有一个Text1文本框和一个Command1命令按钮。程序的功能是：单击Command1按钮，则根据复选框选中的情况对文本框中的文字做相应的修饰，如图所示。下面为Command1编写的事件过程中能正确实现这一功能的是

A．Private Sub Command1_Click() If Check1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Check2 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub
B．Private Sub Command1_Click() If Check1 Then Text1.FontUnderline = True Else Text1.FontBold = True End If End Sub
C．Private Sub Command1_Click() If Check1 Then Text1.FontUnderline = Not Text1.FontUnderline End If If Check2 Then Text1.FontBold = Not Text1.FontBold End If End Sub
D．Private Sub Command1_Click() If Check1 Then Text1.FontUnderline = Not Text1.FontUnderline Else Text1.FontBold = Not Text1.FontBold End If End Sub

单项选择题

下面关于控件数组的叙述中正确的是

A．控件数组共用同一个Click事件过程，因此在过程中无法区分单击了哪个控件
B．控件数组共用同一个Click事件过程，但在过程中可以区分单击了哪个控件
C．控件数组中不同控件使用不同的Click事件过程
D．控件数组中的控件具有相同的名称，TabIndex属性的值代表了它们下标

单项选择题

在Form1窗体上有一个菜单项，名称为Menu，它有自己的子菜单。若希望在鼠标右键单击窗体时能够弹出Menu的子菜单，某人编写了下面的事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Menu PopupMenu End IfEnd Sub但调试时发现不能达到目的，需要修改程序，下面正确的修改方案是

A．把 If Button = 2 Then 改为 If Button = 1 Then
B．把过程名改为Form1_MouseDown
C．把Menu PopupMenu 改为Popup Menu
D．把Menu PopupMenu 改为PopupMenu Menu

单项选择题

如果要在图片框Picture1中输出文本"图片框"，则正确的语句是

A．Picture1.Print "图片框"
B．Picture1.Write "图片框"
C．Print "图片框"
D．Write "图片框"

单项选择题

下面关于鼠标拖放操作的叙述中错误的是

A．源对象的DragMode属性用来设置拖动模式
B．当鼠标拖动源对象到达目标对象上并放开鼠标键时，引发目标对象的DragDrop事件
C．控件的DragIcon属性可以加载一个图标
D．在自动拖放模式下，用鼠标把源对象拖到目标位置放开，就实现了源对象的移动，不必再编程

单项选择题

窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮和1个Text1文本框，并有如下程序：Private Sub Command1_Click() CD1.Action = 3 If CD1.Color >= 0 Then Text1.ForeColor = CD1.Color End If End Sub运行程序并单击命令按钮，下面叙述中错误的是

A．弹出颜色对话框
B．在弹出的对话框中选了一个颜色并单击"确定" 按钮后，会改变文本框中文本的颜色
C．把代码 CD1.Action = 3 改为 CD1.ShowColor ，效果是一样的
D．在弹出的对话框中选了一个颜色并单击"确定" 按钮后，会改变文本框的背景色

单项选择题

有以下函数：Function fun(x As Integer, y As Integer) As Integer Do While x >= y x = x - y Loop fun = xEnd Function则下面语句中与语句x = fun(5, 2) 等效（即为x赋相同值）的语句是

A．x = 5 \ 2
B．x = 5 / 2
C．x = 5 - 2
D．x = 5 Mod 2

单项选择题

下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个1～6的整数，相当于一次掷骰子。程序运行后，在Text2文本框中输入总投掷次数（例如10000），单击"开始投掷"按钮则进行模拟掷骰子，并把出现1～6的次数分别显示在文本框数组Text1（从上到下各文本框的下标为0～5）的各元素中，如图所示
Private Sub Command1_Click() Dim a(6) Randomize n = Int(Text2.Text) For k = 1 To n n = Int(Rnd * 6) + 1 a(n)=___________________ Next k For n = 0 To 5 Text1(n).Text = a(n + 1) Next nEnd Sub该程序不完整，在横线上应填写的是

A．n
B．a(n) + 1
C．a(n) + n
D．a(n) + k

单项选择题

下面是一个判断并输出获得奖学金信息的程序：Private Sub Command1_Click() a% = InputBox("请输入主课成绩1") b% = InputBox("请输入主课成绩2") c% = InputBox("请输入副课成绩") s = (a + b + c) / 3 If s >= 85 Then If a >= 90 And b >= 90 Then Print "获得一等奖学金" Else Print "获得二等奖学金" End If Else If a >= 95 Or b >= 95 Then Print "获得三等奖学金" Else Print "不获得奖学金" End If End IfEnd Sub程序运行时，如果输入的依次是90、91、72，则输出是

A．获得一等奖学金
B．获得二等奖学金
C．获得三等奖学金
D．不获得奖学金

单项选择题

编写如下程序：Private Sub Command1_Click() x = 4 n = 1 Do x = 2 * x - 3 n = n + 1 Print x Loop Until x > 30 Print nEnd Sub在保证程序输出不变的前提下，可以把循环条件Until x > 30改为

A．Until x > 40
B．Until x > 20
C．While x < 40
D．While x > 20

单项选择题

窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认，若密码正确，弹出信息框显示"密码正确"，若密码错误，弹出信息框显示"密码错误，请重新输入"，但最多允许输出3次，若还不正确，则弹出信息框显示"密码错误，不能再输入"，且命令按钮变为无效。某人编写了如下程序：Private Sub Command1_Click() Dim num As Integer num = num + 1 If Text1.Text = "123456" Then MsgBox "密码正确" ElseIf num = 3 Then Command1.Enabled = False MsgBox "密码错误，不能再输入" Else MsgBox "密码错误，请重新输入" End IfEnd Sub调试时发现有错误需要修改，下面正确的修改方案是

A．把ElseIf num = 3 Then 改为ElseIf num >3 Then
B．把Command1.Enabled = False 改为Command1.Enabled = True
C．把Dim num As Integer 改为Static num As Integer
D．把num = num + 1 改为 num = num + 3

单项选择题

编写如下程序：Function Fun1(ByVal a As Integer, b As Integer) As Integer a = b + a b = 2 * a Fun1 = bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 5 Print Fun1(Fun1(x, x - 1), x - 2)End Sub程序运行后，单击命令按钮Command1，输出结果为

A．5
B．42
C．50
D．68

单项选择题

下面程序的功能是：先输入一个字符串，再输入3个字符，然后统计这3个字符分别在字符串中出现的次数并输出Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str = InputBox("请输入一个字符串") For k = 1 To 3 prompt = "请输入要查找的第" & k & "个字符" ch(k) = InputBox(prompt) Next k For j = 1 To Len(str) For k = 1 To 3 If ch(k) = Then count(k) = count(k) + 1 End If Next k Next j Print str For k = 1 To 3 Print ch(k); "出现的次数为"; count(k) Next kEnd Sub程序不完整，在横线上应该填写的是

A．Mid(str, k, 1)
B．Mid(str, j, 1)
C．str(k)
D．str(j)

单项选择题

窗体上有一个名称为Line1的直线控件，并有如下程序：Dim down As Boolean, x1%, y1%Private Sub Form_Load() Line1.Visible = False down = FalseEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then down = True x1 = X ： y1 = Y End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then down = False Line1.x1 = x1 ： Line1.y1 = y1 Line1.x2 = X ： Line1.y2 = Y Line1.Visible = True End IfEnd Sub运行程序，按下鼠标左键不放，移动鼠标到窗体其他位置处放开左键，则产生的结果是

A．以鼠标按下和抬起的两点为端点显示一条直线
B．鼠标按下时显示一条直线；鼠标抬起时直线消失
C．直线从鼠标按下处移动到鼠标抬起处
D．鼠标按下时直线消失；鼠标抬起时显示直线

单项选择题

编写如下程序：Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox("请输入整数") Next j Next i For i = 0 To 2 a(i, 1) = a(i, 3) Next i For i = 0 To 2 For j = 0 To 3 Print a(i, j), Next j Print Next iEnd Sub程序运行后，单击命令按钮Command1，并输入了12个整数：1，2，3，4，5，6，7，8，9，10，11，12，则输出结果为

A．1 4 3 2 5 8 7 6 9 12 11 10
B．1 4 3 4 5 8 7 8 9 12 11 12
C．3 2 1 4 7 6 5 8 11 10 9 12
D．3 2 3 4 7 6 7 8 11 10 11 12

单项选择题

有如下过程：Private Sub Command1_Click() Dim Name As String * 20 Open "file1.dat" For Random As #1 Len = 20 k = 1 Do While Not EOF(1) Get #1, k, Name Print Name k = k + 2 Loop Close #1End Sub这一过程的功能是

A．读入文件file1.dat中所有记录号为偶数的记录并显示在窗体上
B．读入文件file1.dat中所有记录号为奇数的记录并显示在窗体上
C．读入文件file1.dat中记录号为1的记录并显示在窗体上
D．把Name中的数据写进文件file1.dat中