VB考试试题整理01

选择题 选择题 ~~~A1 以下说法错误的是( )。 Visual basic是一种可视化的编程工具 Visual basic是面向对象的编程语言 Visual basic是结构化程序设计语言 Visual basic采用事件驱动编程机制 ~C ~~~A1 相对于传统编程语言，visual basic最突出的特点是( )。 可视化编程 面向对象的程序设计 结构化程序设计 事件驱动编程机制 ~B ~~~A1 Visual basic是一种面向对象的编程语言，采取了( )的编程机制。 事件驱动 可视化 结构化 面向对象 ~A### ~~~B1 对于窗体，下面哪个属性在程序运行时其属性设置起作用( ) MaxButton BorderStyle Name Left ~D ~~~B1 要使Print 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 在Form_Load 件中起作用，要对窗体的哪个属性进行设置( ) BackColor ForeColor AutoRedraw Caption ~C ~~~B1 若要使标签控件显示时不覆盖其背景内容，要对哪个属性进行设置( ) BackColor BorderStyle ForeColor BackStyle ~D ~~~B1 若要使命令按钮不可操作，要对哪个属性设置( ) Enabled Visible BackColor Caption ~A ~~~B1 文本框没有哪个属性( ) Enabled Visible BackColor Caption ~D ~~~B1 不论何对象，都具有哪个属性( ) Text Name ForeColor Caption ~B ~~~B1 要使某控件在运行时不可显示，应对哪个属性进行设置( ) Enabled Visible BackColor Caption ~B ~~~B1 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列哪个属性设置就可( ) MaxButton BorderStyle Width MinButton ~B ~~~B1 当运行程序时，系统自动执行启动窗体的什么事件过程( ) Load Click UnLoad MinButton ~A ~~~B1 改变控件在窗体中的左右位置应修改该控件的哪个属性( ) Top Left Width Right ~B ~~~B1 窗体的标题栏显示内容由窗体对象的( )属性决定 BackColor BackStyle Text Caption ~D ~~~B1 窗体的示意图标可用( )属性决定 Picture Image Icon MouseIcon ~c ~~~B1 窗体的控制菜单的有无由窗体对象的( )属性决定 ControlBox Minbutton MaxButton Enabled ~A ~~~B1 若要取消窗体的最大化功能,则可设置( )属性为False来实现 ControlBox MinButton MaxButton Enabled ~C ~~~B1 判断窗体当前所处状态,可通过访问( )属性来设置 Maxbutton Minbutton ControlBox WindowState ~D ~~~B1 窗体边框的风格由窗体对象的( )属性来设置 BackStyle BorderStyle WindowState FillStyle ~B ~~~B1 若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的( )属性来实现 FontName Font FontSize FontBold ~C ~~~B1 命令按钮的标题文字由( )属性来设置 Text Caption Name (名称) ~B ~~~B1 命令按钮标题热字的下划线,可通过( )符号来设置 \< & _ \> ~B ~~~B1 若要将某命令按钮设置为默认命令钮，可设置( )属性为True来实现 Value Cancel Default Enabled ~C ~~~B1 若要使命令按钮失效，可设置( )属性为False来实现 Value Enabled Visable Cancel ~B ~~~B1 若要设置命令按钮为图形风格的命令按钮，可通过( )属性来设置 Style BorderStyle BackStyle Appearance ~A ~~~B1 若要设置命令按钮的工具提示，可通过( )属性来设置 Caption Text Value ToolTipText ~D ~~~B1 若要设置图形命令按钮的背景图形，可通过( )属性来设置 DownPicture DisabledPicture Picture Image ~C ~~~B1 若要设置图形命令按钮被按下时所显示的图形，可通过( )属性来设置 DownPicture DisabledPicture Picture Image ~A ~~~B1 若要设置图形命令按钮失效时所显示的图形，可通过( )属性来设置 DownPicture DisabledPicture Picture Image ~B ~~~B1 若要使某命令按钮获得控制焦点，可使用( )方法来设置 Refresh SetFocus GotFocus Value ~B ~~~B1 若要使命令按钮在运行时不可见，可通过设置( )属性的取值来实现 Visable Enabled Default Value ~A ~~~B1 若要使标签框成为透明，可通过设置( )属性来实现 BackColor BackStyle BorderStyle ForeColor ~B ~~~B1 标签框的边框，由( )属性的设置值决定 BorderStyle BackStyle BackColor AutoSize ~A ~~~B1 若要使标签框的大小自动与所显示的文本相适应，可通过设置( )属性的值为True来实现 AutoSize Alignment Appearance Visible ~A ~~~B1 标签框所显示的内容，由( )属性值决定 Text (名称) Caption Alignment ~C ~~~B1 标签框文本的对齐方式由( )属性来决定 Align Alignment AutoSize BackStyle ~B ~~~B1 若要设置或返回文本框中的文本，可通过文本框对象的( )属性来实现 Caption Text (名称) Name ~B ~~~B1 若要设置文本框最大可接收的字符数，可通过( )属性来实现 MultiLine Length Max MaxLength ~D ~~~B1 运行时，若要获得用户在文本框中所选择的文本，可通过访问( )属性来设置 SelStart SelLength Text SetText ~D### ~~~C1 下列哪些字符串不能作为Visual Basic中的变量名( ) xy15 cmd eyd #END ~D ~~~C1 下列数据那个是时间常量( ) ”name” “120” “10/28/2004” #6/04/2005# ~D ~~~C1 函数 Int (Rnd*100)是在什么范围内的整数( ) (0,10) (1，100) [0,100） (1,99) ~C ~~~C1 如果X是一个正实数，对X的第三位小数四舍五入的 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式( ) 0.01*Int(x+0.005) 0.01*Int(100*(x+0.005)) 0.01*Int(100*(x+0.05)) 0.01*Int(100*(x+0.5)) ~B ~~~C1 已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为( ) A>=B and B>=C and C>0 A+C>B and B+C>A and C>0 (A+B>=C or A-B<=C) and C>0 A+B>C and A-B0 ~B ~~~C1 下面哪个是算术运算符( ) Imp Mod Not Like ~B ~~~C1 下面的运算符中，优先级最高的是( ) Not And Or Like ~D ~~~C1 实现字符的Unicode编码方式与DBCS编码方式相互转换的函数是( ) Str() StrConv() Trim() Mid() ~B ~~~C1 用于从字符串左边截取字符的函数是( ) Ltrim() Trim() left() Instr() ~C ~~~C1 用于去掉字符串左边空格的函数是( ) Ltrim() Rtrim() Right() Mid() ~A ~~~C1 可实现从字符串任意位置截取字符的函数是( ) Instr() Mid() Left() Right() ~B ~~~C1 可实现从字符重复以产生新字符串的函数是( ) String() Repl() Ucase() Lcase() ~A ~~~C1 可实现将小写字母转换成大写字母的函数是( ) Str() Upper() Ucase() Lcase() ~C ~~~C1 可获得字符ASCII码值的函数是( ) Chr() Fix() Asc() Val() ~C ~~~C1 下列哪个符号不能作为Visual Basic中的变量名( ) ABCDEFG POOOOOO 89TWDDFF xyz ~C ~~~C1 下列哪个符号能作为Visual Basic中的变量名( ) ABT TAB IF A[B]T ~A ~~~C1 表达式"2*3^2+2*8/4+3^2"的值是( ) 22 ,25,30,31,~D ~~~C1 函数Int(-3.14159)的值是( ) -3,-4,-5,-6,~B ~~~C1 函数Sqr(Sqr(81))的值是( ) -3,3,-5,5,~B ~~~C1 函数Fix(-3.1415926)的值是( ) -3,3,-5,5,~A ~~~C1 函数Int(Abs(199-100)/2)的值是( ) 47,48,49,50,~C ~~~C1 函数Str(-459.65)的值是( ) -459 -459.6 -459.7 -459.65 ~D ~~~C1 函数Lcase("Hello")的值是( ) hello Hello HELLO HEllo ~A ~~~C1 函数Left("Hello",2)的值是( ) he hel He HEL ~C ~~~C1 函数Val("16 Year")的值是( ) 16 17 18 19 ~A ~~~C1 函数Len("Hello")的值是( ) 4 5 6 7 ~B ~~~C1 函数 Int (Rnd(10)*10)是在什么范围内的整数( ) (0,1] (1，10] (0,10） [0,9] ~D### ~~~D1 Private Sub Command1_Click() Dim MyString As String Dim MyLen As Integer MyString = "Hello World" MyLen = Len(MyString) MsgBox MyLen End Sub 程序最后弹出的消息对话框的内容是( ). Hello World HelloWolrd 10 11 ~D ~~~D1 语句"Print 5/5*5"的运行结果是( ). 5 25 0 1 ~A ~~~D1 MsgBox函数返回值类型是( ). 整型 字符串 变体 数值或字符串(根据输入的数据而定) ~A ~~~D1 窗体上画一个文本框和一个标签,其名称分别为"Text1"和"Label1",然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = Chr(KeyAscii) KeyAscii = Asc(UCase(char)) Label1.Caption = String(3, KeyAscii) End Sub 运行后,是文本框拥有焦点,此时如果在键盘上输入字母"a",则标签中显示的内容是( ). aaa AAA aaaa A ~B ~~~D1 InputBox函数返回值类型是( ). 整型 字符串 变体 数值或字符串(根据输入的数据而定) ~B ~~~D1 假定程序中有语句"a=InputBox("string1","string2","string3",2)",执行该语句后,将显示一个消息框,此时如果单击"确定"按钮,则a的值是( ). string1 string2 string3 2 ~C ~~~D1 Dim x As Integer If x Then Print x Else Print x + 1 上面程序运行后，显示的结果是( )。 1 0 -1 显示出错信息 ~A ~~~E1 下面程序段求两个数中的大数，( )不正确。 Max=Iif(x>y,x,y) If x>y Then Max=x Else Max=y Max =x If y>x then Max=y If y>x then Max=y Max = x ~D ~~~E1 下列循环正常结束的是( )。 i=5 　　　Do i=i+1 　　　Loop Until i<0 i=1 Do i=i+1 Loop Until i=10 i=10 Do i=i+1 Loop Until i>10 i=6 Do i=i-2 Loop Until i=1 ~B ~~~E1 那个程序段不能分别正确显示 1！、2！、3！、4！的值( )。 For i=1 to 4 n = 1 For j = 1 To i n = n * j Next j Print n Next i For i=1 to 4 For j = 1 To i n = 1 n = n * j Next j Print n Next i n=1 For j = 1 To 4 n = n * j Print n Next j n=1: j=1 Do While j <= 4 n = n * j Print n j = j + 1 Loop ~B ~~~E1 下面程序运行的输出结果是( )。 S=0: T=0: U=0 For I=1 To 3 For J=1 To I For K=J To 3 S=S+1 Next K T=T+1 Next J U=U+1 Next I Print S; T; U 3 6 14 14 6 3 14 3 6 16 4 3 ~B### ~~~F1 将数据项“CHINA”添加到列表框List1中成为第一项，使用( )语句。 List1.AddItem "CHINA",0 List1.AddItem "CHINA",1 List1.AddItem,0,"CHINA" List1.AddItem,1,"CHINA" ~A ~~~F2 如果列表框List1中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是( )。 移去第一项 移去最后一项 移去最后加入列表的一项 以上都不对 ~D ~~~F2 如果列表框List1中只有一个项目被用户选定，则执行Debug.Print List1.Selected(List1.ListIndex)语句的结果是( )。 在Debug窗口输出被选定的项目的索引值 在Debug窗口输出True 在窗体上输出被选定的项目的索引值 在窗体上输出True ~B ~~~F2 在下列说法中，正确的是( )。 通过适当的设置，可以在程序运行期间，可以让时钟控件显示在窗体上 在列表框中不能进行多项选择 在列表框中能够将项目按字母顺序从大到小排列 框架也有Click和DbClick事件 ~D ~~~F3 若要设置时钟控件的定时时间,可通过( )属性来设置 Interval Value Enabled Text ~A ~~~F3 若要暂时关闭时钟控件,可通过设置( )属性为False来实现 Visable Enabled Interval Timer ~B ~~~F3 当拖动滚动块时,将触发滚动条的( )事件 Move Change Scroll GotFocus ~C ~~~F3 若要获知当前列表项的数目，可通过访问( )属性来实现 List ListIndex ListCount Text ~C ~~~F3 为了清除列表框中的所有内容，应使用的方法是( ) Cls Clear Remove RemoveItem ~B ~~~F3 在3种不同风格的组合框中，用户不能输入数据的组合框是( ) 下拉式组合框 简单组合框 下拉式列表框 列表框 ~C ~~~F3 用户在组合框中所输入的数据，可通过访问组合框对象的( )属性来获得 List ListIndex ListCount Text ~D ~~~F3 复选框或单选按钮的当前状态可通过( )属性来设置或访问 Value Checked Selected Caption ~A ~~~F3 补充选择题 ### ~~~B1 若要使命令按钮不可用，则可设置其( )属性为False来实现。 Value　 Cancel　 Enabled　　 Default ~C ~~~B1 若要使某可见控件获得焦点，则可使用( )方法来实现。 Refresh　 Setfocus　 Gotfocus　 Value ~B ~~~B1 VB提供( )属性用于控制对象是否可用。 Default　　 Cancel　　 Enabled　　 Visible ~C ~~~B1 当用户在窗体上单击鼠标时，不会触发的事件是( ) Click　 MouseDown MouseUp　　 DblClick ~D ~~~B1 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( ) 工程资源管理器窗口 工具箱窗口 代码窗口 属性窗口 ~C ~~~B1 以下能够触发文本框Change事件的操作是( ) 文本框失去焦点 文本框获得焦点 设置文本框的焦点 改变文本框的内容 ~D ~~~C1 可获得当前系统时间的函数是( ) Date( )　　 Time( )　 IsDate( )　 Year( ) ~B ~~~C1 设a=“Visual Basic”，下面使b=“Visual”的语句是 b=Left(a,8,12) b=Mid(a,8,5) b=Rigth(a,6) b=Left(a,6) ~D ~~~H1 复选框或单选钮的当前状态可通过( )属性来返回或设置。 Checked　　 Value　　 Selected　　 Caption ~B ~~~C1 用于从字符串左边截取字符的函数是( ) Ltrim( ) Trim( ) Left( ) Instr( ) ~C ~~~C1 可获得当前系统日期的函数是( ) Date( ) Time( ) IsDate( ) Year( ) ~A ~~~D1 退出For循环可使用的语句为( ) Exit For Exit Do　 End For End Do ~A ~~~B1 窗体的标题栏显示内容由窗体对象的( )属性决定。 BackColor BackStyle Text Caption ~D ~~~B1 标签框所显示的内容，由( )属性值决定。 Text　　 (名称)　　 Caption　　 Alignment ~C ~~~B1 文本框的( )属性用于设置或返回文本框中的文本内容。 Text (名称) Caption Name ~A ~~~H1 计时器控件的( )属性用于设置Timer事件发生的时间间隔。 Stretch Interval　 Value　　 Length ~B ~~~H1 滚动条的( )属性用于返回或设置滚动条的当前值。 Value Max Min Data ~A ~~~H1 若要向列表框添加列表项，可使用的方法是( ) Add　 Remove　 Clear AddItem ~D ~~~D1 VB中可用( )语句产生一消息框。 InputBox Shift Both MsgBox ~D ~~~C1 下列符号中哪个是VB程序中合法的变量名（ ） ab7 7ab If a*bc ~A ~~~C1 X是小于100的非负数，用VB表达式表达正确的是（ ） 0≤X≤100 0<=X<100 0<=X and X<100 0≤X<100 ~C ~~~B1 以下叙述中正确的是（ ） 窗体的Name属性指定窗体的名称，用来标识一个窗体 窗体的Name属性的值是显示在窗体标题栏中的文本 可以在运行期间改变对象的Name属性的值 对象的Name属性值可以为空 ~A ~~~C1 设有如下变量声明:Dim TestDate As Date，为变量TestDate正确赋值的表达方式是（ ） TextDate=#1/1/2002# TestDate=#“1/1/2002”# TextDate=date(“1/1/2002”) TestDate=“1/1/2002” ~A ~~~E2 下面可以正确定义2个整型变量和1个字符串变量的语句是( ) Dim n,m As Integer, s As String Dim a%, b$, c As String Dim a As Integer,b,c As String Dim x%,y As Integer,z As String ~D ~~~E1 设在名称为Myform的窗体上只有1个名称为C1的命令按钮，下面叙述中正确的是( ) 窗体的Click事件过程的过程名是Myform_Click 命令按钮的Click事件过程的过程名是C1_Click 命令按钮的Click事件过程的过程名是Command1_Click 上述3中过程名称都是错误的 ~B ~~~E1 若设置了文本框的属性PasswordChar="$",则运行程序时向文本框中输入8个任意字符后,文本框中显示的是( ) 8个"$" 1个"$" 8个"*" 无任何内容 ~A ~~~E1 工程文件的扩展名是( )。 vbg vbp vbw vbl ~B ~~~E2 能够在窗体上触发MouseMove事件的操作是( ) 单击鼠标 双击文本框 鼠标滑过窗体 按下键盘上的某个键 ~C ~~~E1 以下叙述中错误的是( ) 双击鼠标可以触发dblClick事件 窗体或控件的事件的名称可以由编程人员确定 移动鼠标时，会触发MouseMove事件 控件的名称可以由编程人员设定 ~B ~~~E1 用于从字符串左边删除空格的函数是( ) Ltrim( ) Trim( ) Left( ) Instr( ) ~A ~~~E1 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 ( ) 工程资源管理器窗口 工具箱窗口 代码窗口 属性窗口 ~C ~~~E1 以下能够触发文本框Change事件的操作是 文本框失去焦点 文本框获得焦点 设置文本框的焦点 改变文本框的内容 ~D ~~~E1 以下关于窗体描述正确的是( ) 只有用于启动的窗体可以有菜单 窗体事件和其中所有控件事件的代码都放在窗体文件中 窗体的名字和存盘的窗体文件名必须相同 开始运行时窗体的位置只能是设计阶段时显示的位置 ~B ~~~E1 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是( ) 属性、事件、方法 控件、属性、事件 窗体、控件、过程 窗体、控件、模块 ~A ~~~E1 Visual Basic规定窗体文件的扩展名是( ) .vb .frm .vbp .bas ~B ~~~E1 为了添加ComboBox控件中的条目，需要使用( )方法。 ADD Remove AddItem RemoveItem ~C ~~~E1 保存一个工程至少应保存两个文件，这两个文件分别是( ) 文本文件和工程文件 窗体文件和工程文件 窗体文件和 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件 类模块文件和工程文件 ~B ~~~E1 假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是( ) bool_x="False" bool_x=.False. bool_x=#False# bool_x=False ~D ~~~E1 下面子过程语句声明合法的是( ) Sub f1（ByVal n() As Integer） Sub f1（n() As Integer）As Integer Function f1（f1 As Integer） As Integer Finction f1（ByVal n As Integer） ~A ~~~E1 下列控件中，没有Caption属性的是( ) 框架 列表框 复选框 单选按钮 ~B ~~~E1 下列语句正确的是( ) If A≠B Then Print "A不等于B" If A<>B Then Printf "A不等于B" If A<>B Then Print "A不等于B" If A≠B Print "A不等于B" ~B ~~~E1 下列不能打开属性窗口的操作是( ) 执行“视图”菜单中的“属性窗口”命令 按F4键 按Ctrl+T 单击工具栏上的“属性窗口”按钮 ~B ~~~E1 下列可以打开立即窗口的操作是( ) Ctrl+D Ctrl+E Ctrl+F Ctrl+G ~D ~~~E1 数学式子sin30°写成VB表达式是：( ) Sin30 Sin(30) Sin(30) Sin(30*3.14/180) ~D ~~~E1 无论何控件，都具有一个共同属性。这个属性是( ) Text Font Name Caption ~C ~~~E1 在用菜单编辑器设计菜单时，必须输入的项是( ) 快捷键 标题 索引 名称 ~D ~~~E1 模拟方形骰子投掷的表达式是( ) Int(6*Rnd(1)) Int(1+6*Rnd(1)) Int(6*Rnd(1)-1) Int(7*Rnd(1)-1) ~B ~~~E1 在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为( ) ①②③ ③②① ②③① ②①③ ~C ~~~E1 设有如下变量声明　Dim TestDate As Date 为变量TestDate正确赋值的表达方式是( ) TextDate=#1/1/2002# TestDate=#“1/1/2002”# TextDate=date(“1/1/2002”) TestDate=Format(“m/d/yy”,“1/1/2002”) ~A ~~~A1 在VB6.0中，代码编辑窗口打开的方式有（ ）种 1 2 3 4 ~c ~~~D1 在VB6.0中，能在立即窗口当中直接使用的语句为（ ） If……then For……next Print Do while……loop ~C ~~~B2 下列描述中，（ ）是一个类 张三 一头黑猪 一只小猫 人 ~D ~~~B2 在VB6.0中，窗口、标签、命令按钮、文本框等控件没有的属性是（　） right Left height Width ~A ~~~B2 在VB6.0中，运行一个窗体时，放大该窗体的尺寸时将触发的事件是（　） unload Resize Click Load ~B ~~~B2 在文本框中，通过（　）属性能获得当前插入点的位置 SetFocus SelStart SelText SelMiddle ~B ~~~B1 要对文本框中已有的内容进行编辑，按下键盘上的键就是不起作用，原因是设置了（　）属性为True Locked Lock Visible Enabled ~A ~~~B2 在用show方法显示自定义对话框时，如果show方法后带（　）参数就将窗体作为模式对话框显示 Vbmode Vbmodeless 0 不知道 ~A ~~~C2 在VB6.0中，一行代码最多能有（　）个字符 128 255 256 1024 ~B ~~~C2 在VB6.0中，占用两个字节的数据类型是（　） Byte Long Double Boolean ~D ~~~C2 在VB6.0中，占用四个字节的数据类型是（　） Byte Long Double Boolean ~B ~~~C3 在VB6.0中，定义一个变量为（　）类型时，其默认值为0 String Date Object Boolean ~D ~~~C2 在VB6.0中，变量名或符号常量名最多不得超过（　）个字符 128 127 255 256 ~C ~~~C3 在VB6.0中，给变量赋值的语句如：a%=3.54。则a的值为（　） 3 4 3.54 3.5 ~B ~~~C1 在VB6.0中，123456&是（　）类型常量 字节,整型,长整型,单精度,~C ~~~C1 在VB6.0中，12345E+5是（　）类型常量 字节,整型,长整型,单精度 ~C ~~~C2 在VB6.0中，1.2345D+5是（　）类型常量 双精度,整型,长整型,单精度,~D ~~~C1 整型变量X中存放了一个两位数，将其十位和个位数字做交换，其表达式是（　） 10*(x mod 10)+x\10 10*(x mod 10)+x/10 (X mod 10) & (x\10) “x mod 10” + x/10 ~A ~~~C1 在VB6.0中，表示X为5的倍数或是9的倍数的逻辑表达式为（　） X mod 5=0 and X mod 9=0 X mod 5=0 or X mod 9=0 X mod 5=0 & X mod 9=0 X mod 5==0 or x mod 9==0 ~B ~~~C1 在VB6.0中，表达式Ucase(Mid(“abcdefgh”,3,4))的值是（D） BCDE bcde cdef CDEF 填空题 ~~~C2 在Visual Basic中，1234、123456&、12345E+5、1.2345D+5 四个常数分别表示[<整型>]① 、[<长整型>]②、[<双精度型>]③、[<双精度型>]④ ~~~C2 整型变量X中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是[<(X mod 10)*10+X\10>] ~~~C2 表示x是5的倍数或是9的倍数的逻辑表达式为[] ~~~C2 已知a=2.5,b=5.0,c=2.5,d=True,则表达式：a>=0 AND a+c>b+3 OR NOT d的值是[] ~~~C2 Int(-2.6)、Int(2.6)、Fix(－2.6)、Fix(2.6)的值分别是[<-3>]、[<2>]、[<-2>]、[<2>] ~~~C2 表达式Ucase(Mid("abcdefgh",3,4))的值是[] ~~~C2 表示S字符变量是字母字符(大小写字母不区分)的逻辑表达式为[< x>0 and y>0 or x<0 and y<0 或 x*y>0 >] ~~~C2 ~~~F1 将文本框的ScrollBars的属性设置为2（有垂直滚动条），但没有出现垂直滚动条，这是因为没有将[]属性设置为True。 ~~~F1 检查框的[]属性设置为2——grayed时，将变成灰色。 ~~~F4 列表框中的[]和[]属性是数组。列表框中项目的序号是从[<0>]开始的。列表框List1中最后一项的序号用[]表示。 ~~~F1 组合框是组合了文本框和列表框的特性而形成的一种控件。[<下拉式列表框>]风格的组合框不允许用户输入列表中没有的项。 ~~~F2 当用户单击滚动条的空白处时，滑块移动的增量值同[]属性决定。滚动条产生Change事件是因为[]值改变了。 判断题 ~~~B1 为了使一个控件在运行时不可见，应将该控件的Enable属性值设置为False。 ~N ~~~B1 当用Load命令将窗体装入内存时，一定触发窗体的Load事件和Activate事件。 ~N ~~~B1 面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。 ~Y ~~~B1 将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。 ~Y ~~~B1 方法是Visual Basic对象可以响应的用户操作。~N ~~~B1 对象是基本的运行时实体，它既包括了数据（属性），也包括作用于对象的操作（方法）和对象的响应动作（事件）。~Y ~~~B1 属性是用来描述和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性都可以在属性窗口中设置。~N ~~~B1 Visual Basic中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。~Y ~~~B1 每个对象都有一系列预先定义好的事件，但要使对象能响应具体的事件，则应编写该对象相应的事件过程。~Y ~~~B1 属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。~Y ~~~B1 在打开一个Visual Basic工程进行修改后，当要另存为一个文件名时，可单击“工程另存为…”命令，因为其同时会保存窗体文件。~Y ### ~~~D1 使用MsgBox函数与MsgBox过程可接受用户输入数据。~n ~~~D2 if语句中的条件表达式中只能使用关系或逻辑表达式。~n ~~~D2 在Select Case 情况语句中，各分支（即Case表达式）的先后顺序无关。~n ~~~D1 要实现同样的循环控制，在Do While-Loop 和 Do-Loop While循环结构中给定的循环条件是一样的。~y ~~~D1 Do-Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。~y ~~~D2 Do-Loop Until 语句实现循环时，只要条件是假，循环将一直执行下去。~y ~~~D2 一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。~y ~~~D2 For循环语句正常结束（即不是通过Exit For 语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。~n ### ~~~F1 如果要时钟控件每分钟发生一个Timer事件，则Interval属性应设置为1，Interval属性值为0时，表示屏蔽计时器。~n ~~~F1 计时器控件在Visual Basic应用程序启动后自动计时，无法暂停或关闭。n ~~~F1 要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起来。~y ~~~F1 如果将框架控件的Enabled属性设为False，则框架内的控件都不可用。~y ~~~F1 清除List1列表框对象的内容的语句是List1.Cls，清除Combo1组合框的内容的语句是Combo1.Clear。~n ~~~F1 若在列表框中第五项之后插入一项目“ABCD”，则所用语句为List1.AddItem “ABCD”，6~n ~~~F1 组合框的Change事件在用户改变组合框的选中项时被触发。~n ~~~H1 不同控件具有不完全相同的属性集合。一些属性是所有控件共有的，一些属性则是部分控件所特有的。~y ~~~H1 一些属性既可以在属性窗口中设置，又可以在代码中进行修改。另一些属性则是只读的，只能在设计阶段进行设置。~y ~~~H2 除了标准控件以外，Visual Basic可以使用其他控件、用户自定义控件和第三方厂商研制的控件。~y ~~~H1 移动框架时框架内的控件也跟随移动，并且框架内各控件的Top和Left属性值也将分别随之改变。~n ~~~H1 在用户拖动滚动滑块时，滚动条的Change事件连续发生。~n 补充判断题 ~~~B1 设置属性的语句 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 为：“对象名．属性名＝属性值”。~Y ~~~B1 若用户在键盘上按下一个键，则会产生一个单击事件（Click事件）。~N ~~~B1 在VB中，字符型常量应使用"＃" 号将其括起来。~N ~~~B1 窗体大小只能通过鼠标拖动窗体边框来设置。 ~~N ~~~C1 VB的赋值语句只能给变量赋值。~N ~~~A1 在VB6.0中，立即窗口只能在程序调试状态下打开。~N ~~~B2 在VB6.0中，对象即类，类即对象。~N ~~~B2 在VB6.0中，事件即方法，方法即事件。~N ~~~B2 在VB6.0中，一个说明标签的enabled属性的值为false，也能正确说明其后控件的功能。~Y ~~~B2 在VB6.0中，Backcolor是设置字体的背景色，forcolor是设置字体的颜色的。~N ~~~B2 在VB6.0中，Maxbutton和minbutton属性可以在窗体运行时随时改变。~N ~~~B2 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的font属性进行设置。~Y ~~~B2 在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性不能在运行改变。~Y ~~~C2 VB字符集是指用VB语言编写程序时所能使用的所有符号的集合。~Y ~~~C3 在VB6.0中，1234567.0是单精度数。~N ~~~C3 在VB6.0中，所有的符号系统常量，都是以vb开头的。~Y ~~~C3 已知a=2.5,b=5.0,c=2.5,d=true，则表达式a>=0 and a+c>b+3 or not d的值是false。~Y ~~~C3 在VB6.0中，int(-2.6)10 then Eixt For Next Text1.Text = Str(n) End Sub 程序运行后, 单击命令按钮,在文本框中显示的值是 [<3 >] [< >] ~~~E2 下面的程序的运行。 a = 0: b = 1 Do a = a + b b = b + 1 Loop While a < 10 Print a print b 运行结果是： [<10 >] [<5 >] [< >] ~~~E3 下面的程序的运行 s = 0: t = 0: u = 0 For x = 1 To 3 For y = 1 To x For z = y To 3 s = s + 1 Next z t = t + 1 Next y u = u + 1 Next x Print s print t print u 运行结果是： [<14 >] [<6 >] [<3 >] [< >] ~~~E2 下面的程序的运行 j = 0 Do While j < 30 j = (j + 1) * (j + 2) k = k + 1 Loop Print k print j 运行结果是： [<3 >] [<182 >] [< >] ~~~E1 在窗体上画一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() x = 0 Do Until x = -1 a = Val(InputBox("")) b = Val(InputBox("")) x = Val(InputBox("")) a = a + b + x Loop Print a End Sub 运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后 运行结果是： [<2 >] [< >] ~~~E1 在窗体上画一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = 1 If i <= 4 Then x = x + 1 Print x Next End Sub 运行后,单击命令按钮,运行结果是 [<2 >] [<3 >] [<4 >] [<5 >] [< >] ~~~E1 在窗体上画一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next Next Next Print x End Sub 运行后,单击命令按钮,运行结果是 [<15 >] [< >] ~~~E1 在窗体上画一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() x = 0 i = 1 While i <= 100 s = s + i Wend End Sub 运行后,单击命令按钮,运行结果是 [<死循环 >] [< >] ~~~E1 已知字母C的ASCII码是67,在窗体上画一个命令按钮,然后编写如下事件过程 Private Sub Command1_Click() m = 67: a = "C" Print a; For i = 1 To 3 m = m + 1 a = Chr(m) + a + Chr(m) Print a; Next End Sub 运行后,单击命令按钮,运行结果是： [] [< >] ~~~E3 下面的程序的运行 n = 0 While n <= 2 n = n + 1 Print n Wend 结果是： [<1 >] [<2 >] [<3 >] [< >] ~~~E1 下面的程序的运行 Private Sub Command1_Click() For j = 1 To 20 If j Mod 5 <> 0 Then a = a + j Next Print a End Sub 运行结果是： [<160 >] [< >] ~~~E3 下面的程序的运行 Private Sub Command1_Click() x = 1 For k = 1 To 3 If k <= 1 Then a = x * x If k <= 2 Then a = x * x + 1 If k >= 3 Then a = x * x + 2 Print a Next End Sub 运行结果是： [<2 >] [<2 >] [<3 >] [< >] ~~~E1 下面的程序的运行后, Private Sub Command1_Click() s = 5 For i = 2.6 To 4.9 Step 0.6 s = s + 1 Next print s End Sub s的值是： [<9 >] [< >] ~~~E1 在窗体上画一个命令按钮和一个文本框,然后编写如下事件过程 Private Sub Command1_Click() k = 0 While k < 70 k = k + 2 k = k * k + k a = a + k Wend Text1.Text = a End Sub 程序运行后,文本框中显示的内容是: [<78 >] [< >] ~~~E1 有下面一段程序 Private Sub Command1_Click() s = Int(Rnd * 10) + 80 Select Case s Case Is < 60 a = "F" Case 60 To 69 a = "D" Case 70 To 79 a = "C" Case 80 To 89 a = "B" Case Else a = "A" End Select MsgBox a End Sub 程序运行后,消息框中显示的内容是 [] [< >] ~~~E4 程序运行时单击Command1后，输入12345678，写出窗体上的输出结果。 Private Sub Command1_Click() Dim x As Long, y As String x = InputBox("输入一个数") Do While x <> 0 y = y & x Mod 10 y = x \ 10 Mod 10 & y x = x \ 100 Print y Loop End Sub [<78 >] [<5786 >] [<357864 >] [<13578642>] [< >] ~~~E4 下面程序执行后，单击窗体，分别输入数据14，3，125，21时，标签框Label1.Caption的值分别是什么。 Private Sub Form_Click() Dim b As Integer a = Val(InputBox("请输入数据", , 100)) Select Case a Mod 5 Case Is < 4 w = a + 10 Case Is < 2 w = a * 2 Case Else w = a - 10 End Select Label1.Caption = "w=" & Str(w) End Sub [] [] [] [] [< >] ~~~E4 程序运行后，当单击窗体之后，窗体上输出的内容是什么。 Private Sub Form_Click() Dim i%, j% For i = 1 To 4 For j = 1 To 2 * i - 1 Print Chr$(65 + i - 1); Next j Print i Next End Sub [] [] [] [] [< >] 程序阅读 ### ~~~F4 完成一个字体设置程序的设计，要求分别单击三个组合列表框的列表项时，都能实现对标签控件Lable1“VB程序设计”字体的设置。程序启动后，组合列表框Combo3的文本框显示为12，对Combo3的相关属性做合理设置。 Private Sub Form_Load()‘给组合框Combo3中添加字号 Dim i As Integer For i=4 to 72 Step 4 Combo3.AddItem Str(i) Next i End Sub Private Sub Combo1_Click()‘选择并设置字体 Label1.Font = Combo1.Text End Sub Private Sub Combo2_Click()‘选择并设置字形 Select Case [] Case “常规” Label1.FontBold=False Label1.FontItalic=False Case “斜体” Label1.FontBold=False Label1.FontItalic=True Case “粗体” Label1.FontBold=True Label1.FontItalic=False Case “粗体斜体” [] [] End Select End Sub Private Sub Combo3_Click()‘选择并设置字号 [] End Sub ~~~F4 下列程序段的功能是交换如图所示的两个列表框中的项目。当双击某个项目时，该项目从本列表框中消失，并出现在另一个列表框中。列表1的名称是List1，列表2的名称是List2。程序界面设计如图所示。 Private sub form_load() list1.additem "IBM" list1.additem "Compaq" list1.additem "AST" ... End Sub Private sub List1_