《《VB程序设计》辅导》由会员分享，可在线阅读，更多相关《《VB程序设计》辅导（6页珍藏版）》请在金锄头文库上搜索。
1、本次考试题型与说明1. 考试题型(1) 单项选择题( 20 小题，每小题 1.5 分，共 30 分)(2) 判断题( 10 小题，每小题 1.5 分，共 15 分)(3) 填空题( 10 小题，每空 1.5 分，共 15 分)(4) 程序填空题( 2 小题，每小题 6 分，共 12 分)(5) 程序阅读题( 3 小题，每小题 5 分，共 15 分)(6) 编程题(第 1 小题 6 分，第 2 小题 7 分 ,共 13 分)2. 说明(1) 本次考试范围为教材的 1-7 章；(2) 考试时间为 90 分钟；(3) 考试形式为闭卷考试；一、基本知识点1 Visual Basic 是一种面向对象的可
2、视化程序设计语言，采取了事件驱动的编程机制。2 通常情况下 BASIC 采用编译工作方式。3当进入 VB 集成环境，发现没有显示 “工具箱 ”窗口时，应选择 “视图”菜单的“工具箱 ”选 项，使 “工具箱 ”窗口显示。4 Visual Basic 窗体文件的扩展名是 FRM ，工程文件的扩展名是 VBP。5 VB 保存新建的工程时，如果不设置保存路径，则默认的路径是 VB98 。6 如果对标签的 BackStyle 属性进行了设置，则使标签控件显示时不覆盖其背景内容。7 标签控件可以响应很多事件，包括 Click 事件， DblClick 事件和 change 事件等。8 若设置文本框的 Pa
3、sswordChar 属性值为某个字符，则用户无论输入何种字符，在文 本框中，全部显示为该字符。9 当窗体的 Enable 属性值为 False 时，该窗体上的按钮、文本框等控件都不会对用户的操 作做出反应。10 要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置 了 Locked 的属性为 True 。11 决定控件上文字的字体、字形、大小、效果的属性是 Font 属性。12 除了在程序中使用函数装载图形外，还可以在设计阶段通过修改 Picture 属性装载图 形。13 VB 中整型常数有三种表示： 十进制整型数：表示方法例如 (-23, 45, 103%, -325
4、%) 十六进制整型数：表示方法例如 (&H45, &h103, &H67bd, &Ha6%) 八进制整型数：表示方法例如 (&45, &O45, &O45%)如果写成 %45 是错误的。14 变量定义时如果没有类型说明，则默认为变体类型。15 每一个用标识符定义的变量、常量、过程都有一个有效范围，这个范围称为标识符的 作用域。16 VB 中变量有两种作业域，一是全局变量、另一种是局部变量，过程级变量属于局部变 量。17 算术运算符和其优先级别:名称运算符算术运算符人一*、/Mod+、一优先级高低18 Rnd函数是随机产生数的函数，其产生的数在 01之间的数，但不包括1。19 .表示x是5的倍数
5、或是9的倍数的逻辑表达式为：x mod 5 = 0 OR x mod 9 = 020 . Len（程序设计”）值是4, LenB（程序设计”的值是8。21 .结构化程序由三种基本结构组成，分别是顺序结构、选择结构和循环结构。22 .条件选择语句IF有单行结构和多行结构两种结构。单行结构格式：If 条件 Then 语句多行结构格式：If 条件 Then语句End If例如：If x Then t=t*xEn dif 是错误的语句23 .用Exit Do 语句可以退出 Do Loop 循环，但Exit If 不能退出If语句。24 .在执行Select Case语句时，只有满足条件的Case子句才
6、会执行，不是所有的Case子句均按出现的次序被顺序执行。25 . VB中如要对数组声明，则语句格式为：Dim 数组名 （维数定义）As 数据类型例如：Dim a（3,4） AsIn teger26 .用于引用数组特定元素的数字称为元素的下标。27 . Function过程的定义格式：Function 函数名 （ 参数表）As 类型语句序列EedFun cti on函数过程以Function开头，一定要以End Function 结束，28 . VB中过程调用有两种方法：方法1 :用Call语句调用Sub过程，格式为：Call 过程名（参数表）方法2 :把过程名作为一个语句来使用，格式为：过程名
7、参数表29 .菜单的热键就是用键盘上的Alt键和菜单项标题中带有下划线的一个字母来打开该菜单。30 .用于文件操作的控件主要有DriveListBox 、DrectoryList 、FileListBox 。程序填空1 .在窗体上有三个文本框Text1、Text2、Text3。在窗体装入时给Text1 写入” VisualBasic ” Text2写入您好！ ”，并使Text3为不可编辑，内容为空。在程序运行时完成如 下功能：操作时当Textl中输入字符，则在 Text3中显示的是以Textl内容在前，Text2内容 在后。Textl为不可操作，Text2为可操作。当Text2中输入字符，则在
8、 Text3中显示的是以 Text2内容在前，Textl内容在后。 Text2为不可操作，Textl为可操作。请完成下面程序：Private Sub Form_Lood()Textl = Visual BasicText2 =您好！ ”Text3.Locked = TrueText3 =End SubPrivate Sub Text1_Cha nge()Text3 = Text1 + Text21 : Text2.Enabled = TrueText1.E nabled =_End SubPrivate Sub Text2_ 2()Text3 =3,Text1.E nabled = TrueT
9、ext2.E nabled = FalseEnd Sub Text2 + Text1 False Cha nge2.下列程序功能：求 S = 1 + 2 + 3 + 100的和，将求和结果显示在窗体的第10列位置处，显示内容为 S = 5050。请填写程序空白处使程序完整。Private Sub Comma nd1_Click()Dim k As In teger, s As Long(1)For k = 1 To 100NextPrintPrintEnd Sub(1)_s=0_s=s+k(3)Tab(10);s3 输入任意长度的字符串，要求将字符顺序到置，例如，将输入的“ GFEDCBA”“
10、 ABCDEFG”变换成Private Sub Comma nd1_Click()Dim a$, i%, c$, d$a = InputBox(输入字符串)For i = n To 1 Step -1c =2d =3Next iPrint dEnd Sub Len (a) Mid(a, i, 1) d + c三、程序阅读1 下列程序段运行后，输出结果为 。Option Base 1Private Sub Comma nd1_Click()Dim a%(3, 3)Fori = 1 To 3Forj = 1 To 3If j 1 And i 1 Thena(i, j) = a(a(i - 1, j
11、 - 1), a(i, j - 1) + 1Elsea(i, j) = i * jEnd IfPrint a(i, j); ”;Next jPrintNext iEnd Sub1 232 313 232下列程序段运行后，输出结果为 c = 1Do While c 40c = c * (c + 1)LoopPrint c输出结果：423 下面程序运行后输出的结果是 Private Sub Comma nd1_Click()For i = 0 To 4 Print Tab(5 * i + 1); 2 + i; 2 & i;Next iEnd Sub2 20 3 21 4 22 5 23 6 244
12、 .下列命令按钮事件过程执行后，输出结果为 Private Sub Comma nd1_Click()For i = 1 To 10 Step 2A = 10For j = 1 To 10 Step 2B = 20Next jNext iPrint AEnd Sub(10 )四、编程题1 .从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第 2个元素与第9个元素互换 第5个元素 与第6个元素互换。分别输出原来各元素的值和对换后各元素的值。Private Sub Comma nd1_Click()Dim a(10) As In
13、tegerFori = 1 To 10a(i) = Val(InputBox(请输入第 ” & i & ” 个数)NextPrint 交换前:Fori = 1 To 10Print Str(a(i);NextFor i = 1 To 5temp = a(i): a(i) = a(11 - i): a(11 - i) = tempNextPrintPrint 交换后:Fori = 1 To 10Print Str(a(i);NextEnd Sub100个0999之间的整数，存放在数组中，然后在窗2 编写程序，利用随机函数产生 体上显示所有小于 500 的随机数。Private Sub Command1_Click()RandomizeDim a(100) As Integer n = 0For i = 1 To 100a(i) = Int(Rnd * 1000) If a(i) 500 Then Print a(i); n = n + 1 If n = 10 Then Print n = 0End IfEnd IfNextEnd Sub
