数据库3错题集

1 数据库 3 假定利用 CREATE TABLE 命令建立下面的 teacher 表 语句中 tno 表示教师编号 tname 教师名称 age 教师年龄 CREATE TABLE teacher tno CHAR 5 PRIMARY KEY tno tname CHAR 10 age SAMLLINT 则主键为 的值是 A 12 B 13 C 36 D 37 参考答案 A 在 VB 中 可以从键盘接受文本数据的控件是 A Textbox 控件 B Label 控件 C CommandButton 控件 D Data 控件 参考答案 A Option Explicit 语句表示 A 可以不申明变量类型 B 必须申明变量类型 C 数组下标从 0 开始 D 数组下标从 1 开始 18 参考答案 B InputBox 函数的返回值类型是 A 变体型 B 整型 C 实型 D 字符型 参考答案 D 题目 Visual Basic 支持的一种程序结构语句是 A BEGIN END B If Then Else C Do Case D For Loop 参考答案 B VB 6 0 集成环境的主窗口中不包括 A 标题栏 B 菜单栏 C 状态栏 D 工具栏 参考答案 C 19 下面正确的逻辑表达式是 A x y AND y z B x y z C x y AND z D x y End If 20 If a 4 Then Print 4 End If If a 5 Then Print 5 End If If a 6 Then Print 6 End If 输出结果是 5 6 在 VB 中 执行以下程序段 a 123 b 456 c Val a Val b Print c 579 21 在 VB 中 执行以下程序段 a 1 b 3 c 5 d 4 If a b Then If c d Then x 1 Else If a c Then If b 5 and 12 3 b Or ca b OR b 1 c 1 And c a a Xor b c 2 的值为 参考答案 第 1 空 False 在 VB 中 三个字符串 XY XYZ ab 中的最大者为 参考答案 第 1 空 ab 在 VB 中 变量的声明一般分为显式声明和 声明两种方式 参考答案 第 1 空 隐式 在 VB 中 字符串型变量用于存放字符串 可以分为变长字符串和 字符串两种 参考答案 第 1 空 定长 在 VB 的参数传递过程中 为了使参数按值传递 应该使用关键字 参考答案 第 1 空 ByVal 在 VB 中 控件数组的名字由 Name 属性指定 数组元素的下标由 属性指定 参考答案 第 1 空 Index 29 在 VB 中 如果定义一个数组 Dim a 5 As Integer 其元素最多有 个 如果之前在窗体层 设置了语句 Option Base 1 则元素的个数有 个 参考答案 第 1 空 6 第 2 空 5 在 VB 中 当执行语句 a 10 Print a a 0 a a 2 a 4 之后 则输出的结果分别为 参考答案 第 1 空 True 第 2 空 False 第 3 空 6 在 Visual Basic 中 能够得到 字体 对话框中用户所选字体的名字 大小和颜色的属性分别是 参考答案 第 1 空 FontName 第 2 空 FontSize 第 3 空 ForeColor 在 VB 的子过程的执行过程中要提前退出 应该使用语句 而要提前退出函数过程退出 应该使用 语句 参考答案 第 1 空 Exit Sub 第 2 空 Exit Function 在 VB 中 Do 循环的配套结束语句是 参考答案 第 1 空 Loop 30 在 VB 中 过程调用的参数传递可以按 和按地址传递 参考答案 第 1 空 值 在 VB 中 可以把当前目录下的图形文件装入 Picturebox 对象中的语句是 参考答案 第 1 空 Loadpicture 在 VB 中 要改变窗体的标题文字 应修改其 属性 参考答案 第 1 空 Caption 在 VB 中 定时器控件能有规律地以一定时间间隔触发 事件 并执行该事件过程中的程序代码 参考答案 第 1 空 Timer 输入 100 个数 统计其中负数 零及正数的个数 单击窗体 从键盘输入 100 个数 并输出负数 零及正 数的个数 完成以下代码 Private Sub Form Click Dim fs As Integer zs As Integer ns As Integer fs ns zs 分别代表负数 零 ElseIf k 1 Int1 int1 1 Loop 参考答案 第 1 空 10 求两个整数的最大公约数 求最大公约数的算法思想 1 对于已知两数 m n 使得 m n 2 m 除以 n 得余数 r 3 若 r 0 则 n 为求得的最大公约数 算法结束 否则执行 4 32 4 m n n r 再重复执行 2 例如 求 m 14 n 6 的最大公约数 余数 r 2 r 不为 0 则 m 6 n 2 r 为 m 除 n 的余数 0 则最大 公约数为 2 请根据以上思路 Do While r 0 m n r m Mod n Loop Print 最大公约数 n End Sub 参考答案 第 1 空 m Mod n 第 2 空 n r 以下 VB 程序的功能是 单击命令按钮 从键盘上输入若干个学生的考试分数 统计并输出最高分数和最 低分数 当输入负数时结束输入 在标签控件 Label1 和 Label2 中分别输出结果最大值和最小值 请将程 序补充完整 Private Sub Command1 Click Dim x As Single amax As Single amin As Single x InputBox 输入分数 amax x amin If x amax Then 33 amax x End If If Then amin x End If x InputBox 输入分数 Loop Label1 Caption Label2 Caption amin End Sub 参考答案 第 1 空 0 x 第 3 空 amax 求满足如以条件的自然数 以 3 除余 2 以 5 除余 3 以 7 除余 2 程序将从自然数 1 开始依次寻找 逐 一判断某一自然数是否满足全部条件 直至在指定范围内找到满足条件的所有自然数 在 VB 窗体中 有 文本框 Text1 用于输入查找数据的范围 程序代码如下 请补充完整 Private Sub Command1 Click Dim sum As Integer sum 用来统计符合条件的自然数个数 Dim n max As 指定查找范围的最大自然数 在 Text1 框中输入 n 0 Do While n max n n 1 从自然数 1 开始不断往上寻找 If Then 34 Print n 找到后在 list1 中显示结果 End If Loop Print 共计 End Sub Private Function Max x As Integer y As Integer As Integer If x y Then Max x Else Max End If End Function