单项选择题

设窗体文件中有下面的事件过程：Private Sub Command1_Click()　　Dim s　　a%＝100　　Print aEnd Sub其中变量a和s的数据类型分别是(　　)。

A．整型，整型
B．变体型，变体型
C．整型，变体型
D．变体型，整型

你可能感兴趣的试题

单项选择题

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

A．循环队列有队头和队尾两个指针，因此，循环队列是非线性结构
B．在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况
C．在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况
D．循环队列中元素的个数是由队头指针和队尾指针共同决定

单项选择题

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

A．冒泡排序
B．简单选择排序
C．直接插入排序
D．堆排序

单项选择题

一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是(　　)。

A．12345ABCDE
B．EDCBA54321
C．ABCDE12345
D．54321EDCBA

单项选择题

软件设计中划分模块的一个准则是(　　)。

A．低内聚低耦合
B．高内聚低耦合
C．低内聚高耦合
D．高内聚高耦合

单项选择题

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

A．10
B．8
C．6
D．4

单项选择题

下列选项中不属于结构化程序设计原则的是(　　)。

A．可封装
B．自顶向下
C．模块化
D．逐步求精

单项选择题

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

A．栈按"先进先出"组织数据
B．栈按"先进后出"组织数据
C．只能在栈底插入数据
D．不能删除数据

单项选择题

在数据库设计中，将E－R图转换成关系数据模型的过程属于(　　)。

A．需求分析阶段
B．概念设计阶段
C．逻辑设计阶段
D．物理设计阶段

单项选择题

在数据管理技术发展的三个阶段中，数据共享最好的是(　　)。

A．人工管理阶段
B．文件系统阶段
C．数据库系统阶段
D．三个阶段相同

单项选择题

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

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

单项选择题

设窗体文件中有下面的事件过程：Private Sub Command1_Click()　　Dim s　　a%＝100　　Print aEnd Sub其中变量a和s的数据类型分别是(　　)。

A．整型，整型
B．变体型，变体型
C．整型，变体型
D．变体型，整型

单项选择题

下面不能在信息框中输出"VB"的是(　　)。

A．MsgBox "VB"
B．x＝MsgBox("VB")
C．MsgBox("VB")
D．Call MsgBox "VB"

单项选择题

窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是( )。

A．在设计"粘贴"菜单项时，在菜单编辑器窗口中设置了"有效"属性(有"√")
B．菜单中的横线是在该菜单项的标题输入框中输入了一个"-"(减号)字符
C．在设计"选中"菜单项时，在菜单编辑器窗口中设置了"复选"属性(有"√")
D．在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了"可见"前面的"√"

单项选择题

现有语句： y＝IIf(x>0， x Mod 3， 0)设x＝10，则y的值是(　　)。

A．0
B．1
C．3
D．语句有错

单项选择题

假定有以下循环结构：Do Until 条件表达式　　　　循环体 Loop 则以下正确的描述是(　　)。

A．如果"条件表达式"的值是0，则一次循环体也不执行
B．如果"条件表达式"的值不为0，则至少执行一次循环体
C．不论"条件表达式"的值是否为"真"，至少要执行一次循环体
D．如果"条件表达式"的值恒为0，则无限次执行循环体

单项选择题

执行语句 Dim X， Y As Integer 后(　　)。

A．X和Y均被定义为整型变量
B．X和Y均被定义为变体类型变量
C．X被定义为整型变量，Y被定义为变体类型变量
D．X被定义为变体类型变量，Y被定义为整型变量

单项选择题

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

A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程
B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程
C．只装入而不显示窗体，也会执行窗体的Form_Load事件过程
D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

单项选择题

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

A．以Output方式打开一个不存在的文件时，系统将显示出错信息
B．以Append方式打开的文件，既可以进行读操作，也可以进行写操作
C．在随机文件中，每个记录的长度是固定的
D．无论是顺序文件还是随机文件，其打开的语句和打开方式都是完全相同的

单项选择题

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母(　　)。

A．这3个事件都会触发
B．只触发KeyPress事件
C．只触发KeyDown、KeyUp事件
D．不触发其中任何一个事件

单项选择题

设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是(　　)。

A．Form1_MouseDown
B．Win_MouseDown
C．Form_MouseDown
D．MouseDown_Form1

单项选择题

窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是(　　)。

A．Private Sub HScroll1_Change() Print HScroll1.Value End Sub
B．Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub
C．Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub
D．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub

单项选择题

若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是(　　)。

A．用鼠标右键单击此按钮
B．按键盘上的Esc键
C．按键盘上的回车键
D．用鼠标右键双击此按钮

单项选择题

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是(　　)。

A．数组中每个命令按钮的名称(Name属性)均为Command1
B．若未做修改，数组中每个命令按钮的大小都一样
C．数组中各个命令按钮使用同一个Click事件过程
D．数组中每个命令按钮的Index属性值都相同

单项选择题

以下关于菜单的叙述中，错误的是(　　)。

A．当窗体为活动窗体时，用Ctrl＋E 键可以打开菜单编辑器
B．把菜单项的Enabled属性设置为False，则可删除该菜单项
C．弹出式菜单在菜单编辑器中设计
D．程序运行时，利用控件数组可以实现菜单项的增加或减少

