【vb】大一期末考试试题vb

一 单项选择题 共 10 分 1 在代码中引用一个控件时 应使用控件的 属性 A Caption B Name C Text D Index 2 设变量 x 4 y 1 a 7 b 8 下面表达式 的值为 假 A x a 0 AND y y D x y a b AND NOT y b c AND a d 的值为 6 要使标签的大小自动与所显示的文本相适应 可以通过设置 属性为 True 来实现 7 若要在一行书写多条语句 则各语句间应加分隔符 Visual Basic 的语句分隔符为 8 要强制显式声明变量 使用 语句完成 9 在 VB 中 用户定义常量使用 语句 声明变量使用 语句 三 将下列数学表达式转换为 VB 表达式 6 分 1 a2 2ab b2 2 3 8exln10 4 2sin 450 cos 450 5 6 四 判断题 正确打 错误打 10 分 1 在 VB 中 控件的事件只能通过用户的操作触发 2 字符型数据以双引号作为定界符 输出时双引号本身不会显示在屏幕上 3 保存工程时 窗体文件和工程文件的文件名不能相同 4 改变控件的大小 可以使用鼠标和键盘 还可以通过修改代码 5 同一过程中 数组和简单变量可以同名 6 VB 函数中的参数可以是常量 变量 表达式 还可以是另一个函数 7 代码 Const Number1 15 Number1 10 合法 8 允许将块 If Then 语句结构中的所有语句都写在一行上 9 定义数组语句 Dim a b As Integer 是正确的 10 在过程调用中 实参表 和 形参表 中对应的变量名不必相同 但是变量的个数必须相等 而且实际参数的类型必须与相应形式参数的类型相符 五 根据题意 将下列程序补充完整 16 分 1 产生 20 个 10 100 之间的随机整数 每行输出 10 个数据 Private Sub command1 click Dim a 1 To 20 As Integer Randomize i 0 Do While i 10 Then Print a i Loop End Sub 2 打印九九乘法表 Private Sub command1 click For i 1 To 9 For j 1 To 9 Print Next j Print End Sub 3 判断一个数是否素数 Private Sub command1 click x InputBox 请输入一个整数 flag 1 For i 2 To If x Mod i 0 Then flag 0 End If Next i If Then Print x 是素数 Else Print x 不是素数 End Sub 4 利用数组输出 Fibonacci 数列的前 15 项 该数列的第 1 项和第 2 项为 1 其余各项均为其前两项之和 Private Sub Command1 Click f 1 1 f 2 1 List1 AddItem f 1 List1 AddItem f 2 For i 3 To 15 f i List1 AddItem f i Next i End Sub 六 写出下面程序的输出结果 每题 3 分 共 18 分 1 Private Sub command1 click x InputBox enter x x 的输入值为 8 Select Case Sgn x 2 Case 1 Print y x 2 1 Case 2 Print y x 4 Case 3 Print y x 3 100 End Select End Sub 2 Private Sub command1 click Dim a b c d e As String a Zheng Zhou b Zhong Yuan Gong Xue Yuan c a b d Left a 1 Mid a 7 1 e Left b 1 Mid b 12 1 Print c Print d e End Sub 3 设有 Sub 过程 Private Sub p1 x As Integer ByVal y As Integer x 4 y 5 z 6 End Sub 则如下程序段的运行结果是 Private Sub Command1 Click Dim x As Integer y As Integer x 1 y 2 z 3 Print x y z Call p1 x y Print x y z End Sub 4 Private Sub command1 click k 0 For i 1 To 3 k k 1 a i i k Print a Next i End Sub 5 Private Sub command1 click Dim a 5 5 As Integer For i 1 To 5 For j 1 To 5 a i j i 2 j Print a i j Next j Print Next i End Sub 6 设有 Function 过程 Private Function f1 b a a a a b b b f1 a b End Function 则如下程序段的运行结果是什么 Private Sub command1 click a 4 b 3 a f1 a b Print a End Sub 七 编程题 共 30 分 注意 艺术类学生 环艺 装潢 表演 服设 做第 1 2 5 6 小题 其他学生做 第 1 2 3 4 小题 1 给出一个百分制的成绩 要求输出成绩的相应等级 7 分 90 分以上为 A 80 89 分为 B 70 79 分为 C 60 69 分为 D 60 分以下为 E 2 求 n n 由键盘输入 7 分 3 产生 20 个 0 99 之间的随机整数 并按从小到大的顺序输出 8 分 4 产生并输出一个 6 6 的二维数组 A 8 分 1 两条对角线上元素的值为 1 其余元素为小于 30 的随机整数 2 计算各行元素的平均值 输出平均值最大和平均值最小的行号 5 输出 1 2 100 的和 并求出 1 100 之间能被 17 整除的数据的个数 8 分 6 从键盘输入 10 个数 求出其中的最大数 最小数和平均值 8 分 VB 试题答案及评分标准 一 单项选择题 每题 1 分 共 10 分 1 B 2 A 3 C 4 C 5 D 6 D 7 A 8 B 9 D 10 B 二 填空题 每空 1 分 共 10 分 1 n Mod 13 0 And n Mod 17 0 1 对象 3 LEFT Visual Basic 6 0 6 4 6 5 False 6 Autosize 7 8 Option Explict 9 Const Dim 三 将下列数学表达式转换成 VB 表达式 每题 1 分 共 6 分 1 a 2 2 a b b 2 2 x 1 3 y 1 4 3 8 exp x log 10 4 2 sin 3 1416 4 cos 3 1416 4 5 x y z sqr x 2 y 2 z 2 6 log 1 abs a b a b 四 判断题 每题 1 分 共 10 分 1 2 3 4 5 6 7 8 9 10 五 根据题意 将下列程序补充完整 每空 1 分 共 10 分 1 1 int rnd 91 10 2 I 10 flag 1 2 1 i j 2 next i 3 1 int sqr x 或者 x 1 2 4 1 dim f 15 as integer 2 f I 1 f I 2 六 写出下面程序的输出结果 每题 4 分 共 24 分 1 y 65 2 Zheng Zhou Zhong Yuan Gong Xue Yuan 2 分 ZZZG 2 分 3 1 2 3 4 2 3 4 1 8 27 5 3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6 7 七 编写程序 1 private sub command1 click dim x as integer grade as string 1 分 x text1 text 1 分 select case x 4 分 case 90 to 100 grade A case 80 to 89 grade B case 70 to 79 grade C case 60 to 69 grade D case is a j Then t a i a i a j a j t End If Next j Next i For i 1 To 20 2 分 Print a i Next i End Sub 4 产生并输出一个 6 6 的二维数组 A 8 分 1 两条对角线上元素的值为 1 其余元素为小于 30 的随机整数 2 计算各行元素的平均值 输出平均值最大和平均值最小的行号 4 Private Sub Command1 Click Dim a 1 To 6 1 To 6 As Integer 1 分 Dim aver As Single Randomize For i 1 To 6 3 分 For j 1 To 6 If i j Or i j 7 Then a i j 1 Else a i j Int Rnd 30 End If Print a i j Next j Print Next