vb程序设计试题(含答案).docx

1、.第一套试题一、选择题（每题 2 分，共 30 分）1. 在 VB 环境中，工程文件的扩展名是( C )（ A） .frm（B） .bas（C）.vbp（ D）.frx2. 下面 4 项中不属于面向对象系统三要素的是( A )（A） ）变量（B） 事件（C） 属性（D） ）方法、/ 、Mod、* 这 4 个算述运算符中，优先级别最低的是( C )（A） ） （B） /（C） Mod（D） ）*4. 要使 Print 方法在 Form_Load 事件中起作用， 要对窗体的 ( C ) 属性进行设置（ A） BackColor（ C） AutoRedraw（B）ForeColor（D）Captio

2、n5. 不论何控件，共同具有的属性是( B )（ A） Text（ C） ForeColor（B）Name（D）Caption6. 要使 Form1 窗体的标题栏显示“欢迎使用VB”，以下语句正确的是 ( D )（ A） Form1.Caption= “欢迎使用 VB”（B）Form1.Caption= 欢迎使用 VB（ C） Form1.Caption= 欢迎使用 VB（D）Form1.Caption= 欢迎使用 VB7. VB 提供了结构化程序设计的3 种基本结构，这 3 种基本结构是 ( D )（ A）递归结构，选择结构，循环结构结构（ C）过程结构，输入、输出结构，转向结构结构（B）选

3、择结构，过程结构，顺序（D）选择结构，循环结构，顺序8. 给变量赋值 a=123+MID(“123456”,3,2) ，a 变量中的值是 ( D )（ A）“12334”（B）123（ C） 12334（D）1579. 下面 If 语句统计满足性别为男、 职称为副教授以上、 年龄小于 40 岁条件的人数，不正确的语句是 ( D )（A） ） If sex= “男”And age40 And InStr(duty,“教授”) 0 Then n=n+1（B） ） If sex= “男”And age40 And (duty= “教授”Or duty= “副教授” ) Then n=n+1（C） ）

4、 If sex= “男”And age40 And Right(duty,2)=“教授” Then n=n+1（D） ） If sex=“男”Andage 40 And duty= “教授”And duty=“副教授” Then n=n+110. 若要清除列表框的所有内容，可用来实现的方法是( C ).（ A） RemoveItem（ C） Clear（B）Cls（D）以上均不可以3. 要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是( B )（ A） Timer1.Visible=False（ A） Timer1.Interval=1000（B）Timer1.Ena

5、bled=False（D）Timer1.Index=04. 引用列表框 (List1)最后一个数据项应使用的语 ( B ) (A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1) (C)List1.List(ListCount)(D)List1.List(ListCount-1)5. 如下数组声明语句，正确的是( B )（ A） Dim a3,4As Integer（ C） Dim a(n,n) As Integer（B）Dim a(3,4)As Integer（D）Dim a(3,4)As Integer6. 下面子过程

6、语句说明合法的是(A、D )（ A） Sub f1(ByVal n%)（ C） Function f1%(f1%)（B）Sub f1(n%)As Integer（D）Function f1(ByVal n%)7. 假定有如下的命令按钮 ( 名称为 Command1 事) 件过程：Private Sub Command1_Click() x=InputBox( 输入： ， 输入整数 )MsgBox输入的数据是：”，”输入数据：+x End Sub8. 程序运行后，单击命令按钮，如果从键盘上输入整数的是( A )10，则以下叙述中错误（ A）x 的值是数值 10（ C）信息框的标题是“输入数据：1

