单项选择题

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

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

你可能感兴趣的试题

单项选择题

在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic 6.0。以下方式中，不能启动Visual Basic 6.0的是______。

A.通过“我的电脑”找到vb6.exe，双击该文件名
B.进入DOS方式，执行vb6.exe文件
C.通过“开始”菜单中的“运行”命令
D.通过“开始”菜单中的“程序”命令

单项选择题

下面4个选项中，不是窗体属性的是______。

A.UnLoad
B.BorderStyle
C.MinButton
D.Caption

单项选择题

设计窗体时双击窗体的任何位置，将打开______。

A.窗口设计器
B.代码窗口
C.工具箱窗口
D.属性窗口

单项选择题

下面有关标准模块的叙述中，错误的是______。

A.标准模块的文件扩展名为.bas
B.标准模块中的Private过程不能被工程中的其他模块调用
C.标准模块不完全由代码组成，还可以有窗体
D.标准模块中的全局变量可以被工程中的任何模块引用

单项选择题

实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是______。

A.Str
B.StrConv
C.Trim
D.Mid

单项选择题

若将变量TestDate声明为Date类型，则下列为变量TestDate赋值的语句中正确的是______。

A.TestDate=date("1/1/2002")
B.TestDate=#"1/1/2002"#
C.TestDate=#1/1/2002#
D.TestDate=Format("m/d/yy","1/1/2002")

单项选择题

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是______。

A.Private Sub Form 1_Click() ... End Sub
B.Private Sub Form_Click() ... End Sub
C.Private Sub Command1_Click() ... End Sub
D.Private Sub Command_Click() ... End Sub

单项选择题

下列程序段的执行结果为______。 Form1.Cls a="ABBACDDCBA" For i=6 To 2 Step-2 x=Mid(a,i,i) y=Left(a,i) z=Right(a,i) z=x & y & z Next i Print z

A.ABC
B.BBABBA
C.ABBABA
D.AABAAB

单项选择题

不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是______。

A.A*B=0 and A+B＜＞0
B.(A=0 or B=0)and (A＜＞0 Or B＜＞0)
C.not(A=0 And B=0)and(A=0 or B=0)
D.A*B=0 and(A=0 or B=0)

单项选择题