单项选择题

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

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

单项选择题

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

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

单项选择题

要想使列表框只允许单选列表项，应设置的属性为(　　)。

A．Style
B．Selected
C．MultiSelect
D．Enabled

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()　　 Dim i As Integer， n As Integer　　 For i＝0 To 50　　　　 i＝i＋3　　　　 n＝n＋1　　　　 If i>10 Then Exit For　　 Next　　 Text1.Text＝Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是(　　)。

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

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个标题为"打开文件"的命令按钮，如图所示。
命令按钮的单击事件过程如下：Private Sub Command1_Click()　　CD1.ShowOpen　　Open CD1.FileName For Input As#1　　MsgBox CD1.FileName　　Line Input#1，s　　Text1.Text＝s　　Close#1End Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中.以下叙述中正确的是(　　)。

A．程序没有错误，可以正确完成打开文件、读取文件中内容的操作
B．执行Open命令时出错，因为没有指定文件的路径
C．Open语句是错误的，应把语句中的For Input改为For Output
D．Line Input命令格式错

单项选择题

窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件(　　)。

A．是图像框(Image)
B．是图片框(PictureBox)
C．是形状控件
D．不是上述3种控件中的一种

单项选择题

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：Private Sub Text1_Change(Index As Integer)　　Select Case Index　　　　Case 0　　　　　　Text1(1).FontSize＝Text1(0).FontSize * 2　　　　　　Text1(1).Text＝Text1(0).Text　　　　Case 1　　　　　　Text1(0).FontSize＝Text1(1).FontSize / 2　　　　　　Text1(0).Text＝Text1(1).Text　　　　Case Else　　　　　　MsgBox "执行Else分支"　　End SelectEnd Sub关于上述程序，以下叙述中错误的是(　　)。

A．Index用于标识数组元素
B．本程序中Case Else分支的语句永远不会被执行
C．向任何一个文本框输入字符，都会在另一个文本框中显示该字符
D．下标为0的文本框中显示的字符尺寸将越来越小

单项选择题

设有如下程序：Option Base 1Dim a(3， 4)As Integer， b(4， 3)As IntegerPrivate Sub Command1_Click()　　’循环1　　For i＝1 To 3　　For j＝1 To 4　　　　 b(j， i)＝a(i， j)　　Next j　　Next i　　’循环2　　x＝b(1， 1)　　For i＝1 To 4　　For j＝1 To 3　　　　 Print b(i， j)；　　　　 If x

A．窗体模块中，不能使用Dim声明a、b数组
B．循环1可以正常运行
C．循环2中循环变量i、j的终值不对，所以不能正常运行
D．程序可以正常运行，x中保存的是数组b中所有元素中最小的数

单项选择题

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：Private Sub Command1_Click()　　Dim a(10)As Integer， max As Integer　　For k＝1 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 maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是(　　)。

A．把If a(k)>max Then改为If 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 1Private 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 iEnd 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)改为sum＝sum＋score(j， i)
D．把sum＝sum＋score(i， j)改为 sum＝score(i， j)

单项选择题

某人编写了下面的程序：Private Sub Command1_Click()　　 Dim a As Integer， b As Integer　　 a＝InputBox("请输入整数")　　 b＝InputBox("请输入整数")　　 pro a　　 pro b　　 Call pro(a＋b) End Sub Private Sub pro(n As Integer)　　 While(n>0)　　　　 Print n Mod 10；　　　　 n＝n\10　　 Wend　　 Print End Sub 此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123 和234，则应该输出：　　3　2　1　　4　3　2　　7　5　3 但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是(　　)。

A．把过程pro 的形式参数 n As Integer 改为 ByVal n As Integer
B．把Call pro(a＋b)改为 pro a＋b
C．把n＝n\10 改为 n＝n / 10
D．在pro b语句之后增加语句 c%＝a＋b ，再把 Call pro(a＋b)改为 pro c

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c＝1234c1＝Trim(Str(c))For i＝1 To 4　　Print　　　　NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为(　　)。

A．Right(c1， i)
B．Left(c1， i)
C．Mid(c1， i， 1)
D．Mid(c1， i， i)

单项选择题

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click()　　Dim a(10， 10)As Integer　　x＝0　　For i＝1 To 3　　　　For j＝1 To 3　　　　　　a(i， j)＝i * 2 Mod j　　　　　　If x

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

单项选择题

设有如下Command1的单击事件过程及fun过程：Private Sub Command1_Click()　　Dim x As Integer　　x＝Val(InputBox("请输入一个整数"))　　fun(x)End SubPrivate Sub fun(x As Integer)　　If x Mod 2＝0 Then fun(x / 2)　　Print x；End Sub执行上述程序，输入6，结果是(　　)。

A．3 6
B．6 3
C．6
D．程序死循环

单项选择题

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

A．MsgBox语句的返回值是一个整数
B．执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作
C．MsgBox语句的第一个参数不能省略
D．如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空

单项选择题

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

A．18
B．28
C．21
D．32