7、0”据是：”（ B）输入对话框的标题是“输入整数”（ D）信息框中显示的是“输入的数二、填空题（每题 2 分，共 20 分）1、当进入 VB 集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。2、VB 是一种面向编程机制。对象的程序设计语言，采用了事件驱动.3、Int(-5.5)、 -5、Int(5.5)、Fix(-5.5)、Round(-5.5) 的值分别是-6、 5、 -6。4、表达式 Ucase(Mid( “abcdefgh ”,3,4)的值是CDEF。5、将文本框的 ScrollBar的属性设置为 2(有垂直滚动条 ) ，但没有垂直滚动条显示，原

8、因是没有将multline 6、VB 的注释语句采用 间用：字符分隔。7、列表框中项目的序号是从属性设置为 True。字符开头，若一行上书写多个语句，则各语句0开始的。8、列表框中的list和 selected属性是数组。9、如果要每隔 15 秒产生一个计时器事件，则Interval。属性应设置为1500010、在 VB 中，事件过程名由sub三、请完成下列的程序（共15 分）和 function构成。1、以下程序的功能是：生成20 个 200 到 300 之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Commandl_C1ick()Fori 1To 2

9、0x Int(_ rnd*101+200 ) If_ x mod 5=0 Then Print xSS 十 x End If Next iPrint Sum ：SEnd Sub(5分)2、某次大奖赛，有 7 个评委打分，如下程序对一名参赛者，输入 7 个评委的打分分数，去掉一个最高分和一个最低分后， 求出平均分为该参赛者的得分。 请在下划线处填入相应的内容。Private Sub Command1_Click() Dim mark!,aver!I%,max1!min1! aver=0For i=1 To 7Mark=InputBox( “输入第” &i&“位评委的打分” ).If i=1 Th

10、enMax1=mark: min1=mark ElseIf mark min1 Then Min1=markElseIf markmax1 Then Max1=markEnd If End IfAver=aver+mark Next iAver= Print averEnd Sub四、操作题 ( 第一题 15 分，第二小题 20 分，共计 35 分)提示：请同学们在E 盘下面建立一个以自己的名字和学号命名的文件夹， 然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存1、斐波纳契（Fibonacci ）数列的第一项是 1. 第二项是 1，以后各项都是前两项的和。试

11、用递归算法编写一个程序，求斐波纳契数列第N 项的值。（ 15 分）2、设计一个窗体，在窗体中设置3 个标签、1 个文本框、2 个单选按钮、 3 个复选按钮和两个命令按钮。 在文本框中输入某人的姓名， 并在性别和爱好项目中进 行选择， 单击“显示资料” 命令按钮， 将个人资料显示出来； 单击“充填” 按钮， 将文本内容清楚，选项回复到初始状态（20 分）第二套试题一、选择题（每题 2 分，共 30 分）.9. 在 VB 集成环境创建 VB 应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是 ( C )（A） ）窗体布局窗口（B） 立即窗口（C） 代码窗口（D） 监视窗口2表达式

12、16/4-25*8/4MOD52 的值为 ( B )（ A） 14（B）4（C）20（D）23Int(198.555*100+0.5)/100的值为 ( C )（ A） 198（B）199.6（C）198.56（D）2004已知 A$=“12345678”，则表达式 Val(Left$(A$,4)+Mid$(a $,4,2) 的值为( B )（ A） 123456（ B） 123445（C）8（D）65表达式 DateDiff （“y”,#12/30/1999#,#1/13/2000#）的结果是 ( C )注： 一个 Y 表示相隔天数，四个 Y 表示相隔年数。（ A） 1（ B） 11（C）1

13、4（D）9911. 若要使命令按钮不可操作，要设置的属性是( A )（A） ） Enabled（B） Visible（C） ） BackCol（D） Caption12. 文本框所没有的属性是( D )（ A） Enabled（B）Visible（C） BackColor（D） ） Caption13. 要设置命令按钮的背景图形，必须设置的两个属性是( A )（ A） Style 和 Picture（ C） Caption 和 Picture14. 下面正确的赋值语句是( C )（B）Style 和 Icon（D）Value 和 Icon（A） ） x+y=30（B） y= *r*r（C） y

14、=x+30（D） ） 3y=x15. 下面程序段求两个数中的大数，不正确的是( D )（ A） Max=IIf(x y,x,y)（ C） Max=xIf y x Then Max=y16. 以下关于 Visual Basic（B）If x yThen Max=x Else Max=y（D）If y=x Then Max=y Max=x特点的叙述中，错误的是 ( D)（A） ） Visual Basic（B） ） Visual Basic是采用事件驱动编程机制的语言程序既可以编译运行，也可以解释运行（C） ） 构 成 Visual Basic程序的多个过程没有固定的执行顺序（D） ） Visua

15、l Basic程序不是结构化程序，不具备结构化程序的三种基本结构17. 复选框的 Value 属性为 1 时，表示 ( B )（ A）复选框未被选中（ C）复选框内有灰色的勾（B）复选框被选中（D）复选框操作有错误18. 在下列关于键盘事件的说法中，正确的是.(D).（A） ）按下键盘上的任意一个键都会引发KeyPress 事件（B） ）大键盘上的“ 1”键和数字键盘的“ 1”键的 KeyCode 码相同（C） ） KeyDown 和 KeyUp 的事件过程中有 KeyAscii 参数（D） ）大键盘上的“ 4”键的上档字符是“ $”，当同时按下 Shift和大键盘上的“ 4”键时10. 如果

16、列表框 (List1)中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex(A) 移去第一项语句的结果是 ( A ) (B)移去最后一项(C) 移去最后加入列表的一项11. 设有如下语句：Dim a，b As Integer c=VisualBasic d=#7202005#(D)以上都不对以下关于这段代码的叙述中，错误的是( A )（ A） a 被定为义Integer 类型变量（B） b 被定义为Integer类型变量（ C） c 中的数据是字符串（D）d 中的数据是日期类型二、填空题（每题2 分，共 20 分）1. 在 VB 中，要显示程序代码，必须在代

17、码窗口；要设计程序的运行界面，必须在窗体窗口。2. 整型变量x 中存放了一个二位数，要将二位数交换位置，例如，13 变3成1，实现的表达式是x10+(x mod 10)*103. 数学表达式sin15 +-ln(3x) 的 VB 算术表达式s为in(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类型。、 double19. 若已建立了 Form1 和 Form2 两个窗体，默认启动窗体为Form1。通过工程属性

18、菜单的启动对象 命令的通用选项卡，可将启动窗体设置为Form2。在程序中若要显示 Form1 窗体，则执行 show语句。20. 文本框 (Text1) 中有选定的文本，行执hellotext1Text1.SelText= Hello 的结果是21. 在程序运行时，如果将框架的enable属性设为False ，则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行。操作.9、声明如下数组： Dim a(3,-2 To 2,5) ，则数组 a 包含的元素的个数为 12012. 赋值语句： a=123&MID(“ 123456”,3,2) 执行后，a 变量中的值是“ 12334”三、

19、请完成下列的程序（共 15 分）1、窗体上有名称分别为 Text1 、Text2 的 2 个文本框， 要求文本框 Text1 中输入的数据小于 500，文本框 Text2 中输入的数据小于 1000，否则重新输入。 为了实现上述功能，请为下列程序编写相应的子过程。Private Sub Text1_LostFocus()Call CheckInput(Text1 End Sub，500)Private Sub Text2_LostFocus()Call CheckInput(Text2 End SubSub CheckInput(t As Control，1000)， as integer)I

20、fThenEnd If End Sub Next iEnd 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 thenFor

21、 I=1 To mt=a(0)For j=0 To ubound(a)-1 A(j)=a(j+1)Next j.A(ubound(a)=t Next IElseFor 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 IEnd If End Sub请在程序中下划线处填入相应的内容。四、操作题 ( 第一题 15 分，第二小题 20 分，共计 35 分)提示：请同学们在E 盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存， 但

22、窗体一定要保存1、编程实现打印以下图案（ 15 分）* * * * * * * * *2、统计学生成绩设计如图所示应用程序，当单击“输入成绩”按钮时，在InputBox 对话框中输入学生人数， 然后在对话框中依次输入不多于人数的数个成绩。再次单击“输入成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩、 平均分和未输入成绩的人数。（ 20 分）.第三套试题一、选择题（每题 2 分，共 30 分）13. 下面各种高级语言中，不是面向对象程序设计语言的是(C)（ A） Visual Basic（ B） C+（C） Pascal（D） ） Java2函数 DateAdd(“ m” ,1#1

23、/30/2000#) 语句的结果是 ( A )（ A） 00-2-29（B）00-2-28（C）00-2-30（D）00-1-313表达式 LenB(“123 程序设计 ABC”) 的值是 (C)（ A） 10（B）14（C）20（D）1722. 当文本框的 ScrollBars属性设置了非零值，没有效果，其原因是( B )（ A）文本框中没有内容（B）文本框的 MultiLine属性为 False（ C）文本框的 MultiLine属性为 True （D）文本框中的 Locked 属性为 True23. 若要禁止窗体被用户移动，通过设置可达此要求的窗体的属性是( B)（ A） MaxButt

24、on（B）Moveable（C）Move（ D） ControlBox24. 下列语句中将按钮 (Command1 的) 标题赋值给文本框 (Text1)Text属性的是( B )(A)Text1=Command1 (C)Text1.Text=Command125. 语句 If x=1 Then y=1,(B)Text1=Command1.Caption (D)Text1.Text=CStr(Command1)下列说法正确的是 ( C )（A） ） x=1 和 y=1 均为赋值语句（B） ） x=1 和 y=1 均为关系表达式（C） ） x=1 为关系表达式， y=1 为赋值语句（D） ） x

25、=1 为赋值语句， y=1 为关系表达式26. 要获得用户在组合框输入的内容，应利用的组合框的属性是（ A） List（B）Selected( D ).（ C） ListIndex（D）Text14. 将数据项“China”添加到列表框（ List1 ）中成为第一项应使用的语句是( A)(A)List1.AddItemChina,0（B）List1.AddItem China,1(C)List1.AddItem 0,China（D）List1.AddItem 1,China15. 在下列说法中，正确的是(B )(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中

26、不能进行多项选择(C) 在列表框中能够将项目按字母顺序从大到小排列(D) 框架也有 Click 和 DblClick事件16. 在 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)17.

27、 设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click() Dim a(30)As IntegerFor i=1 To 30 a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem90 Then Exit For NextEnd Sub对于该事件过程，以下叙述中错误的是( B)A) a 数组中的数据是 30 个 100 以内的整数B) 语句 For Each arrItem In a有语法错误C) If arrI

28、tem Mod 7=0,语句的功能是输出数组中能够被7 整除的数D) If arrItem90,语句的作用是当数组元素的值大于90 时退出 For 循环18. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是(C )（ A） Sub f2(ByVal n%,ByVal m%)（ C） Sub f1(n%,m%)（ B） Sub f1(n%,ByVal m%)（ D） Sub f1(ByVal n%,m%)19. 以下关于 MsgBox 的叙述中，错误的是(D )（A） ） MsgBox 函数返回一个整数.（B） ）通过 MsgBox 函数可以设置信息框中图标和按钮的类型（C） ） M

29、sgBox 语句没有返回值（D） ） MsgBox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量15设 x=4,y=8,z=7 ，表达式 xz) Or zx的值是 ( D )（ A） 1（B） -1（ C） True（ D） False二、填空题（每题 2 分，共 20 分）1 在 VB 中设置或修改一个对象的属性的方法有两种，它们分别是和 代码窗口 。属性窗口2InStr(7 ，“什么 ASCII 是 ASCII 编码”，“ASCII”) 的结果InStr( “什么 ASCII 是 ASCII 编码”，“ ASCII”) 的结果39；。3. 给变量w 赋值：w=Choos

