VB习题_文档库
文档库最新最全的文档下载
当前位置： & VB习题
★'【程序设计】
'题目:编写函数fun,函数的功能是:判断一个数是否为素数。
'并显示相应提示。如:
'该数为素数时,显示"素数";该数为非素数时,显示"非素数"
'要求使用For语句来实现,用布尔型变量flag作为该数
'是否为素数的标志,注意:不得使用Goto语句。
'注意:请在指定的事件内编写代码
' 代码只能写在两行标识之间
' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
Private Function fun(m As Long) As String
Dim flag As Boolean
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Print fun(225)
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, fun(V al(a(i)))
Close #fIn
Close #fOut
Word文档免费下载：
VB程序习题集(附答案)_计算机软件及应用_IT/计算机_专业资料。VB程序设计习题集(附答案) VB 简介 1、在以下有关对象属性的叙述中,不正确的是___。 A、一个...VB复习题 - VB 练习题一 一、选择题 1.Visual Basic 程序设计的主要的步骤是 C A、可视性程序设计 B、代码程序设计 C、可视性程序设计和代码程序设计 D、...VB习题(2016) - 一、单项选择题 1、以下说法错误的是( A )。 B.Visual Basic 是一种可视化编程工具 D.Visual Basic 采用事件驱动编程机制 A.Vi...VB练习题 - 1.输入圆的半径, 输出其周长丶面积。 要求使用 textbox 分别进行输入, 使用 label 方法输出。 Dim r As Single, c As Single, are...VB练习题_其它_高等教育_教育专区。编写程序: 1.设计如图所示界面。编程序实现,运行时,单击“出题”按钮,产生任意两个 [0,100]之间的随 机整数;单击“计算”...【加试题】编写 VB 程序,在如第 16 题-1 图所示 1×1 的正方形区域内产生一定数 量、位置随机的点坐标,统计位于 0.5×0.5 的黑色区域内(包括边界)点的...vb题库 - 单击鼠标时,触发( c )事件。 A、Load B、KeyPress C、Click D、Change x是小于100的非负数,表示成VB表达式正确的是(c)。 A、0&=x&1...VB练习题1 - 202 一. 单选。 1. 表达式 15Mod4+13\5*2 的值是(C) A.0 B.2 C.4 D.7 2.在窗体上画一个名称为 Command1 的命令按钮,然后编写...VB试题库精简版 - VB 试题库 一、选择题 1.能被对象所识别的动作与对象可执行的活动分别称为对象的___。 A.方法、事件 A.Dim、Private A.style B...vb题库1 - 填空题 图像框的 strtch 属性设置为(true)时,图形将适应图像框的大小。属性设置为(false) ,图 形框将适应图像的大小。 文本框的 locked 属性用来...vb练习题_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩52页未读，
定制HR最喜欢的简历
你可能喜欢当前位置： >>
一、选择题1．能被对象所识别的动作与对象可执行的活动分别称为对象的________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、方法 2. 在过程中可以用________语句定义变量。 A．Dim、Private B．Dim、Static C．Dim、Public D．Dim、Static、Private 3．用窗体的________属性来设置窗体的标题。 A．style B．Text C．Caption D．Name 4．若在应用程序中用“Private Sub Sub1(X As Integer，Y As Single)”定义了子程序 Sub1，调用程 序中的变量 I、J 均为 Integer 型，则正确调用子程序 Sub1 的 Call 语句是________。 ①Call Sub1(I，I) ②Call Sub1(3.1415，I) ③Call Sub1(3.14，234) ④Call Sub1(&245&，&231.5&) A．①③ B．③④ C．①②③ D．无 5．下面表达式的值为 True 的是________。 A．Mid(&Visual Basic&，1，12)=Right(&Programming language Visual Basic&，12) B．&ABCRG&&&abcde& C．Int(134.69)&=Cint(134.69) D．78.9／32.77&=97.5／43.97 And C45.4&-4.98 6．以下有关对象属性的说法中正确的是________。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性 C．不同对象的同名属性取值一定相同 D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 7．代数表达式 lne x ? sin 3 x 对应的 Visual Basic 表达式是________。 x? yA．Log(Abs((Exp(3.14159)+Sin(x)^3)／(x+Y))) B．Ln(Abs((Exp(3.14159)+Sin(x)^3)／(X+Y))) C．Log(Abs(Exp(3.14159)+Sin(x)^3)／(X+Y)) D．Log|(Exp(3.14159)+Sin(x)^3)／x+y| 8． VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是________。 A．设计状态 B．编写代码状态 C．运行状态 D．中断状态 9．若在一个应用程序窗体上，依次创建了 CommandButton、TextBox、Label 等控件，则运行该 程序显示窗体时，________会首先获得焦点。 A．窗体 B．CommandButton C．Label D．TextBox 10．在窗体模块的通用声明处用下面的语句声明变量、数组，正确的语句有________个。 ① Public A(5) As Integer ② Public N As Integer ③ Public St As String*10 ④ Private b() As Integer A．2 B．3 C．4 D．1 11．单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在 不同的________中安排适当的单选按钮，即可实现。 A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox） D．框架控件（Frame）或图片框控件（PictureBox）112．下面的语句或方法中错误的有________个（其中 m 和 n 都为 Integer 型变量） 。 ① Dim Arry(m, n) As Integer ② n=32764+5 ③ Print m=m+n;m+n ④ ChDrive &C:& A．1 B．2 C．3 D．4 13．下列说法不正确的是________。 A．VB 允许将一个数字字符串赋值给一个数值型的变量 B．VB 允许使用未经说明的变量，其类型都是 Variant 类型 C．Cls 方法只清除运行时在窗体或图形框中显示的文本或图形 D．事件过程既可建在窗体模块中，也可建在标准模块中 14．运行程序产生死循环时，________可以终止程序运行。 A．按【Ctrl】+【C】键 B．按【Ctrl】+【Z】键 C．按【Ctrl】+【Break】键 D．单击“停止运行”按钮 15．VB 集成开发环境可以________。 A．编辑、调试、运行程序，但不能生成可执行程序 B．编辑、生成可执行程序、运行程序，但不能调试程序 C．编辑、调试、生成可执行程序，但不能运行程序 D．编辑、调试、运行程序，也能生成可执行程序 16．在 VB 中最基本的对象是_________，它是应用程序的基石，也是其他控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 17．应用程序窗体的名称属性为 Frm1，窗体上有一个命令按钮，其名称属性为 Cmd1，窗体和命 令按钮的 Click 事件过程名分别为_________。 A．Form_Click()、Command1_Click() B．Frm1_Click()、Command1_Click() C．Form_Click()、Cmd1_Click() D．Frm1_Click()、Cmd1_Click() 18．多窗体程序由多个窗体组成。在缺省情况下，VB 在执行应用程序时，总是把_________指定 为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体 C．命名为 Frm1 的窗体 D．包含控件最多的窗体 19．使用________方法可将新的列表项添加到一个列表框中。 A．Print B．AddItem C．Clear D．RemoveItem 20．若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用________关键字在该过 程中定义局部变量。 A．Dim B．Private C．Public D．Static 21．下列表达式中，值为 True 的是________。 A．Ucase(&abcd&)&=&abed& B．14／2＼3&10 Mod 4 C．Mid(&ABCD&,2,2)&Left(&ABCD&,2) D．Not(Sqr(4)-3&=-2) 22．下列_________说法是不正确的。 A．当程序正常结束时，所有没用 Close 语句关闭的文件都会自动关闭 B．在关闭文件或程序结束之前，可以不用 Unlock 语句对已锁定的记录解锁 C．可以用不同的文件号同时打开一个随机文件 D．用 Output 模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 23．代数表达式x ? ln x a ?b? e ? t ? sin( x ? y ) ，对应的 Visual Basic 表达式是__________。 2A．Sqr((x+Log(x))／(a+b))+Exp(-t)+Sin((x+y)／2)2B．Sqr( x+Log(x))／(a+b))+Exp(-t)+Sin((x+y)／2) C．Sqr((x+Ln(x))／(a+b))+Exp(-t)+Sin(x+y)／2) D．Sqr((x+Log(x))／(a+b))+Exp(-t)+Sin(x+y／2) 24．在程序中可以通过复选框和单选按钮的__________属性值来判断它们的当前状态。 A．Caption B．Value C．Checked D．Selected 25． 在使用菜单编辑器创建菜单时， 可在菜单名称中某字母前插入_________符号， 那么在运行程 序时按【Alt】键和该字母键就可打开该命令菜单。 A．下划线 B．& C．$ D．@ 26． 在多窗体程序中， 可以在标准模块或某个窗体模块的通用声明处， 分别用_______语句定义一 个在所有窗体模块都可以引用的变量 IntA。 A．Private IntA As Integer Public IntA As Integer B．Public IntA As Integer Private IntA As Integer C．Public IntA As Integer Public IntA As Integer D．Private IntA As Integer Private IntA As Integer 27．在应用程序中用“Private Function Fun(x As Integer，y As Single)”定义了函数 Fun。调用函数 Fun 的过程中的变量 I、J 均定义为 Integer 型，能正确引用函数 Fun 的是_______。 ①Fun(I，J) ②Call Fun(I，3.65) ③Fun(3.14，234) ④Fun(&245&，&231.5&) A．①③ B．②③④ C．①②③ D．①②③④ 28．若在应用程序的标准模块、窗体模块和过程 Sub1 的说明部分，分别用“Public G As Integer” 、 “Private G As Integer”和“Dim G As Integer”语句说明了三个同名变量 G。如果在过程 Sub1 中 使用赋值语句“G=3596” ，则该语句是给在________说明部分定义的变量 G 赋值。 A．标准模块 B．过程 Sub1 C．窗体模块 D．标准模块、窗体模块和过程 Sub1 29． 有程序代码 “Text1． Text=&Visual Basic&， 其中的 Text1、 和&Visual Basic&分别代表_________。 Text A．对象、值、属性 B．对象、方法、属性 C．对象、属性、值 D．属性、对象、值 30．VB 工程文件的扩展名是________。 A．.frm B．.vbp C．.bas D．.frx 31．窗体上有多个控件，在 Form_Activate()事件过程中添加__________语句，就可确保每次运行 程序时，都将光标定位在文本框 Text1 上。 A．Text1．Text=&& B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 32．在程序中分别将变量 Inta、B1、St 和 D 定义为整型、布尔型、字符串型和日期型，下列赋值 语句在执行时会出错的是________。 A．Inta=4.6 B．B1=#True# C．St=5 ＆ 123.5 D．D=#10／05／01# 33．在窗体 Form1 中用“Public Sub Fun(x As Integer，Y As Single)”定义过程 Fun，在窗体 Form2 中定义了变量 i 为 Integer，J 为 Single，若要在 Form2 的某事件过程中调用 Form1 中的 Fun 过程， 则下列语句中正确的语句有_________个。 ①Call Fun(i，j) ②Call Form1．Fun(i，i) ③Form1．Fun (i)，j ④Form1．Fun i + 1，(j) A．1 B．2 C．3 D．4 34．以下有关变量作用域的说法中，错误的是__________。 A．只有在标准模块中用 Public 语句说明的变量才是全局变量 B．在过程中不能使用 Public 语句说明全局变量 C．在标准模块的通用声明处可用 Private 语句说明模块级变量3D．在窗体的通用声明处可用 Private 语句说明窗体级变量 35．语句 Print &5*20&输出的结果是_________。 A．&5*20& B．出现错误信息 C．5*20 D．100 36．在代码窗口中，当从对象列表框中选定了某一对象后，在________中会列出适用该对象的事 件。 A．过程框 B．属性窗口 C．事件列表框 D．工具栏 37．若磁盘文件 C:\Data1.Dat 不存在，下列打开文件语句中，会产生错误的是________。 A．Open &C:\Data1.dat& For Output As #1 B．Open &C:\Data1.dat& For Iutput As # 2 C．Open &C:\Data1.dat& For Append As # 3 D．Open &C:\Data1.dat& For Binary As # 4 38．不能作为容器使用的对象是__________。 A．图像框 B．框架 C．图片框 D．窗体 39．以下有关数组的说明中，错误的是__________。 A．根据数组说明的方式，可将数组分为动态数组和静态数组 B．在过程中，不能用 Private 语句定义数组 C．利用 ReDim 语句重新定维时，不得改变已经说明过的数组的数据类型 D．数组重新定维后，原有的数组元素内容将不予保留 40． 窗体的 Name 属性为 Frm1， 在窗体模块通用声明处和过程 Sub1 中分别用 “Public K As Integer” 和“Dim K As Integer”声明了两个同名变量 K，则在过程 Sub1 中要访问窗体模块变量 K，可采 用_________。 A．Frm1．K B．Form．K C．Form1．K D．K 41．名为 Sort 的 Sub 子过程的形式参数为一数组，以下的定义语句中正确的是________。 A．Private Sub Sort(A() As Integer) B．Private Sub Sort(A(10) As Integer) C．Private Sub Sort(ByVal A() As Integer) D．Private Sub Sort(A( ，) As Integer) 42．可以在_________中，使用语句 Public PubStr As String*20 定义一个定长字符串。 A．窗体模块 B．标准模块 C．类模块 D．三者均可 43．以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是_______。 A．在缺省情况下，设计时的第一个窗体被指定为启动窗体 B．通过人为设置，可指定任一窗体为启动窗体 C．通过人为设置，可指定标准模块中的 Main()过程为启动过程 D．通过人为设置，可指定窗体模块中的 Main()过程为启动过程 44．在过程中有语句 For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_______会影 响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A．①② B．①②③ C．③ D．①②③④ 45．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作 是________。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 46．在以下有关对象属性的叙述中，错误的是_________。 A．一个对象的属性可分为外观、行为等若干类4B．不同属性可能具有不同的数据类型 C．一个对象的所有属性都可在属性窗口的列表中进行设置 D．属性窗口中的属性列表既可按字母排列也可按类别排列 47．数学算式12 x ?5 y ? d 3 ? m 2 e ? x sin x的 VB 算术表达式是_________。A．(12*X+5*Y-Sqr(Abs(d^3-m^2)))／Exp(-x)／Sin(x) B．(12*x+5*Y-Sqr(Abs(d^3-m^2)))／Exp(-x)*Sin(x) C．(12*X+5*Y-Sqr(Abs(d^3-m^2))／Exp(-x)／Sin(x) D．(12*X+5*Y-Sqr(Abs(d^3-m^2)))／e^(-x)／Sin(x) 48．表示“X&Y&Z” ，正确的 VB 逻辑表达式是_________。 A．X&Y And Y&Z B．X&Y&Z C．X&Y Or Y&Z D．X&Y And &Z 49．窗体上有一个文本框控件 Text1，假设已存在三个整型变量 a、b 和 c，且变量 a 的值为 5，变 量 b 的值为 7，变量 c 的值为 12。以下的______语句可以使文本框内显示的内容为：5+ 7=12 A．Text1．Text=a+b=c B．Text1．Text=&a+b=c& C．Text1=a & &+& & b & &=& & c D．Text1=&a& & &+& & &b& & &=& & &c& 50．调用由语句 Private Sub Convert(Y As Integer)定义的 Sub 过程时，以下不是按值传递的语句是 _________。 A．Call Convert((X)) B．Call Convert(X*1) C．Convert (X) D．Convert X 51．程序中的不同过程之间，不能通过________进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A．①②④ B．①②③ C．②④ D．④ 52．下列关于数组的叙述中，错误的是__________。 A．在过程中可以用 Dim 语句对形参数组进行声明 B．数组是同类变量的一个有序的集合 C．数组元素可以是控件 D．数组在使用之前，必须先用数组说明语句进行说明 53．要向已有数据的 c:\test\test．txt 文件添加数据，正确的文件打开命令是________。 A．Open &C:\test\test.txt& For Append As #512 B．Open &C:\test\test.txt& For Append As #511 C．Open &C:\test\test.txt& For Output As #512 D．Open &C:\test\test.txt& For Output As #51l 54．以下________情况不会进入中断状态。 A．在程序运行中，按【Ctrl】+【C】键 B．程序运行中，发生了运行错误 C．用户在程序中设置了断点，当程序运行到断点时 D．采用单步调试方式，每运行一个可执行代码行后 55．使用_________方法，可以将列表框 List1 中的所有项删除掉。 A．Listl.Text=&& B．AddItem C．RemoveItem D．Clear 56．某过程的说明语句中，正确的数组说明语句是__________。 Const N As Integer=4 Dim L As Integer ①Dim X(L) AS Integer5②Dim A(K) As Integer Const K As Integer=3 ③Dim B(N) As Integer ④Dim Y(2000 to 2008) As Integer A．①②④ B．①③④ C．③④ D．②③ 57． 在多窗体的应用程序中， 当前窗体模块的 Form_Click 事件过程中包含如下语句， 单击该窗体， 其中_________一定可以将 Hello 显示在当前窗体上。 A．Form.Print &Hello & B．Me.Print &Hello & C．Debug.Print & Hello & D．Form2.Print &Hello & 58．要将焦点设置在某个控件上，以下四个选项中正确的是________。 A．只能使用鼠标直接点击该控件 B．只能使用 Tab 键将焦点移到该控件 C．只能在程序中调用该控件的 SetFocus 方法 D．A、B、C 三选项中涉及的方法均可使用 59．以下语句中，不能正确执行的是_________。 A．If Option1.Value Then B．If Option1.Value=True Then C．Check1.Value=0 D．Check1.Value=True 60．以下使用方法的代码中，正确的是________。 A．Label1.SetFocus B．Form1.Clear C．Text1.SetFocus D．Combo1.Cls 61．在程序中将变量 Inta、Bl、St 和 D 分别定义为 Integer 型、Boolean 型、String 型和 Date 型， 下列赋值语句中，正确的是_________。 A．Inta=&333&+&22& B．D=#10／05／01# C．St=5+&abc& D．B1=#True# 62．以下使用方法的语句中，正确的是_________。 A．List1．Clear B．Form1．C1ear C．Combo1．Cls D．Picture1．C1ear 63．以下所列的 7 个控件中，具有 Caption 属性的有_________个。 PictureBox(图片框)、 Frame(框架)、 OptionButton(单选按钮)、 ListBox(列表框)、 TextBox(文本框)、 Form(窗体)、DriveListBox(驱动器列表框) A．3 B．4 C．2 D．5 64．以下有关对象属性的说法中错误的是________。 A．所有的对象都具有 Name(名称)属性 B．只能在执行时设置或改变的属性为执行时属性 C．对象的某些属性只能在设计时设定，不能使用代码改变 D．Enabled 属性值设为 False 的控件对象在窗体上将不可见 65．在窗体的通用声明处有语句“Dim A() As Single” ，以下在某事件过程中重定义此数组的一组 正确语句是_________。 A．ReDim A(3，3) B．ReDim A(3，3) ReDim A(4，4) As Integer ReDim Preserve A(4, 4) C．ReDim A(3) D．ReDim A(3, 3) ReDim A(3，3) As Integer ReDim Preserve A(3, 4) 66．下面有关数组的说法中，正确的是 。 A．数组的维下界不可以是负数6B．模块通用声明处有 Option Base 1，则模块中数组定义语句 Dim A(0 To 5)会与之冲突 C．模块通用声明处有 Option Base 1，模块中有 Dim A(0 T0 5)，则 A 数组第一维维下界为 0 D．模块通用声明处有 Option Base 1，模块中有 Dim A(0 To 5)，则 A 数组第一维维下界为 1 67．在文本框 Text1 中输入数字 12，在文本框 Text2 中输入数字 34，执行以下语句，只有_______ 可使文本框 Text3 中显示 46。 A．Text3．Text=Text1．Text ＆ Text2．Text B．Text3．Text=Val(Text1．Text)+Val(Text2．Text) C．Text3．Text=Text1．Text+Text2．Text D．Text3．Text=Val(Text1．Text) & Val(Text2．Text) 68．在窗体模块的通用声明处有如下语句，会产生错误的语句是__________。 ①Const A As Integer=25 ②Public St As String*8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A．①② B．①③ C．①②③ D．②③④ 69．下列定义 Sub 过程的语句中，正确的语句是_________。 ①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String) ④Private Sub Test(St As String) A．①② B．①④ C．②③④ D．①②③④ 70．VB 中利用 Circle 方法不可以画__________。 A．圆 B．直线 C．弧 D．椭圆 71．在窗体模块的通用声明段中声明变量时，不能使用________关键字。 A．Dim B．Public C．Private D．Static 72．日期类型(Date)在程序中运用时，日期类型必须用________符号括起来。 A．# B．@ C．$ D．％ 73．有如下程序： Private Sub Command1_Click() S=Fix(-23.1) E=Int(23.1) Print Sin(E+S) End Sub 运行时输出的结果是_________。 A．-1 B．0 C．1 D．23 74．在下列属性中，属于 CommandButton 控件、ListBox 控件共有的是________。 A．Caption、Text B．Visible、Font C．Caption、Visible D．List、Visible 75．以下的关系表达式中，运算结果为 True 的是________。 A．CInt(1.5)=Int(1.5) B．Fix(1.5)=Int(1.5) C．Fix(-1.5)=Cint(-1.5) D．Fix(-1.5)=Int(-1.5) 76．在 VB 中可以作为容器的是 。 A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBoX、Label D．PictureBox、TextBox、ListBox 77．VB 中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有 。 ①PictureBox ②Image ③TextBox ④CommandButton ⑤OptionButton ⑥Label A．①②③④ B．①②⑤⑥ C．①②④⑤ D．①②④⑥778．针对语句 If I=1 Then J=1，下列说法正确的是________。 A．I=1 和 J=1 均为赋值语句 B．I=1 和 J=1 均为关系表达式 C．I=1 为关系表达式，J=1 为赋值语句 D．I=1 为赋值语句，J=1 为关系表达式 79．在某过程中已说明变量 a 为 Integer 类型、变量 s 为 String 类型，过程中的以下四组语句中， 不能正常执行的是 ________。 A．s=2*a+1 B．s=&237& & &.11&:a=s C．s=2*a&3 D．a=2:s=16400*a 80．下面所列四组数据中，全部是正确的 VB 常数的是________。 A．D2, &ABCDE&,&O1767 B．, 1.2E-2, #True# C．&HABCE, 02-03-2002, False, D-3 D．ABCDE, #02-02-2002#, E-2 81．下面有关数组处理的叙述中，错误的是________。 ①在过程中用 ReDim 语句定义的动态数组，其下标的上下界可为赋了值的变量。 ②在过程中，可以使用 Dim、Private 和 Static 语句定义数组。 ③用 ReDim 语句重新定义动态数组时，不得改变该数组的数据类型。 ④可用 Public 语句在窗体模块的通用说明处定义一个全局数组。 A．①②③④ B．①③④ C．①②③ D．②④ 82．第一次显示某窗体时，将引发一系列事件，事件发生的正确顺序是________。 A．Load - Initialize - Activate B．Initialize - Load - Activate C．Load - Activate- Initialize D．Initialize - Activate - Load 83．定义两个过程 Private Sub1(St() As String)和 Private Sub2(Ch() As String*6)，在调用过程中用 Dim S(3) As String*6, A(3) As String 定义了两个字符串数组。 下面调用语句中正确的有________。 ①Call Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S) A．①② B．①③ C．②③ D．②④ 84．运行下面程序，单击命令按钮 Command1，则立即窗口上显示的结果是________。 Private Sub Command1_Click() Dim A As Integer, B As Boolean, C As Integer, D As Integer A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + C End Sub A．7 6 False B．6.6 5.6 False C．7 6 A=6 D．7 8 A=8 85．要设置窗体上各控件的属性，可在________中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 86．在程序代码中，将图片文件“abc.jpg”装入图片框 Picture1 的语句是________。 A．Picture1.Picture = &abc.jpg& B． Picture1.image = &abc.jpg & C． Picture1.Picture = LoadPicture(&abc.jpg&) D．LoadPicture(&abc.jpg&) 87．若编写的过程要被多个窗体及其对象调用，应将这些过程放在哪一类模块中？ A. 窗体模块 B. 标准模块 C. 工程 D. 类模块 88．要设置定时器控件的定时时间，需设置的属性是_________。8A．Interva1B．EnabledC．ValueD．Text89．若要将窗体从内存中卸载，其实现的方法是_________。 A．Show 是_________。 A. Visable B. Enabled C. Default D. Cancled 91．无法响应 Click 事件的控件是________。 Ａ．Label Ｂ．Timer Ｃ．TextBox Ｄ．DriveListBox 92．下列表达式能产生 1～6 自然数的是__________。 A．Int(Rnd(6)+1) B．Int(Rnd*6) C．Int(Rnd*7) D．Int(Rnd*6+1) 93．对于某对象的 SetFocus 和 GotFocus 描述中，正确的是________。 Ａ．SetFocus 是方法，GotFocus 事件 Ｂ．SetFocus 是事件，GotFocus 是事件 Ｃ．SetFocus 是方法，GotFocus 是方法 Ｄ．SetFocus 是事件，GotFocus 是方法 94．设 a 为 Integer 型变量，s 为 Single 变量，把 3.75 赋值给 s 后，再执行下列某一语句，则在文 本框中显示的结果与执行语句 a＝s:Text1=a 的结果相同的有________个。 ①a=Int(s):Text1=a ② a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④ a=Format(s, &#####&):Text1=a Ａ．１ Ｂ．２ Ｃ．３ Ｄ．４ 95．下列语句运行时系统给出错误提示的是________。 Ａ．Print - Ｂ．Print &1E2&+8 Ｃ．Print &AB& & 128 Ｄ．Print 3=2=4 96．描述Ｘ、Ｙ中有一个小于Ｚ的逻辑表达式是________。 Ａ．X&Z And Y&Z Ｂ．X&Z Or Y&Z Ｃ．X&Z Xor Y&Z Ｄ．X&Y&Z 97．以下有关控件数组的说法中，错误的是________。 Ａ．控件数组由一组具有共同名称和相同类型的控件组成 Ｂ．控件数组中的每一个控件共享同样的事件过程 Ｃ．控件数组中的每个元素的下标由控件的 Index 属性指定 Ｄ．同一控件数组中的元素只能有相同的属性设置值 98．以下有关数组作为形参的说明中，错误的是________。 A．调用过程时，只需把要传递的数组名填入实参表 B．使用动态数组时，可用 ReDim 语句改变形参数组的维界 C．在过程中也可用 Dim 语句对形参数组进行说明 Ｄ．形参数组只能按地址传递 99．下面有关数组的叙述中，不正确的是________。 ①在过程中用 ReDim 定义的动态数组，其下标的上下界可以是变量 ②数组作为形参数组时，传递的是每个数组元素的值 ③在窗体模块的通用声明处可以用 Public 说明一个全局数组 ④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A．②③ B．①③④ C．①②③④ D．③④ 100．以下有关过程的说法中，错误的是___________。 Ａ．在 Sub 或 Function 过程中不能再定义其他 Sub 或 Function 过程 Ｂ．在调用过程时，与使用 ByRef 说明的形参对应的实参只能按地址传递方式结合 B．Unload C．Load D．Hide 90．在程序运行过程中，要想使可操作的按钮变成看得见但不可操作，则应设置为 False 的属性9Ｃ．递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 Ｄ．在调用过程时，形参为数组的参数对应的实参只能是数组 101．数学式[(7.5 x ? e ) x ? 1.5]x ? 1 对应的 VB 表达式是________。 A．((7.5x + E(-3)) * x-1.5) * x-1 B．((7.5 * x + Exp(-3)) * x-1.5) * x-1 C．((7.5 x + Exp(-3)) x-1.5) * x-1 D．((7.5*x+Exp-3)*x-1.5)*x-1 102．方法 Print &10+6=&;10+6 输出的结果是_________。 A.10+6=10+6 B. 10+6=16 C. 16=10+6 D. &10+6=&10+6 103．若要将窗体隐藏，其实现的方法是________。 A．Show B．Unload C．Load 104．VB6.0 表达式 Cos(0)+Abs(1)+Int(rnd(1))的值是__________。 D．Hide?3A. 2 B.C1 C. 0 D. 1 105．下列关于文件的叙述中，错误的是________。 A．用 Output 模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B．可以用 Print#语句或 Write#语句将数据写到顺序文件中 C．若以 Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D．顺序文件或随机文件都可以用二进制访问模式打开 106．在 VB 中，下列关于控件的属性或方法中，搭配错误的有________个。 ①Timer1.Interval ②List1.Cls ③Text1.Print ④List1.RemoveItem ⑤VScroll1.Value ⑥Picture1.Print A．0 B．1 C．2 D．3 107．下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是 ________。 A．List1.ListCount B．Text1.Index C．Dir1.Path D．Label1.Visible 108．下面________语句，可以将列表框 List1 中的当前选定的列表项的值替换成&ABC&。 A．List1.AddItem &ABC&,List1.ListIndex B．List1.Text=&ABC& C．List1.List(List1.ListIndex)= &ABC& D．前三项均可 109．函数 CInt(-3.5),Int(-3.5),Fix(-3.5)的值分别是________。 A．-3,-4 , -3 B．-4, -4, -3 C．-3,-4 , -4 D．-4, -3, -3 110． 设整型变量 a、 的当前取值分别为 200 与 20， b 以下赋值语句中不能正确执行的是_________。 A．Text1 = a/b*a B．Text1 = a*a/b C．Text1 = &200&*a/b D．Text1 = a & b & a 111．对正实数 X 的第四位小数四舍五入的 VB 表达式是________。 A．0.001*Int(x+0.005) B．0.001*(1000*x+0.5) C．0.001*Int(1000*x+5) D．0.001*Int(1000*(x+0.0005)) 112．下列有关数组的说法中，不正确的是________。 A．在窗体模块中不可以定义全局数组 B．可以使用 Erase 语句释放所有数组所占据的存储空间 C．语句 Dim X(3.6+2) As Integer 定义了一个维上界是 6 的一维整型数组 D．形参数组的类型可以是定长字符串类型 113．以下关于事件的说法中，正确的是________。 A．事件是由系统预先定义好的，能够被对象识别的动作 B．事件过程都是无参(没有形式参数)的过程10C．在事件过程中可以声明全局变量 D．不同类型的对象所能识别的事件一定不相同 114．窗体上放置有名为 Drive1 与 Dir1 的驱动器列表框与文件夹列表框，需要在选定驱动器列表 框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是________。 A．Dir1.Path = Drive1.Path ?位于 Drive1_Change()过程 B．Dir1.Path = Drive1.Path ?位于 Dir1_Change()过程 C．Dir1.Path = Drive1.Drive ?位于 Drive1_Change()过程 D．Dir1.Path = Drive1.Drive ?位于 Dir1_Change()过程 115．执行下面的程序段，结果是________。 X = Width/2:Y = Height/2 Picture1.Line (X, Y)-(X, Y-2000) Picture1.Line (X, Y+2000)-(X, Y) Picture1.Line C(XC2000, Y) A．在图片框中画形如┫的交叉直线 B．在图片框中画形如┣的交叉直线 C．在图片框中画形如┳的交叉直线 D．在图片框中画形如┻的交叉直线 116．用来设置窗体背景图片的属性是__________。 A.Moveable B.Picture C.ForeColor D.WindowState 117．以下关于控件数组的说法中，错误的是________。 A．控件数组由一组具有相同名称和相同类型的控件组成 B．控件数组中的所有控件不得具有各自不同的属性设置值 C．控件数组中的所有控件共享同一个事件过程 D．控件数组中每个元素的下标由控件的 Index 属性指定 118．设 S 是字符型变量，以下语句正确的是__________。 A．S=List1．Caption B．S=Timer1．Caption C．S=Text1．Caption D．S=Label1．Caption 119．表达式 x Mod y＼z&5 And A+B+C&=36 中最先被执行的运算是_________。 A．+ B．And C．Mod D．＼ 120．下列没有类型说明符的变量是________。 A．日期型 B．长整型 C．字符型 D．货币型 121. 下列四个选项，是 VB 数值常量的是_________。 A. 1E6 B. 1*E6 C. 1*E-6 D. 1*E+6 122．扩展名为．vbp 的工程文件中包含有__________。 A．工程中所有模块的有关信息 B．每个窗体模块中的所有控件的有关信息 C．每个模块中所有变量的有关信息 D．每个模块中所有过程的有关信息 123．在窗体的通用说明部分有以下说明语句，其中正确的是__________。 A．Private Const A As Integer=235／2 B．Const B As Integer=Cint(2.53) C．Dim Const C As Integer=3579 D．Public Const S As Boolean=True 124．以下控件对象中，具有 Picture 属性的是__________。 ①PictureBox ②Frame ③OptionButton ④CommandButton ⑤ListBox ⑥CheckBox ⑦Label11A．①③④⑥ B．①②⑤⑥⑦ C．①③④⑤⑥ D．①②③④⑤⑥ 125．在过程中已说明 a、b、c 均为 Integer 型变量，且均已被赋值，其中 a=30、b=40、C=50，如 再执行下面的语句，可正常执行的是___________。 A．Print a*b*c B．Print a*b*c*1& C．Print 1&*a*b*c D．Print a*b*c*1! 126．下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是_________。 A. Top B. Width C. Left D. Enabled 127．以下有关事件过程的说法中，错误的是___________。 A．标准模块中不能包含事件过程 B．事件过程都是无参(没有形式参数)的过程 C．事件过程也可以通过 Call 语句调用执行 D．在事件过程中不能声明全局变量 128．以下有关 ReDim 语句用法的说明中，错误的是__________。 A．ReDim 可用于定义一个新数组 B．ReDim 语句既可以在过程中使用，也可以在模块的通用声明处使用 C．无 Perserve 关键字的 ReDim 语句，可重新定义动态数组的维数 D．在 ReDim 语句中，可使用变量说明动态数组的大小 129．以下 Case 语句中，能正确描述 Y 的绝对值大于 6 的是________。 A．Case Abs(Y)&6 B．Case -6 To 6 C．Case Not(-6 To 6) D．Case Is &-6, Is & 6 130．下面语句中，可以在窗体上绘制正方形的语句是__________。 ①Shape1.Shape=1 ②Line(500, 1500)-() ③Shape1.Shape=0 ④Line(500,1500)-(), ,B A．③② B．①② C．③④ D．①④ 131．如果一个变量未指明数据类型，那么，VB 默认这个变量为_________变量。 A．变体型 B．整型 C．公共 D．字符串型 132．窗体文件的扩展名是__________。 A. frm B. vbp 133．不能打开属性窗口的操作是_________。 A. 击工具栏中的“属性窗口”按钮 B. 选取“视图” 菜单中的“属性窗口”子菜单项 C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项 D．选取“工程”菜单中的“属性窗口”子菜单项 134． 若在模块中用 Private Function Fun(A As Single, B As Integer) As Integer 定义了函数 Fun。 调用 函数 Fun 的过程中定义了 I，J 和 K 三个 Integer 型变量，则下列语句中不能正确调用函数 Fun 的 语句是________。 A．Fun 3.14, J B．Call Fun(I, 365) C．Fun (I), (J) D．K=Fun(&24&, &35&) 135．下列语句的输出结果为________。 Print Format(, &##,#0.00&) A．1234.57 B．1234.56 C．1,234.56 D．12,34.57 136．以下关于方法的叙述中，错误的是__________。 A．方法是构成对象实体的一个部分12C. basD. frxB．方法是一种特殊的过程或函数 C．调用方法的一般格式是：对象名称．方法名称 [参数] D．在调用方法时，对象名称是不可缺少的 137．创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在 窗体上，可能的原因是__________。 A．该命令按钮的 Value 属性被设置为 False B．该命令按钮的 Enabled 属性被设置为 False C．该命令按钮的 Visible 属性被设置为 False D．该命令按钮的 Default 属性被设置为 True 138． 若需要在同一窗体内安排两组相互独立的单选按钮(0ptionButton)， 可使用__________控件将 它们分隔开。 ①TextBox ②Picture ③Image ④Frame A．①② B．②③ C．②④ D．③④ 139．单击滚动条两端的箭头时，滚动条 Value 属性值的改变量由__________属性值决定。 A．LargeChange B．Max C．SmallChange D．Min 140．设变量 D 为 Date 型、A 为 Integer 型、S 为 String 型、L 为 Long 型，下面赋值语句中不能 执行的是___________。 A．D=#12：30：00 PM# B．A=&3277e1& C．S=Now D．L=&1．对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 _______过程。 A．方法 B．事件 C．调用 D．编译 142．在 Select Case x 结构中，描述判断条件 3≤X≤7 的测试项应该写成__________。 A．Case 3&=X&=7 B．Case 3&=X，X&=7 C．Case Is&=7，Is&=3 D．Case 3 To 7 143．下面关于过程参数的说法，错误的是___________。 A．过程的形参不可以是定长字符串类型的变量 B．形参是定长字符串型的数组，则对应的实参必须是定长字符串型数组，且长度相同 C．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 D．按值传递参数，形参和实参的类型可以不同，只要相容即可 144．下面有关文件管理控件的说法，正确的是___________。 A．ChDir 语句的作用是指明新的缺省工作目录，同时也改变目录列表框的 Path 属性值 B．改变文件列表框的 FileName 属性值，仅改变列表框中显示的文件名，不会引发其它事件 C．改变驱动器列表框的 ListIndex 属性值，会改变 Drive 属性值并触发 Change 事件 D．单击目录列表框中某一项，会触发 Change 事件 145．以下有关 Line 划线方法的说明，错误的是___________。 A．Line 方法既可用于单个划线，也可用于连续划线 B．Line 方法中的 Step 选项用于指定由 CurrentX、CurrentY 属性决定的图形坐标位置 C．Line 方法划线的宽度由 DrawWidth 属性决定 D．当使用 F 选项时，Line 方法可用于绘制矩形 146．VB6．0 的控件有________三类。 A．标准控件、对象控件和 Windows 控件 B．内部控件、ActiveX 控件和可插入的对象13C．数据库控件、Activex 控件和可插入的对象 D．内部控件、ActiveX 控件和图形控件 147．下列函数中，返回值是字符串的是_________。 A. Chr B. Str C. Val 148．下列语句的输出结果是_________。 Form1.print right(mid(&常熟理工学院&,3,4),2) A.常熟 B.理工 C.学院D. AscD.出错149．要使定时器控件可以使用，需设置的属性是_________。 A.Interval B. Enabled C. Value D. Text 150．只能由系统触发的是________事件。 A．Resize B．Dbl Click C．Timer D．Click 151．Visual Basic 6．0 的菜单除了可通过鼠标单击打开外，也可以用键盘打开，以下操作方法正 确的是________。 A．按菜单项后面括号中的字母键 B．先按 F10 或 Alt 键，然后再按菜单项后面括号中的字母键 C．Shift 键+菜单项后面括号中的字母键 D．Ctrl 键+菜单项后面括号中的字母键 152．关于窗体 Name 属性的叙述，正确的是_______。 A．窗体 Name 属性可以具有与别的对象相同的名字 B．窗体 Name 属性和变量定义一样 C．窗体 Name 属性的值最长可达 40 个字符 D．窗体 Name 属性不能具有与别的对象相同的名字 153．在一个工程中，可以有多个________。 A．资源文件 B．工程文件 C．标准模块文件 D．机器代码文件 154．以下关于菜单的说法中，错误的是 。 A．可以为菜单项选定快捷键 B．若在“标题”文本框中键入连字符（-） ，则可在菜单的两个菜单命令项之间加一条分割线 C．除了 Click 事件之外，菜单项还可以响应其他事件 D．菜单编辑器的“名称”文本框用于输入菜单项的名称 155．在一个语句行内写多条语句，语句之间应该用________分隔。 A．逗号 B．分号 C．顿号 D．冒号 156．一个应用程序________窗体。 A．只许有一个 B．可以没有 C．应该有两个 D．可包括多个 157．不能正确表示“两个整型变量 x 和 y 之一为 0，但不能同时为 0”的逻辑表达式是________。 A．x * y = 0 And x&&y B．(x = 0 Or y = 0) And x&&y C．x = 0 And y&&0 Or x&&0 And y = 0 D．x * y = 0 And (x = 0 Or y = 0) 158．用于除去字符串左侧的空格的函数是_________。 A．Rtrim( ) B．Ltrim( ) C．Lefttim( ) D．Trim( ) 159．代数表达式为 (ln 1 ? d 2 ? e 2 ) 3 ，其对应的 VB 表达式是_________。 A．Log(sqr(1 + d * d) C Exp(2)) ^ (7/3) C．(Log(sqr(1 + d * d)) C Exp(2)) ^ (7/3) 160．下列语句所声明的数组的元素个数为_________。 Dim a(3 To 6, - 2 To 2) A．20 B．16 B．Ln(sqr(1 + d * d) C e ^ 2) ^ 7/3 D．Log(sqr(1 + d * d) C e ^ 2) ^ 7/37C．24D．2514161．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是 。 A．Value B．Default Ｃ．Cancel Ｄ．Enabled 162．产生[10，40]之间的随机整数的 VB 表达式是________。 A．Int(Rnd * 30) + 10 B．Int(Rnd * 31) + 10 C．Int(Rnd * 30) + 11 D．Int(Rnd * 30) + 12 163．若 a 为长整型变量，则执行 a=12:Print Len(a);Len(Str(a));Len(CStr(a))后，在窗体上看到的 是 。 A．4 2 3 B．2 3 2 C．4 3 2 D．2 2 3 164．关于窗体，以下叙述中正确的是 。 A．仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B．一个 VB 工程只能从某个指定的窗体开始启动 C．只有窗体可以作为控件的容器 D．Unload Me 和 End 语句的效果总是等同的 165．下面表达式中，__________的值是整型(Integer 或 Long)。 ①36+4/2 ②123 +Fix(6.61) ③57+5.5\2.5 ④356 & 21 ⑤&374&+258 ⑥4.5 Mod 1.5 A．①②④⑥ B．③④⑤⑥ C．②④⑤⑥ D．③⑥ 166．以下________操作不能打开属性窗口。 A．按下 F4 键 B．单击工具栏上的“属性窗口”按钮 C．执行“视图”菜单中的“属性窗口”命令 D．双击任何一个对象 167．在 Visual Basic 执行应用程序期间，用________临时存储数值。 A．对象 B．函数 C．变量 D．过程 168．假设有一个菜单项，其名为 Menu1，为了在运行时该菜单项失效（变灰） ，应使用的语句是 _________。 A．Menu1.Visible = False B．Menu1.Visible = True C．Menu1.Enabled = False D．Menu1.Enabled = True 169．以下说法中，错误的是 。 A．使用缺省 Preserve 关键字的 ReDim 语句可以改变数组的维数和大小 B．ReDim 语句只能出现在过程中 C．使用 ReDim 语句重新定义的动态数组，只能比原数组大 D．使用 ReDim 语句可以对动态数组的所有元素进行初始化 170．在窗体 Form1 中有框架 Frame1、单选按钮 Option1 和命令按钮 Command1，若将框架的标 题设置为“主课” ，通过________语句实现。 A．Frame1．Caption=&主课& B．Option1．Caption=&主课& C．Form1．Caption=&主课& D．Command1．Caption=&主课& 171．在一个工程中，可以有多个_________。 A．资源文件 B．工程文件 C．机器代码文件 D．窗体文件 172．一只白色的足球被踢进球门，则白色、足球、踢、进球门是________。 A．属性、对象、方法、事件 B．属性、对象、事件、方法. C．对象、属性、方法、事件 D．对象、属性、事件、方法 173．窗体 Form1 的名称属性是 frm，它的 Load 事件过程名是_______。 A．Form1_Load B．frm_Load 174．VB6.0 变量名 abc#的类型是________。15C．Form_LoadD．Me_LoadA.字符串类型 B.单精度类型 C.整型 D.双精度类型 175．语句 Print Sgn(-6^ 2)+Abs(-6^2)+Int(-6^ 2)的输出结果是_________。 A．-36 B．1 C．-1 D．-72 176．下列有关过程中形式参数的描述中，错误的是 。 A．函数过程可以没有形式参数 B．事件过程一定没有形式参数 C．形参数组只能按地址与实参数组结合 D．窗体与控件也可以作为过程的参数 177．如果要求设置定时器时间间隔为 0.5 秒，那么它的 Interval 属性应该等于_________。 A．5 B．50 C．500 D．．以下程序段执行后，整型变量 n 的值为 。 y=2001 n=y \ 4 + y \ 400 C y \ 100 A．495 B．505 C．500 D．485 179．要使程序运行时文本框能输入多行数据应设置的属性是 。 A．Text B．Locked C．Hide D．MultiLine 180．可用 Print 方法在窗体中显示文本信息，若想清除这些信息，可用的方法是_________。 A. Cls B. Clear C. RemoveItem D. Delete 181．_______操作可以打开属性窗口。 A．按下 F4 键 B．单击鼠标右键 C．双击代码窗口 D．双击任何一个对象 182．以下表达式中，可以表示“A 和 B 之一大于 0”的是 。 ①A*B&=0 ②A&0 Xor B&0 ③A&0 Or B&0 ④A&0 And B&=0 Or B&0 And A&=0 A．①③ B．③④ C．②④ D．①②④ 183．下列窗体名中哪个是合法的? A．_aform B．3frm C．f_1 D．frm 4 184．要把一个命令按钮设置成无效，应设置其________属性值。 A．Visual B．Enabled C．Default D．Cancel 185．以下有关滚动条控件（ScrollBar）的说法中错误的是 。 A．只能在设计时设置 Max 与 Min 属性值 B．Value 属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的 Scroll 事件 D．拖动滚动箭头时，将触发滚动条的 Change 事件 186．设有如下语句： str1 = InputBox(&输入&, & &, &练习&) 从键盘上输入字符串&示例&后，str1 的值是________。 A．&输入& B．& & C．&练习& D．&示例& 187．以下有关文件的说法中，正确的是_________。 A．打开随机文件时，参数 Len 的值可任意设置 B．若以 Output、Append、Random 或 Binary 方式打开一个不存在的文件，系统会出错 C．在 Input 方式下，不能使用不同文件号同时打开同一个文件 D．在一个过程中，一个文件号有可能被用于打开不同的文件 （在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将 该文件关闭。在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须16在打开文件之前先关闭该文件。 ） 188．已知 X&Y，A&B，则下列表达式中，结果为 True 的是 。 A．Sgn(X-Y)+Sgn(A-B)=-1 B．Sgn(X-Y)+Sgn(A-B)=-2 C．Sgn(Y-X)+Sgn(A-B)=2 D．Sgn(Y-X)+Sgn(A-B)=0 189．VB6.0 规定，不同类型的数据占用存储空间的长度是不同的。下列各组数据类型中，满足占 用存储空间从小到大顺序排列的是_________。 A. Byte, Integer, Long, Double B. Byte, Integer, Double, Boolean C. Boolean, Byte, Integer, Double D. Boolean, Byte, Integer, Long 190．m，n 是整数，且 n&m, 在下面四个语句中，能将 x 赋值为一个 m～n 之间(含 m，n)的任意整 数，即满足 m≤x≤n 的是_________。 A. x = int(rnd*(n-m+1))+m B. x = int(rnd*n)+m C. x = int(rnd*m)+n D. x = int(rnd*(n-m)+m 191．不能脱离控件(包括窗体) 而独立存在的过程是_________。 A．事件过程 B．通用过程 C．Sub过程 D．函数过程 192．Sub过程与Function过程最根本的区别是_________。 A．Sub过程可以用Call语句或直接使用过程名调用，而Function过程不可以 B．Function过程可以有形参，Sub过程不可以 C．Sub过程不能用过程名返回值，而Function过程能通过过程名返回值 D．两种过程参数的传递方式不同 193．设 A=10，B=20,则可以实现交换变量 A,B 值的程序是_________。 A.A=10: B=20 B.A=10: B=20 C.A=10: B=20 D.A=10: B=20 B=A C=A A=B C=A A=B B=C B=A A=B A=B B=C 194．在窗体模块的通用声明处，可以使用________语句说明数组。 ①Public A(10) As Integer ②Dim A(10) As Integer ③Private A(10) As Integer ④Static A(10) As Integer A．①② B．②③ C．③④ D．①④ 195．使用 Public Const 语句声明一个全局的符号常量时，该语句应在________。 A．事件过程中 B．窗体模块的通用声明段中 C．标准模块的通用声明段中 D．通用过程中 196．下列语句中不能正确执行的是_________。 A．Print 32758 + 10 B．Print 5 + 9 =15 C．Print &65& + 12 D．Print &65& & 12 197．VB 是一种________的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象 198．下面逻辑表达式的值为 True 的是_________。 A. &A& & &a& B. &9& & &a& C. &That& & &Thank& D. 12 & 12.1 199．一个窗体名不能包含________。 A．空格和标点符号 B．小写字母 C．数字 D．下划线 200．单击如图所示的信息对话框“否(N)”按钮，执行下列程序后，输出结果为________。 Private Sub Command1_Click() C=MsgBox(&学习&，4，&VB6．0&)17Print C End Sub A．7B．4C．&学习&D．&VB6.0&201．VB 变量名 abc!的类型是________。 A．字符串类型 B．单精度类型 C．整型 D．双精度类型 202．复选框的 Value 属性为 1 表示________。 A.没有选中该复选框 B. 该复选框状态不定 C.该复选框被禁用 D. 该复选框被选中 203．假设已通过下列 Sub 语句声明了 Proc1 过程。若要调用该过程，可以采用________语句。 Sub Proc1(x As Integer) A．s=Proc1(3) B．Proc1 32765 C．Print Proc1(100) D．Call Proc1(4．双击窗体中的对象后，VB 将显示的窗口是________。 A．工具箱 B．工程窗口 C．代码窗口 D．属性窗口 205．Load 事件是在窗体被装入工作区时________触发的事件。 A．用户 B．程序员 C．手工 D．自动 206.声明一个变量为局部变量应该用________。 A．Global B．Private C．Static D．Public 207．下列有关对象的叙述中，正确的是 。 A．对象由属性、事件和方法构成 B．对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C．对象的事件一定就是由 VB 预先设置好的人工干预的动作 D．对象的方法是对象响应某个事件后所执行的一段程序代码 208.函数Cint、Int、Fix都返回数值，以下能正确地描述他们返回值的大小关系的是________。 A. Cint(-4.51) = Int(-4.51) & Fix(-4.51) B. Int(-4.51) & Cint(-4.51) & Fix(-4.51) C. Cint(-4.51) & Fix(-4.51) & Int(-4.51) D. Int(-4.51) & Fix(-4.51) = Cint(-4.51) 209.下面的属性中，用于自动调整图像框中图形大小以适应图像控件的是________。 A．Picture B．CurentY C．AutoSize D．Stretch 210．求圆的内接正多边形的面积公式为 nRsin(π /n)Rcos(π /n)，其对应的 VB6．0 算术表达式是 ________。其中 n 为大于 2 的正整数，R 为圆半径，π 为圆周率。 A．n*r*sin(3.14159／n)*r*cos(3.14159／n) B．n×R×sinπ ／n×R×cosπ ／n C．n×R×sin(4.13159／n)×R×cos(4.13159／n) D．nRsin(π ／n)Rcos(π ／n) 211．下列程序 Private Sub Command1_Click() A=InputBox(&请输入&) B=InputBox(&请输入&) Print A+B18End Sub 运行时输入 3 和 4 输出的结果是________。 A．7 B．34 C．3+4 D．出错 212．下面有关数组处理的叙述中，不正确的是________。 ①控件数组可由多个控件组成，这些控件具有相同的名字 ②控件数组中的元素可以是不同类型的控件 ③用 ReDim 语句重新定义动态数组时，不得改变该数组的数据类型 ④可用 Public 语句在窗体模块的通用说明处定义一个全局数组 A．①②③④ B．②④ C．①②③ D．①③④ 213．要使过程调用结束后返回两个结果，下面的过程语句正确的是_________。 A．Sub Proc1(ByVal n，ByVal m) B．Sub Proc1(n，ByVal m) C．Sub Proc1(n，m) D．Sub Proc1((n)，m) 214．以下有关文件的说法中，错误的是________。 A．在 Open 语句中缺省 For 子句，则按 Random 方式打开文件 B．可以用 Binary 方式打开一个顺序文件 C．在 Input 方式下，可以使用不同文件号同时打开同一个顺序文件 D．用 Binary 方式打开一个随机文件，每次读写数据的字节长度取决于随机文件的记录长度 215．默认属性是 Text 的控件是_________。 A. 文本框 B. 标签框 C. 单选框 D. 复选框216．VB 预先定义好的，对象可以执行的动作称为_________。 A.方法 B.对象 C.事件 D.属性 217．以下关于数值常量的说法中，错误的是 。 A．八进制数的表示方法是在数字前面加&O B．十六进制数的表示方法是在数字前面加&H C．在浮点数值中使用 D 来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D．32768 是合法的数值常量 218．若要将窗体加载到内存中，其实现的方法是_________。 A.show B.Unload C.Load D.Hide 219．以下所列的 8 个控件中，具有 Caption 属性的有________个。 CheckBox(复选框)、ComboBox(组合框)、HscroliBar(水平滚动条)、DirListBox(文件夹列表框)、 Image(图像框)、Frame(框架)、Label(标签)、Line(线条) A．5 B．4 C．3 D．2 220．VB 中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有________。 ①PictureBox ②Image ③TextBox ④CommandButton ⑤OptionButton ⑥Label1 A．①②③④ B．①②⑤⑥ C．①②④⑤ D．①②④⑥ 221．以下控件对象中，具有 Picture 属性的是__________。 ①PictureBox ②Frame ③OptionButton ④CommandButton ⑤ListBox ⑥CheckBox ⑦Label A．①③④⑥ B．①②⑤⑥⑦ C．①③④⑤⑥ D．①②③④⑤⑥ 222．在程序中将变量 I、T、S、D 分别定义为 Integer 类型、Boolean 类型、String 类型和 Date 类型，下列赋值语句正确的是_________。 A．D = #10/05/05# B．T = #True# C．I =&345& + &67& D．S = 5 + &abc&19223．以下选项中，不是 VB6.0 事件名称的是_________。 A.Load B.Click C.KeyPress 224．下列事件过程 Private Sub Command1_Click() MsgBox Str(123 +456) End Sub 运行时，在输出对话框中显示的提示信息是_________。D.Hscroll1A. 123+123 B. &246& C.显示出错信息 D. 579 225．以下所列表示中，不可用作 VB 合法常量的个数有________个。 ① vbCrLf ② 1# ③ π ④ &XY& ⑤ 1E-5 A．0 B．1 C．2 D．4 226．下列表达式中，运算结果与函数 Mid(s，i，i)的返回值相同的是________。 A．Left(s, i) ＆ Right(s, Len(s) - i) B．Left(Right(s, Len(s) C i+ 1), i) C．Left(Right(s, i), Len(s) C i+1) D．Left(s, Len(s)-i) ＆ Right(s, i) 227．以下表达式中，能够被正确计算的表达式有________个。 ① 4096 * 2 ^ 3 ② CInt(5.6) * 5461 + 2 ③ 6553 * 5 + 0.5 * 6 ④32768+12 A．4 B．3 C．2 D．1 228．计算下面的表达式，其值是________。 CInt(-3.5) * Fix(-3.81) + Int(-4.1) * (5 Mod 3) A．2 B．1 C．-1 D．6 229．下面关于对象作用域的说法中，正确的是________。 A．在窗体模块中定义的全局过程，在整个程序中都可以调用它 B．分配给已打开文件的文件号，仅在打开该文件的过程范围内有效 C．过程运行结束后，过程的静态变量的值仍然保留，所以静态变量作用域是整个模块 D．在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大 230．下面有关数组的说法中，________是错误的。 A．在模块中由于未使用 Option Explicit 语句，所以数组不用先定义就可以使用，只不过是 Variant 类型 B．过程定义中，形参数组可以是定长字符串类型 C．Erase 语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间 D．定义数组时，数组维界值可以不是整数 231．在下列控件中，不具有 Change 事件的控件有________个。 ① DriveListBox ② DirListBox ③ FileListBox ④ ListBox A．0 B．1 C．2 D．3 232．算术表达式e 2?x ?5 ln x ? sin 3 (2 x) sin x ? cos x 2的 VB 表达式是________。A．(e^(2*π *x-5)*log(x)+(sin(2x))^3)/sqr(abs(sin(x)-cos(x^2))) B．(exp(2*3.14159*x-5)*log(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) C．(exp(2*π *x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) D．(e^(2* 3.14159*x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2))) 233．创建一个名为“文件”的菜单项，欲使其可用 Alt+F 方式访问，则在菜单编辑器的标题文本 框中应输入________。 A．文件($F) B．文件(&F) C．文件(#F) D．文件(%F)20234．数学表达式 Sin27 ??x ? e3 的 VB 算术表达式为________。 x? yA．Sin(27)+Sqr(x+Exp3)/(x+y) B．Sin(27*3.)+Sqr(x+Exp(3))/Abs(x+y) C．Sin(27*3.)+Sqr(x+e^3)/Abs(x+y) D．Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 235．以下说法不正确的是________。 A．使用不带关键字 Preserve 的 ReDim 语句可以重新定义数组的维数 B．使用不带关键字 Preserve 的 ReDim 语句可以改变数组各维的上、下界 C．使用不带关键字 Preserve 的 ReDim 语句可以改变数组的数据类型 D．使用不带关键字 Preserve 的 ReDim 语句可以对数组中的所有元素进行初始化 236．下列________是合法的变量名。 A．abs B．-a1 C．cdc d D．Abc_10 237．要向文件 data1.txt 添加数据，正确的文件打开命令是________。 A．Open &data1.txt& For Output As #1 B．Open &data1.txt& For Input As #1 C．Open &data1.txt& For Append As #5 D．Open &data1.txt& For Write As #5 238．以下对数组参数的说明中，错误的是________。 A．在过程中可以用 Dim 语句对形参数组进行声明 B．形参数组只能按地址传递 C．实参为动态数组时，可用 Redim 语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程 239．设 a=3，b=2，c=1，运行 print a&b&c 的结果是________。 A．True B．False C．1 D．出错 240．下列选项中，所包含的所有表达式能够将两位整数 X 的个位数与十位数对调（例如将 78 转 换为 87）的是________。 ① Val(Right(X, 1) & Left(X, 1)) ② Val(Right(Str(X), 1) & Left(Str(X), 1)) ③ Val(Right(CStr(X), 1) & Left(CStr(X), 1)) ④ Val(Mid(X, 2, 1) + Mid(X, 1, 1)) A．①② B．②③ C．②④ D．①③④ 241．下列________是正确的 VB 常量。 A．D-6 B．E-6 C．5D D．5E-6 242．下列项目中，属性、方法、事件的个数分别有________个。 ①Caption ②Unload ③Cls ④SetFocus ⑤LostFocus ⑥KeyPress A．2 2 2 B．1 2 3 C．3 2 1 D．2 3 1 243．执行下列语句时，会出现出错提示的是________。 A．Print 256 * 256 B．Print &256& ＆ 256 C．Print &256& + 256 D．Print 256 = 127 * 2 244．表达式 Val(&ab789&)的值为________。 A．1234.67 B．1.23467 C． D．表达式出错 245．以下有关对象属性的说法中，错误的是________。 A．对象的 Name(名称)属性在程序代码中，作为对象的标识名 B．只能在运行时设置或改变的属性不会出现在属性窗口中21C．Visible 属性值设为 True 的对象肯定是活动对象 D．某些属性具有若干子属性，例如 Font 属性 246．以下有关变量说明的叙述中，错误的是________。 A．工程中没有说明类型的变量都是不能使用的、不合法的 B．Dim 语句既可用于说明变量的类型，也可以说明数组的类型 C．Static 语句用于在过程中说明静态变量 D．Private 语句只能用于说明模块级变量 247．数学式e x ? sin 3 x x? y所对应的正确 VB 算术表达式是________。A．Abs(e^ x + Sinx^3／Sqr (x + y)) B．Abs((e^x + Sinx^3)／Sqr(x + y)) C．Abs((Exp(x) + Sin x^3)／Sqr(x + y)) D．Abs((Exp(x) + Sin(x)^3)／Sqr(x + y)) 248．变量 S 为字符型，若在文本框 Text1、Text2 中分别输入数字 23 与 35 后，再执行以下语句， S 的值为“58”的是________。 A．S = Text1.Text ＆ Text2.Text B．S = Text1.Text + Text2.Text C．S = Val(Text1.Text) + Text2.Text D．S = Val(Text1.Text) ＆ Text2.Text 249．以下有关数组的说法中，正确的是________。 A．数组是有序变量的集合，序列中的变量类型可以不同 B．数组下标用以确定数组元素在数组中的位置，下标取值只能是 0 或 1 C．在一定条件下动态数组可以反复改变其维数与大小 D．固定大小数组也可使用 ReDim 语句改变其大小 250．以下有关过程的说法中，错误的是________。 A．在 Sub 或 Function 过程中不能再定义其他 Sub 或 Function 过程 B．调用过程时，形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组 C．过程的形式参数不能再在过程中用 Dim 语句进行说明 D．使用 ByRef 说明的形式参数在形实结合时，总是按地址传递方式进行结合的 251．以下有关图片框 PictureBox 用法的叙述，错误的是________。 A．图片框可用作其他控件的容器 B．图片框可以显示不同种类与格式的图形或图像文件 C．用户可以从其他绘图软件中把一幅图形或图片剪切／复制，再粘贴到图片框中 D．不需任何设置，图片框就能自动适应加载图片的大小 252．窗体上放置了三个文本框，若在 Text1 中输入 456，在 Text2 中输入 78，在程序中执行语句 Text3=Text1 + Text2 后，则在 Text3 中显示________。 A．434 B．45678 C．溢出 D．语法错误 253．如果窗体上有命令按钮“确定” ，在代码编辑窗口有与之相对应的 OK_Click()事件过程，则 命令按钮控件的名称属性和 Caption 属性分别为________。 A． “OK”和“确定” B． “确定” 和 C． “Command1” 和“确定” D． “Command1” 和“OK” 254．下面定义 Sub 子过程的各个语句中，正确的语句是________。 ① Private Sub Sub1(A( ) As String)22② Private Sub Sub1(A(1 To 10 ) As String*8) ③ Private Sub Sub1(S As String) ④ Private Sub Sub1(S As String*8) A．①②③④ B．①②③ C．①③④ D．①③ 255．执行赋值语句________后，会触发相应控件的 Change 事件（控件名均为缺省名） 。 A．Dir1.ListIndex = -2 B．Drive1.ListIndex = 2 C．Lise1.ListIndex = 3 D．File1.ListIndex = 3 256．假设变量 BOOL 是一个布尔型变量，则下列中，正确的是________。 A．BOOL = ?True? B．BOOL = .TRUE. C．BOOL = #TRUE# D．BOOL = True 257．表达式 6.5 * 5 Mod 28 \ 8 的值是________。 A．0 B．1 C．2 D．3 258．下面有关数组的说法中，错误的是________。 A．数组必须先定义后使用 B． 数组形参可以是定长字符串类型 C． Erase 语句的作用是对已定义数组的值重新初始化 D．定义数组时，数组维界值可以不是整数 259．可以把变长字符串 S 中的第一个“ABC”子串，替换成“1234”的语句是________。 A．S = Left(S, InStr(S, &ABC&)) & &1234& & Right(S, Len(S) C Instr(S, &ABC&) C 2) B．Mid(S, InStr(S, &ABC&), 3) = &1234& C．Mid(S, InStr(S, &ABC&), 4) = &1234& D．S = Left(S, InStr(S, &ABC&) - 1) & &1234& & Right(S, Len(S) C Instr(S, &ABC&) C 2) 注意：Mid(字符串，m[，n])=子字符串 该语句用“子字符串”替换“字符串”中从m开始的与“子字符串”等长的一串字符。若使用 参数n， “子字符串” 则用 左起n个字符来替换 “字符串” 中从m开始的n个字符。 例如， 假设S=&ABCDE&， 执行语句Mid(S，3)= &99& 后，s的值为&AB99E&。 260．以下关于子过程或函数的定义中，正确的是 。 A．Sub f1(n As String*1) B．Sub f1(n As Integer)As Integer C．Function f1(f1 As Integer)As Integer D．Function f1(ByVal n As Integer) 261．执行下面语句后，Len 函数值最大的是________。 Dim IA As Integer, B As Single, S As String*5, Ch As String IA=32767:B=23.5:S=&A&:Ch=&abcd& A．Len(IA) B．Len(B) C．Len(S) D．Len(ch) 262．假设变量 Lng 为长整型变量，下面不能正常执行的语句是________。 A．Lng=16384*2 B．Lng=4*0.5*16384 C．Lng=190^2 D．Lng=3．设 Mys1，Mys2 均为字符串型变量，Mys1=&Visual Basic&，Mys2=&b&，则下面关系表达式中 结果为 True 的是________。 A．Len(Mys1)&&2* InStr(Mys1, &1&) B．Mid(Mys1, 8, 1)&Mys2 C．Chr(98) ＆ Right(Mys1, 4) = &Basic& D．InStr(Left(Mys1, 6), &a&)+60&Asc(UCase(Mys2)) 264．设 A=7，B=4，C=6，则表达式 A Mod 3 + B ^ 3 / C \ 5 的值为________。 A．1 B．2 C．3 D．出错23265．下列定义 Sub 过程的语句中，正确的是________。 A．Private Sub Sub1(A()) B．Private Sub Sub1(A As String*5) C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer) 266．程序中有两个过程 Private Sub Fun1(S As String)和 Private Sub Fun2(a() As String* 6)，在调用 过程中用 Dim St(6) As String*6 定义了一个字符串数组。下面调用语句中正确的是________。 ①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(st(6)) A．①② B．①③ C．②③ D．②④ 267．DrawStyle 属性用于设置图形方法输出的线型，它受________属性的限制。 A．FillStyle B．FillColor C．BorderStyle D．DrawWidth 268．Print 方法可在 上输出数据。 ①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A．①③⑥ B．②③⑤ C．①②⑤ D．⑧④⑥ 269．数学表达式x 5 ? cos 29 0 (e x ? ln y ) ? 5对应的 VB 表达式是。A．(x^5-Cos(29))／Sqr(e^x+ln(y))+5 B．(x^5-Cos(29))／(Sqr(Exp(x)+Log(y))+5) C．(x^5-Cos(29*3.1))／(Sqr(Exp(x)+Log(y))+5) D．(x^5-Cos(29*3.1))／(Sqr(e^x+Log(y))+5) 270．以下有关数组参数的说明中，正确的是 。 A．在过程中也可用 Dim 语句对形参数组进行说明 B．动态数组作为实参时，可用 ReDim 语句在过程中改变对应形参数组的维界 C．调用过程时，数组名不能作为实参 D．数组可以按地址传递也可以按值传递 271． 窗体上有若干命令按钮和一个文本框， 程序运行时焦点置于文本框中， 为了在按下回车键时 执行某个命令按钮的 Click 事件过程，需要将该按钮的________属性设置为 True。 A．Enabled B．Default C．Cancle D．Visible 272．执行以下语句时，会出现错误提示的是________。 A．Print &2b3& + 12.5 B．Print &12.5& + 12 C．Print &12.5& & 12.5 D．Print &2e3& + 12 273．数学表达式e x ? sin 3 30 ? x? y对应的 VB 表达式是_______。A．Abs(e^x+Sin(30)/Sqr(x+y) B．Abs(Exp(x)+Sin(30)^3)/Sqr(x+y) C．Abs(e^x+Sin(30*3.)^3/Sqr(x+y) D．Abs((Exp(x)+Sin(30*3.)^3/Sqr(x+y)) 274．以下的 4 个表达式中，有________个能够对 Single 类型变量 x（正数）的第 3 位小数正确地 进行四舍五入计算。 Format(x, &#.00&) Int(100 * (x + 0.005)) / 100 CInt(100 * (x + 0.005)) / 100 Fix(100 * (x + 0.005)) / 100 A．1 个 B．2 个 C．3 个 D．4 个24275．下面有关数组处理的叙述中，正确的是________。 A．在过程中使用 ReDim 语句可以改变动态数组的数据类型 B．在过程中，可以使用 Dim、Private 和 Static 语句来定义数组 C．用 ReDim 语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D．不可以用 Public 语句在窗体模块的通用处说明一个全局数组 276．下列关于菜单的说法中，错误的是________。 A．每一个菜单项就是一个对象，并且可设置自己的属性和事件 B．菜单项不可以响应 DblClick 事件 C．VB6.0 允许创建超过四级的子菜单 D．程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的 Enabled 属性 为 False 277．以下关于 Function 过程的说法中，错误的是________。 A．Function 过程名可以有一个或多个返回值 B．在 Function 过程内部不得再定义 Function 过程 C．Function 过程中可以包含多个 Exit Function 语句 D．可以像调用 Sub 过程一样调用 Function 过程 278．以下 Case 语句含有错误的是________。 A．Case 0 To 10 B．Case Is & 10 C．Case Is & 10 And Is & 50 D．Case 3,5,Is & 10 279．下面的表达式中，运算结果为 True 的是________。 A．&abcrd& &= &ABCRD& B．Int(134.69) &= Cint(134.69) C．3 & 2 & 1 D．Mid(&Visual&,1,4) = Right(&lausiV&,4) 280．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其________属性置为 True， 再将 ScrollBar 属性设置为 3。 A．MultiLine B．AutoSize C．Alignment D．RightToLeft 281．二、填空题１． 根据下图写出 InputBox 函数中的参数。InputBox( （1） , （2） , （3） ) ２． 执行下面的程序，在窗体上显示的输出结果的第一行是 （４） ，第二行是 （５） 。 Option explicit Private sub form_click() Dim I as integer, j as integer J=10 For I=1 to j25I = I+1 J=j-i Next I Print I Print j End Sub ３． 执行下面的程序，在窗体上显示的输出结果的第一行是 （６） ，第三行是 （７） 。 Private sub form_click() Dim a as integer Dim I as integer A=2 For I=1 to 9 Call sub1(I, a) Print I,a Next I End Sub Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step C1 N=n+x X=x+1 Next I Y=y+n End sub ４． 执行下面的程序后，A(1,3)值是（８） ，A(2,2)值是 （９） ，A(3,1)值是（１０） 。 Option explicit Private sub form_click() Dim A(3,3) As integer, I as integer Dim j as integer, k as integer, n as integer For k=1 to 5 If k&=3 then For I=1 to k N=n+1 A(I,k-I+1)=n Next I Else For I=1 to 6-k N=n+1 A(k-3+I,4-I)=n Next I End if Next k For k=1 to 326For I=1 to 3 Print A(k,I); Next I Print Next k End Sub ５． 执行下面的程序，在窗体上显示的输出结果的第一行是（11） ，第二行是 （12） 。 Option explicit Private Sub form_click() Dim I as integer, j as integer I=1:j=2 Call test(I, j) Print I, j Call test(I, j) Print I, j End Sub Private sub test(m as integer, n as integer) Static sta as integer M=m+n N = n + m + sta Sta = sta + m End Sub ６．下面程序的功能是：统计文本框 Text1 中共有多少个英文单词，约定连续出现的英文字母定 义为一个单词。 Option Explicit Private Sub form_click() Dim char() as string, st as string, tem as string Dim idx as integer, js as long, flen as long Dim f as Boolean, w as string*1 st=Text1.Text flen= （13） js=1 do while js&=flen w=mid(st,js,1) if （14） then tem = tem + w f=true elseif f=true then idx = idx+1 ReDim preserve char(idx) char(idx)=tem tem= （15） f=false end if27（16） loop print &共有&; &个单词& for js=1 to idx print char(js) next js End Sub ７． 下面程序的功能是： 当循环次数一定时， 统计生成互不相同的 1~100 之间的随机整数的个数。 Option explicit Option base 1 Private Sub form_click() Dim data() as integer, i as integer, idx as integer Dim n as integer, temp as integer, flg as Boolean N=inputbox(&输入循环次数&) ReDim data(1) Idx=1 Data(1)=int(100*rnd(1))+1 For I=1 to n Temp=int(100*rnd(1))+1 （17） call compare(data, temp, flg) if flg = true then idx = idx+1 （18） data(idx) = temp end if next I print &生成&; &个不相同的整数& for I=1 to idx print data(i); if I mod 10 =0 then print next I End Sub Private Sub compare(arry() as integer, k as integer, logic as Boolean) Dim ub as integer, I as integer （19） for I=1 to ub if arry(i)=k then （20） end if next I logic=true End Sub ８．下面程序的功能是：验证回文数猜想。任取一自然数，将其倒过来，并将这两个数相加，然28后把这个和数倒过来，与原来的和数相加??重复这个过程有限次，必将得到一个回文数。所谓 回文数是指左右数字完全对称的自然数，例如，121，1，111 均是回文数。根据猜想， 假如取一自然数 68→68+86=154→154+451=605→605+506=1111，经过三步运算就可得到回文数 1111。 Option Explicit Private Sub Form_Click() Dim S As Long，D As Long，Sum As Long Dim Flg As Boolean S=InputBox(&输入一个正整数&) Do D=Fun(S) Sum=S+D Print Sum；&=&；S；&+&；D Call Comp(Sum，Flg) S= （21） Loop Until Flg Print Sum；&是回文数& End Sub Private Function Fun(N As Long)As Long Dim Char As String，J As Long Dim I As Integer，Slen As Integer Char=Ltrim(Str(N)) （22） J=l For I=1 To Slen Fun=Fun+Val(Mid(Char，I，1))*J （23） next I End Function Private Sub comp(n as long,f as boolean) dim ch as string,s as integer, I as integer s=Len(Ltrim(str(n))) f=false ch=Ltrim(str(n)) for I=1 to （24） if mid(ch,I,1)&& mid(ch,s+1-I,1) then exit sub next I （25）29End Sub 26.根据图中给出的窗体，填写下表中的相关内容， “x”表示该对象无此属性。 对象 窗体 标签 文本框 命令按钮 名称(Name) Form1 Label1 Text1 Command1 标题(Caption) (26) ( 27) X 验证 口令字符(Passwordchar) X X ( 28) X27．执行下面的程序，在窗体上显示的输出结果的第一行是 （29） ，第二行是 （30） 。 Option Explicit Private Sub Form_Click() Dim M As Integer, N As Integer, K As Integer N=-3 For M=6 To 1 Step N M=M+1 N=N-M K=K+1 Next M Print K Print N End Sub 28．执行下面的程序，在窗体上显示的输出结果的第一行是 （31） ，第三行是 （32） 。 Private Sub Form_Click() Dim N As Integer, I As Integer N=3 For I=9 To 1 Step -1 Call Sub2(I, N) Print I, N Next I End Sub Private Sub Sub2(x As Integer, Y As Integer) Static N As Integer Dim I As Integer30For I=3 To 1 Step -1 N=N+X X=X - 1 Next I Y=Y+N End Sub 29． 执行下面的程序后， A(1， 3)的值是 （33） ， A(2， 2)的值是 （34） ， A(3， 1)的值是 （35） 。 Option Explicit Private Sub Form_Click() Dim A(3, 3)As Integer, I AS Integer Dim J As Integer, K AS Integer, N AS Integer N=9 For K=5 To 1 Step -1 If K&=3 Then For I=1 To 6-K A(K-3+I, I)=N N=N-1 Next I Else For I=1 To K A(K-I+1, 3-I+1)=N N=N-1 Next I End If Next K For K=1 To 3 For I=1 To 3 Print A(K, I); Next I Print Next K End Sub 30．执行下面的程序，在窗体上显示的输出结果的第一行是 （36） 。第二行是 （37） 。 Option Explicit Private Sub Form_Click() Dim A As Integer A=3 Call Sub1(A) End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X&10 then Call Sub1(X) End If31X=X*2+1 Print X End Sub 31．本程序用于验证任何一个大于 6 的偶数均可表示为两个素数之和。例如，14=3+1 l、14=7+7。 待验证的偶数从文本框 TxtInput 输入，所有满足上述条件的素数对都显示在窗体上。 Option Explicit Private Sub Form_Click() Dim N As Integer，I As Integer，J As Integer N= （38） For I=3 To N-2 Step 2 If （39） Then If N-I&=I And Prime(N-I) Then Print N; &=&; I ; &+& ; N-I End If End If Next I End Sub Private Function Prime(N As Integer)As Boolean Dim I As Integer, J As Integer, Flg As Boolean Prime=False For I=2 To Sqr(N) If N Mod I=0 Then （40） Next I If （41） Then Prime=True End Function 32．下面的程序是把给定的十六进制正整数转换为十进制数。 提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。 (an an-1?a1)16=an×16n-1+an-1×16n-2+?+a1×160 Option Explicit Private Sub Form_Click() Dim St As String, Dem As Long St=InputBox(&输入一个十六进制数&) Dem=Convert(St) Print St; &=&&; Dem End Sub Private Function Convert(S As String)As Long Dim N As Integer, I As Integer, Substring As String*l Dim P As Long, K As Long, Asc1 As Integer N= （42） P=16^N For I=1 To N P=P／16 Substring= （43） Select Case Substring32Case &0& to &9& K=K+P*Val(Substring) Case （44） Asc1=Asc(Substring)-Asc(&A&)+10 （45） End Select Next I （46） End Function 33．执行下面的程序，单击窗体后在窗体上显示的结果是 （47） 。 Private Sub Form_Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=&e& For I=1 To 2 Str2=UCase(Str1) Str1=Str2 & Str1 Str3=Str3 & Str1 Str1=Chr(Asc(Str1)+I) Next I Print Str3 End Sub 34. 下面的程序是采用“冒泡排序”法从键盘上输入 10 个整数，将 10 个数从小到大排序。 Private Sub Command1_Click() Dim a(1 To 10) As Integer msg = &输入数：& msgtitle = &冒泡排序& For i = 1 To 10 a(i) = （48） Next i For i = 10 To 2 Step - 1 For j = 1 To （49） If （50） Then t = a(j+1): a(j+1) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 35．执行下面的程序，在窗体上显示的输出结果的第一行是 （51） ，第二行是 （52） 。 Option Explicit Private Sub Form_Click()33Dim s As String, i As Integer, flag As Boolean s=&THIS IS A BOOK.& S=LCase(s) Print s Flag=True For I=1 to Len(s) If Mid(s, i, 1)= & & Then flag=True ElseIf flag Then S=Left(s, I-1) & UCase(Mid(s, i, 1)) ＆ Right(s, len(s)-i) Flag=False End If Next i Print S End Sub 36．执行下面的程序，在窗体上显示的输出结果的第一行是 （53） ，第二行是 （54） ，第 三行是 （55） 。 Option Explicit Dim a As Integer, b As Integer Private Sub Form_Click() Dim c As Integer a=1 b=3 c=5 Print fun(c) Print a, b, C Print fun(c) End Sub Private Function fun(x As Integer) As Single fun=a+b+x／2 a=a+b b=a+x x=b+a End Function 37．执行下面的程序，在窗体上显示的输出结果的第一行是 （56） ，第二行是 （57） 。 Option Explicit Private Sub Form_Click() Dim M As Integer, N As Integer M=1:N=2 Print M+N+Fun1(M, N) M=2：N=1 Print Fun1(M, N)+Fun1(M, N) End Sub Private Function Fun1(X As Integer, Y As Integer)34X=X+Y Y=X+3 Fun1=X+Y End Function 38．执行下面的程序，在窗体上显示的输出结果的第一行是 （58） ，第二行是 （59） ，第 四行是 （60） 。 Option Explicit Private Sub Form_Click() Dim a(2, 2) As Integer, i As Integer, J As Integer Dim k As Integer For i=1 To 2 For j=1 To 2 a(i, j)=(I-1)*2+J Print a(i, j); Next j Print Next i Print k=(I-1)*2 For i=1 To 2 For j=1 To 2 a(i, J)=k k=k- 1 Print a(i, j); Next j Print Next i End Sub 39．执行下面的程序，在窗体上显示的输出结果的第一行是 （61） ，第三行是 （62） ， Form_Click()事件过程中的第二个 For-Next 循环共执行了 （63） 次。 Option Explicit Option Base 1 Private Sub Form_Click() Dim a(5) As Integer, i As Integer, J As Integer For i=1 To 5 a(i)=2*I-1 Print a(i); Next i Print For j=1 To I-2 Call sub1(a(j), j) Print j Next j End Sub35Public Sub sub1(X As Integer, P As Integer) If x-P&=2 Then P=P+1 Else P=P+2 End If End Sub 40．下面程序的功能是：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇 数各自的总和。 Option Explicit Private Sub Form_Click() Dim X As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize For i=1 To l0 X=Int(Rnd*90)+10 Print X; If （64） then n2=n2+l s2=s2+X Else （65） S1=s1+X End If Next i Print Print &奇数个数=& ; n1, &偶数个数=& ; n2 End Sub 41．下面程序的功能是：单击命令按钮 Command1，找出 100 以内的所有约数之和为一个完全平 方数的正整数，并按下图中所示的格式将结果显示在图形框 Picture1 中。Option Explicit Private Sub Command1_Click() Dim i As Integer, J As Integer36Dim F() As Integer, sum As Integer For i=3 To 100 （66） If Fac(i, F, sum) Then Picture1.P &：&; For J=1 To UBound(F)-1 Picture1. Print F(J); &+&; Next J Picture1. Print F(J); &=& ; &=& ; Sqr(sum); &^2& End If Next i End Sub Private Function Fac(ByVal K As Integer, A() As Integer, sum As Integer) As Boolean Dim N As Integer, J As Integer For N=1 To K If （67） then J=J+1 （68） A(J)=N Sum=sum + N End If Next N If Sum= （69） Then Fac=True End Function 42．下面程序执行后，输出的第一行是 （70） ，第二行是 （71） ，第三行是 （72） 。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 15 Print &a=&; a, &b=&; b Call test(a, b) Print &a=&; a, &b=&; b End Sub Private Sub test(ByVal x As Integer, ByVal y As Integer) x = x + 15 y = y + 10 Print &x=&; x, &y=&; y End Sub 43．下面程序执行后，输出的第一行是 （73） ，第二行是 （74） ，第三行是 （75） 。 Option Explicit Private Sub proc() Static s As Integer, k As Integer Dim i As Integer For i = 1 To 10 Step 2 s=s+i37Next i k=k+1 Print &这是第&; &次调用&, &s=&; s End Sub Private Sub Form_Click() Dim i As Integer For i = 1 To 3 Call proc Next i End Sub 44．运行下面的程序，单击窗体后在窗体上显示的内容是 （76） ；若将程序中的 A 语句与 B 语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是 （77） 。 Option Explicit Private Sub Form_Click() Dim Sum As Integer, i As Integer For i=7 To 4 Step -1 Select Case i Case 4，7 Sum=Sum + i ’A 语句 Case 3, 5 Sum=Sum+2 ’B 语句 Case Else Sum=Sum+1 End Select Next i Print &Sum=&;Sum End Sub 45．运行下面的程序，单击命令按钮 Command1 后，文本框 Text1 中的内容是 （78） ，文本框 Text2 中的内容是 （79） [函数 InStr(Start，String1，String2)中 Start 参数表示每次搜索起点]。 Option Explicit Private Sub Command1_Click() Dim Path As String, Search As String Dim Fp As String, Fn As String Path= &C:\Microsoft\VB6.exe& Call Search_Path(Path, Fp, Fn) Text1.Text=Fp Text2.Text=Fn End Sub Priva}