vb试题及参考答案
阳光网【VB程序设计试题】 编辑：admin
　　vb程序设计的试卷题目你知道有哪些吗?要怎样写出正确的答案呢?下面是小编整理的vb试题及其参考答案，欢迎阅读!
　　vb试题及其参考答案
　　1.在代码中引用一个控件时，应使用控件的( b )属性。
　　A.Caption B.Name C.Text D.Index
　　2.设变量x = 4，y = -1，a = 7，b = -8,下面表达式( a )的值为&假&。
　　A.x+a &= b-y B. x & 0 AND y & 0
　　C.a = b OR x&y D. x+y & a+b AND NOT (y & b)
　　3.表达式Int(Rnd*71)+10产生的随机整数范围是( c )。
　　A.(10，80) B.(10，81) C.[10，80] D.[10，81]
　　4.函数Sgn(3.1416)的返回值是( c )。
　　A.-1 B.0 C.1 D.以上都不对
　　5.67890属于( d )类型数据。
　　A.整型 B.单精度浮点数 C.货币型 D.长整型
　　6.下列变量名中正确的是( d )。
　　A.3S B.Print C.Select My Name D.Select_1
　　7.下列赋值语句( a )是有效的。
　　A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0
　　8.以下的控件或方法具有输入和输出双重功能的为( b )。
　　A.Print B.Textbox C.Optionbutton D.Checkbox
　　9.若要获得列表框中被选中的列表项的内容，可以通过访问( d )属性来实现。
　　A.Name B.ListIndex C.ListCount D.Text
　　10.下列代码的运行结果为( b )。
　　Private Sub command1_click()
　　Dim m(10)
　　For k = 1 To 10
　　m(k) = 11 - k
　　Next k
　　Print m(2 + m(x))
　　End Sub
　　A.2 B.3 C.4 D.5
　　标准控件不包括( )控件。
　　(A) 驱动器列表框 (B) 目录列表框
　　(C) 文件列表框 (D) 通用对话框
　　(答案：D)
　　30102. 当一个工程含有多个窗体时，它的启动窗体是( )。
　　(A) 正在编辑的窗体 (B) 最后一个添加的窗体
　　(C) 第一个添加的窗体 (D) 在&工程属性&对话框中指定的窗体
　　(答案：D)
　　30103. VB应用程序在( )模式下不能编辑代码和设计界面。
　　(A) 运行 (B) 中断 (C) 设计 (D) 以上均不能
　　(答案：A)
　　30104. 下列叙述错误的是( )。
　　(A) VB应用程序没有明显的开始和结束语句
　　(B) VB控件的所有属性值均可在属性窗口中设置
　　(C) VB是事件驱动型可视化编程工具
　　(D) VB通过&工具&菜单的&选项&设置代码编辑窗口的字体大小
　　(答案：B)
　　30105. 标准模块文件的扩展名是( )。
　　(A) .cls (B) .frm (C) .bas (D) .rec
　　(答案：C)
　　30106. 下列叙述错误是( )。
　　(A) 打开一个工程文件，系统自动装入与该工程有关砠 ??文件
　　(B) 保存VB程序时，应分别保存窗体和工程文件
　　(C) 事件可以由用户触发，也可以由系统触发
　　(D) VB应用程序只能以解释方式执行
　　(答案：D)
　　30107. 在设计阶段，双击窗体上的某个控件，可以打开( )。
　　(A) 代码窗口 (B) 属性窗口 (C) 工具箱窗口 (D) 工程资源管理器窗口
　　(答案：A)
　　30108. 下列叙述错误的是( )。
　　(A) VB是可视化程序设计语言 (B) VB采用事件驱动编程机制
　　(C) VB是面向过程的程序设计语言 (D) VB应用程序可以以编译方式执行
　　(答案：C)
　　30109. 下列叙述正确的是( )。
　　(A) VB的事件由用户定义 (B) VB程序以顺序方式执行
　　(C) VB程序从Main()函数开始执行 (D) VB运行时，总是等待事件的发生
　　(答案：D)
　　30201. 下列为整型变量的是( )。
　　(A) x! (B) x# (C) x% (D) x$
　　(答案：C)
　　30202. 设有语句组：
　　Dim S1 As String*5
　　S1 = &VB Test&
　　则S1的值为( )。
　　(A) VB Test
　　(B) VB Te
　　(C) VBTes
　　(D) BTest
　　(答桠 ?：B)
　　30203. 下列( )是合法的变量名。
　　(A) x_y
　　(B) x-y
　　(C) 2x
　　(D) and
　　(答案：A)
　　30204. 下列( )为单精度变量。
　　(A) x!
　　(B) x#
　　(C) x%
　　(D) x$
　　(答案：A)
　　30205. 由( )关键字声明的局部变量在整个程序运行时一直存在。
　　(A) Dim
　　(B) Public
　　(C) Static
　　(D) Private
　　(答案：C)
　　30206. 定义变量时如不指定类型，该变量为( )变量。
　　(A) Integer
　　(B) String
　　(C) Variant
　　(D) Single
　　(答案：C)
　　30207. 用户自定义数据类型的成员不能是( )。
　　(A) 数组
　　(B) 日期型
　　(C) 货币型
　　(D) 定长字符串
　　(答案：A)
　　30208. 下列( )是合法的变量名。
　　(A) x%y
　　(B) xy%
　　(C) 2x
　　(D) Or
　　(答案：B)
　　30209. 日期常量用( )作为界定符。
　　(答案：C)
　　30301. 表达式4 + 6 \ 5 * 7 / 9 Mod 3的值是( )。
　　(答案：B)
　　30302. 下列逻辑表达式为True的是( )。
　　(A) &A&&&9&
　　(B) &A&&&a&
　　(C) &a&&&AT&
　　(D) &AT&&&AND&
　　(答案：C)
　　30303. 下列运算符中，优堠 ??级最高的是( )。
　　(A) Like
　　(B) Mod
　　(C) Not
　　(D) Eqv
　　(答案：B)
　　30304. 设a=6，b=5，c=-2;执行语句Print a & b & c后，窗体上显示的是( )。
　　(B) True
　　(C) False
　　(D) 出错信息
　　(答案：B)
　　30305. 下列表达式中，值最大的是( )。
　　(A) 2 \ 3
　　(B) 2 / 3
　　(C) 2 mod 3
　　(D) 3 mod 2
　　(答案：C)
　　30306. 下列运算符中，优先级最低的是( )。
　　(答案：D)
　　30307. 表达式 2 = 3 & 1 的是( )。
　　(C) True
　　(D) False
　　(答案：C)
　　30308. x大于0且小于10的VB表达式是( )。
　　(A) 0 & x & 10
　　(B) x & 0 And x & 10
　　(C) x & 0 Or x & 10
　　(D) x & 0 : x & 10
　　(答案：B)
　　30309. 判断整型变量x是奇数的表达式是( )。
　　(A) x Mod 2 && 0
　　(B) x Mod 2 != 0
　　(C) x Mod 2 & 0
　　(D) x Mod 2 = 0
　　(答案：A)
　　30401. 返回值为数值的函数是( )。
　　(A) Mid
　　(B) Instr
　　(C) Left
　　(D) Rtrim
　　(答案：B)
　　30402. 表达式Len(&幸运52&)的值是( )。
　　(答案：B)
　　30403. 以下( )语句可表示[50,100]之间的随机数。
　　(A) Int(Rnd * 51) + 49
　　(B) Int(Rnd * 51 +50)
　　(C) Int(Rnd * 50) + 50
　　(D) Int(Rnd * 50 + 50)
　　(答案：B)
　　30404. 返回值为字符串的函数是( )。
　　(A) Str
　　(B) Val
　　(C) Len
　　(D) Asc
　　(答案：A)
　　30405. 当x=0时，函数IIf(x & 0, 1, IIf(x & 0, -1, 0))的返回值是( )。
　　(C) -1
　　(D) 出错
　　(答案：A)
　　30406. 表达式Fix(5.6) + Int(-5.6)的值是( )。
　　(B) -1
　　(D) 以上都不对
　　(答案：B)
　　30407. 如果Sgn(x)的值为-1，整型变量x的值是( )。
　　(B) 整数
　　(C) 正整数
　　(D) 负整数
　　(答案：D)
　　30408. 表达式InStr(2, &文本文件&, &文&)的值是( )。
　　(答案：C)
　　30409. 除去字符串左侧空格的函数是( )。
　　(A) Left()
　　(B) Trim()
　　(C) Ltrim()
　　(D) LeftTrim()
　　(答案：C)
　　30501. VB表达式Format(Val(&111a&), &##.##&)的值是( )。
　　(A) 11.1a
　　(B) 11.10
　　(C) 111.
　　(D) 111.00
　　(答案：C)
　　30502. 下列语句不合法的是( )。
　　(A) x = 1 : y=2
　　(C) ? x , y ,
　　(D) x = 1; y = 2
　　(答案：D)
　　30503. 如果VB语句超过一行，可以使用空格加( )续行。
　　(答案：D)
　　30504. 正确使用Cls方法的是( )。
　　(A) Text1.Cls
　　(B) Picture1.Cls
　　(C) List1.Cls
　　(D) Image1.Cls
　　(答案：B)
　　30505. 下列语句合法的是( )。
　　(A) x + y = 2
　　(B) x & 2 = y
　　(C) x = y & 2
　　(D) x = y++
　　(答案：C)
　　30506. 错误使用Print方法的是( )。
　　(A) Picture1.Print
　　(B) Form1.Print
　　(C) Debug.Print
　　(D) Text1.Print
　　(答案：D)
　　30507. Print方法分区输出时，用( )分隔多个表达式。
　　(A) 空格
　　(B) 逗号
　　(C) 冒号
　　(D) 分号
　　(答案：B)
　　30508. Print &10+6=&; 10+6的输出结果是( )。
　　(A) 16=10+6
　　(B) 10+6=10+6
　　(C) 10+6=16
　　(D) &10+6=&10+6
　　(答案：C)
　　30509. 下列叙述错误的是( )。
　　(A) 不允许使用行号与标号
　　(B) 单条语句可分行书写
　　(C) 同一行上可以书写多条语句
　　(D) VB代码不堠 ??分字母的大小写
　　(答案：A)
　　30601. 执行x = InputBox(&请输入半径&,0,&求面积&) ，在输入框中输入3后回车,则下列叙述正确的是( )。
　　(A) x的值是数值3
　　(B) x的值是字符&3&
　　(C) 0是默认值
　　(D) 对话框标题是&求面积&
　　(答案：B)
猜你喜欢：
[vb试题及参考答案]相关的文章
【VB程序设计试题】图文推荐一、判断 共 10 题 （共计 10 分） 第 1 题 Shape 控件和 Line 控件可以在窗体中移动,因此它们具有 Move 方法. 答案：N 答案：Y 答案：N第 2 题 Visual Basic 程序的运行可以从 Main()过程启动,也可以从某个窗体启动. 第 3 题图片框的属性 Enabled 设置为 FALSE, 图片框上的控件仍可响应用户操作.第 4 题若已在窗体中加入了一个通用对话框:要求在运行时,通过 ShowOpen 打开对话框时,只显示扩展名为DOC 的文件,则对通用对话框的 Filter 的属性设置应该是:& (*.DOC)| ( .DOC)& . N第 5 题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 第 6 题清除 list1 列表框对象的内容的语句是 list1.cls. 答案：N答案：Y第 7 题图片框的 Move 方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变 该图片框有关属性的值. 答案：N 答案：N第 8 题当窗体的 ScaleTop=0,ScaleLeft=0 时,这个窗体 Top 和 Left 值也是 0. 第 9 题框架控件和形状控件都不能响应用户的鼠标的单击事件. 第 10 题通用对话框只能用 SHOW 方法进行调用. 答案：Y 答案：N二、单项选择 共 10 题 （共计 10 分） 第 1 题用户可以通过设置菜单项的()属性值为 FALSE 来使该菜单项不可见. A:Hide B:Checked C:Visible D:Enabled 答案：C第 2 题定时器的 Interval 属性以()为单位指定 Timer 事件之间的时间间隔. A:分 B:秒 C:毫秒 D:微秒 答案：C第 3 题要在图片框 P1 中打印字符串& HowAreYou& ,应使用语句(). A:Picture1.Print=& HowAreYou& C:P1.Print& HowAreYou& B:P1.Picture=LoadPicture(& HowAreYou& ) 答案：CD:Print& HowAreYou&第 4 题下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值 C:属性值不必一一重新设置 B:所有的属性值都可以由用户随意设定 D:不同控件的属性项都完全一样 答案：C第 5 题启动 VisualBasic 后,系统为用户新建的工程起一个名为()的临时名称. A:工程 1 B:窗体 1 C:工程 D:窗体 答案：A第 6 题设 a=10,b=5,c=1,执行语句 Printa&b&c 后,窗体上显示的是(). A:True B:False C:1 D:出错信息 答案：B第 7 题 MSGBOX 函数中有 4 个参数,其中必须写明的参数是(). A:指定对话框中显示按钮的数目 B:设置对话框标题 C:提示信息 D:所有参数都是可选的 C第 8 题应用程序设计完成后,应将程序保存,保存的过程是(). A:只保存窗体文件即可 B:只保存工程文件即可 C:先保存工程文件,之后保存窗体文件 答案：DD:先保存窗体文件(或标准模块文件),之后还要保存工程文件 第 9 题改变控件在窗体中的左右位置应修改该控件的()属性. A:Top B:Left C:Width D:Right 答案：B第 10 题 VB 认为下面()组变量是同一个变量. A:A1 和 a1 B:SUM 和 SUMMARY C:AVER 和 AVERAGE D:A1 和 A_1 答案：A三、程序填空 共 3 题 （共计 30 分） 第 1 题 '【程序填空】 '功能：以下程序的功能如(图 1)。 '------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(& 请输入 a 的值& ) b = InputBox(& 请输入 b 的值& ) c = InputBox(& 请输入 c 的值& ) d = b * b - 4 * a * c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print & x1=& ; x1, & x2=& ; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print & x1=& ; & +& ; & i& , & x2=& ; & -& ; & i& End If End Sub 答案： 第2题 1). d & 0 或 0 & d '【程序填空】 2). End If 3). Else'功能：完成程序，使程序输出值为 15 '-------------------------------------------------------Private Sub Command1_Click() '**********SPACE********** Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 '**********SPACE********** For 【?】 = 1 To 2 '**********SPACE********** x = x + 【?】 Next k Next j Next i Print x End Sub 答案： 第3题 1). k 2). k 3). 6'【程序填空】'功能：用输入对话框输入 x，根据如图公式计算对应的 y， ' 在窗体上输出 y 的值。'------------------------------------------------------Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE********** x = Val(【?】(& Please input x :& , & 输入 X 的值& )) If x = 10 Then '**********SPACE********** 【?】 ElseIf x & 10 Then '**********SPACE********** y = Sqr(x) 【?】 Else y = 2 * x ^ 3 + 6 End If Print y End Sub答案：1). y2). InputBox3). y = 04). + Sin(x)四、程序改错 共 3 题 （共计 30 分） 第1题 '【程序改错】'题目:设窗体中有图片框 Pic1，现要求在其中绘制 10 个同心圆， ' 然后将此图以 Test.BMP 作文件名存入磁盘。'-----------------------------------------------Option Explicit Private Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 '**********FOUND********** For I = 1 To 9 rad(I) = 500 * Rnd Next I I = 9 '**********FOUND********** Do Until I & 1 Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '**********FOUND********** I = I + 1 Loop SavePicture Pic1.Image, & Test.BMP& End Sub 答案： 1). for i=0 to 9 或 或 for i=0 to 9 step 12). Do Until I & 0 3). I = I - 1 第2题 或do until 0&ii=-1+i'【程序改错】'题目：从计算机输入三个数 , 找出中间数 '-----------------------------------------------Option Explicit Private Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox(& PLEASE INPUT THE FIRST NUMBER& )y = InputBox(& PLEASE INPUT THE SECOND NUMBER& ) z = InputBox(& PLESSE INPUT THE THIRD NUMBER& ) '**********FOUND********** If x & y Then A = x x = y y = A End If '**********FOUND********** If y = z Then Print y '**********FOUND********** ElseIf x = z Then Print z Else Print x End If End Sub Private Sub Form_Click() FindMidNum End Sub 答案： 1). If x & y Then 或 If y & x Then2). If y &= z Then 或 If z &= y Then 3). ElseIf x &= z Then 或 ElseIf z &= x Then 第3题 '【程序改错】'题目：输出 40 以内能够被 3 整除的数，要求输出结果为 5 ' 个数一行。'-----------------------------------------------Option Explicit Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer '**********FOUND********** i = 1 For x = 1 To 40 If (x / 3) = (x \ 3) Then'**********FOUND********** Print x i = i + 1 End If '**********FOUND********** If i Mod 3 = 0 Then Print End If Next x End Sub 答案： 1). i = 0 2). P 3). if i mod 5=0 then五、程序设计 共 2 题 （共计 20 分） 第1题 '【程序设计】'题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+ 1/10...+1/(m+5)例如：若 m=9，则应输出：1.;要求：函数中用到的中间变量必须声明为 Single 类型。 '------------------------------------------------答案：---------------------Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y ----------------------第 2 题 （10.0 分） 题号:488 '【程序设计】 '题目： (事件)单击窗体。(响应)已知 sum=1/2!-1/4!+1/6!-1/8!+1/10!,请将 sum 结果值输出 到窗体上。使用 do while...loop 语句完成程序 '---------------------------------------答案：---------------------Dim i As Integer Dim n As Integer i = 1 p = 1 Do While i &= 10p = p * i If i Mod 2 = 0 Then n = n + 1 sum = sum + (-1) ^ (n - 1) / p End If i = i + 1 Loop Print sum ---------------------一、判断 共 10 题 （共计 10 分） 第 1 题 所有的对象都有 caption 属性. 答案：N 答案：N第 2 题 事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.第 3 题 当定时器控件的 interval 属性值设置为 0 时,会连续不断地激发 Timer 事件.答案：N 第 4 题 当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案：Y 第 5 题在窗体模块的声明部分中用 Private 声明的变量的有效范围是其所在的工程. 答案：N第 6 题 Visual Basic 程序的运行可以从 Main()过程启动,也可以从某个窗体启动. 答案：Y 第 7 题 VB 允许设计和使用用户自己设计的控件. 答案：Y 答案：Y第 8 题在 VB 中,可以将在 Picture 控件中绘制的图形以文件的形式保存在磁盘上. 第 9 题 Function 函数有参数传递,并且一定有返回值. 答案：N第 10 题在 VB 的工具栏中包括了所有的 VB 控件,我们不能再加载其他的控件.答案：N 置顶 二、单项选择 共 10 题 （共计 10 分） 第 1 题代数式 x1-|a|+ln10+sin(x2+2л )/cos(57o)对应的 VisualBasic 表达式是(). A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180) B:X1-Abs(A)+Log(10)+Sin(X2+2*л )/Cos(57*3.14/180) C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57) D:X1-Abs(A)+Log(10)+Sin(X2+2*л )/Cos(57) 第 2 题设计动画通常使用时钟控件()来控制动画速度. A:Enabled B:Interval C:Timer D:Move 答案：B 答案：A第 3 题要把一个命令按钮设置成无效,应设置其哪一属性值(). A:Visible B:Enabled C:Default D:Cancel 答案：B第 4 题设 a=10,b=5,c=1,执行语句 Printa&b&c 后,窗体上显示的是(). A:True B:False C:1 D:出错信息 答案：B第 5 题 任何控件都具有的属性是(). A:TEXT B:CAPTION C:NAME D:FORECOLOR 答案：C第 6 题 当事件能被触发时,()就会对该事件作出响应.A:对象B:程序C:控件D:窗体答案：A第 7 题下列叙述正确的是(). A:对象是包含数据又包含对象数据进行操作的方法的物理实体 B:对象的属性只能在属性窗口中设置 C:不同的对象能识别不同的事件 D:事件过程都要由用户点击对象来触发 答案：C第 8 题 下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值 C:属性值不必一一重新设置 B:所有的属性值都可以由用户随意设定 D:不同控件的属性项都完全一样 答案：C第 9 题表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是(). A:4^5 B:3*4 C:x+1 D:SIN 答案：C第 10 题一个对象可以执行的动作和可被对象识别的动作分别称为(). A:事件、方法 B:方法、事件 C:属性、方法 D:过程、事件 答案：A三、程序填空 共 3 题 （共计 30 分） 第 1 题 '【程序填空】 '下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 '------------------------------------------------------Private Sub Form_Click() Print & 5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m = a Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End IfEnd Function 答案： 第2题 1). max(max1, 73, 352) '【程序填空】 2). a&b 或 b&a 3). m & c 或 c & m'功能：输入数字 1-7,显示其对应是星期几(例:输入 1,显示星期日, ' 如果输入其它内容，一律显示& 输入错误& )'------------------------------------------------------Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y=& 今天是星期日& case 2 y=& 星期一& case 3 y=& 星期二& case 4 y= & 星期三& case 5 y=& 星期四& case 6 '**********SPACE********** 【?】 case 7 y= & 星期六& '**********SPACE********** 【?】 y = & 输入错误& end select Text2.Text = y End Sub 答案： 1). select case x 第 3 题 '【程序填空】 '功能：以下程序段用于求∑n! '------------------------------------------------------2). y=& 星期五& 3). Case ElsePrivate Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(& 请输入一个正整数& ) sum = 0 For i = 1 To n '**********SPACE********** sum =【?】 Next i Print sum End Sub Private Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1 '**********SPACE********** For i = 1 To 【?】 s = s * i Next i '**********SPACE********** 【?】 End Function 答案： 1). sum + mul(i) 2). x 3). mul = s四、程序改错 共 3 题 （共计 30 分） 第1题 '【程序改错】'题目：输出 40 以内能够被 3 整除的数，要求输出结果为 5 个数一行。 '-----------------------------------------------Option Explicit Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer '**********FOUND********** i = 1 For x = 1 To 40 If (x / 3) = (x \ 3) Then '**********FOUND********** Print x i = i + 1End If If i Mod 5 = 0 Then Print End If '**********FOUND********** step i End Sub 答案： 第2题 1). i = 0 2). P 或 ? 3). Next x 或 Next'【程序改错】'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。 '-----------------------------------------------Option Explicit Private Sub Form_Load() Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(& b = Val(InputBox(& c = Val(InputBox(& 请输入系数 a 的值& )) 请输入系数 b 的值& )) 请输入系数 c 的值& ))'**********FOUND********** work = b * 2 - 4 * a * c If work &= 0 And a && 0 Then '**********FOUND********** root1 = (Sqr(work)) / (2 * a) '**********FOUND********** root2 = (Sqr(work)) / (2 * a) Debug.Print & 有二个实根& Else Debug.Print & 无实根!& End If End Sub 答案：1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c 2). root1 = (-b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work)) / ( a*2) 3). root2 = (-b - Sqr(work)) / (2 * a) 或 root2 = (- Sqr(work) - b) / (2 * a) 或 root2 = (-b - Sqr(work)) / ( a*2) 第3题 '【程序改错】 + Str$(root1) + & ,& + Str$(root2)'题目:本程序求 3~100 之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入 顺序文件 c:\dataout.txt；素数的个数显示在窗体 Form1 上。'-----------------------------------------------Option Explicit Private Sub Command1_Click() Dim Count As Integer, Flag As Boolean Dim t1 As Integer, t2 As Integer '**********FOUND********** Open & dataout.txt& Count = 0 For t1 = 3 To 100 Flag = True For t2 = 2 To Int(Sqr(t1)) If t1 Mod t2 = 0 Then Flag = False Next t2 '**********FOUND********** If Flag = False Then Count = Count + 1 '**********FOUND********** Write #1, t2 End If Next t1 Form1.Print & 素数个数& ; Count Close #1 End Sub 1). Open & dataout.txt& For Output As #1 或 Open & dataout.txt& For Output As 1 For Input As #12). If Flag Then 或 If Flag=true Then 3). Write #1, t1 或 Write 1, t1 五、程序设计 共 2 题 （共计 20 分） 第 1 题 '【程序设计】 '题目：(事件)双击窗体。(响应)s=20+21+22+?+263，求 s 的值，并将结果存储到变量 S 中。 '------------------------------------------------答案：---------------------Dim i As Integer i = 20 While i &= 263 s = s + i i = i + 1 WendPrint (CStr(s)) ---------------------第 2 题 '【程序设计】 '题目：(事件)单击窗体。(响应)编写程序求 10×11×12+11×12×13+?+15×16×17 的结果， 并将结果输出到窗体上。将结果存入变量 M 中 '------------------------------------------------答案：---------------------Dim i, j As Integer Dim s As Long For i = 10 To 15 s = 1 For j = i To i + 2 s = s * j Next m = m + s Next Print (CStr(m)) ----------------------试卷编号：8111 一、判断 共 20 题 （共计 20 分） 答案：Y 答案：Y 答案：N 第 1 题 由 Visual Basic 语言编写的应用程序有解释和编译两种执行方式. 第 2 题 在 VB 中,运算 &ABCDE123A& Like &[a*a] & 的结果是 True. 第 4 题 在 MsgBox 函数中 prompt 参数是必须的. 答案：Y 答案：N 答案：Y 答案： N 答案：Y 答案：N Y 第 3 题 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外. 第 5 题 VB 支持弹出菜单,所谓&弹出菜单&是指单击鼠标后打开的菜单. 第 6 题 Listl.clear 是清除 Listl 的全部列表项,所以 Clear 是对象的方法. 第 7 题 在过程中用 Dim 和 Static 定义的变量都是局部变量. 第 9 题 通用对话框只能用 SHOW 方法进行调用. 第 11 题第 8 题 在窗体模块的声明部分中用 Private 声明的变量的有效范围是其所在的工程.第 10 题对窗体 Form 内各控件不能用鼠标任意精确定位是由于窗体中的定位网格起作用. Y 在框架控件内的几个单选按钮中,只能有一个单选按钮的 Value 属性为 True. 第 12 题 从几十个项目中任选其中一项或多项时可选用列表框或组合框控件实现. 答案：N 第 13 题 若已在窗体中加入了一个通用对话框:要求在运行时,通过 ShowOpen 打开对话框时,只显示扩展名为 DOC 的文件,则对通用对话框的 Filter 的属性设置应该是:&(*.DOC)| ( .DOC)&. 答案：N第 14 题 在 VB 中,用 DIM 定义数组时数组元素也自动赋初值为 0. 第 15 题 利用 Private Const 声明的符号常量,在代码中不可以再赋值.答案：N 答案：Y 答案：Y第 16 题 在 VB 中,计时器(Timer)定期激活 Timer 事件,使 Timer 中的代码执行一次.答案：Y 第 17 题 如果一个菜单项的 Visible 属性为 False,则它的子菜单也不会显示. 第 18 题 通过改变属性窗口中的 Name 属性,可以改变窗体上显示的标题. 第 19 题 在 VB 中,运算 &D& Like &[! A-Z]& 的结果是 True. 答案：N 答案：N第 20 题 在利用通用对话框件显示字体对话框之前必须设置 Flags 属性,否则将发生不存在字体的错误. Y 二、单项选择 A:Hide A:linkopen 共 20 题 （共计 20 分） B:Checked B:KeyPress C:Visible C:load D:Enabled D:click 答案：C 第 1 题 用户可以通过设置菜单项的()属性值为 FALSE 来使该菜单项不可见. 第 2 题 要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程. 答案：C D:确定窗体的字体 B 第 3 题 窗体的 Caption 属性的作用是(). A:确定窗体的名称 第4题 A:程序单位 A:True B:确定窗体的标题 C:物理实体 C:确定窗体的边界类型 D:基本实体 答案：B 答案：D &对象&是计算机系统运行的(). B:逻辑单位第 5 题 设 a=10,b=5,c=1,执行语句 Printa&b&c 后,窗体上显示的是(). B:False C:1 D:出错信息 第 6 题 在窗体上建立了多个控件,如 TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在 COMMAND1 控件上,应将 COMMAND1 控件的()设置为 0. A:INDEX A:font A:selected A:FontStyle A:sTme A:True B:TABINDEX B:filename B:caption C:TABSTOP C:filter C:text D:ENABLED D:action D:list C:BackStyle D:T_12 D:Border 答案：B 答案：D 答案：D 答案：B 答案：C 答案：D C:P1.Print&& 答案：A 答案：A D:P1.piture&& 答案：A 第 7 题 将通用对话框类型,设置为字体对话框,可修改该控件的()属性. 第 8 题 设置列表框选中的文本用()属性. 第 9 题 能够改变窗体边框线类型的属性是(). B:BorderStyle B:T_Temp B:false C:0 C:T12% D:1 第 10 题 下列哪个变量的取法是不正确的(). 第 11 题 选中复选框控件时,value 属性的值,可以是(). 第 12 题 要清除已经在图片框 Picture 中打印的字符串而不清除图片框中的图像,应使用语句(). A:A.P1.Cls A:Alignment A:Clear B:P1.picture=LoadPicture(&&) B:WordWrap B:Cls C:AtuoSize C:ClearItem 第 13 题 控件内的对齐方式()属性决定. D:Style 第 14 题 清除列表框的所有选项应选择下列哪种方法(). D:RemoveItem 第 15 题 下列赋值语句正确的是(). A:Text1.text=Text.text+Text2.text C:Text1.Caption=Text1.Caption+Text2.Caption D:Text1.Enable=Text1.Enable+Text2.Enable A:A&=B And B&=C C:(A+C)&=C A:圆 And C&0 B:A+C&B And B+C&A And C&0 D:A+B&C And A-B&C And C&0 答案：D 答案：B 答案：A 第 16 题 已知 A?B?C 中 C 最小,则判断 A?B?C 可否构成三角形三条边长的逻辑表达式是(). And A-C &=C) And C&0 C:圆角正方形 B:Text1.name=Text1.Name+Text2.Name第 17 题 形状控件所显示的图形不可能是(). B:椭圆 D:等边三角形 第 18 题 要在图片框 P1 中打印字符串&HowAreYou&,应使用语句(). A:Picture1.Print=&HowAreYou& C:P1.Print&HowAreYou& B:P1.Picture=LoadPicture(&HowAreYou&) 答案：C D:Print&HowAreYou&第 19 题 文本框中选定的内容,由下列()属性反映.A:Text A:逗号B:Caption B:分号C:Seltext D:冒号D:sellenght 答案：D答案：C第 20 题 在一个语句行内写多条语句时,语句之间应该用()分隔. C:顿号 三、程序填空 共 2 题 （共计 10 分）第 1 题 '【程序填空】 '题目：以下程序的功能如(图 1)。 '------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d = b * b - 4 * a * c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub 答案： 1). d & 0 或 0 & d 2). End If 3). Else 第 2 题 '【程序填空】 '下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 2). a&b 或 b&a 3). m & c 或 c & m 四、程序改错 共 2 题 （共计 10 分） 【?】 Then m = a第 1 题 '【程序改错】 '题目：请修改程序中错误，保证程序最后输出效果如图 1 所示。 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Dim i As Integer For i = 1 To 7 '**********FOUND********** Print Spc(7); '**********FOUND********** If i &= 1 Then Print &*& Else '**********FOUND********** Print &*&; Spc(2 * (i - 1)); &*& End If Next i End Sub 答案： 1). Print Spc(7 - i); 第 2 题 '【程序改错】 '题目： 该程序的功能是通过键盘给一维数组 a 输入 10 个整数， 然后将一维数组的这些数赋值给 一个 2 行 5 列的二维数组。最后在一行内输出一维数组、在两行内输出二维数组。不可增加或删 除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() 2). If i = 1 Then 或 If 1=i Then 3). Print &*&; Spc(2 * (i - 1) - 1); &*&Dim a(10), b(2, 5) As Integer dim i as integer,k as integer,j as integer For i = 1 To 10 a(i) = InputBox(&请提供 10 个整数给数组&) a(i) = Val(a(i)) Next i k = 0 For i = 1 To 2 For j = 1 To 5 k = k + 1 b(i, j) = a(k) Next j Next i Print Tab(10); &数组 a 的值& Print Tab(10); For i = 1 To 10 '**********FOUND********** Print a(i) Next i Print Print Tab(10); &二维数组 b 的值是:& For i = 1 To 2 Print Tab(10); For j = 1 To 5 '**********FOUND********** Print b(j,i); Next j '**********FOUND********** Paint b(i,j) Next i End Sub 答案： 1). Print a(i); 2). print(i,j) 3). Print 五、程序设计 共 2 题 （共计 20 分）第 1 题 '【程序设计】 '题目：(事件)单击窗体。(响应)编写代码功能如(图 1)。将结果存入变量 Sum 中。使用 while...wend 语句完成程序 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i As Integer i=1 while i &= 10 sum = sum + i = i + 1 i ^iwend Print sum ---------------------第 2 题 '【程序设计】 '题目：(事件)双击窗体。 (响应)把一元钞票换成一分、二分和五分的硬币（每种至少有一枚） ， 求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量 N 中 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next ---------------------六、VB 窗体设计 共 4 题 （共计 20 分） 第 1 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：添加控件 在窗体内添加 3 个文本框(Text1，Text2，Text3)， 3 个标签(Label1，Label2，Label3)， 2 个水平滚动条(HScroll1，HScroll2)。 2：窗体设置： 设置窗体名称(Name)为“Form6”。 设置窗体标题(Caption)为“VB 上机试卷”。 3：文本框设置： 在第 1 个文本框(Text1)中输入文本(Text)“颜色调节”， 设置文本的对齐方式为“居右对齐”。 设置第 2 个文本框(Text2)的内容为空。 设置第 3 个文本框(Text3)的内容为空。 所有文本框的字体、字号可任选。 4：标签设置： 设置第 1 个标签(Label1)标题(Caption)为“文本框的前景色”。 设置第 2 个标签(Label2)标题(Caption)为“文本框的背景色”。 设置第 3 个标签(Label3)标题(Caption)为“当前值”。5：滚动条设置： 适当调整水平滚动条的大小和位置。 第 2 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：添加控件 添加菜单，名称为 menu_File，名称为 menu_Set。 在 menu_Set 下添加 2 个子菜单，名称为 menu_Set_Back 和 menu_Set_Fore。 在 menu_Set_Back 下添加 3 个子菜单名称为 menu_Set_Back_Red， menu_Set_Back_Green，menu_Set_Back_Blue)。 2：窗体设置 窗体名称(Name)为“Form4”。 窗体标题(Caption)为“VB”。 3：菜单设置 设置菜单(menu_File)的标题(Caption)为“文件(&F)”，并将菜单项设为 “无效”。 设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。 设置菜单(menu_Set)下的菜单(menu_Set_Back)的标题(Caption)为“背景色”。 设置菜单(menu_Set)下的菜单(menu_Set_Fore)的标题(Caption)为“前景色”。 设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Red)的标题(Caption) 为“红”，快捷键为 Ctrl+A。 设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Green)的标题(Captio n)为“绿”，快捷键为 Ctrl+B。 设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Blue)的标题(Caption )为“蓝”，快捷键为 Ctrl+C。 第 3 题 【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 1 个文本框(Text1)，3 个标签(Label1， Label2，Label3)，3 个按钮(Command1，Command2， Command3)，1 个组合框(Combo1)。 2：窗体设置： 设置窗体名称(Name)为“Form9”。 设置窗体标题(Caption)为“VB”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“人员登记表”。 设置第 2 个标签(Label2)的标题(Caption)为“姓名:”。 设置第 3 个标签(Label3)的标题(Caption)为“性别:”。 标签中的字体、字号可任意选择。 4：组合框设置： 适当设置组合框的大小和位置。 5：文本框设置： 设置文本框(Text1)的内容(Text)为空。 6：按钮设置：设置第 1 个按钮(Command1)的标题(Caption)为“添加”。 设置第 2 个按钮(Command2)的标题(Caption)为“取消”。 设置第 3 个按钮(Command3)的标题(Caption)为“退出”。 第 4 题 【窗体设计】 题目：请按照题目要求设计指定的窗体。 建立如(图 1)所示界面：请按所给窗体的样子设计窗 体（不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程） 。 -----------------------------------------------1：在窗体内添加 2 个按钮(Command1，Command2)，3 个列 表框(List1，List2，List3)，3 个标签(Label1，Label2， Label3)，2 个框架(Frame1，Frame2)，3 个文本框(Text1， Text2，Text3)。 并在框架(Frame1)中添加 1 个复选框(Check1)，1 个组合 框(Combo1)，1 个标签(Label4)。 在框架(Frame2)中添加 1 个标签(Label5)。 2：窗体设置： 设置窗体名称(Name)为“Form30”。 设置窗体标题(Caption)为“字体”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“字体(&F):”。 设置第 2 个标签(Label2)的标题(Caption)为“字型(&Y):”。 设置第 3 个标签(Label3)的标题(Caption)为“字号(&S):”。 4：文本框设置： 设置第 1 个文本框(Text1)的文本(Text)为“宋体”。 设置第 2 个文本框(Text2)的文本(Text)为“粗体”。 设置第 3 个文本框(Text3)的文本(Text)为“五号”。 5：列表框设置： 在第 1 个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。 在第 2 个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。 在第 3 个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。 6：按钮设置： 设置第 1 个按钮(Command1)的标题(Caption)为“确定”。 设置第 2 个按钮(Command2)的标题(Caption)为“取消”。 7：框架设置： 设置第 1 个框架(Frame1)的标题(Caption)为“特殊效果”。 设置第 1 个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。 设置第 1 个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。 适当调整第 1 个框架(Frame1)中的组合框(Combo1)的大小和位置。 设置第 2 个框架(Frame2)的标题(Caption)为“示范”。 设置第 2 个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体 AaBbCc”。 试卷编号：8108 一、判断 共 20 题 （共计 20 分） 答案：N 第 1 题 VB 通过窗体管理构成应用程序的各类文件的集合.第 2 题 如果一个列表框一共有 5 个选项,而当选中第三项时,这时列表框的 ListIndex 属性为 2. Y第 3 题用 VB 6.0 仅能开发具有窗口菜单的应用程序,开发的应用中不能支持弹出式菜单. 答：N 第 4 题 直线控件可以在窗体上拖动,因此它具有 MOVE 方法. 第 5 题 列表框包含了组合框的功能. 第 6 题 在表达式中,运算符两端的数据类型要求一致. 答案：N 答案：Y 答案：N 答案：Y 答案：N 答案：Y 答案：Y 答案：N 答案：Y 答案：Y 答案：N第 7 题 可以利用键盘光标选择菜单项,因此可响应 KeyPress 事件.第 8 题 在盘驱动器列表框 Drive1 的 Change 事件过程中,代码 Dir1.Path=Drive1.Drive 的作用 是:当 Drive1 的驱动器改变时,Dir1 的目录列表随不同驱动器的作相应改变. 第 9 题 VB 规定窗体文件的扩展名是 .vbp. 第 10 题 在 Sub 过程中,可以用 Return 语句退出 Sub 过程. 第 11 题 VB 若同一个工程有许多窗体,可以指定任一窗体为启始窗体. 第 12 题 列表框的中的项目不可以多列显示. 第 13 题 定时将文本框中的数据保存到磁盘,应用于选用 Timer 计时器控件. 第 14 题 由 Visual Basic 语言编写的应用程序有解释和编译两种执行方式. 象的响应动作(事件). 答案：Y 答案：Y 答案：N第 15 题 对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对 第 16 题 在 VB 中将一些通用的过程和函数编写好并封装作为方法供用户直接调用. 第 17 题 清除 list1 列表框对象的内容的语句是 list1.cls.第 18 题 由变量名对变量的内容进行使用或修改,则使用变量就是引用变量的内容. 答案：Y 第 19 题 在 Visual Basic 中 Dim a ,b,c as integer 和 Dim a as integer, b as integer,c as integer 相同. 行 VB&格式&菜单中的命令. 二、单项选择 A:Text A:计时器失效 共 20 题 （共计 20 分） C:SelText D:SelStart 答案：C 答案：N 答案：Y 第 20 题 在 VB 6.0 中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执第 1 题 能够获得一个文本框中被选取文本的内容的属性是(). B:Length 第 2 题 计时器的 interval 属性为 0 时,表示(). B:相隔 0 秒 C:相隔 0 毫秒 D:计时器的 enable 属性为 false 答案： A 第 3 题 下列关于属性设置的叙述错误的是(). A:一个控件具有什么属性是 VB 预先设计好的,用户不能改变 B:一个控件具有什么属性是 VB 预先设计好的,用户可以改变 C:一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置 D:一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值 将 ScrollBar 属性设置为(). A:0 B:1 C:2 D:3 And C&0 答案：D B:A+C&B And B+C&A And C&0 D:A+B&C And A-B&C And C&0 答案：B 第 5 题 已知 A?B?C 中 C 最小,则判断 A?B?C 可否构成三角形三条边长的逻辑表达式是(). A:A&=B And B&=C C:(A+C)&=C A:6 A:0 A:2 B:4 B:7 And A-C &=C) And C&0 C:8 B:1 C:6 D:8 D:9 C:2 答案：D D:3 答案：D 答案：B 答案：A 第 4 题 要使一个文本框具有水平和垂直滚动条,则应先将其 MultiLine 属性设置为 True,然后再第 6 题 用语句 Dim A (-3 To 5) As Integer 定义的数组的元素个数是(). 第 7 题 如果 TAB 函数的参数小于 1,则打印位置在第()列. 第 8 题 货币型数据需()字节.第 9 题 在程序代码中修改滚动条的 value 属性时将激发滚动条的()事件. A:change A:本地窗口 A:PasswordChar A:标签框 A:0 B:1 B:scroll C:dragdrop C:观察窗口 D:gotfocus D:栈窗口 D:以上都不是 答案：D 答案：A 答案：B 答案：A 第 10 题 在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为(). B:立即窗口 第 11 题 文本框控件中将 Text 的内容全部显示为所定义的字符的属性项是(). B:需要编程来实现 C:命令按钮 D:.00005 C:Password D:文本框 答案：B 第 12 题 下面()控件不具有 Caption 属性. B:单选钮 C:0.1234 第 13 题 Rnd 函数不可能产生的()值. 第 14 题 如果 X 是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(). A:0.01*int(x+0.05) B:0.01*int(100*(x+0.005)) D:0.01*int(x+0.005) 答案：B D:任何事件过程中 D C:0.01*int(100*(x+0.05)) A:窗体模块的声明段中第 15 题 OPTIONEXPLICIT 语句不可以放在(). B:标准模块的声明段中 C:类模块的声明段中 第 16 题 下列各项变量中,哪一项所占的内存空间最多(). A:dim x as currency x=99 C:dim st2 as string st2='goodbye' A:int(rnd*6+1) B:int(rnd*6) B:dim st1 as string st1='good' D:dim d as data d='' 答案：C 答案：A第 17 题 骰子是一个正六面体,分别用 1~6 代表这六个面,掷一次骰子出现的数可表示为(). C:int(rnd*7) D:int(rnd(6)+1) 第 18 题 为了 在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设 置为 True,这个属性是(). A:Value B:Default C:Cancel D:Enabled 答案：B 第 19 题 设在窗体上有两个命令按钮,其中一个命令按钮的名称为 cmda,则另一个命令按钮的名 称不能是(). A:cmdc B:cmdb C:cmdA D:Command1 C:DIM;A D:A=24 答案：C 答案：A 第 20 题下列对变量的定义中,不能定义 A 为变体变量的是(). A:DIM A AS DOUBLE 三、程序填空 第 1 题 '【程序填空】 '题目：以下程序的功能如(图 1)。 '------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d = b * b - 4 * a * c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then B:DIM A AS VARIANT 共 2 题 （共计 10 分）r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub 答案： 1). d & 0 或 0 & d 2). End If 3). Else 第 2 题 '【程序填空】 '下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 共 2 题 （共计 10 分） 2). a&b 或 b&a 3). m & c 或 c & m 四、程序改错 【?】 Then m = a第 1 题 '【程序改错】 '题目：以下程序功能是输入三个数，由大到小排序。'注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(&Please input first integer&, &输入正整数&)) B = Val(InputBox(&Please input second integer&, &输入正整数&)) C = Val(InputBox(&Please input third integer&, &输入正整数&)) '**********FOUND********** If A &= C Then nTemp = A A = B B = nTemp End If '**********FOUND********** If B &= C Then nTemp = A A = C C = nTemp End If '**********FOUND********** If A &= B Then nTemp = B B = C C = nTemp End If Print &The integers in order is&; A; B; C End Sub 答案： 1). If A &= B Then 或 If B &= A Then 2). If A &= C Then 或 If C &= A Then 3). If B &= C Then 或 If C &= B Then 第 2 题 '【程序改错】 '题目:输入一个字符串，将所有的小写字母都转换为大写字母。 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Dim s1 As String, s2 As String, i As Integer, t As String s1 = InputBox(&输入字符串，#号结束&) i = 1 '**********FOUND********** s1 = Mid(s1, i, 1) While t && &#&'**********FOUND********** If t &= &a& And t &= &z& Then t = Chr(Asc(t) - 30) s2 = s2 + t i = i + 1 t = Mid(s1, i, 1) Wend '**********FOUND********** Print &新字符串为：&; s1 End Sub 答案： 1). t = Mid(s1, i, 1) 2). If t &= &a& And t &= &z& Then t = Chr(Asc(t) - 32) 3). Print &新字符串为:&; s2 五、程序设计 共 2 题 （共计 20 分） 第 1 题 '【程序设计】 '题目：(事件)双击窗体。 (响应)求 1+5+10+15+??+500 的和，并将结果输出到窗体上。将结果存入变量 SUM 中。 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum ---------------------第 2 题 '【程序设计】 '题目：(事件)单击窗体。 (响应)求 100 以内偶数的和，并将结果输出在窗体上。将结果存入变 量 SUM 中 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum ---------------------六、VB 窗体设计 共 4 题 （共计 20 分） 第 1 题【窗体设计】 题目：请按照题目要求设计指定的窗体。 建立如(图 1)所示界面：请按所给窗体的样子设计窗体，不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程。 -----------------------------------------------1：在窗体内添加 2 个按钮(Command1，Command2)，3 个组合框(Combo1， Combo2，Combo3)，1 个文本框(Text1)，6 个标签(Label1，Label2， Label3，Label4，Label5，Label6)，2 个复选框(Check1，Check2)。 2：窗体设置： 设置窗体名称(Name)为“Form22”。 设置窗体标题(Caption)为“字体”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“字体”。 设置第 2 个标签(Label2)的标题(Caption)为“字符间距”。 设置第 3 个标签(Label3)的标题(Caption)为“文字效果”。 设置第 4 个标签(Label4)的标题(Caption)为“缩放”。 设置第 5 个标签(Label5)的标题(Caption)为“间距”。 设置第 6 个标签(Label6)的标题(Caption)为“位置”。 4：文本框设置： 在文本框(Text1)中输入文本(Text)“12”。 5：组合框设置： 设置组合框(Combo1)的文本(Text)为“75%”。 设置组合框(Combo2)的文本(Text)为“加宽”。 设置组合框(Combo3)的文本(Text)为“提升”。 6：复选框设置： 设置第 1 个复选框(Check1)的标题(Caption)为“调整字体的字间距”。 设置第 2 个复选框(Check2)的标题(Caption)为“如果定义了网格,则对齐网格”。 两个复选框均为选中状态。 7：按钮设置： 设置按钮(Command1)的标题(caption)为“确定”。 设置按钮(Command2)的标题(caption)为“取消”。 第 2 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 2 个按钮(Command1，Command2)， 4 个标签(Label1，Label2，Label3，Label4)， 1 个文本框(Text1)。 2：窗体设置： 设置窗体名称(Name)为“Form16”。 设置窗体标题(Caption)为“定时”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“系统时间”。 设置第 2 个标签(Label2)的标题(Caption)为“10:13:13”，边框类型如图。 设置第 3 个标签(Label3)的标题(Caption)为“定时时间(秒)”。 设置第 4 个标签(Label4)的标题(Caption)为“时间到”，字体字号任意。 4：文本框设置： 适当设置文本框的大小和位置。5：按钮设置： 设置第 1 个按钮(Command1)的标题(Caption)为“开始”。 设置第 1 个按钮(Command2)的标题(Caption)为“退出”。 第 3 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 2 个菜单(menu_File，menu_Set)。 然后在菜单(menu_Set)下添加 2 个菜单(menu_Set_Font， menu_Set_Color)。接着再在菜单(menu_Set_Font)下添加 3 个菜单(menu_Set_Font_Bold，menu_Set_Font_Underline， menu_Set_Font_Italic)，添加 1 个文本框(Text1)。 2：窗体设置： 设置窗体名称(Name)为“Form18”。 设置窗体标题(Caption)为“文本编辑”。 3：菜单设置： 设置菜单(menu_File)的标题(Caption)为“文件(&F)”。 设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。 设置菜单(menu_Set)下的菜单(menu_Set_Font)的标题(Caption)为“字体风格”。 设置菜单(menu_Set)下的菜单(menu_Set_Color)的标题(Caption)为“颜色”。 设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Bold)的标题(Caption)为“粗体”。 设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Underline)的标题(Caption)为“下划 线”。 设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Italic)的标题(Caption)为“斜体”。 4：文本框设置： 在文本框(Text1)中输入文本(Text)“中华人民共和国”。 文本框滚动条样式的设置如图。 第4题 【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 4 个文本框(Text1，Text2，Text3，Text4)， 4 个标签(Label1，Label2，Label3，Label4)，2 个按 钮(Command1，Command2)。 2：窗体设置： 设置窗体名称(Name)为“Form12”。 设置窗体标题(Caption)为“VB”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“姓名”。 设置第 2 个标签(Label2)的标题(Caption)为“课程 1”。 设置第 3 个标签(Label3)的标题(Caption)为“课程 2”。 设置第 4 个标签(Label4)的标题(Caption)为“平均成绩”。 4：文本框设置： 设置 4 个文本框的内容(Text)都为空，并适当调整大小和位置。 5：按钮设置： 设置第 1 个按钮(Command1)的标题(Caption)为“计算”。设置第 2 个按钮(Command2)的标题(Caption)为“退出”。 试卷编号：8106 一、判断 共 20 题 （共计 20 分） 答案：N 答案：Y 答案：N 第 1 题 Variant 是一种数据类型,因此只能存放象其它数据类型一样,无特殊值. 第 2 题 三种方式的组合框都可以接受 DblClick 事件. 第 3 题 在命令按钮的 Click 事件过程中,exit 与 end 等效. Click 事件.答案：Y 第 5 题 要使定时器控件起作用,其属性 Interval 不可以设置为 0. 第6题 答案：Y 答案：Y 设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：N第 4 题 菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发第 7 题 当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时,组合框会自动 反这一条目添加到它的列表框中. 进行选择.答案：Y 第 9 题 MsgBox()函数建立的消息框能显示信息也能输入信息. 第 11 题 所有的 VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 第 12 题 Listl.clear 是清除 Listl 的全部列表项,所以 Clear 是对象的方法. 第 14 题 在 VB 的工具栏中包括了所有的 VB 控件,我们不能再加载其他的控件. 载. 答案：N 答案：Y 答案：Y 答案：Y 答案：N 答案：N 答案：Y 答案：N 第 10 题 Picture 图片框既可用来显示图片和绘制图形,也可用 Print 方法来显示文字.答案：N 第 8 题 组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来第 13 题 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外. 答案：N 第 15 题 在一个窗体的代码中不能使用 Unload 语句来卸载本窗体,即一个窗体只能由其它窗体卸 第 16 题 目录列表框中的列表项不可以通过 AddItem 方法进行添加. 第 17 题 在 MsgBox 函数中 prompt 参数是必须的.第 18 题 有一个程序在属性窗口中设置了它的窗体字体大小为 10 号,而程序代码若设置了它的窗 体字体大小为 20 号,那么当程序运行后实际的窗体字体大小为 20 号. 第 19 题 Dim i, j as integer 二、单项选择 表明 i 和 j 都是整型变量. 答案：N 答案：N 第 20 题 在 VB 中,运算&ABA&Like&[a?a]&的结果是 False. 共 20 题 （共计 20 分） B:LN(X) C:LOG(X)/LOG(E) C:物理实体 D:LOG(X) 答案：A 答案：D 第 1 题 求以 10 为底 X 的常用对数的表达式为(). A:LOG(X)/LOG(10) A:程序单位 第 2 题 &对象&是计算机系统运行的(). B:逻辑单位 D:基本实体 第 3 题 为了 在按下回车键时执行某个命令按钮的事件过程,需要把该命令 按钮的一个属性设置为 True,这个属性是(). A:Value A:.frm A:&北京& A:Enabled B:Default B:.bat C:Cancel D:.vbp C:&天津& C:Default D:&广州& D:Cancel D:Enabled 答案：B 答案：B 答案：C 答案：C 第 4 题 以下不属于 VisualBasic 系统的文件类型是(). C:.vbg 第 5 题 下列字符串常量中,最大的是(). B:&上海& B:Value 第 6 题 将命令按钮 Command1 设置为缺省的活动按钮可修改该控制件的()属性. 第 7 题 如果从数据文件 INPUT.DAT 中读取数据时,以下打开文件方式中,正确的是().A:OPEN INPUT.DAT FOR INPUT AS #1 C:OPEN &INPUT.DAT& FOR INPUT AS #1 第 8 题 vb 中的坐标系最小刻度为(). A:缇 B:象素 C:厘米B:OPEN INPUT.DAT FOR OUTPUT AS #1 D:OPEN &I&, #1 INPUT.DAT 答案：C 答案：AD:一个标准字符宽度第 9 题 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是(). A:如果工程中含有 SubMain 过程,则程序一定首先执行该过程 B:不能把标准模块设置为启动模块 C:用 Hide 方法只是隐藏一个窗体,不能从内存中清除该窗体 D:任何时刻最多只有一个窗体是活动窗体 第 10 题 用鼠标拖动滚动条中滚动框并释放,将触发滚动条的()事件. A:Scroll A:用 Tab 键 A:Visible A:&2/1/02& A:0 A:SIN A:12 A:Dir A:数值 B:1 B:CO1 B:0 B:Value B:37258 C:2 C:COS(X) D:-10 D:FileName B:Change C:DragOver B:用鼠标 C:Caption C:#2/1/02# D:3 D:X(-1) D:A 和 B C:用方向键 D:Enabled D:|2/1/02| D:不能实现 答案：D 答案：D 答案：A 答案：C 答案：C 答案：B 答案：B 答案：D 答案：C 第 11 题 不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是(). 第 12 题 将命令按钮 Command1 设置为不可见,应修改该命令按钮的()属性. 第 13 题 下列()是日期型常量. 第 14 题 组合框有三种风格,它们由 Style 属性所决定,其中为下拉列表框时,Style 属性值应为 第 15 题 以下可以作为 VB 变量名的是(). 第 16 题 由 For k=10 to 0 step 3:next k 循环语句控制的循环次数是(). 答案：AC:-11第 17 题 要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性(). B:Path B:字符串 C:Drive 第 18 题 InputBox 函数返回的函数值的类型是(). C:数值或字符串 D:根据需要可以是任何类型数据 B:command1.name=cmdok 答案：D 答案：C 第 19 题 下列语句中正确的是(). A:txt1.text+txt2.text=txt3.text C:12label.caption=1234 A:sTme B:T_Temp C:T12% D:a=inputbox(hello) D:T_12第 20 题 下列哪个变量的取法是不正确的(). 三、程序填空 共 2 题 （共计 10 分）第 1 题 '【程序填空】 '题目：以下程序的功能如(图 1)。 '------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d = b * b - 4 * a * cp = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub 答案： 1). d & 0 或 0 & d 2). End If 3). Else 第 2 题 '【程序填空】 '下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 【?】 Then m = a答案：1). max(max1, 73, 352) 共 2 题 （共计 10 分）2). a&b 或 b&a3). m & c 或 c & m四、程序改错第 1 题 '【程序改错】 '题目：下面程序段将 7 个随机整数从小到大排序 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Dim t%, m%, n%, w%,a(7) as integer For m = 1 To 7 a(m) = Int(10 + Rnd() * 90) Print a(m); & &; Next m Print For m = 1 To 6 t = m '**********FOUND********** For n =2 To 7 '**********FOUND********** If a(t) & a(n) Then n = t Next n '**********FOUND********** If t = m Then w = a(m) a(m) = a(t) a(t) = w End If Next m For m = 1 To 7 Print a(m) Next m End Sub 答案： 1). For n = 3). If t m && m + 1 To 7 a(n) &a (t) Then t = n 2). If a(t) & a(n) Then t = n 或 If Then 第 2 题 '【程序改错】 '题目:给定三角形的三条边， 计算三角形的面积。 要求程序首先判断给定的三条边能否构成三角 形。 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start: a = InputBox(&输入 1 边长：&)b = InputBox(&输入 2 边长：&) c = InputBox(&输入 3 边长：&) '**********FOUND********** If a + b & c Or b + c & a Then MsgBox (&不能构成三角形，请重新输入个边&) GoTo start End If '**********FOUND********** t = (a + b) / 2 '**********FOUND********** s = Sqr((t - a) * (t - b) * (t - c)) Print &该三角形的面积：&; s End Sub 答案： 1). If a + b & c Or b + c & a Or a + c & b Then 2). t = (a + b + c) / 2 或 t = (a + b + - b) * (t - c) ) 共 2 题 （共计 20 分） c ) / 2 (t - a) * (t 3). s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr( t * 五、程序设计第 1 题 '【程序设计】 '题目：编写函数 fun 其功能是能计算如图 1 所示的表达式的结果值，m 由键盘输入，使用 do while...loop 语句完成 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i As Integer Dim sum As Single i = 1 Do While i &= m sum = sum + 1 / (2 * i * (-1) ^ (i - 1)) i = i + 1 Loop fun = sum ---------------------第 2 题 '【程序设计】 '题目：求两个数 m,n 的最大公约数 p 和最小公倍数 q '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------nm = n * m If m & n Then t = m: m = n: n = t r = m Mod n Do While (r && 0) m = n n = rr = m Mod n Loop p = n q = nm / n ---------------------六、VB 窗体设计 共 4 题 （共计 20 分） 第 1 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面：请按所给窗体的样子设计窗体 （不要求控件的尺寸一样，运行时得到所给窗体即可，有时需要简单的事件过程） 。 -----------------------------------------------1：在窗体内添加 2 个按钮(Command1，Command2)，3 个列 标签(Label1，Label2， 表框(List1，List2，List3)，3 个 Label3)，2 个框架(Frame1，Frame2)，3 个文本框(Text1， Text2，Text3)。并在框架(Frame1)中添加 1 个复选框(Check1)， 个组合框(Combo1)， 个标签(Label4)。 1 1 在框架(Frame2)中添加 1 个标签(Label5)。 2：窗体设置： 设置窗体名称(Name)为“Form30”。 设置窗体标题(Caption)为“字体”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“字体(&F):”。 设置第 2 个标签(Label2)的标题(Caption)为“字型(&Y):”。 设置第 3 个标签(Label3)的标题(Caption)为“字号(&S):”。 4：文本框设置： 设置第 1 个文本框(Text1)的文本(Text)为“宋体”。 设置第 2 个文本框(Text2)的文本(Text)为“粗体”。 设置第 3 个文本框(Text3)的文本(Text)为“五号”。 5：列表框设置： 在第 1 个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。 在第 2 个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。 在第 3 个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。 6：按钮设置： 设置第 1 个按钮(Command1)的标题(Caption)为“确定”。 设置第 2 个按钮(Command2)的标题(Caption)为“取消”。 7：框架设置： 设置第 1 个框架(Frame1)的标题(Caption)为“特殊效果”。 设置第 1 个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。 设置第 1 个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。 适当调整第 1 个框架(Frame1)中的组合框(Combo1)的大小和位置。 设置第 2 个框架(Frame2)的标题(Caption)为“示范”。 设置第 2 个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体 AaBbCc”。 第 2 题【窗体设计】 题目：请按照题目要求设计指定的窗体。 建立如(图 1)所示界面。 -----------------------------------------------1： 在窗体内添加 2 个框架(Frame1， Frame2)， 个标 签(Label1)， 个按钮(Command1， 1 2 Command2) 并在第 1 个框架(Frame1)内添加 1 个文本框(Text1)，在第 2 个框架(Frame1)中添加 3 个单选框(Option1，Option2，Option3)。2：窗体设置： 设置窗体名称(Name)为“Form7”。 设置窗体标题(Caption)为“VB 上机试卷”。 3：框架设置： 设置第 1 个框架(Frame1)的标题(Caption)为“请输入圆的半径”。 设置第 1 个框架(Frame1)中的文本框(Text1)的文本内容(Text)为 12。 设置第 2 个框架(Frame2)的标题(Caption)为“计算类型”。 设置第 2 个框架(Frame2)中的单选框(Option1)的标题(Caption)为“直径”。 设置第 2 个框架(Frame2)中的单选框(Option2)的标题(Caption)为“周长”。 设置第 2 个框架(Frame2)中的单选框(Option3)的标题(Caption)为“面积”。 4：标签设置： 设置标签(Label1)的标题(Caption)为“圆的面积为 113.09724”。 5：按钮设置： 设置第 1 个按钮(Command1)的标题(Caption)为“计算”。 设置第 2 个按钮(Command2)的标题(Caption)为“退出”。 第 3 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：添加控件 文本框(Text1)。 框架(Frame1)。 按钮(Command1)。 列表框(List1)。 标签(Label1)。 在框架(Frame1)内添加单选按钮(Option1，Option2)。 2：窗体设置 名称(Name)属性为“Form2”。 标题(Caption)属性为“姓名列表”。 3：标签设置 标签(Label1)标题(Caption)属性为“在下面文本框中输入姓名”。 4：文本框设置 适当调整文本框(Text1)的位置和大小。 5：框架设置 框架(Frame1)标题(Caption)属性为“选择性别”。 6：单选框设置 单选框(Option1)的标题(Caption)属性为“男”。 单选框(Option2)的标题(Caption)属性为“女”。 7：列表框设置 列表框(List1)中添加一条纪录为“这是一个列表框”。 8：按钮设置 按钮(Command1)的标题(Caption)属性为“添加”。 第 4 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。-----------------------------------------------1：在窗体内添加 3 个水平滚动条(HScroll1，HScroll2， HScroll3)，5 个标签(Label1，Label2，Label3，Label4， Label5)，1 个图片框(Picture1)。 2：窗体设置： 设置窗体名称(Name)为“Form14”。 设置窗体标题(Caption)为“调色板”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“红”。 设置第 2 个标签(Label2)的标题(Caption)为“绿”。 设置第 3 个标签(Label3)的标题(Caption)为“蓝”。 设置第 4 个标签(Label4)的标题(Caption)为“0”。 设置第 5 个标签(Label5)的标题(Caption)为“255”。 4：图片框设置： 设置图片框的背景颜色&H&，并适当调整大小和位置。 5：水平滚动条设置： 适当调整 3 个水平滚动条的位置和大小。 试卷编号：8101 一、判断 事件.N 第 2 题 在标准模块的声明部分中用 Publice 声明的变量的有效范围是其所在的工程. 答案：Y 第 3 题 计时器(Timer)控件的 Interval 属性的单位是毫秒,即若将此属性值设为 10,则每 0.01 秒产生一次 Timer 事件. 也将分别随之改变. 第 5 题 文本框控件有 Caption 属性. 答案：Y 答案：N 答案：N 答案： N 答案：N 答案：N 第 4 题 移动框架内的控件时框架内的控件也跟随移动,所以框架内各控件的 Left 和 Top 属性值 共 20 题 （共计 20 分） 第 1 题 用鼠标选中某菜单控件时,触发 Click 事件;而用键盘选中该菜单控件时,触发 KeyPress第 6 题 函数过程(Function Procedure)用来完成特定的功能,但不返回相应的结果. 第 7 题 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务. 第 8 题 所有的 VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 第 9 题 直线控件可以在窗体上拖动,因此它具有 MOVE 方法. 第 10 题 滚动条控件不可作为用户输入数据的方法. 第 12 题 三种方式的组合框都可以接受 DblClick 事件. 第 13 题 VB 规定窗体文件的扩展名是 .vbp. 第 14 题 在命令按钮的 Click 事件过程中,exit 与 end 等效. 第 15 题 组合框包含了列表框的功能. 答案：Y 答案：Y 答案：Y 答案：Y 答案：N 答案：N 答案：N第 11 题 由 Visual Basic 语言编写的应用程序有解释和编译两种执行方式.第 16 题 当定时器控件的 interval 属性值设置为 0 时,会连续不断地激发 Timer 事件. 答案：N 第 17 题 在框架控件内的几个单选按钮中,只能有一个单选按钮的 Value 属性为 True. 第 19 题 （Variant 是一种数据类型,因此只能存放象其它数据类型一样,无特殊值. 第 20 题 可以利用键盘光标选择菜单项,因此可响应 KeyPress 事件. 二、单项选择 共 20 题 （共计 20 分） 答案：N 答案： Y 第 18 题 如果在过程调用时使用按值传递参数,则在被调过程中可以改变实参的值. 答案：N 答案：N第 1 题 在 VB 中,下列不能作为存放对象的容器是(). A:窗体 A:1 B:5 B:框架 C:4 C:图形框 D:图象框 答案：D 答案：C 第 2 题 表达式 25.28Mod6.99 的值是(). D:出错 第 3 题 在窗体 Form1 的 Click 事件过程中有以下语句:Label1.Caption=&Visual Basic&若本语 句执行之前,标签控件的 Caption 属性为默认值,则标签控件的 Name 属性和 Caption 属性在执行 本语句之前的值分别为(). A:&Label&、&Label& C:&Label1&、&Label1& 第 4 题 下列可缩放图片的属性是(). A:autosize A:算术表达式 A:open/save A:Text B:picture C:stretch D:OleDrawMode D:关系表达式 D:search D:sellenght C:确定窗体的边界类型 C:KeyPress C:面向图形 C:下拉式组合框 C:cls C:AtuoSize D:vbp D:Style D:事件驱动 D:简单组合框 D:确定窗体的字体 D:SetFocus 答案：C 答案：D 答案：D 答案：C 答案： B 答案：D 答案：D 答案：A 答案：B 答案：A 第 5 题 表达式 X+1&X 是(). B:非法表达式 B:help B:Caption C:字符表达式 C:font 第 6 题 下列不能用 commondialog 控件调用的对话框是(). 第 7 题 文本框中选定的内容,由下列()属性反映. C:Seltext 第 8 题 窗体的 Caption 属性的作用是(). A:确定窗体的名称 A:GodFocus A:可视化 A:标签框 A:frm A:Alignment B:确定窗体的标题 B:LostFocus B:面向对象 B:文本框 B:bas 第 9 题 要使文本框获得输入焦点,则应采用文本框控件的哪个方法(). 第 10 题 VisualBasic 的编程机制是(). 第 11 题 以下不允许用户在程序运行时输入文字的控件是(). 第 12 题 在 Visual Basic 环境中,请问标准模块的扩展名是(). 第 13 题 控件内的对齐方式()属性决定. B:WordWrap 第 14 题 在窗体上建立了多个控件,如 TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位 在 COMMAND1 控件上,应将 COMMAND1 控件的()设置为 0. A:INDEX B:TABINDEX C:TABSTOP D:ENABLED 答案：B 第 15 题 当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后, 如果要保持该所画图形的完整性,可以选择触发()事件来完成图形的重画工作. A:Paint A:Caption A:0 B:1 C:2 B:Load B:Text D:3 C:Change C:Name D:Dragover D:AutoSize C:Click C:Clear D:Active D:Cls 答案：B 答案：C 答案：A 答案：A 答案：B 第 16 题 要想清除文本框中的内容则可利用()进行. 第 17 题 简单组合框的 style 值为(). 第 18 题 单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件. A:Scroll A:Caption B:KeyDown B:Text 第 19 题 要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值(). 第 20 题 表达式 Mid(&SHANGHAI&,6,3)的值是(). B:&Label1&、&Visual Basic& D:&Caption&、&Label& 答案：CA:SHANGHB:SHAC:ANGHD:HAI答案：D三、程序填空共 2 题 （共计 10 分）第 1 题 '【程序填空】 '下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). max(max1, 73, 352) 2). a&b 或 b&a 3). m & c 或 c & m 第 2 题 '【程序填空】 '题目：以下程序的功能如(图 1)。 '------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d = b * b - 4 * a * c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r 【?】 Then m = ax2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub 答案： 1). d & 0 或 0 & d 2). End If 3). Else 四、程序改错 共 2 题 （共计 10 分）第 1 题 '【程序改错】 '题目：用辗转相除法求两个整数的最大公约数。 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Function gcd(Byval m As Integer,Byval n As Integer) As Integer Dim r As Integer r = m Mod n Do While r && 0 '**********FOUND********** n = m n = r r = m Mod n Loop '**********FOUND********** gcd = r End Function Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(&输入一个整数&) b = InputBox(&输入一个整数&) a = Val(a) b = Val(b) '**********FOUND********** Call gcd(a, b) Print a, b, c End Sub 答案： 1). m = n 2). gcd = n 3). c = gcd(a, b) 第 2 题 '【程序改错】'题目：从计算机输入三个数 , 找出中间数 '注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox(&PLEASE INPUT THE FIRST NUMBER&) y = InputBox(&PLEASE INPUT THE SECOND NUMBER&) z = InputBox(&PLESSE INPUT THE THIRD NUMBER&) '**********FOUND********** If x & y Then A = x x = y y = A End If '**********FOUND********** If y = z Then Print y '**********FOUND********** ElseIf x = z Then Print z Else Print x End If End Sub Private Sub Form_Click() FindMidNum End Sub 答案： 1). If x & y Then 或 If y & x Then 2). If y &= z Then 或 If z &= y Then 3). ElseIf x &= z Then 或 ElseIf z &= x Then 五、程序设计 共 2 题 （共计 20 分） 第 1 题 '【程序设计】 '题目： (事件)单击窗体。 (响应)求 1-100 中为 5 或 7 的倍数的和。请将结果输出到窗体上, 并存入所给变量 SUM 中。使用 while...wend 语句完成程序 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim i As Integer i = 1 While i &= 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If i = i + 1Wend Print Sum ---------------------第 2 题 '【程序设计】 '题目：(事件)单击窗体。 (响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、 96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。 将最大值，最小值，平均值分别存入变量 Max,Min,Aver 中 '注意：请在指定的事件内编写代码。 '------------------------------------------------答案：---------------------Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 23 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 23 a(6) = 3 a(7) = 65 a(8) = 88 a(9) = 17 max = a(0) min = a(0) s = 0 For i = 0 To 9 If a(i) & max Then max = a(i) End If If a(i) & min Then min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver)) ---------------------六、VB 窗体设计 共 4 题 （共计 20 分） 第 1 题【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 1 个按钮(Command1)，3 个文本框(Text1，Text2，Text3)，1 个组合框(Combo1)，3 个标签(Label1， Label2，Label3)。 2：窗体设置： 设置窗体名称(Name)为“Form20”。 设置窗体标题(Caption)为“计算器”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“第一个数”。 设置第 2 个标签(Label2)的标题(Caption)为“第二个数”。 设置第 3 个标签(Label3)的标题(Caption)为“计算结果”。 4：文本框设置： 适当设置 3 个文本框的大小和位置。 5：组合框设置： 设置组合框(Combo1)的文本(Text)为“运算符号”。 6：按钮设置： 设置按钮(Command1)的标题为“=”。 第 2 题 【窗体设计】 题目：请按照题目要求设计指定的窗体。建立如(图 1)所示界面。 -----------------------------------------------1：在窗体内添加 4 个文本框(Text1，Text2，Text3，Text4)， 4 个标签(Label1，Label2，Label3，Label4)，2 个按 钮(Command1，Command2)。 2：窗体设置： 设置窗体名称(Name)为“Form13”。 设置窗体标题(Caption)为“VB”。 3：标签设置： 设置第 1 个标签(Label1)的标题(Caption)为“被除数”。 设置第 2 个标签(Label2)的标题(Caption)为“除数”。 设置第 3 个标签(Label3)的标题(Caption)为“商”。 设置第 4 个标签(Label4)的标题(Caption)为“}