30、e(Weekda“y( 2010,1,26 ”),“Red”,“Green”,“ Blue”,“ Yellow ”) 后，变量 w 中的值是星期二。4. 将 alignment属性设置为 1，单选按钮和复选框的标题显示在左边；将style属性设置为 1，单选按钮和复选框以图形方式显示。20. 在窗体上有若干控件， 其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab顺序的属性是tabindex。21. 表达式 5/4*65 Mod 2的值是。7为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 interval属性设置为500

31、。27. Rnd 函数的值的范围为0,1）。28. 为了给 x,y,z这 3 个变量赋初值 1，正确的赋值语句是。29. 数组：Dim a(4,-2 To 3,3)包含的元素的个数为120。三、请完成下列的程序（共15 分）1. 一下程序实现的是求解1！2！3！, +n! 的值，其中 n 的值由输入框读入。请在程序中下划线处填入相应的内容。(5 分)Dim n, sum, multi as longDim I ,j as longNsum=for I=1 to n=val(inputbox(“输入0N的值是：”)multi= 1.for j=1 to Imulti=multi*jnext j

32、sum=sum+multinext I print sum22. 输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写， 直接按 Enter 键结束，并显示结果。其中，CountY 中放元音字母个数， CountC 中放其他字符数。Dim CountY%,CountC%Private Sub Text1_KeyPress(KeyAscii As Integer) Dim C$C=ucase(ch,(keyascii)If “A”=C And C=“Z”ThenSelect CaseCCase“ a”, ” e”, ”i ”, ”o”, ”u”CountY=CountY+1 Cas

33、eelseCountC=CountC+1 End SelectEnd IfIfkeyascii=13ThenPrint “元音字母有”； CountY；“个” Print “其它字母有”； CountC；“个”End If End Sub请在程序中下划线处填入相应的内容。四、操作题 ( 第一题 15 分，第二小题 20 分，共计 35 分)提示：请同学们在E 盘下面建立一个以自己的名字和学号命名的文件夹， 然后将自己设计的窗体文件保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存1、编程实现打印以下图案（ 15 分）aabc.abcde abcdefg abcdefghi2、用单选按钮和复选框控制文本框中输入的字体要求：两个单选按钮，两个复选框（图形）。一个文本框（设计时已经输入 文字，字体三号）。一个图片框，用于显示文本框中文本的字体。一个命令按钮用于切换字体。界面设计如图所示（ 20 分）.