在vb中，假定一个文本框的Name属性为Textl，为了在该文本框中显示“Hello！”，所_百度知道
在vb中，假定一个文本框的Name属性为Textl，为了在该文本框中显示“Hello！”，所
我有更好的答案
Me.test1.text = &Hello!&
采纳率：59%
1.设置这个文本框的TEXT属性为&Hello!&；2.在form_load()事件中加入代码：Textl.text=&Hello！&。
这很基础啊，看楼主是刚学VB吧，要多看看书，去csdn网看看
这个网站都是关于VB的吗？
为您推荐：
其他类似问题
文本框的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。点睛之笔 ―― VB 的面向对象程序设计
VB 的面向对象程序设计
因为许多程序员编程仍然用面向过程的方法，我想有必要在这里说一说，其实面向对象并不难，但却会带来很多好处。
当然，因为使用控件太习惯，很多 VB 程序员喜欢去找各种适合自己的控件，却不喜欢自己编程解决遇到的问题，如果您也是这样，那么这一篇文章可能不适合您，从此以后的内容您都可以跳过；如果您已经对 VB 的面向对象的程序设计方法非常了解，您也可以跳过以后的内容。
本文假定您已经对 VB 的编程比较熟悉，所以对一些本人认为简单的问题不会做太多的解释，如果有什么问题，可以提出。
另外本文没有任何明确或不明确地提示说本文完全正确，阅读和使用本文的内容是您自己的选择，本人不负任何责任，但是如果您发现本文有错漏的地方，希望您可以指出。
个人可以自由转载，不过应保持原文的完整性，并通知作者；商业转载先请和作者联系。
VB 中的代码编辑分为“过程察看”和“全模块察看”两种方式，我个人喜欢用“全模块察看”，这样有一个全局的概念，在本文中因为版面的问题，也全部使用“全模块察看”，如果您一向使用“过程察看”，可能需要更改方式，以利于理解，同样建议大家在编程时也使用此方式。
面向对象的概念应该说已经深入人心了，不过好像真正用面向对象的方法编程的人并不多。如果某人摒弃 VB 的话，VB 不是完全面向对象肯定是一大罪状，其实即使用 VC ，其人也未必会用面向对象的方法。我很怀疑中国才有这么多的这样的事 ―― 好像人人都知道计算机病毒，于是有人说“别整天偎在电脑前，回头得了计算机病毒，发烧感冒地谁管呀？！”
以前在学习面向对象的程序设计时，书上就一直强调，学习一种新的编程方法要比学习一种新的语言难得多，我是相信的。我看面向对象的书大概两三年，知道怎样编面向对象的程序，虽然各式的书上都花一定量的篇幅介绍面向对象的概念，又“假物取譬”，但是我还是没有去编这样的程序，因为不知道这样做有什么好处，直到我开始用 VB 为止。
用了 VB 后，我才发现控件的概念和类的概念是如此相像，而使用控件的好处不言而喻，于是豁然开朗，原来面向对象就是这样！
希望我的这一篇文章可以使大家对面向对象的编程方法有所了解，并且可以因此习惯于用面向对象的方法编制程序。我在这里尽量讲的比较系统一些，如果大家都能从这里得到一个完整的观念，就是最好的结果了。好的，现在就让我们开始 ――
一 面向过程
大家随时随地都在用面向过程的方法设计程序，不过在这里我仍然要简单说一说面向过程的程序设计方法。虽然各种语言至少都是面向过程的（甚至宏汇编），但是我见到的一些源代码说明还有很多人并没有很好的利用面向过程的方法。举例来说，我见过很多类似这样的程序：
Option Explicit
Private Sub Form_Load()
If 出错 Then Unload 子窗体1: Unload 子窗体2: Unload 主窗体
Private Sub Form_Paint()
If 出错 Then Unload 子窗体1: Unload 子窗体2: Unload 主窗体
Private Sub 退出_Click()
Unload 子窗体1: Unload 子窗体2: Unload 主窗体
对于这种程序的不厌其烦的拷贝大段程序，我认为非常不好，比如这时又有了一个“子窗体3”，又需要在每一个卸载程序的地方复制“Unload 子窗体3”，不只麻烦，还很容易出错，在大量的源代码前找出每一次这样的调用可不是一件容易的事！所以希望大家是这样调用这一段代码的：
Option Explicit
Private Sub Form_Load()
If 出错 Then 退出_Click
Private Sub Form_Paint()
If 出错 Then 退出_Click
Private Sub 退出_Click()
Unload 子窗体1: Unload 子窗体2: Unload 主窗体
当然，如果大家仔细想一想，可能会发现这样写也不是最好的选择，最好有一种自动的办法可以实现这种效果，所以如果写成以下这样的话会更好：
Option Explicit
Private Sub Form_Load()
If 出错 Then 退出_Click
Private Sub Form_Paint()
If 出错 Then 退出_Click
Private Sub Form_Unload(Cancel As Integer)
Unload 子窗体1: Unload 子窗体2
Private Sub 退出_Click()
在这里，由主窗体的“Form_Unload”事件，我们知道主窗体正要被卸载，于是将子窗体一一卸载，这样，即使我们把“Form_Load”和“Form_Paint”中的“退出_Click”写成了“Unload Me”，这个程序也仍然是正确的，和上面两段程序执行的结果没有什么不同。也许有人会说，既然执行的结果一样，有什么必要一定用这一段程序，而不是第一段呢？是的，如果程序只是编到这里就结束了，而且永远不必再作修改或扩充，确实没有什么必要，但是我们编程序不大可能遇到这样的情况，修改和扩充简直是必须的，所以实际当中我们在编程中就要时刻注意程序的可修改性、可扩展性。而一直以来提倡的结构化、模块化就是提供这种性能的良策。正像上面的程序演示的那样，结构化、模块化就是要提取出很多调用的共同点，令其在同一个地方得到此功能，以后不管是排错或者扩充都只要修改一个地方就可以了。
好的，因为大家对面向过程的程序设计应该都很熟悉，我就只说这一点，事实上，我提出面向过程的意思，也是能提醒大家对结构化、模块化的关注，所以关于这一点就此打住。不过要提醒大家，这种“提取调用共同点”的能力很重要，特别是在进行面向对象的程序设计时。
二 控件和“类”
在上面我已经说过，控件的概念和类的概念在很大程度上是一致的，所以让我们先从控件开始来理解类的概念吧！
VB 自第一版开始就提出了控件的概念，一个控件本身就像一个应用程序一样，我们不知道它的内部是怎么实现的，但是可以通过其提供的“属性”、“方法”和“事件”对其行为进行控制，以达到我们的目的，因为大家都比较熟悉，我就不多说了。但是既然控件和类是很相似的，我们就可以想象设计出功能行为和 Timer 控件一样的类（VB 源盘的例子里有一个这样的类），或者一个 PictureClip 控件的实现，但是这些不需要我们附带一个 ActiveX 控件，甚至不需要有窗体来承载它！
控件最基本的概念应该就是“方法”、“属性”和“事件”了。
先来说一说“方法”。VB 中不论控件或类，都管其中的函数称作“方法”，也就是说，“方法”其实就是一个函数（没有返回值就是过程），它通过参数的指定来完成一定的任务。
再说一说“属性”。“属性”的概念倒是比较有趣。本来“属性”应该只是一个变量罢了，不过在 VB 中并不是这样简单，我的理解“属性”就是两个函数，一个赋值，一个取出。因为这样，VB 中的“属性”并不只有赋值的功能，还可以进行一些用户认为重要且必须的操作。比如我们常用“Me.Caption="测试"”这种方法来访问“属性”，在这里我们是希望本窗体的标题被设置为“测试”，如果用 VC 的话，在进行了这一赋值之后，一定要用“UpdataData”函数刷新才能产生效果，不过在 VB 中，赋值后不需要做什么多余的操作，我们的愿望就达成了，这正是因为“属性”是函数的缘故，在这种特殊的函数中，VB 不只进行了赋值操作，还进行了类似“UpdataData”的操作。
最后是“事件”。“事件”的概念也很特殊，我理解它是一个特殊的“回调函数”。所以这么说，是因为如果 VB 里没有“事件”这个概念的话，我们可以在每一个使用控件的地方放置一些特定（和控件协商后）的函数，在控件里调用这些函数，一样可以完成类似的任务，只是“事件”允许我们不写出我们不关心的函数，而且“事件”是在控件里定义这些函数，我们不必关心这些函数的定义和参数，VB 会帮我们写入，而且会加上控件名以区别不同的控件的同名“事件”。
把一系列“属性”“方法”“事件”结合到一起的就是控件，同样，在面向对象的概念里把一系列“属性”“方法”“事件”结合到一起的就是类。我们如果在窗体上放置了一个控件，我们就有了一个实际存在的控件，而不是一个抽象的概念，我们称此为实例化，在面向对象里就是生成了一个对象，不过“类”不能用鼠标拖出来生成实例，需要用“Dim”产生。
三 “类”之初
现在，就让我们来熟悉一下“类”的设计和使用。VB 中类是用“类模块”来封装的，所以要生成一个类，就需要先生成一个“类模块”，然后在其中加入代码就可以了。下面用一个比较简单的类来做例子，它是有一个属性，一个方法，两个事件的“狼”类：
Option Explicit
Public 体重 As Single
Public Event 摔了下去()
Public Event 扑了过去()
Public Sub 扑食()
If 体重 > 50 Then
RaiseEvent 摔了下去
RaiseEvent 扑了过去
在这个例子里，“体重”就是“属性”，在这里，我只用了“Public”定义了一个“Single”类型的变量，VB 将在内部完成其它的代码，以便“体重”被作为属性看待，如果我们不需要属性做一些赋值之外的操作，这种方法就是最简单的属性的编制方法了。“扑食”在这里就是“方法”了，和定义过程的方法一模一样，不过要注意一定要加上“Public”关键字，否则就真的和过程一模一样了。事件“摔了下去”需要先用“Event”关键字定义，然后在适当的时机如“体重 > 50”时用“RaiseEvent”关键字调用。
要使用类，需要用“Dim”或“Private”或“Public”定义变量，用“New”产生对象并赋值给定义的变量，如果需要事件支持，在定义变量时还要用关键字“WithEvents”定义，如下在窗体中有一名为“运动”的按钮，让我们见识一下悲惨的“麦克狼”：
Option Explicit
Private WithEvents 麦克 As 狼
Private Sub Form_Load()
Set 麦克 = New 狼
麦克.体重 = 100
Private Sub 麦克_扑了过去()
MsgBox "麦克门牙磕掉了"
Private Sub 麦克_摔了下去()
MsgBox "麦克摔扁了"
Private Sub 运动_Click()
上面的调用方法和控件比起来，一共多了“Private WithEvents 麦克 As 狼”“Set 麦克 = New 狼”和“麦克.体重 = 100”这么几句，前两句在控件是在拖放时自动产生的，后一句是在设计属性时加入的，也就是说类的使用其实不比控件多了什么步骤，只是需要显式的写出来罢了，对于熟练使用控件的同志们使用类应该不成问题的吧。
四 “属性”和“方法”
上面我说过“属性”其实是两个函数，如果用“Public 体重 As Single”这种方式产生“属性”，VB 就在内部实现这两个函数，或者如果需要在属性从属性取值或赋值的时候做一些其它操作的话，最好自己定义这两个函数：
Option Explicit
Private 当前体重 As Single
Public Event 摔了下去()
Public Event 扑了过去()
Public Sub 扑食()
If 体重 > 50 Then
RaiseEvent 摔了下去
RaiseEvent 扑了过去
Public Property Get 体重() As Single
体重 = 当前体重
End Property
Public Property Let 体重(ByVal 新体重 As Single)
If 新体重 > 0 Then
当前体重 = 新体重
Err.Raise vbObjectError + 1, , "属性体重设置值非法"
End Property
因为在“Property Let”时检测了设置值的合法性，这个类的使用会更加方便简洁。下面在以前的窗体中加入一个文本框“体重”，让用户来确定麦克的体重，如果输入值为负值，将跳出错误窗体，如果不希望错误窗体出现，可以在“运动_Click”中加入“On Error Resume Next”来忽略错误或“On Error Goto ...”来捕获错误：
Option Explicit
Private WithEvents 麦克 As 狼
Private Sub Form_Load()
Set 麦克 = New 狼
Private Sub 麦克_扑了过去()
MsgBox "麦克门牙磕掉了"
Private Sub 麦克_摔了下去()
MsgBox "麦克摔扁了"
Private Sub 运动_Click()
麦克.体重 = Val(体重)
属性的定义和使用基本就是这样，不过有一点提醒大家，其实属性的使用非常广泛，不只可以在“类模块”中，而且可以在窗体模块中，甚至可以在普通模块中，事实上，在普通模块中定义属性时非常有用的一种方法，可以全局的使用一个属性，使代码看起来非常人性化。另外，属性不只可以是“Public”的，而且可以是“Private”的，很多人不用“Public”和“Private”关键字定义变量、属性、函数等并不是一个好习惯，“Dim”虽然好像有一些智能，会自己定义全局还是私有，但是在很多情况下并不是我们所要的，而且它在什么情况下是全局，什么情况下是私有，实在很模糊，建议养成使用“Public”和“Private”的习惯，尽量少用“Dim”。
另外，我曾经用在普通模块中的属性来代替其它人编程时使用全局变量的程序，我没有查找那些使用这些全局变量的地方，但是修改后的程序运行正常，以前因为只是变量，原程序使用一个死循环来检测这些变量的变化，而修改时我把这些代码加入“属性”所在的函数中，完全舍弃了死循环，CPU 占用率大幅度降低，事实上绝大部分时间 CPU 占用率为零，只是在用到时才有占用，很像事件驱动呢。
“方法”就是一个函数，所以没有过多的可说的，不过要注意“方法”和“属性”的对应关系，因为 VB 的“属性”的特性，故可以相当程度上的简化操作，使程序更好读。
比如许多控件的设计其实就是没有注意这一点，所以定义了很多“方法”，如“GetSystemTime”和“SetSystemTime”，其实用一个属性“SystemTime”来代替这两个函数会更好：
Public Property Get SystemTime() As Date
SystemTime = GetSystemTime()
End Property
Public Property Let SystemTime(ByVal NewSystemTime As Date)
Call SetSystemTime(NewSystemTime)
End Property
这样，在调用时就可以用“SystemTime = 日期”的方法设置系统时间，用“日期 = SystemTime”取得系统时间，我想大家都可以看出这样的程序更简练，而且更易读，而容易读的程序才容易维护。事实上，VB 中是用“Time”来称呼这个属性的，只是在帮助里却把它称作“Time 函数”和“Time 语句”，我却以为称作“属性”更实际，而且更容易理解一些。
五 产生“事件”
据我所知，面向对象里并没有“事件”这个概念，想必是因为控件的原因才在 VB5 以后在类里加入了“自定义事件”的能力。因为加入这种能力，VB 里的类的功能更加强大，使用也更加方便。
正像刚才的例子里所显示的，要产生“事件”的话，要像变量定义一样首先定义“事件”：“Public Event 摔了下去()”，然后在我们希望产生事件的地方用“RaiseEvent”来调用“事件”。想一想，如果把“RaiseEvent”改为“Call”，是否就和过程的调用方式一模一样了？所以我说“事件”其实是一个“回调函数（过程）”，只要把它理解成一个过程调用就很可以理解了。
当然，“事件”和过程还是有很大的不同的，不然就不需要用“RaiseEvent”以区别于“Call”了。其实使用事件也很简单，刚才的演示已经可以说明问题了，下面我们仍然用那只可怜的“麦克狼”来试验一下事件不同于过程的一个最重要的特点。不过首先明确一下，“Public WithEvents 麦克 As 狼”只是定义了一个可以存储对象的变量，“New 狼”才真正产生了这个对象，其实可以用“Public 麦克 As New 狼”的方法定义一个真正的对象，不过不能用“Public WithEvents 麦克 As New 狼”的方式，所以要使用事件的话，还是要用“Set 麦克 = New 狼”这样的方式。仍然用刚才的窗体，不过代码变化一下，另外还需要再建立一个新的窗体，同样新窗体上有一个名为“运动”的按钮。原窗体“Form1”代码做如下修改：
Option Explicit
Public WithEvents 麦克 As 狼
Private Sub Form_Load()
Set 麦克 = New 狼
Form2.Show
Private Sub 麦克_扑了过去()
Me.Caption = "麦克门牙磕掉了"
Private Sub 麦克_摔了下去()
Me.Caption = "麦克摔扁了"
Private Sub 运动_Click()
麦克.体重 = 100
新窗体“Form2”代码如下：
Option Explicit
Private WithEvents 麦克 As 狼
Private Sub Form_Load()
Set 麦克 = Form1.麦克
Private Sub 麦克_扑了过去()
Me.Caption = "麦克门牙磕掉了"
Private Sub 麦克_摔了下去()
Me.Caption = "麦克摔扁了"
Private Sub 运动_Click()
麦克.体重 = 30
现在，让我们运行此程序，出现两个窗体，把它们位置摆好，单击“Form1”的按钮，我们会发现两个窗体的“Caption”都变成了“麦克摔扁了”；然后单击“Form2”的按钮，现在两个窗体的“Caption”又都变成了“麦克门牙磕掉了”。
正像我们见到的，事件并非只是可以在一个窗体产生效果，一个对象的事件可以向每一个此对象的引用发出事件，类似这样的例子在 VB 的“联机手册”里也有，不过它产生的是一只食肉恐龙的吼叫的事件，这一事件导致许多其它的动物闻风丧胆，四散奔逃。顺便说一下，不只类，控件也是一样可以使用这种方法的。
这个“我”其实并不是我，而是“Me”。
我不知道大家对“Me”关键字的使用情况，不过它确实是一个比较有用的概念，在 C++ 中它叫做“this”，其实就像我们说话时用的人称代词“你我他”之类，谁说就是谁，并不总是确指一个人的。
关键字“Me”返回对当前实体的引用。如果是在当前窗体使用“Me”，那么“Me”就是当前窗体的引用；如果是在当前类模块里使用“Me”，“Me”就是对此类产生的当前对象的引用。
“Me”有什么用呢？我用大家都比较熟悉的窗体来举例吧。不用“Me”关键字的程序如下例：
在“窗体1”中：
Option Explicit
Private Sub Form_Load()
If 出错 Then 显示错误并退出 窗体1, "未知错误"
在“窗体2”中：
Option Explicit
Private Sub Form_Load()
If 出错 Then 显示错误并退出 窗体2, "未知错误"
在“函数模块”中：
Option Explicit
Public Sub 显示错误并退出(当前窗体 As Form, 错误信息 As String)
MsgBox "窗体“" & 当前窗体.Name & "”出现错误：" & 错误信息
而使用“Me”关键字的程序如下：
在“窗体1”中：
Option Explicit
Private Sub Form_Load()
If 出错 Then 显示错误并退出 Me, "未知错误"
在“窗体2”中：
Option Explicit
Private Sub Form_Load()
If 出错 Then 显示错误并退出 Me, "未知错误"
在“函数模块”中：
Option Explicit
Public Sub 显示错误并退出(当前窗体 As Form, 错误信息 As String)
MsgBox "窗体“" & 当前窗体.Name & "”出现错误：" & 错误信息
程序只有很小的变化，不过这很小的变化却让我们从不同对象的不同引用之中解脱出来，不必再关心当前窗体究竟应该是“窗体1”呢，还是“窗体2”，即使以后我们因为某种需要修改了窗体名，也一样不需要修改其调用的源代码。不过在“类”里，“Me”关键字更有用，因为在类被实例化以前是不知道自己究竟叫什么的，举例来说，有一个类“狼”，我们实例化时用“Dim 麦克 As 狼”，但是在“狼”类被定义时并不知道用户会把产生的实例叫做“麦克”，这时用“Me”来引用它，一样是对“麦克”的引用。这种类对自己产生的对象的引用我目前只用在了“系统回调函数”上，比如托盘程序“Tray”，因为在以前我的心得里讲过，就不多说了，另外各位还可以参考我写的“系统栏”模块上的做法。
VB 最讨厌的地方可以说就是不能初始化。比如我上次上传的“VB 入门教程”里就很想当然的说 VB 可以用“Dim Index=3”的方法定义并初始化变量，其实却是不可以的。对于对象来说也是一样。
在 C++ 中，构造函数可以有参数，所以可以同时初始化新产生的对象，不过 VB 不行，所以我不得不在类里定义一个名叫“初始化”的方法，然后一边咒骂，一边用以下的语法初始化（“:=”是命名参数，具体参见帮助）：
Set 麦克 = New 狼
麦克.初始化 身高:=100, 体重:=100
最近我忽然想到，VB 的普通数据可能真的不能初始化，只能用“Dim x As Long: x=100”这样可恶的语法，但是“对象”却是可以初始化，而且这应该是一种耳熟能详的方法，比较奇怪的是为什么以前没有想到：
Private Sub Class_Initialize()
RaiseEvent 初始化(体重, 身高)
不过实际的测试却非常失败，在“Class_Initialize”事件发生时确实可以做一定的操作，不过“RaiseEvent”不在其中，想必是因为在“Class_Initialize”事件发生时还没有任何定义，包括“事件”，所以“RaiseEvent”也只成了一种空操作，也许可以用一些比较复杂的方法等它有效，不过我们这样做也只是为了简单，用复杂的方法实现简单实在是不可想象，所以还是用“初始化”“方法”好了（我用的是 VB5 ，建议使用 VB6 的同志们亲自试一试，如果可行，还是很好的），建议遇到这种情况时要一刻不停的咒骂微软，咒骂 VB 开发组。:)
结语 千年和世纪
最后我想说一些题外的话。
在电影《超导》中一个科学家和一个大款吃饭，侍者问大款：“牛排要几成熟？”答：“四成。”，又问科学家：“您呢？”，答：“三成。”大款惊异：“我还以为下限是四成呢。”，科学家冷冷的答到：“下限是全生！”
抛开其中的意气用事不说，我非常喜欢那最后的回答，因为各种各样的条条框框的束缚，我们的思想也会有许多成见，只有抛开这些条条框框去考虑问题，才能真的有大发展。所以大家应该在遇到问题时尽量抛开各种限制的思考问题，包括我给大家下的限制在内。
我和一个同事曾有过一次比较“大型”的关于字符串究竟能不能按值传递的讨论，双方都不让步，最后我才发现，我们两人对“按值传递”的理解不一样。子曰：“名不正则言不顺”，概念的理解的清晰和统一是很重要的，否则南辕北辙，却不知所以。“面向对象”的概念也是一样，我在这里的短短的描述可能并不能完整全面的介绍清楚，这就有赖于各位再看一看其它的关于面向对象的书籍以加深理解了。
已经 2000 年了，一直以来关于究竟 2000 年是 21 世纪之初还是 2001 年是 21 世纪之初的话题还是很多的，甚至有一些电视台专门做节目讨论这个问题，有的说公元纪年应该由 0 开始，有的说应该由 1 开始，其实这是不必讨论的，应该看事实，事实是公元纪年由 1 开始，所以 2001 年才是 21 世纪之初。我提起这件事是因为这一类的问题在编程时时经常遇到的。比如“Dim x(7) As Long”究竟是定义了几个数？又比如“For i = 1 To 20”究竟执行了几次循环？“For i = 1 To 19.5”呢？“For i = 1 To 20.5”呢？“For i = 20 To 1”呢？“For i = 1 To 1”呢？这样的问题还很多，希望大家遇到这种问题时能准确处理，不要因为差 1 而出现错误。
好了，真的已经 2000 年了，祝大家新年快乐，究竟 2000 年是 21 世纪之初还是 2001 年是 21 世纪之初其实对于我们并不太重要，就认为它们都是新世纪之初吧！不过就是多庆贺一次，谁在乎？！网站已改版，请使用新地址访问：
vbreadbmp VB读取和保存图片, 格式这里假定是BMP， 路径自 义，如果 文件 程序在 SCM 单片机开发 238万源代码下载- www.pudn.com
&文件名称: vbreadbmp
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 162 KB
&&上传时间:
&&下载次数: 2
&&提 供 者:
&详细说明：VB读取和保存图片,图片格式这里假定是BMP，图片路径自己定义，如果图片文件和本程序在同一个文件夹就不用定义详细路径了,只要图片文件名，代码默认是在本级目录中查找文件。简要说下，读取图片是使用LoadPicture，保存图片是使用SavePicture。-VB to read and save the picture, picture format is assumed here BMP, image path own definition, if the image file and the program in the same folder do not define in detail the path, as long as the image file name, the code in this class is the default directory find the file. In brief, the read image is to use the LoadPicture, save the image using SavePicture.
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&读取和保存图片\123.BMP&&..............\Form1.frm&&..............\工程1.vbp&&..............\工程1.vbw&&读取和保存图片
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - 定义输入向量和目标向量，设计RBP网络，并保存
&[] - 本程序是基于机动目标跟踪课题的整个算法程序，其中包括卡尔曼，扩展卡尔曼和粒子滤波程序及其仿真代码和仿真的图形。VB6程序设计-试题大全(含答案)1
0. 下列叙述中正确的是(C)(单)
A.只有窗体才是Visual Basic中的对象
B.只有控件才是Visual Basic中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic中的对象
1.下列可以激活属性窗口的操作是(D)(单)
A.用鼠标双击窗体的任何部位
B.执行"文件"菜单中的"属性窗口"命令
C.执行"编辑"菜单中的"属性窗口"命令
2.下列能打开工具箱窗口的操作是(A)(单)
A.执行"视图"菜单中的"工具箱"命令&&&
C.单击属性窗口上的"工具箱"按钮&&&&&
D.按Ctrl键
3.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是(D)(单)
A.单击窗体上没有控件的地方&& B.单击任一个控件
C.不执行任何操作&&&&&&&&&&
D.双击窗体的标题栏
4.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)
A.单击窗体的空白处&&&&
B.单击该控件的内部
C.双击该属性列表框&&&&
D.双击窗体
5.确定一个控件在窗体上的位置的属性是(D)(单)
A.Width或Height&&&&
B.Top和Height
C.Top或Width&&&&&&&
D.Top和Left
6.确定一个窗体或控件的大小的属性是(A)(单)
A.Width或Height&&&&
B.Top和Width
C.Top或Left&&&&&&&&
D.Top和Left
7.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)
A.拖拉位于控件左上角&
&&&&B.只能拖拉位于控件右下角
C.只能拖拉位于控件左下角
D.不能同时改变控件的高度和宽度
8.面向对象的程序设计指满足(B)(单)
A.虚拟化、结构化、动态化&&
B.封装性、继承性、多态性
C.对象的链接、动态链接、动态数据交换
D.ODBC、DDE、OLE
9.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(单)
A.面向对象的程序设计&&&
B.结构化程序设计
C.事件驱动的编程机制&&&
D.程序设计
10.VB集成开发环境开发的应用程序不适宜的运行环境是(A)(单)
32&&&&&&&&&&&&
B.WINDOWS 9X
NT&&&&&&&&&&&
D.WINDOWS 2000
11.VB6共有三个版本，按功能从弱到强的顺序排列应是(C)(单)
A.学习版、专业版和工程版&&
B.学习版、工程版和专业版
C.学习版、专业版和企业版&&
D.学习版、企业版和专业版
12.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)
A.设计状态&&&&&&&&&
B.编写代码状态
C.运行状态&&&&&&&&&
D.中断状态
13.不能打开代码窗口的操作是(B)(单)
A.双击窗体设计器的任何地方&&&&&&&
C.单击工程窗口中的"查看代码"按钮
D.选择"视图"下拉菜单中的"代码窗口"
14.在VB中，工程文件的扩展名是(B)(单)
A..frm&&&&
B..vbp&&&&
C..bas&&&&
15.在VB中，窗体文件的扩展名是(A)(单)
A..frm&&&&
B..vbp&&&&
C..bas&&&&
16.VB集成开发环境可以(D)(单)
A.编辑、调试、运行程序，但不能生成可执行程序
B.编辑、生成可执行程序、运行程序，但不能调试程序
C.编辑、调试、生成可执行程序，但不能运行程序
D.编辑、调试、运行程序，也能生成可执行程序
17.英文"VISUAL"的含义是(A)(单)
A.可视化&&&&&
B.集成&&&&
C.结构化&&&&&&
18.标准模块文件的扩展名是(C)(单)
A.frm&&&&&&
B.vbp&&&&&&&&&&
C.bas&&&&&&
19.VB集成开发环境中，在(C)中编写代码(单)
A.状态栏&&
B.属性列表框&&&&
C.代码框&&&
20.在面向对象的程序设计过程中，英文缩写"OOP"的含义是(C)(单)
A.事件驱动的编程机制&&&&
B.结构化程序设计语言
C.面向对象的程序设计&&&&
D.可视化程序设计
21.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是(D)(单)
A.Timer1.Interval=0.5&&&
B.Timer1.Interval=5
C.Timer1.Interval=50&&&&
D.Timer1.Interval=500
22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Static x As Integer
For t=1 To 2
程序运行后，连续三次单击Command1按钮后，窗体上显示的是(B)(单)
23.以下关于多重窗体程序的叙述中，错误的是(A)(单)
A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体
B.在多重窗体程序中，各窗体的菜单是彼此独立的
C.在多重窗体程序中，可以根据需要指定启动窗体
D.对于多重窗体程序中，单独保存每个窗体
24.以下关于文件的叙述中，错误的是(B)(单)
A.顺序文件中的记录一个接一个顺序存放
B.随机文件中记录的长度是不相同的
C.执行打开文件的命令后，自动生成一个文件指针
D.EOF函数作用是判断文件的指针是否指向文件末尾
25.以下叙述中错误的是(D)(单)
A.事件过程是响应特定事件的一段程序
B.不同的对象可以具有相同名称的方法
C.对象的方法是执行指定操作的过程
D.编程者可以自由更改代码框右上边的过程列表的事件名称
26.以下合法的Visual Basic变量的名称是(A)(单)
A.a3&&&&&&&&
B.Const&&&&&
C.9abc&&&&&&
27.当一个复选框被选中时，它的Value属性的值是(C)(单)
&&&&B.2&&&&&&&
28.表达式 5 Mod 3+5\3的值是(B)(单)
B.3&&&&&&&
29.设x=4,y=8,z=7, 表达式：(x＜y) 　Or z＜x 的值是(C)(单)
A.1&&&&&&&&&
C.TRUE&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
30.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="VisualBasic"
Print String(3,a$)
程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)
A.VVV&&&&&&
B.Vis&&&&&&
C.sic&&&&&&
31.设有如下程序段：
For c=1 To 4 Step 2
运行以上程序后，x的值是(A)(单)
B.7&&&&&&&&&&
32.以下叙述中错误的是(A)(单)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
33.执行如下两条语句，窗体上显示的是(C)(单)
Print Format(a,"000.00")
A.0,009.86&&
C.009.86&& D.0,009.86
34.在窗体上画一个名称为CommandDialog1
的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click( )
CommonDialog1.FileName =""
CommonDialog1.Filter="All
file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
对于这个程序，以下叙述中错误的是(D)(单)
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
35.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click( )
Dim a As Integer
Call g(Form2,a)
Private Sub g(f As Form,x As Integer)
y=Iif(x＞10,100,-100)
f.Caption=y
运行以上程序，正确的结果是(B)(单)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
36.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
Call f1(x,y)
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
37.Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
If n＜10 Then
Call GetArray(a,n)
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)\2 Then
以下叙述中错误的是(C)(单)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为偶数
38.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Print a(3)
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)
39.阅读程序：
Option Base 1
Private Sub Form_Click( )
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
程序运行后，单击窗体，输入结果为(C)(单)
A.5&&&&&&&
C.25&&&&&&
40.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick( )
x=Shell(File1.FileName,1)
以下关于该程序的叙述中，错误的是(A)(单)
A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
41.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
Private Sub Command1_Click( )
Timer1.Enabled=True
Private Sub Timer1_Timer( )
If Label1.Left＜ Form1.Width Then
Label1.Left = Label1.Left + 20
Label1.Left=0
程序运行后，单击"开始"按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是(A)(单)
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
42.规范地说，VB是一种(A)的开发工具(单)
A.面向对象&& B.面向用户
& C.面向屏幕&&
D.面向窗体
43.VB6设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)
B.工程&&&&
C.编辑&& D.视图
44下面(D)操作不是激活或显示属性列表框的操作(单)
A.按快捷键F4
B.点击工具栏中的"属性列表框"按钮
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
45.Visual Basic程序中分隔各语句的字符是(B)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52046.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB
Test"的语句为(B)(单)
A.Form1 = "VB
&&& B.Caption
="VB Test"
C.Form1.Text = "VB
D.Form1.Name ="VB Test"
52047.下列不能打开代码窗口的操作是(D)(单)
A.双击窗体上的某个控件双击&&&&&
B.双击窗体
C.按F7键&&&&&&&&&&&&&&&&&&&&&&
D.单击窗体或控件
52048.Visual Basic程序中语句行的续行符是(D)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52049.Visual Basic程序中的注释所使用的字符是(A)(单)
B.:&&&&&&&&&
C.\&&&&&&&
52050.下列说法中正确的是：为了保存一个Visual Basic应用程序，应当(D)(单)
A.只保存窗体模块文件(.frm)& B.只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块文件
52051.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为(B)(单)
B.2&&&&&&&&&&
52052.下列说法中正确的是：为了载入一个只有一个工程（此工程下有三个窗体）的Visual
Basic应用程序，应当(B)(单)
A.只装入窗体模块文件(.frm)
B.先装入工程文件(.vbp)即可
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)
A.Caption&&&&
C.Text&&&&&&
D.AutoSize
52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style属性为1(单)
&&&&&&&&&&&&&
C.DownPicture&&&&&&&&&&
D.DisabledPicture
52055.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为(D)(单)
A.5&&&&&&&&
B.300&&&&&&
C.500&&&&&&
52056一个标准的VB应用程序至少要包含一个(C)对象(单)
A.文本框&&&
B.标签框&&&
C.窗体&&&&&&
D.命令按钮
52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True(单)
A.Text&&&&
B.MultiLine&&
C.Style&&&&&&
52058.下列的(A)对象支持KeyPress事件(单)
A.文本框&&
B.命令按钮&&
C.标签框&&&&&&
52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)
A.Show&&&&&&
B.Unload&&
C.Load&&&&&&
52060.以下选项中，不是VB标准控件的是(C)(单)
A.命令按钮&&&
B.定时器&&
C.通用对话框&&&
52061.双击窗体中的对象后，VB将显示的窗口是(C)(单)
A.工具箱& B.项目（工程）窗口C.代码窗口&
D.属性窗口
52062.下述选项中，VB的程序设计方法是(B)(单)
A.面向对象、顺序驱动&&&
B.面向对象、事件驱动
C.面向过程、事件驱动&&&
D.面向过程、顺序驱动
52063.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)
B.Unload&&&&&
C.Load&&&&&&
52064.文本框的默认属性是(B)(单)
A.Caption&&&&&
C.Name&&&&&&&&
52065.标签默认属性是(A)(单)
A.Caption&&&&&
C.Name&&&&&&&&
52066.执行以下程序段：
a$="abbacddcba"
For I=6 To 2 Step -2
X=Mid(a,I,I)
Y=Left(a,I)
z=Right(a,I)
z=Ucase(X&Y&z)
输出结果为(B)(单)
A.ABA&&&&&&&
B.BBABBA&&
C.ABBABA&&&&
52067.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a=Array(1,2,3,4,5)
For I=1 To 5
Sum = sum+a(I)
For I =1 To 5
If a(I)＞x Then Print a(I);
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
3&&& C.3 4
52068.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：
Public x As Integer
Public y As Integer
Form1.Show
Model2的代码如下：
Sub Main( )
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)
A.Form1-＞Model1-＞Model2
B.Model1-＞Model2-＞Form1
C.Model2-＞Model1-＞Form1
D.Model2-＞Form1-＞Model1
52069.设有如下程序段：
a$="beijingshanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为【shanghai】
52070.以下程序段的输出结果是【3】
Do While num＜＝2
num = num+1
52071.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Move 500，500
程序运行后，单击命令按钮，执行的操作为(A)(单)
A.命令按钮移动到距窗体左边界、上边界各500的位置
B.窗体移动到距屏幕左边界、上边界各500的位置
C.命令按钮向左、上方向各移动500
D.窗体向左、上方向各移动500
52072.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)
A.TabStop&&&
B.Enabled& &
C.Visible&&&
D.TabIndex
52073.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)
A.For i=0 To List1.ListCount-1 ......　 Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount 　...... Next i
D.For i=1 To ListCount ...... Next i
52074.以下Case语句中错误的是(C)(单)
A.Case 0 To
B.Case Is＞10
C.Case Is＞10 And
Is＜50&&& D.Case
3,5,Is＞10
52075.以下关于图片框控件的说法中，错误的是(D)(单)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
52076.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)
A.Visual&&&&&
B.Basic&&&&&&
C.6&&&&&&&&&&
52077.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
52078.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = "12345"
Print Format$(a, "000.00")
程序运行后，单击命令按钮，窗体上显示的是(B)(单)
A.123.45&&
B.12345.00&&
C.12345&& D.00123.45
52079.以下关于函数过程的叙述中，正确的是(A)(单)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数
52080.以下关于变量作用域的叙述中，正确的是(C)(单)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
52081.确定一个控件在窗体上的位置的属性是(C)(单)
A.Width和Height&&&&&&&
B.Width或Height
C.Top和Left&&&&&&&&&&&
D.Top或Left
52082.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual&&
&&&&B.Basic&&&&&
C.Program&&&&&
52083.以下关系表达式中，其值为False的是(A)(单)
A."ABC"＞"AbC"&&&&&&&&&&&&&&&&&
B."the"＜＞"they"
C."VISUAL"=UCase("Visual")&&&&&
D."Integer"＞"Int"
52084.语句Print int(5/4*6\5) Mod 2的输出结果是(B)(单)
52085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox("请输入")
Text1.Text = strText
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
&&&&B.abcdef&&&&
C.abc&&&&&
52086.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
If x ＞0 Then
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5&&&&&&
B.25&&&&&&&&
C.1&&&&&&&
52087.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X
Integer，在Model1中有语句Pubilc Y As
Integer，则以下叙述中正确的是(A)(单)
A.变量X、Y的作用域相同&&&&&&
B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
52088.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)
A.Drive1_Change&&&&&&&&
B.Drive1_Click
C.Dir1_Click&&&&&&&&&&&
D.Dir1_KeyPress
52089.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321&&&&&&
B.1234&&&&
C.34&&&&&&&&
52090.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＜ 65 　Or　 KeyAscii＞ 90 Then
msgBox "请输入大写字母"
KeyAscii = 0
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
52091.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n\2 = n/2 Then
Public Function f1(ByRef x)
End Function
Public Function f2(ByVal x)
End Function
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
52092.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
程序运行后，单击命令按钮，要求在窗体上显示如下内容
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)& B.Left(c1,i)
C.Mid(c1,i,1)& D.Mid(c1,i,i)
52093.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
If j ＞Sqr(i) Then Print i
该事件过程的功能是(C)(单)
A.输出n以内的奇数&&&&&
B.输出n以内的偶数
C.输出n以内的素数&&&&&
D.输出n以内能被j整除的数
52094.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
End Function
Private Sub Command1_Click( )
Dim i As Integer
For i = 1 To 5
s = s + f(i)
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
B.10&&&&&&
C.9&&&&&&&
52095.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Text1.Text = array1(2, 3) + array1(3, 4)
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15&&&&&&
C.13&&&&&&
52096.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift
As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
52099.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
52100.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
52101.与数学表达式ln(a+b)/(3x)+5 对应的Visual
Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
*52102.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
52103.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case 【Index】
a = "宋体"
a = "黑体"
a = "楷体＿GB2312"
End Select
text1.fontname=a
52104.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
a = "宋体"
a = "黑体"
a = "楷体＿GB2312"
End Select
text1.【fontname】=a
52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】.Caption =tmpCombo.Text
52106.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
tmpLabel.Caption =【tmpcombo】.Text
52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For c = 1 To n
f = f*【7】
该事件过程的功能是计算1!+2!+3!+…+n!的值。
52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
Call【swap】a( )
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52109.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
Call swap（a( )）
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52110.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
Call swap（a( )）
For I = 1 To 10
Print a(I);
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
b(I) = b(n)
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52111.以下程序段运行的结果为(B)(单)
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "m/d/yy")
Print Format(MyDate,"yyyy年m月dd日")
A.7/21/97 日
B.7-21-97 日
C.97/7/21 日
D.7/21/97 97年7月21日
52112.以下程序段运行的结果为(B)(单)
Private Sub Form_Click( )
MyTime = #9:21:30 PM#
MyDate = #7/21/1997#
Print Tab(2); Format(MyDate, "mmmm-yy")
Print Tab(2); Format(MyTime, "hh:mm:ss A/P")
A.July-97 9:21:30
B.July-97 09:21:30 P
C.07-97 9:21:30
D.July-97 9:21:30
52113.以下程序段运行的结果为(C)(单)
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "dddd,mmmm,dd,yyyy")
A.21,07,1997&&&&&&&&&&&&&&&
B.21,07,21,1997
C.Monday,July,21,1997&&&&&&
D.Monday,07,21,1997
52114.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
MsgBox "帐号正确"
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错&&&&&&&&&
D.没有任何提示
52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
MsgBox "帐号正确"
当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错&&&&&&&&&
D.没有任何提示
52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞ 4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错&&&&&&
D.没有任何提示
52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"gong"，则程序运行结果为(B)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错&&&&&&
D.没有任何提示
52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")
If I ＜＞ 4 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "密码帐号正确！"
若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)
A.显示对话框中有“重试”按钮
B.显示对话框中有“确定”按钮
C.显示对话框中有“是”按钮&&&&
D.以上说法都不正确
52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：
Private Sub Command1_Click( )
Dim x!, y!, z!, t!
If x ＜ y Then
If y ＜ z Then
If x＜ y Then
Label1.Caption = x & "," & y
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)
A.3,5,8&&&&&&
B.5,3,8&&&&&&
C.8,5,3&&&&&&
52120.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入1，则label1的标题显示结果为(A)(单)
A.3+2=5&&&&&&
C.3&2=6&&&&&
52121.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入2，则label1的标题显示结果为(B)(单)
A.3+2=5&&&&&&
C.3&2=6&&&&&
52122.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入3，则label1的标题显示结果为(C)(单)
A.3+2=5&&&&&
B.3-2=1&&&
C.3&2=6&&&&
52123.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Result = Num1 + Num2
Result = Num1 - Num2
Result = Num1 * Num2
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2
& "=" & Result
窗体运行后，输入4，则label1的标题显示结果为(D)(单)
A.3+2=5&&&&&
B.3-2=1&&&
C.3&2=6&&&&
52124.以下程序段的作用是(A)(单)
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "=";
If i = 7 Then i = 0: Picture1.Print
A.打印ASCII码表，一行7个表达式
B.打印九九乘法表，一行7个表达式
C.打印ASCII码表，一行8个表达式
D.以上说法都不正确
52125.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click( )
x = Val(Text1)
Do While 【x】＜26
x = x * (1 + 0.008)
Text2 = Str(n)
52126.以下程序的作用是(B)(单)
For i = 1 To 9
For j = 1 To 9
se = i & "&" & j
& "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1);
Picture1.Print
A.打印ASCII码表&&&&&&&
B.打印九九乘法表
C.打印加法表&&&&&&&&&&&
D.以上说法都不正确
52127.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While 【t&】 0.00001
Print "计算了 "; I; " 项的和是 "; e
52128.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
e = e + 【t】
Print "计算了 "; I; " 项的和是 "; e
52129.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
n = n * 【I】
Print "计算了 "; I; "项的和是"; e
52130.以下程序是求最大公约数和最小公倍数的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
If m ＜ n Then
t = m: m = n: n = t
r = m Mod 【n】
Do While (r＜＞0)
r = m Mod n
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
52131.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
If m ＜n Then
t = m: m = n: n = t
r = m Mod n
Do While r 【&&】　0
r = m Mod n
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
52132.下面是求100以内素数的程序。
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod 【i】 = 0 Then tag = False
If tag Then Print m
52133.下面是求100以内素数的程序，下面说法正确的是(A)(单)
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod i = 0 Then tag = False
If tag=true Then Print m
A.tag为true时，表示m是素数
B.tag为false时，表示m是素数
C.语句m Mod i = 0，说明m是素数& D.以上说法都不正确
52134.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command2_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then
Picture2.Print x, y, 【100-x-y,10-y-x】
52135.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command1_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
For z = 0 To 100
If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then
Picture1.Print x, y, z
52136.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For i = 1 To 10
x = Int(Rnd * 101 + 100)
If x ＞ Max Then 【】
Print "最大值="; Max
在此程序中，其中【】处应该填写的是(C)(单)
100&&& B.Max
=200&& C.Max =
52137.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For i = 1 To 10
int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】
If x ＞ Max Then Max=x
Print "最大值="; Max
52138.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
For I = 1 To 10
x =Int(Rnd * 101 + 100)
If 【】 Then Max=x
Print "最大值="; Max
在【】处应该填写的是：（A）(单)
A.x ＞ Max&& B.x
＜Max& C.x =
Max&& D.以上都不正确
52139.以下是求1～100之间5或7的倍数的和，如下程序段：
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
其中【】处书写正确的是（B）(单)
i&&&&&&&&&&&&
B.Sum = Sum + i
C.Sum = Sum +
D.以上都不正确
52140.以下是求1～100的5或7的倍数的和程序段：
For i = 1 To 100
If i Mod 5 = 0 Or i 【mod】 7=0 Then
Sum = Sum + i
52141.以下叙述中错误的是(B)(单)
A.Visual Basic 是事件驱动型可视化编程工具
B.Visual Basic应用程序不具有明显的开始和结束语句
C.Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D.Visual Basic中控件的某些属性只能在运行时设置
52142.以下叙述中错误的是(A)(单)
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
52143.以下叙述中错误的是(B)(单)
A.双击鼠标可以触发DblClick事件
B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定
C.移动鼠标时，会触发MouseMove事件
D.控件的名称可以由编程人员设定
52144.以下不属于Visual Basic系统的文件类型是(B)(单)
A..frm&&&&&&
B..bat&&&&
C..vbg&&&&&&
52145.以下叙述中错误的是(C)(单)
A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B.保存Visual Basic程序时，应分别保存窗体文件及工程文件
C.Visual Basic应用程序只能以解释方式执行
D.事件可以由用户引发
52146.以下声明语句中错误的是(B)(单)
var1=123&&&&&&&&&&
B.Dim var2 = 'ABC'
C.Public a,b as integer &&
D.Static a as single
52147.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)(单)
A.List1.List&&&&&&
B.List1.ListIndex
C.List1.Index&&&&&
D.List1.Text
52148.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单)
A.MouseDown&&
B.MouseUp&&&&
C.Load&&&&&&
52149.设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是(B)(单)
B.False&&&&&&
D.出错信息
52150.如果要改变窗体的标题，则需要设置窗体的(A)属性(单)
A.Caption&&
C.BackColor&& D.BorderStyle
52151.以下能判断指针是否指向文件尾的函数是(D)(单)
A.BOF&&&&&&
B.LOC&&&&&&
C.LOF&&&&&&
52152.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)
A.如果工程中含有Sub Main过程，则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体
52153.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer,
X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)
A.通过Button参数判定当前按下的是键盘上哪一个键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键
D.参数x,y用来设置鼠标当前位置的坐标
52154.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)
A.Combo1.RemoveItem
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
52155.以下关于焦点的叙述中，错误的是(A)(单)
A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
52156.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)
52157.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
Case 2, 4, 6
Case Is ＜ 10
End Select
Text2.Text = x
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)
A.10&&&&&&
C.30&&&&&&
52158.设有以下循环结构
Loop While ＜条件＞
则以下叙述中错误的是(A)(单)
A.若"条件"是一个为0的常数，则一次也不执行循环体
B."条件"可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用Exit Do语句
D.如果"条件"总是为True，则不停地执行循环体
52159.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim num As Integer
Do Until num ＞ 6
num = num + 2.4
程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)
A.1 3.4 5.8&& B.1 3
7&&& D.无数据输出
52160.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
Loop While a ＜＝ 0
程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)
A.7 9&&& B.34
52161.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
End Function
Private Sub Command1_Click( )
Static x As Integer
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)
52162.设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Call Fun(arr( ), n)
Text1.Text = n
程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)
A.10&&&&&&
C.25&&&&&&
52163.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) ＞ c Then
d = d + x(i)
程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)
A.89&&&&&&
B.99&&&&&&&&
C.23&&&&&&
52164.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label
4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)
A.Private Sub Command1_Click( ) 　
Label3.Caption = =Str(Val(Label1.Caption)*Val(
Label2.Caption))
B.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1.Value *HScroll2.Value
C.Private Sub Command1_Click( ) 　
Label3.Caption = HScroll1 * HScroll2
D.Private Sub Command1_Click( )
Label3.Caption = HScroll1. Text *HScroll2.Text
52165.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 ＜＞ 0 Then m = m + n \ 3
程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)
A.15&&&&&&
&&&&&&D.24
52166.在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load( )
Text1.Text = ""
Text1.SetFocus
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X
AsSingle, Y As Single)
Print "程序设计"
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As
Print "Visual Basic";
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)
A.Visual Basic&
&& B.程序设计
C.A程序设计&&&&&&&
D.Visual Basic程序设计
52167.设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
For i = 1 To 5
sum = sum + x
该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)
2/3+3/4+4/5&&&
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5&&&&&&
D.1+1/2+1/3+1/4+1/5
52168.以下有关数组定义的语句序列中，错误的是(D)(单)
A.Static arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
B.Dim arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("输入：") ReDim arr2(size) ......
C.Option Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
D.Dim n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
52169.执行下面的程序段后，I的值为【5.6】
For I = 3.2 To 4.9 Step 0.8
52170.执行下面的程序段后，S的值为【5】
Private Sub Command1_Click( )
For c = 3.2 To 4.9 Step 0.8
52171.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Print Chr(KeyCode)
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是A和【a】
52172.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Print Chr(KeyCode)
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是【A】和a。
52173.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 【1000】
Private Sub Form_Click( )
Timer1.Enabled = True
Private Sub Timer1_Timer( )
Label1.Caption = time
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52174.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
Private Sub Form_Click( )
Timer1.Enabled = 【true】
Private Sub Timer1_Timer( )
Label1.Caption = time
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52175.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
Private Sub Form_Click( )
Timer1.Enabled = true
Private Sub Timer1_Timer( )
Label1.Caption = 【time】
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52176.ASIC在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
Private Sub Text1_Change( )
Label1.Caption = Ucase(Mid(Text1.Text, 7))
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是【basic】
52177.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第四个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 【0】 Then
List1.RemoveItem　List1.ListIndex
Label1.Caption = List1.ListCount
MsgBox "请选择要删除的项目"
运行情况(选择"第四个项目"的情况)：
label1标签显示: 3
list1列表框显示:
————————
第一个项目
第二个项目
第三个项目
————————
52178.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex &= 0 Then
List1.RemoveItem List1.【listindex】
Label1.Caption = List1.ListCount
MsgBox "请选择要删除的项目"
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52179.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 0 Then
List1.RemoveItem List1.Listindex
Label1.Caption = List1.【listcount】
MsgBox "请选择要删除的项目"
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52180.设有程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
【max】= arr1(1)
For I = 1 To 8
If arr1(I) ＞Max Then Max=arr1(I)
Print "最大值是: "; Max
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
52181.VB预先设置好的，能够被对象识别并且能够响应的动作是(B)(单)
&&&&B.事件&&&&&&&&
C.对象&&&&&&
52182.下面是窗体的四个属性，在界面设计时，改变(D)属性值看不到窗体变化(单)
A.Top&&&&&&
B.Width&&&&&&&&
C.Left&&&&&&
52183.下面四个选项，不是窗体属性的是(D)(单)
A.MinButton&&
B.MaxButton&&
C.Caption&&&
52184.下面四个选项，不是事件或语句的是(B)(单)
A.Load&&&&&&
B.Enabled& &
C.Unload&&&&
D.DblClick
52185.用来设置窗体背景图片的属性是(B)(单)
A.Moveable&&
B.Picture& C.ForeColor&
D.WindowState
52186.Load事件是在窗体被装入工作区时(D)触发的事件(单)
B.程序员&&&&&&&
C.手工&&&&&&
52187.修改控件属性，一般可以使用属性窗口，也可以通过(D)为属性赋值(单)
A.命令&&&&&&
B.对象&&&&&&&&
C.方法&&&&&&
52188.在VB6中的每一个对象都具有自己的属性、(C)和方法(单)
A.控件&&&&&&
B.函数&&&&
C.事件&&&&&&
D.公用过程
52189.在设计VB6应用程序界面时，改变窗体下面的(C)属性看不到效果.(单)
A.Left&&&&&&
B.Top&&&&&
C.Visible&&&
D.BackColor
52190.下列可作为Visual Basic的变量名的是(A)(单)
A.Delta&&&&&&
B.Print&&&&&&
C.Abs&&&&&&&&
52191.下列可作为Visual Basic的变量名的是(B)(单)
A.Filename&&&&&
B.ABC&&&&&&
C.A％D&&&&&&
52192.Visual Basic中，在文本框中所允许输入的形式数是(C)(单)
A.±25.74&&&&&
B.3.457E&&&&
C.368&&&&&&
D.1.87E+50
52193.在Visual Basic中的文本框中所允许输入形式的数是(D)(单)
A.10^(1.256)&&&&&
C.2.5E&&&&&&&&&&&
52194.下面(B)数写成普通的十进制数是8.6787E+8(单)
C.8678700&& D.
52195.下面（B）数写成普通的十进制数是2.567E-2.(单)
A.0.0002567&
B.0.02567&&
C.0.002567&& D.0.
52196.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
a ＞b 　And　 c＜＝d　 Or　 2 * a＞c
A.True&&&&
B.False&&&&&
C.-1&&&&&&
#52197.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
3 ＞2*b 　Or　 a=c 　And　 b＜＞c 　Or　 c＞d
B.TRUE&&&&&&
C.FALSE&&&
52198.设a=2，b=3，c=4，d=5，下列表达式的值是(D)(单)
NOT 　a＜＝c　 OR 　4*c=b＾2　 AND　 b＜＞a+c
A.-1&&&&&&&&
C.TRUE&&&&&&
52199.实现字符转换为数值的函数是(B)(单)
A.Str&&&&&&
B.Val&&&&&&
C.Trim&&&&&
52200.假设X=3，Y=6，Z=5，则表达式：(X^2+Y)\Z的值是(C)(单)
52201.假设A=3，B=7，C=2，则表达式：(A＞B)　OR　(B＞C)的值是(A)(单)
A.TRUE&&&&&&&
B.FALSE&&&&
C.表达式错误&&&
52202.在表达式y=InputBox("a","b","c")中，b为输入函数对话框的(A)(单)
A.标题&&&&&&
&&&C.默认值&&&&
D.帮助文件名
52203.假设A=3，B=7，C=2，则表达式： NOT(BA) 的值是(B)(单)
A.TRUE&&&&&&&&
C.表达式错误&& D.不确定
52204.在表达式y=InputBox("a","b","c")中，c为输入函数对话框的(C)(单)
A.标题&&&&&&
B.提示&&&&
C.默认值&&&&
D.帮助文件名
52205.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是(C)(单)
A.Print 25&&&
&&&&&&&&&&&&&
B.Picture1.Print 25
C.Text1.Print
25&&&&&&&&&&&
D.Text1.text= 25
52206.以下语句的输出结果是(在立即窗口中)(B)(单)
(＜CR＞为回车，Δ表示空格)
a=27＜CR＞ (＜CR＞为回车，下同)
b=65＜CR＞
A.＜CR＞27＜CR＞65&&&&&&
B.27 65＜CR＞
C.Δ27＜CR＞65＜CR＞&&&&
D.以上都不对
52207.以下语句的输出结果是(C)(单)
(＜CR＞为回车，Δ表示空格)
a="Beijing" ＜CR＞
b="ShangHai" ＜CR＞
A.Beijing＜CR＞ShangHai
B.＜CR＞beijing＜CR＞ShangHai
C.BeijingShangHai＜CR＞
D.ΔBeijingΔ
52208.语句Print 5*5＼5／5的输出结果是(B)(单)
B.25&&&&&&&&&
52209.设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是(D)(单)
A=b:b=c:c=a
52210.语句Print Abs(6 ^ 2) + Int(-3.6 ^ 2) 的输出结果是(D)(单)
A.-36&&&&&&
B.1&&&&&&&&
C.-1&&&&&&
52211.以下语句的输出结果是(B)(单)
Print Format(a,"$$####.###")
A.$1.732&&&&
B.$$1.732&&&
52212.以下程序段的输出结果是(D)(单)
A.-1&&&&&&
C.FALSE&&&
52213.以下语句的输出结果是(C)(单)
Print Format$(0,000.00")
A.32548.5&&&&&&&
B.32,548.5
C.032,548.50&&&&
D.32,548.50
52214.执行以下程序段后，变量c$的值为(D)(单)
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & Ucase(Mid$(a$,7,6)) &
Right$(a$,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
52215.表达式 4 + 5 \ 6 * 7 / 8 Mod 9 的值是(B)(单)
52216.InputBox函数返回值的类型为(B)(单)
A.数值&&&&
B.字符串&&&&&&&
D.数值或字符串(视输入的数据而定)
52217.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a=InputBox$("Enter the First integer")
b=InputBox$("Enter the Second integer")
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是(D)(单)
A.579&&&&&&
B.123&&&&&&
C.456&&&&&&
52218.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a, b As Integer
a = val(InputBox("Enter the First integer"))
b = val(InputBox("Enter the Second integer"))
Print a + b
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是