精品文档

（A）按下键盘上的任意一个键都会引发KeyPress事件

（B）大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同 （C）KeyDown和KeyUp的事件过程中有KeyAscii参数

（D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时

14.如果列表框(List1)中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是 ( A )

(A)移去第一项 (B)移去最后一项 (C) 移去最后加入列表的一项 (D)以上都不对 15.设有如下语句： Dim a，b As Integer c=\d=#7／20／2005#

以下关于这段代码的叙述中，错误的是 ( A )

（A） a被定义为Integer类型变量 （B） b被定义为Integer类型变量 （C）c中的数据是字符串 （D）d中的数据是日期类型

二、填空题（每题2分，共20分）

1． 在VB中，要显示程序代码，必须在 代码 窗口；要设计程序的运行界面，必须在 窗体 窗口。

2．整型变量x中存放了一个二位数，要将二位数交换位置，例如，13变成31，实现的表达式是 x\\10+(x mod 10)*10 3．数学表达式sin15°+ -ln(3x)的VB算术表达式为sin(15/180*∏)+-exp(3*x) 。

4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5=0or x mod 9=0 。

5．在VB中，123456&、1.2346D+5这2个常数分别表示 long 、 double 类型。

6.若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过 工程属性 菜单的 启动对象 命令的通用选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 show 语句。

7.文本框(Text1)中有选定的文本，执行Text1.SelText=〝Hello〞的结果是 hellotext1

8.在程序运行时，如果将框架的 enable 属性设为False，则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。

精品文档

精品文档

9、声明如下数组：Dim a(3,-2 To 2,5)，则数组a包含的元素的个数为 120

10.赋值语句：a=123&MID(“123456”,3,2)执行后，a变量中的值是 “ 12334”

三、请完成下列的程序（共15分）

1、窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，请为下列程序编写相应的子过程。 Private Sub Text1_LostFocus()

Call CheckInput(Text1，500) End Sub

Private Sub Text2_LostFocus()

Call CheckInput(Text2，1000) End Sub

Sub CheckInput(t As Control， as integer ) If Then End If End Sub Next i

End Sub (5分)

2、子过程MoveStr()是把字符数组移动m个位置，当Tag为True时左移，将前m个字符移到字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”;当Tag为False时右移，将后m个字符移到字符数组前，如“abcdefghij”右移3个位置后，结果为“hijabcdefg”。 子过程如下：

Public Sub MoveStr(a$(),m%,Tag As Boolean) Dim I%,j%,t$ If Tag then For I=1 To m

t=a(0) For j=0 To ubound(a)-1 A(j)=a(j+1) Next j

精品文档

精品文档

A(ubound(a))=t Next I Else

For I=1 To m

t=a(ubound(a))

For j=Ubound(A) to 1 step -1 A(j)=a(j-1) Next j a(0)=c Next I End If End Sub

请在程序中下划线处填入相应的内容。

四、操作题(第一题15分，第二小题20分，共计35分)

提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存

1、编程实现打印以下图案（15分） * * * *

* * * * *

* * * *

2、统计学生成绩

设计如图所示应用程序，当单击“输入成绩”按钮时，在InputBox对话框中输入学生人数，然后在对话框中依次输入不多于人数的数个成绩。再次单击“输入成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩、平均分和未输入成绩的人数。（20分）

精品文档

精品文档

第三套试题

一、选择题（每题2分，共30分）

1.下面各种高级语言中，不是面向对象程序设计语言的是(C) （A）Visual Basic （B）C++ （C）Pascal （D）Java 2．函数DateAdd(“m”,1#1/30/2000#)语句的结果是 ( A )

（A）00-2-29 （B）00-2-28 （C）00-2-30 （D）00-1-31 3．表达式LenB(“123程序设计ABC”)的值是 (C)

（A）10 （B）14 （C）20 （D）17

4.当文本框的ScrollBars属性设置了非零值，没有效果，其原因是 ( B ) （A）文本框中没有内容 （B）文本框的MultiLine属性为False （C）文本框的MultiLine属性为True （D）文本框中的Locked属性为True 5.若要禁止窗体被用户移动，通过设置可达此要求的窗体的属性是 ( B) （A）MaxButton （B）Moveable （C）Move （D）ControlBox 6.下列语句中将按钮(Command1)的标题赋值给文本框(Text1)Text属性的是 ( B )

(A)Text1=Command1 (B)Text1=Command1.Caption (C)Text1.Text=Command1 (D)Text1.Text=CStr(Command1) 7.语句If x=1 Then y=1,下列说法正确的是 ( C ) （A）x=1和y=1均为赋值语句 （B）x=1和y=1均为关系表达式 （C）x=1为关系表达式，y=1为赋值语句 （D）x=1为赋值语句， y=1为关系表达式

8.要获得用户在组合框输入的内容，应利用的组合框的属性是( D ) （A）List （B）Selected

精品文档

精品文档

（C）ListIndex （D）Text

9.将数据项“China”添加到列表框（List1）中成为第一项应使用的语句是( A) (A)List1.AddItem〞China〞,0 （B）List1.AddItem〞China〞,1 (C)List1.AddItem 0, 〞China〞 （D）List1.AddItem 1,〞China〞 10.在下列说法中，正确的是 (B )

(A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 (B)在列表框中不能进行多项选择

(C)在列表框中能够将项目按字母顺序从大到小排列 (D)框架也有Click和DblClick事件

11.在KeyDown或KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为 ( C )

(A)(button=vbCtrlMask) And (KeyCode=vbKeyF3) (B)KeyCode=vbKeyControl+vbKeyF3

(C)(KeyCode=vbKeyF3) And (Shift And vbCtrlMask) (D)(Shift And vbCtrlMask) And (KeyCode and vbKeyF3) 12.设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next

For Each arrItem In a

If arrItem Mod 7=0 Then Print arrItem； If arrItem>90 Then Exit For Next End Sub

对于该事件过程，以下叙述中错误的是 ( B) A) a数组中的数据是30个100以内的整数 B) 语句For Each arrItem In a有语法错误

C) If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数 D) If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环 13.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 (C ) （A）Sub f2(ByVal n%,ByVal m%) （B） Sub f1(n%,ByVal m%) （C） Sub f1(n%,m%) （D） Sub f1(ByVal n%,m%) 14.以下关于MsgBox的叙述中，错误的是 (D ) （A） MsgBox函数返回一个整数

精品文档