在窗体(Name属性为Form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程______。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为______。

A.444
B.321123
C.123321
D.132231

单项选择题

组合框是文本框和______特性的组合。

A.复选框
B.标签
C.列表框
D.目录列表框

单项选择题

已知文本框的ScrollBars属性设置为3，却看不到任何效果，原因是______。

A.文本框中没有内容
B.文本框的Locked属性值为True
C.文本框的MultiLine属性值为False
D.文本框的MultiLine属性值为True

单项选择题

下面哪个属性不是框架控件的属性______。

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

单项选择题

复选框是否被选中，取决于复选框的______。

A.Enabled属性
B.Value属性
C.Checked属性
D.Visible属性

单项选择题

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

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

单项选择题

窗体上有1个名为List1的列表框，其中已经输入了若干个项目(如下图所示)；还有2个文本框，名称分别为Text、Text2，1个名称为Command1的命令按钮，并有以下程序。 Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1:str="" For k=List1.ListCount-1 To 0 Step-1 If InStr(List1.List(k),s)＞0 Then str=str & List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入”京”，单击命令按钏，则在Text2中显示的内容是______。

A.京
B.北京南京
C.南京北京
D.没有匹配的项目

单项选择题

设置定时器控件的Interval属性为2000，Enabled属性为True，并且有下面的事件过程，程序运行时计算机将发出______次Beep声。 Sub Timer1_Timer() Beep End Sub

A.0
B.2000
C.1
D.以上都不对

单项选择题

下列程序的输出结果为______。 S1="1":S2="2":S1=Val(S1)+Val(S2):S2=Val("12") If S1＜＞S2 Then Print S1-S2 Else Print S2-S1

A.-9
B.9
C.-12
D.0

单项选择题

在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器，并编写有如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=______ End Sub Private Sub Form_Click() Timer1.Enabled=______ End Sub Private Sub Timer1_Timer() Label1.Caption= End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1s钟变换一次，在横线处应填写。

A.1000 True Time$()
B.100 True Time$()
C.1000 False Tim$S()
D.100 False Time$()

单项选择题

下列程序段的执行结果为______。 x=Int(Rnd+4) Select Case x Case 5:Print "A Class" Case 4:Print "B Class" Case 3:Print "C Class" Case Else:Print "D Class" End Select

A.A Class
B.B Class
C.C Class
D.D Class

单项选择题

下列程序段的执行结果为______。 a=0:b=1 Do a=a+b b=b+1 Loop While a＜10 Print a;b

A.10 30
B.a b
C.0 1
D.10 5

单项选择题

有如下程序： Private Sub Form_Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A.24
B.30
C.12
D.18

单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到Temp.txt文件中 Private Sub Command1_Click() Open "Temp.txt" For Output As #2 Print "Text1" Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是______。

A.把所有#2改为#1
B.把Print "Text1"改为Print #2,Text1
C.把Print "Text1"改为Write "Text1"
D.把Print "Text1"改为Print Text1

单项选择题

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer,b As Integer,c As Integer,flag As Boolean flag=False a=1:b=1 Do While x＜b c=a+b:a=b:b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是______。

A.把a=b与b=c的位置互换
B.把c=a+b移到b=c之后
C.把Do While x＜b改为Do While x＞b
D.把If x=b Then flag=True改为If x=a Then flag=True

单项选择题

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

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

单项选择题

以下叙述中正确的是______。

A.一个Sub过程至少要有一个Exit Sub语句
B.一个Sub过程必须有一个End Sub语句
C.可以在Sub过程中定义一个Function过程，但不能定义Sub过程
D.调用一个Function过程可以获得多个返回值

单项选择题

设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为______。

A.A A
B.A B
C.A C
D.A D

单项选择题

在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:") If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

A.0
B.5
C.15
D.无任何输出

单项选择题

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个事件中执行的语句分别为______。

A.File1.Path=Drive1.Drive和File1.Path=Dir1.Path
B.Dir1.Path=Drive1.Drive和File1.Path=Dir1.Path
C.Dir1.Path=Dir1.Path和File1.Path=Drive1.Drive
D.Dir1.Path=Drive1.Path和File1.Path=Dir1.Path

你可能感兴趣的试题

已知二叉树后序遍历序列是CDABE，中序遍历序列是CADEB，它的前序遍历序列是______。

下列关于栈和队列的描述中，正确的是______。

结构化程序设计的3种结构是______。

下列特征中不是面向对象方法的主要特征的是______。

下列方法中，不属于软件调试方法的是______。

下列选项中，不属于模块间耦合的是______。

在数据流图中，带有箭头的线段表示的是______。

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

在一棵二叉树上，第5层的结点数最多是______。

下列有关数据库的描述，正确的是______。

Visual Basic 6.0集成环境的主窗口中不包括______。

在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic 6.0。以下方式中，不能启动Visual Basic 6.0的是______。

下面4个选项中，不是窗体属性的是______。

设计窗体时双击窗体的任何位置，将打开______。

下面有关标准模块的叙述中，错误的是______。

实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是______。

若将变量TestDate声明为Date类型，则下列为变量TestDate赋值的语句中正确的是______。

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是______。

下列程序段的执行结果为______。 Form1.Cls a="ABBACDDCBA" For i=6 To 2 Step-2 x=Mid(a,i,i) y=Left(a,i) z=Right(a,i) z=x & y & z Next i Print z

不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是______。

组合框是文本框和______特性的组合。

已知文本框的ScrollBars属性设置为3，却看不到任何效果，原因是______。

下面哪个属性不是框架控件的属性______。

复选框是否被选中，取决于复选框的______。

设置定时器控件的Interval属性为2000，Enabled属性为True，并且有下面的事件过程，程序运行时计算机将发出______次Beep声。 Sub Timer1_Timer() Beep End Sub

下列程序的输出结果为______。 S1="1":S2="2":S1=Val(S1)+Val(S2):S2=Val("12") If S1＜＞S2 Then Print S1-S2 Else Print S2-S1

下列程序段的执行结果为______。 x=Int(Rnd+4) Select Case x Case 5:Print "A Class" Case 4:Print "B Class" Case 3:Print "C Class" Case Else:Print "D Class" End Select

下列程序段的执行结果为______。 a=0:b=1 Do a=a+b b=b+1 Loop While a＜10 Print a;b

有如下程序： Private Sub Form_Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

某人编写了下面的程序，希望能把Text1文本框中的内容写到Temp.txt文件中 Private Sub Command1_Click() Open "Temp.txt" For Output As #2 Print "Text1" Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是______。

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

以下叙述中正确的是______。

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个事件中执行的语句分别为______。