• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项：若未找到，则在Text2中显示“查无此人”，在横线处应填写( )。
Private Sub Command1_Click()Dim k As Integer，n As Integer，found As Booleanfound=Falsen=Len(Text1．Text)：k=0While k＜List1．ListCount And Not foundIf Text1=Left$(List1．List(k)，n)ThenText2=found=TrueEnd Ifk=k+1WendIf Not found ThenText2="查无此人"End IfEnd Sub

A．List1．Text
B．List1．List(k)
C．List1．ItemData(k)
D．List1．Text(k)
题目列表

你可能感兴趣的试题

单项选择题

下面关于算法的叙述中，正确的是( )。

A．算法的执行效率与数据的存储结构无关
B．算法的有穷性是指算法必须能在执行有限个步骤之后终止
C．算法的空间复杂度是指算法程序中指令(或语句)的条数
D．以上三种描述都正确
单项选择题

下列二叉树描述中，正确的是( )。

A．任何一棵二叉树必须有一个度为2的结点
B．二叉树的度可以小于2
C．非空二叉树有0个或1个根结点
D．至少有2个根结点
单项选择题

下列各选项中，不属于序言性注释的是( )。

A．程序标题
B．程序设计者
C．主要算法
D．数据状态
单项选择题

下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

A．内模式
B．外模式
C．概念模式
D．逻辑模式
单项选择题

下列叙述中，不属于软件需求规格说明书的作用的是( )。

A．便于用户，开发人员进行理解和交流
B．反映出用户问题的结构，可以作为软件开发工作的基础和依据
C．作为确认测试和验收的依据
D．便于开发人员进行需求分析
单项选择题

下列不属于软件工程3个要素的是( )。

A．工具
B．过程
C．方法
D．环境
单项选择题

如果进栈序列为A，B，C，D，则可能的出栈序列是( )。

A．C，A，D，B
B．B，D，C，A
C．C，D，A，B
D．任意顺序
单项选择题

数据库系统在其内部具有3级模式，用来描述数据库中全体数据的全局逻辑结构和特性的是( )。

A．外模式
B．概念模式
C．内模式
D．存储模式
单项选择题

将E-R图转换到关系模式时，实体与联系都可以表示成( )。

A．属性
B．关系
C．记录
D．码
单项选择题

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

A．9
B．10
C．11
D．12
单项选择题

下面的数写成普通十进制数是( )。2．65358979335278D-6

A．0．0000265358979335278
B．0．00000265358979335278
C．0．O00265358979335278
D．0．000000265358979335278
单项选择题

在新建一个VB工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为( )。

A．Form1．fire
B．工程1．frm
C．TheFirst．frm
D．Form1．vbp
单项选择题

要建立一个随机文件记录学生的信息，如下定义的学生记录类型，由学号、姓名和5门课程成绩(百分制)组成，下列的定义正确的是( )。

A．Type stu no As Integer name As String score(1To5)As Single End Type
B．Type stu no As Integer name As String*10 score()As Single End Type
C．Type stu no As Integer name As String*10 score(1To5)As Single End Type
D．Type stu no As Integer name As String score()AS Single End Type
单项选择题

以下关于局部变量的叙述中错误的是( )。

A．在过程中用Dim语句或Static语句声明的变量是局部变量
B．局部变量的作用域是它所在的过程
C．在过程中用Static语句声明的变量是静态局部变量
D．过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放
单项选择题

为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为( )。

A．4
B．3
C．2
D．1
单项选择题

运行以下程序后，输出的图案是( )。Form1．ClsA$=String$(10，"*")For i=1To5n=10．2*iX$=AS：Y$=SpaceS(n)Mid$(X$，i+1，n)=Y$PrintX$Next i

A．
B．
C．
D．
单项选择题

可设置文字字体为斜体的属性是( )。

A．FontSlope
B．FontBold
C．Fontltalic
D．FontUnderline
单项选择题

下列表达式的值为2123的是( )。

A．Val("123asd")&2000
B．Val("123asd")+2000
C．Str(123)&"2000"
D．Str(123)+"2000"
单项选择题

已知变量x、y为整数型，且x=4，y=12，s为字符串型，且s=a，LblOk为标签控件，下列赋值语句不合法的是( )。

A．x=LblOk．Caption
B．LblOk．caption=Str(x)
C．x*3=y
D．3r=x*s
单项选择题

已知A$="Welcome"，下列语句操作能够正确执行的是( )。

A．Label1．Height=AS
B．Label1．Caption=AS
C．Label1．Enabled=AS
D．Label1．Visible=AS
单项选择题

在窗体上有一个文本框Text1和一个标签Label1，要求运行程序时，在文本框中输入的内容立即显示在标签中(如图所示)，则空白处应填入的内容是( )。
Private Sub Text1______________()Label1．Caption=Text1．TextEnd Sub

A．GetFocus
B．Click
C．Change
D．LostFocus
单项选择题

在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0do While x＜50x=(x+2)*(X+3)：n=n+1LoopText1．Text=Str(n)：Text2．Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )。

A．1和0
B．2和72
C．3和50
D．4和168
单项选择题

窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。Private Sub Command1_Click()Picture1．Picture=LoadPicture("c：＼picture．jpg")Picture1．ClsPicture1．Print"picture"End Sub

A．窗体无显示，图片框显示图片和文字picture
B．窗体上出现picture文本，图片框无显示
C．窗体上出现picture文本，图片框显示图片picture．jpg
D．窗体无显示，图片框只显示picture文字
单项选择题

下列控件属性中，属性值的类型不相同的一项是( )。

A．Labe1控件的Enabled属性与TextBox控件的Enabled属性
B．OptionButton控件的Value属性与CheckBox控件的Value属性
C．Command控件的Default属性与Command控件的Cancel属性
D．Command控件的Visible属性与Frame控件的Visible属性
单项选择题

