设置定时器控件的Interval属性为2000，Enabled属性为True...

单项选择题

在正确安装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类型，则下列为变量TestI)ate赋值的语句中正确的是( )。

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 Form1_Click() End Sub
B．Private Sub Form_Click() End Sub
C．Private Sub Commaad1_Click() End Sub
D．Private Sub Command1_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 andA＋B＜＞0
B．(A＝0 or B＝0)and(A＜＞0 or B＜＞0)
C．not(A＝0 And B＝0)ana(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属性

单项选择题

窗体如图所示。要求程序运行时，在文本框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.Removeltem 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个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序。
Private Sub Command1 Cliek() 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 Tllen 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 SubForm_Click() Timer1.Enabled＝__________ End Sub Private Sub Timer1_Timer() Labe11.Caption＝__________ End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1s钟变换一次，在横线处应填写( )。

A．1000 True Time$()
B．100 True Time$()
C．1000 False Time$()
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 Printa：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 Ifi 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"Telnp．txt"For Output As #2 Print"Text1" Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。

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

单项选择题

Fibonaeei数列的规律是：前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 aAs Integer,bAs Integer,cAs Integer, tlagAs 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改为Ifx＝a Then flag＝True

单项选择题

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

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

单项选择题

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

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

单项选择题

设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Forrn_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

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

你可能感兴趣的试题

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

已知二叉树后序遍历序列是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类型，则下列为变量TestI)ate赋值的语句中正确的是( )。

窗体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 Tllen 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 Printa：b

有如下程序： Private Sub Form_Click() Dim i As Integer，sum As Integer sum＝0 For i＝2 To 10 Ifi 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"Telnp．txt"For Output As #2 Print"Text1" Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。

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

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

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