VB期末复习题

1 在 Visual Basic 中 下列 函数的值只为 1 0 1 A INT X B ABS X C SQR X D SGN X 解释 Sqr x 是求算术平方根函数 Sgn x 是符号函数 当 X 为正数时值为 1 负数时值为 1 0 时值为 0 Sgn 121 1 Sgn 121 1 Sgn 0 0 2 下列 Visual Basic 程序段运行后 变量 a b c 的值为 a 1 b 1 c 1 Do While a b cSqr y A 7 B 8 C 9 D 10 4 下列 VB 变量名中 是非法的变量名 A Y3 B SPM 1 C H 2 D 书名 5 下列 Visual Basic 程序段运行后 变量 s 的值为 a 2 b 1 s 0 For i 10 To 6 Step 1 s s a c a b a b b c Next i A 10 B 17 C 6 D 28 6 下列 Visual Basic 中 下列 类型属于字符串型 A Integer B Single C String D Boolean 7 在 Visual Basic 中程序段是计算 公式的 s 0 t 1 For i 1 To 10 t t i s s t Next i A s 1 2 3 4 5 6 7 8 9 10 B s 1 2 3 4 5 6 7 8 9 10 C s 1 2 3 4 5 6 7 8 9 10 D s 1 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 8 下列 Visual Basic 中 下列 单词用于注释语句 A Rem B End C Else D Loop 9 下列 Visual Basic 程序段运行后 变量 s t 的值为 s 0 t 1 For k 2 To 4 s s k t t k Next k A 2 2 B 9 24 C 5 6 D 0 1 10 假定 X 是一个数值型变量 那么由函数组成的表达式 INT X 2 X 2 A 用于测试 X 是否偶数 B 返回一个整数 C 返回一个奇数 D 用于测试 X 是否整数 11 下列 Visual Basic 程序段运行后 变量 Value 的值为 x 20 IF x 10 Then Value 5 x Else Value 4 x A 100 B 80 C 90 D 70 12 下列 Visual Basic 中 下列 程序是对的 A X Y 5 B A B C 3 C Y 1 Y Y 1 D I X10 13 下列 Visual Basic 程序段运行后 变量 max 的值为 a 5 b 10 max a IF b max Then max b A 5 B 10 C 5 和 10 D 以上都不是 14 下列 Visual Basic 中 下列 是合法的变量名 A Rem B End C Loop D Sum 15 下列 Visual Basic 程序段运行后 变量 a b 的值为 a 3 b 4 IF a b Then x a a b b x A 3 4 B 4 3 C 3 3 D 4 4 16 下列 Visual Basic 中 下列 的表达式的值不等于 4 A int 4 1 B Int 4 9 C Abs int 3 9 D Abs int 4 5 17 下列 Visual Basic 程序段运行后 变量 m 的值为 a 2 b 1 c 5 IF a b Then m a Else m b IF c m Then m c A 2 B 1 C 5 D 以上答案均不是 18 下列 不是 VB 程序的基本结构 A 层次结构 B 选择结构 C 循环结构 D 顺序结构 19 下列 Visual Basic 程序段运行后 变量 n 的值为 n 0 For x 3 To 11 Step 2 n n 1 Next x A 4 B 5 C 6 D 7 的值是 20 要改变新建对象的缺省名称 应使用属性 A Font B ForeColor C Name D Height 21 下列属于字符常量的是 A Abs x B 100 C val 100 D 10000 100 22 要改变一对象的高度 应使用属性 A Font B ForeColor C Name D Height 23 下列语句中 定义了一个实型变量 A Dim I As Integer B Dim Sum As Single C Dim Name As String D wjm 信息技术 24 要使一个控件在运行时无效 正确的设置是 A 把属性 Enabled 设置为 True B 把属性 Enabled 设置为 False C 把属性 Visibled 设置为 True D 把属性 Visibled 设置为 False 25 函数 Int 3 6 的值是 A 3 B 3 C 4 D 4 26 要使一个命令按钮显示文字 确定 正确的设置是把该命令的 A 属性 Font 设置为 确定 B 属性 ForeColor 设置为 确定 C 属性 Caption 设置为 确定 D 属性 BorderStyle 设置为 确定 27 表达式 Abs 3 6 sqr 100 的值是 A 360 B 360 C 36 D 36 28 单击命令按钮 Command1 必将调用已写在 事件中的代码 A LostFocus B KeyPress C Dbclick D Click 参考答案 1 D 2 C 3 C 4 C D 5 B 6 C 7 C 8 A 9 B 10 A 11 A 12 C 13 B 14 D 15 A 16 D 17 B 18 A 19 B 20 C 21 B 22 D 23 B 24 B 25 C 26 C 27 D 28 D 29 当文本框的内容发生变化时 必将触发 事件 A LostFocus B KeyPress C Change D Click 答案 C 解释 VB 在运行中 移动鼠标或输入文字或击键都称为一个事件 LostFocus 为失去当前的激活状态 Setfoucs 与之相对应意为将插入点移动过来 KeyPress 表示击键盘上某个键位产生的事件 Change 表示当前对象发生改变 Click 表示鼠标单击事件 DblClick 表示鼠标双击事件 30 在 Visual Basic 中调整应用程序的文件集合时 通常采用 A 属性窗口 B 代码编辑窗口 C 窗体设计器窗口 D 工程资源管理器窗口 答案 D 解释 属性窗口是设置 VB 中窗体和控件的属性的 比如颜色 字体 外观等 代码编辑窗口是 VB 中编写程序代码的窗口 窗体设计器窗口是用来设计一个可视化的界面的 也就是程序界面 工程资源管理器窗口列出当前工程窗口中的窗体和模块文件 31 代数表达式中的求根公式的一种改成 VB 表达式是 A b sqr b b 4 a c 2 a B b sqr b b 4 a c 2 a C b sqr b b 4 a c 2 a D b b b 4 a c 2 a 答案 A 解释 本题考的是 VB 表达式的书写 在书写 VB 表达式时要遵循一定的规则 一是 VB 表达式书写要在一行内 二是乘号 不能省略 三是要遵守运算符的优先级别高低次序 四是 要符原来算术表达式的意思不能有错误 32 在 Visual Basic 中 设置控件的大小 可改变下列 属性 A Height 与 Width B Height 与 Top C Left 与 Top D Left 与 Width 答案 A 解释 VB 中对控件的设置 通常会用到的是对它的属性值的修改 因些要了解相关属性的作用 属性在 取名时通常用到的是英文的表示方式 要记住一些常用的属性 表示大小通过 Height 高度 与 Width 宽度 来设置 表示位置通过 Top 距窗体顶面 与 Left 距窗体左端 来设置 表示颜色通过 Forecolor 前景色 文字颜色 与 Backcolor 背景色 来设置 表示字体通过 Font 字体 来设置 33 要改变控件的宽度 应改变控件的 属性 A Width B Heigh C Top D Left 答案 A 34 在 Visual Basic 中 设置控件的位置 可改变下列 属性 A Height 与 Width B height 与 Top C Left 与 Top D Left 与 Width 答案 C 35 下列 Visual Basic 程序段运行后 变量 S T 的结果为 S 0 T 1 For K 2 To 4 S S K T T K Next K A 2 2 B 9 24 C 5 6 D 0 1 答案 B 解释 做循环时是将变 K 的值的值从 2 变化到 4 每次变化一个步长 1 K 2 3 4 S s k 0 2 5 9 T t k 1 2 6 24 36 下列 Visual Basic 程序段运行后 变量 n 的值为 n 0 For x 3 To 11 Step 2 n n 1 Next x A 4 B 5 C 6 D 7 答案 B 解释 Step 2 表示步长为 2 也是就是循环每次变化为 2 X 3 5 7 9 11 N n 1 1 2 3 4 5 37 下列 Visual Basic 程序段运行后 变量 a b c 的值为 a 1 b 1 c 1 Do While a b c 10 a a 1 b b 2 c b 2 Loop A 2 2 1 B 3 4 1 C 4 8 4 D 4 4 2 答案 C 解释 a b c 10 3 10 5 10 910 a a 1 1 2 3 4 b b 2 1 2 4 8 c b 2 1 1 2 4 38 下列 Visual Basic 程序段运行后 变量 x 的值为 x 3 y 77 do x x 2 Loop until x sqr y A 7 B 8 C 9 D 10 答案 C 解释 x sqr y 3 sqr 77 5 sqr 77 7sqr 77 x x 2 3579 39 下列 Visual Basic 程序段中 循环体执行的次数为 y 2 do while yb and Not c a Or c b And c 4 Print s End Sub 40 阅读以下程序 Private Sub Form click Dim k n m As integer n 10 m l k l Do While k n m m 2 k k 1 Loop Print m End Sub 单击窗体程序的执行结果是 21 41 数据库三级模式体系结构的划分 有利于保持数据库的 数据独立性 42 算法的复杂度主要包括 时间 复杂度和 空间 复杂度 43 数据的物理结构在计算机存储空间中的存放形式称为数据的 内模式或物理模式或存储模式 44 在关系运算中 查找满足一定条件的元组的运算称之为 选择 45 随机生成一个 1 6 的随机整数的表达式是 INT 6 RND 1 46 设置计时器事件之间的间隔要通过计时器的 INTERVAL 属性 47 以下语句的输出结果是 4 a 4 5678 Print a 48 下列语句的输出结果是 12345 68 Print Int 12345 6789 100 0 5 100 49 窗体 图片框或图像框中的图形通过对象的 PICTURE 属性设置 50 由 Arry 函数建立的数组的名字必须是 VARIANT 类型 51 以下程序段的输出结果是 3 num 0 While num 5 59 表达式 Fix 32 Int 24 的值为 56 60 VB 表达式 INT 4 8 6 2 FIX 4 8 的值是 7 61 在 VB 中向组合框中增加数据项所采用的方法为 additem 62 DIM a 3 3 to 0 3 to 6 as String 语句定义的数组元素有 64 个 63 在窗体中添加一个命令按钮 然后编写如下代码 Private Sub Command1 Click a InputBox 请输入一个整数 B InputBox 请输入一个整数 Print Val a Val B End Sub 程序运行后 单击命令按钮 在输入对话框中分别输入 21 和 45 输出结果为 66 64 若 I n 均为整型变量 下列程序段的输出结果为 5 Private Sub Form Click n 0 For i 1 To 10 If i Mod 2 1 Then n n 1 Next i Print n End Sub 65 设 A 5 B 6 C 7 D 8 计算表达式 3 2 B OR A C AND BC OR C D 的值是 false 66 鼠标的光标在不同的窗口内 其形状是不一样的 光标的形状通过 mousepointer 属性来设置 67 下面程序运行时 内层循环的循环总次数是 6 For m 1 To 3 For n 0 To m 1 Next n Next m 68 定义语句 Dim A 3 to 3 as Integer 定义数组的元素个数是 6 69 执行下面的程序段后 X 的值为 8 X 5 For I 1 to 10 Step 2 X X I Next I 70 在窗体中添加一个命令按钮 然后编写如下过程 Function fun ByVal num As Long As Long Dim k As Long k 1 num Abs num Do While num k k num Mod 10 num num 10 Loop fun k End Function Private Sub Command1 Click Dim n As Long Dim r As Long n InputBox 请输入一个数 n CLng n r fun n Print r End Sub 程序运行后 单击命令按钮 在对话框中输入 234 输出结果为 24 VB 程序分析题 程序分析题 1 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮 然后编写如下事件代码 Private Sub Command1 Click Dim i As Integer n As Integer For i 0 To 50 i i 3 n n 1 If i 10 Then Exit For Next Text1 Text Str n End Sub 程序运行后 单击命令按钮 在文本框中显示的值是 2 在窗体上画一个命令按钮 名称为 Command1 然后编写如下程序 Private Sub Command1 Click For i 1 To 4 For j 0 To i Print Chr 65 i Next Print Next End Sub 程序运行后 单击命令按钮 在窗体中显示的值是 3 在窗体上画一个命令按钮 名称为 Command1 然后编写如下程序 Private Sub Command1 Click For i 1 To 4 x 4 For j 1 To 3 x 3 For k 1 To 2 x x 6 Next Next Next Print x End Sub 程序运行后 单击命令按钮 输出的结果是 4 在窗体上画一个命令按钮 名称为 Command1 然后编写如下程序 Private Sub Command1 Click x 0 Do Until x 1 a InputBox 请输入 a 的值 b Val a b InputBox 请输入 b 的值 b Val b x InputBox 请输入 x 的值 x Val x a a b x Loop Print a End Sub 程序运行后 单击命令按钮 依次在输入对话框中输入 5 4 3 2 1 1 则输出结果为 5 阅读下面的程序段 For i 1 To 3 For j 1 To i For k j To 3 a a 1 Next Next Next 执行上面的三重循环后 a 的值为 6 下列程序为求 Sn a aa aaa aa a n 个 a 其中 a 为一个随机产生的 1 至 9 包括 1 9 中的一 个正整数 n 是一个随机产生的 5 至 10 包括 5 10 中的一个正整数 请将程序补充完整 Private Sub Form Load Dim a As Integer n As Integer s As Double Sn As Double a Fix 9 Rnd 1 n Fix 6 Rnd 5 Sn 0 s 0 For i 1 To s s a 10 i 1 Print Sn Next End Sub 7 在窗体上画一个命令按钮 名称为 Command1 然后编写如下代码 Option Base 1 Private Sub Command1 Click Dim a 10 p 3 As Integer k 5 For i 1 To 10 a i i Next i For i 1 To 3 p i a i i Next i For i 1 To 3 k k p i 2 Next i Print k End Sub 程序运行后 单击命令按钮 输出结果是 8 在窗体上画一个命令按钮 Command1 然后编写如下代码 Private Sub Command1 Click Dim a a Array 1 2 3 4 j 1 For i 3 To 0 Step 1 s s a i j j j 10 Next i Print s End Sub 程序运行后 单击命令按钮 输出结果是 9 在窗体上画一个命令按钮 Command1 然后编写如下代码 Private Sub Command1 Click Dim a 4 4 For i 1 To 4 For j 1 To 4 a i j i 1 3 j Next j Next i For i 3 To 4 For j 3 To 4 Print a j i Next j Print Next i End Sub 程序运行后 单击命令按钮 输出结果是 10 在窗体上画一个命令按钮 Command1 然后编写如下代码 Private Sub Command1 Click Dim a 5 For i 0 To 4 a i i 1 t i 1 If t 3 Then Print a i a t 1 a i 2 Else a t a i End If If i 3 Then a i 1 a t 4 a 4 1 Print a i Next i End Sub 程序运行后 单击命令按钮 输出结果是 11 在窗体上画一个命令按钮 Command1 然后编写如下代码 Private Sub Command1 Click Dim arr As Integer ReDim arr 3 For i 0 To 3 arr i i Next i x InputBox 请输入一个数字 If Val x 4 Then ReDim arr 4 arr 4 x End If Me Print arr 4 arr 3 End Sub 程序运行后 单击命令按钮 在输入对话框中输入 12 输出结果为 12 阅读程序 Function F a As Integer b 0 Static c b b 1 c c 1 F a b c End Function Private Sub Command1 Click Dim a As Integer a 2 For i 1 To 3 Print F a Next i End Sub 程序运行后 单击命令按钮 输出结果为 13 假定有以下过程 Function Func a As Integer b As Integer As Integer Static m As Integer i As Integer m 0 i 2 i i m 1 m i a b Func m End Function 在窗体上画一个命令按钮 然后编写如下事件过程 Private Sub Command1 Click Dim k As Integer m As Integer Dim p As Integer k 4 m 1 p Func k m Print p p Func k m Print p End Sub 程序运行后 单击命令按钮 输出结果为 14 在窗体上画两个标签和一个命令按钮 其名称分别为 Label1 Label2 和 Command1 然后编写如下程 序 Private Sub Func L As Label ByVal a As Integer Static m As Integer i As Integer L Caption 1234 a a a End Sub Private Sub Form Load Label1 Caption ABCD Label2 Caption 10 End Sub Private Sub Command1 Click a Val Label2 Caption Call Func Label1 a Label2 Caption a End Sub 程序运行后 单击命令按钮 在两个标签 Label1 和 Label2 中显示的内容分别是 15 在窗体上画一个命令按钮 然后编写如下代码 Sub s1 ByVal x As Integer ByVal y As Integer Dim t As Integer t x x y y t End Sub Private Sub Command1 Click Dim a As Integer b As Integer a 10 b 30 s1 a b Print a a b b End Sub 程序运行后 单击命令按钮 输出结果为 16 在窗体上画一个命令按钮 然后编写如下代码 Function fun ByVal num As Long As Long Dim k As Long k 1 num Abs num Do While num k k num Mod 10 num num 10 Loop fun k End Function Private Sub Command1 Click Dim n As Long r As Long n InputBox 请输入一个数 n Val n r fun n Print r End Sub 程序运行后 单击命令按钮 在输入对话框中输入 234 输出结果为 17 以下程序执行结果 s 的值是 Private Sub sub1 ByVal p As Integer p p 2 End Sub Private Sub Command1 Click Dim i As Integer i 3 Call sub1 i If i 4 Then i i Mod 2 Print Str i End Sub 18 在窗体上画一个命令按钮 Command1