有以下程序段，单击Command1按钮后，屏幕上的输出结果是( )。Private Sub Command1_Click()For i=6To9Print Tab(i*i)，iNext iEnd Sub

A．
B．
C．
D．
单项选择题

下列程序执行后，变量a的值为( )。Dim a，b，c，d As Singlea=10：b=20：c=40If b＞a Thend=a：a=b：b=dEnd IfIf c＞aT hend=a：a=c：c=dEnd IfIf c＞b Thend=b：b=c：c=dEnd If

A．10
B．40
C．20
D．100
单项选择题

如图所示，在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每1s在文本框中显示一次当前的时间。
Private Sub Timer1______________TextTime．Text=TimeEndS ub在下划线上应填入的内容是( )。

A．Enabled
B．Visible
C．Timer()
D．Interval
单项选择题

下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD”Function delchar(str As String，ch As String)As StringDim kAs Integer，temp As String，ret As Stringret=" "For k=1To Len(str)temp=Mid(str，k，1)If temp=ch Thenret=ret&tempEnd IfNext kdelchar=retEnd Function但实际上函数有错误，需要修改。下面的修改方案中正确的是( )。

A．把ret=ret&temp改为ret=temp
B．把Iftemp=ch Then改为If temp＜＞ch Then
C．把delchar=ret改为delchar=temp
D．把ret=" "改为temp=" "
单项选择题

下面是求最大公约数的函数的首部( )。Function fun(By Val x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是

A．Print fun(8，12)，fun(12，16)，fun(16，8)
B．Print fun(8，12，16)
C．print fun(8，12)，fun(12，16)，fun(16)
D．Print fun(8，fun(12，16))
单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1．Text=p2(p1(x)，y)：Text2．Text=pl(x)End SubPrivate Function p1(x AS Integer)As Integerx=x+y：y=x+yp1=x+yEnd FunctionPrivate Function p2(x As Integer，y As Integer)As Integerp2=2*x+yEnd Function程序运行后，第一次单击和第二次单击命令按钮后，文本框Text1和Text2内的值分别是( )。

A．2 4 2 4
B．2 4 4 8
C．10 10 58 58
D．4 4 8 8
单项选择题

单击命令按钮执行以下程序，输出结果为( )。Private Sub Command1_Click()Dim x As Integer，y As Integerx=12：y=32Call Proc(x，y)Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod10：m=m Mod10End Sub

A．12 32
B．2 32
C．2 3
D．12 3
单项选择题

在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_Keyaress(KeyAscii As Integer)Dim str As String，n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1．Text=String(n，str)End Sub程序运行后，如果在文本框中输入字母“p”，则在文本框中显示的内容为( )。

A．pp
B．pP
C．PP
D．Pp
单项选择题

在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()Dim MaxSize，NextChar，MyCharOpen"d：＼temp＼female．txt"For Input As#1MaxSize=LOF(1)For NextChar=MaxSize To 1Step-1Seek#1，NextCharMyChar=Input(1，#1)Next NextCbarPrint EOF(1)Close#1End Sub程序运行后，单击命令按钮，其输出结果为( )。

A．True
B．False
C．0
D．Null
单项选择题

使用菜单编辑器设计菜单时，必须输入的项是( )。

A．快捷键
B．标题
C．索引
D．名称
单项选择题

在3种不同类型的组合框中，只能选择而不能输入数据的组合框是( )。

A．下拉式组合框
B．简单组合框
C．下拉式列表框
D．三个类型都是
单项选择题

假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框”的事件过程是( )。

A．Private Sub Command1_Click() CD1．DialogTitle="通用对话框" CD1．ShowPrinter End Sub
B．Private Sub Command1_Click() CD1．DialogTitle="通用对话框" CD1．ShowFont End Sub
C．Private Sub Command1_Click() CD1．DialogTitle="通用对话框" CD1．ShowOpen End Sub
D．Private Sub Command1_Click() CD1．DialogTitle="通用对话框" CD1．ShowColor End Sub
单项选择题

在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见图3)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是( )。

A．Private Sub Form_DragDrop(Source As Contro1，X As Single，Y As Single) Picture2．MovePicture1．Leff+X，Picture1．Top+Y End Sub
B．Private Sub Picture2_DragDrop(Source As Contro1，X As Single，Y As Single) Source．Move Picture1．Left+X，Picture1．Top+Y End Sub
C．Private Sub Picture1_DragDrop(Source As Contro1，X As Single，Y As Single) Source．Move Picture1．Left+X，Picture1．Top+Y End Sub
D．Private Sub Picture_DragDrop(Source As Contro1，X As Single，Y As Single) Picture2．Move Picture2．Left+X，Picture2．Top+Y End Sub
单项选择题

目录列表框的Path属性的作用是( )。

A．显示当前驱动器或指定驱动器上的目录结构
B．显示当前驱动器或指定驱动器上的某目录下的文件名
C．显示根目录下的文件名
D．显示该路径下的文件
单项选择题

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

A．一个工程中可以包含多个窗体文件
B．在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C．全局变量必须在标准模块中定义
D．在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
单项选择题

如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项：若未找到，则在Text2中显示“查无此人”，在横线处应填写( )。
Private Sub Command1_Click()Dim k As Integer，n As Integer，found As Booleanfound=Falsen=Len(Text1．Text)：k=0While k＜List1．ListCount And Not foundIf Text1=Left$(List1．List(k)，n)ThenText2=found=TrueEnd Ifk=k+1WendIf Not found ThenText2="查无此人"End IfEnd Sub

A．List1．Text
B．List1．List(k)
C．List1．ItemData(k)
D．List1．Text(k)
微信扫码免费搜题