visual basic程序设计 (习题答案).pdf

第三部分 习题与解答 第 1 章 程序设计语言与程序设计 1 1 填空题 1 VB 是以 事件驱动 作为运行机制的新一代可视化程序设计语言 2 程序设计语言是 人 与 计算机 交流的工具 3 若从机器执行的角度来对程序设计语言进行分类 则可以分为 低级语言 和 高 级语言 两种 4 计算机系统中 对高级语言的翻译工具称为 编译 程序或 解释 程序 5 源程序中的错误一般分为 编译 错误 运行 错误和 逻辑 错误等三种 6 VB 把一个应用程序称为一个 工程 它包含各种文件 1 2 选择题 1 把 a 和 b 的乘积写成 ab 的错误属于 c 错误 a 编译 b 运行 c 逻辑 d 编译和运行 2 用户在什么时候都可以按 b 键来查看与当前进行的工作相关的帮助 a Held b F1 c ESC d F10 4 窗体文件的扩展名为 d a vbp b bas c exe d frm 4 指示一个窗体位置的值是窗体的 c a 对象 b 事件 c 属性 d 方法 5 下面选项中不能运行 VB 程序的操作是 a a 双击窗体 b 单击 启动 按钮图标 c 从菜单栏运行菜单中选 全编译执行 菜单命令 d 按 F5 键 1 3 问答题 1 低级语言和高级语言的各自特点是什么 答 参见教材 1 1 2 什么是数据描述和数据处理 答 参见教材 1 2 3 源程序的翻译方式有哪两种 简述它们的工作过程 答 参见教材 1 1 4 一个好程序的基本要求是什么 答 参见教材 1 2 5 Visual BASIC 集成开发环境的主窗口由哪些部分构成 各自的主要功能是什么 答 参见教材 1 3 6 简述在 VB 的环境下 对象 属性 方法 事件和事件驱动程序的概念 并用例子进行 说明 答 在 VB 的环境下 对象是系统中的基本运行实体 它封装了数据和操作 工具箱中的命 令按钮 标签 文本框等是对象摸板 控件是由 VB 工具箱创建的对象 属性是对象的性质或状态特征 例如 窗体的 Caption 标题 BackColor 背景颜色 Height 高度 和 Width 宽度 等都是窗体的属性 事件是对象之间传递的消息 VB 控件的事件由系统预先定义 例如 Click 单击 事件 DblClick 双击 事件 方法是对象在某些事件驱动下执行的特定操作 它可以执行系统预定义的操作 例如窗体的 Print 打印 方法 Show 显示窗体 方法 当事件由用户或 VB 系统触发时 对象会感受到该事件并对该事件作出响应 响应某个事件 后所执行的程序就是事件驱动程序 事件驱动程序有时也称为事件过程 例如 以下是命 令按钮 Command1 在接受单击事件时驱动的程序 Private Sub Command1 Click Print Hello world End Sub 7 总结使用 Visual BASIC 开发一个应用程序的过程 答 参见教材 1 5 8 下面程序是什么事件驱动程序 如何执行该事件驱动程序 执行的结果如何 Private Sub Command1 Click Print 欢迎你使用 VB End Sub 答 略 1 4 编程题 编写一个程序 要求设置窗体的标题是 这是我的第一个练习 且在程序执行后 单击窗 体显示如下一行文字 我可以用 Visual BASIC 编写程序了 解答 1 用户界面设计 设计用户界面由一个窗体构成 2 对用户界面上的控件对象的属性进行设置 把窗体的 Caption 属性值设置为 这是我 的第一个练习 3 编写控件对象的事件驱动程序 Private Sub Form Click Print 我可以用 Visual BASIC 编写程序了 End Sub 第 2 章 基本数据类型与表达式 2 1 填空题 1 在程序设计语言系统中具有固定语法含义的符号串称为 关键字 它们通常用来表示 系统提供的标准过程 函数 运算符 常量等 2 标识符 用于标记用户自定义的常量 类型 变量 控件 过程 函数等名字 3 整型数据占 2 字节的内存空间 长整型数据占 4 个字节的内存空间 单 精度浮点型数据占 4 个字节的内存空间 双精度浮点型数据占 8 个字节的内 存空间 日期型数据占 8 个字节的内存空间 4 100 表示 100 为 整 型数据 100 表示 100 为 单精度浮点 型数据 100 表示 100 为 货币 型数据 6 符号常量在某一过程中说明 则该符号常量只能在 该过程内 内有效 6 若一个整型变量说明了之后没有给它赋值 则它的值为 0 7 在 VB 中可以把类型说明符放在变量名的 末尾 来说明变量的类型 8 为使 VB 的编译程序自动检查变量声明 遇到未经说明的标识符发出错误警告信息 在 程序中要加上 Option Explicit 语句 9 对含有多种运算的表达式 各种运算之间的顺序为 函数运算 算术运算 关系运算 逻辑运算 10 把 1234 567 的小数部分四舍五入转换为整数 可使用函数 Cint 1234 567 11 将 x 四舍五入到百位 例如 若 x 23874 52 应舍入成 23900 可使用表达式 Int x 100 0 5 100 12 将 x 从十位截断 例如 x 23874 52 应截成 23800 可使用表达式 Fix x 100 100 或者 Int x 100 100 或者 Cint x 100 100 13 设 X 为数值变量 求 X 的常用对数可使用的表达式是 Log X Log 10 14 要从字符串 Visual BASIC 6 0 中截取子字符串 BASIC 可使用函数 Mid Visual BASIC 6 0 8 5 15 设 S 是字符串变量 并且串长度为 7 写出生成由 S 的偶数序号字符组成的字符串的表 达式 例如 把字符串 ABCDEFG 变成 BDF 答案 Mid s 2 1 Mid s 4 1 Mid s 6 1 16 设 S 是字符串变量 并且串长度为 7 写出用第 2i 1 个字符代替第 2i 个字符所得到字 符串的表达式 例如 把字符串 ABCDEFG 变成 AACCEEG 答案 String 2 Mid s 1 1 String 2 Mid s 3 1 String 2 Mid s 5 1 Mid s 7 1 或 String 2 Mid s 1 1 String 2 Mid s 3 1 String 2 Mid s 5 1 Right s 1 17 产生从整数 a 到整数 b 之间的随机整数可使用表达式 Int b a 1 Rnd a 18 产生从 100 01 到 200 99 之间的随机数 包括两端点 可使用的表达式是 Int 20099 10001 1 Rnd 10001 100 2 2 选择题 1 下面选项中 c 是算术运算符 a b c Mod d And 4 下面不合法的标识符是 d a o To b Tab1 c 姓名 d Int 3 下列选项中 把 r 定义为双精度型变量的是 c a r b r c r d r 4 下列表达式中 d 是错误的 a 2 a 5 b 2 1 5 c 2 1 5 d 2 1 5 5 在下列选项中 正确表达 2a 5 的表达式是 c a 2 a 5 b 2 a 2 5 c 2 a 5 d 2 a2 5 6 10 Mod 4 的值为 b a 1 b 2 c 4 d 10 7 下列运算符中 a 优先级最高 a b c Mod d 8 在 VB 中不能表示逻辑真的是 d a True b 1 c 1 d T 9 能正确表达 a 1 或 a 5 的逻辑表达式是 c a a 5 b a 5 c a 5 d a 5 10 设 X 为整型变量 不能正确表达 1 X 5 的逻辑表达式是 a a 1 X 5 b X 2 or X 3 or X 4 c 1 X And X 5 d Not X 5 11 求 COS35 可以使用的函数是 d a Cos 35 b Cos 35 c Cos 35o d Cos 35 3 14159 180 12 Len 中国人民 的值是 b a 0 b 4 c 8 d 不能确定 13 设 X 是一个正实数 对 X 的第二位小数四舍五入可使用的函数是 c a Int X 0 05 10 b Int X 0 05 10 c Int 10 X 0 05 10 d Int 10 X 0 05 10 14 函数 Int Rad 99 1 产生随机数的范围是 b a 1 99 b 1 99 c 1 100 d 1 100 2 3 下列符号哪些是正确的变量名 1 n 2 3x 3 Abs 4 85 5 print 56 6 名称 7 8 a b 9 ab 10 My Name 11 年龄 12 学校 答案 除了以下符号外 其它符号都是正确的变量名 错误的变量名 原因 3x 变量名必须以字母为开始 Abs 不能和关键字同名 85 变量名必须以字母开始 不是英文字母 a b 变量名中不能用字符 My Name 变量名内不能有空格字符 2 4 把下列数学表达式写成 VB 表达式 1 2 x x x ax b c d e 3 ln 1 10 4 5 ctg 6 log10 a2 2ab b2 答案 1 1 1 1 1 1 x y 2 x x x a x b c d e 3 Log 1 Abs a b a b 10 4 Sqr 1 3 14159 2 Cos 48 3 14159 180 5 1 Tan 1 x x 1 x x 或者 Cos 1 x x 1 x x Sin 1 x x 1 x x 6 Log a a 2 a b b b Log 10 2 5 写出下列函数的值 1 Int 1234 5678 2 Fix 1234 5678 3 val 12 34 4 Cint 1234 5678 5 Abs 100 6 Sgn 100 7 Sqr sqr 16 8 Left Visual BASIC 6 0 6 9 Mid Visual BASIC 6 0 8 5 10 InStr 1 Visual BASIC 6 0 BASIC 11 String 3 12 Int 100 Rnd 1 答案 1 1235 2 1234 3 12 34 4 1235 5 100 6 1 7 2 8 Visual 9 BASIC 10 0 11 12 产生从整数 1 到整数 100 之间的随机整数 2 6 写出下列表达式的值 1 3 6 2 2 18 4 4 0 2 1 6 3 25 3 Mod 3 2 Int 2 5 4 xyz 438 5 abc Visual Not 5 3 0 75 x 12 34 Print x Print x End Sub 答案 3 Visual BASIC False 75 3 Visual BASICFalse 75 x 12 34 2 Private Sub Form Click Print Tab 10 100 Tab 20 200 Tab 30 300 Print Spc 10 100 Spc 10 200 Spc 10 300 End Sub 答案 100 200 300 100 200 300 3 Private Sub Form Click x 12 35 Print Format x Print Format x Print Format x 000 00 Print Format x 00 0 Print Format x 0 00 Print Format x Print Format x Print Format x 00 00E 00 End Sub 答案 12 35 12 35 012 35 12 4 1235 00 12 35 12 35 12 35e 00 4 Private Sub Command1 Click Dim a b c s w t a 1 b 3 c 3 s 0 w 0 t 0 If c 0 Then s a b If a 0 Then If c 0 Then w a b Else t c End If c a b Print a b c Print s w t End Sub 答案 1 3 2 2 0 0 5 Private Sub Command1 Click Dim x y x InputBox 请输入 x 的值 Select Case x Case 1 3 5 y x 1 Case 6 To 10 y x 1 Case 2 4 y 2 x Case Is 10 y x x 1 End Select Print x x y y End Sub x 的输入值为 2 5 8 4 和 15 答案 x 2 y 4 x 8 y 9 x 4 y 8 x 15 y 226 6 Private Sub Command1 Click Dim i t t 1 i 1 While i 8 If i Mod 2 1 Then x x i Else y y i End If i i 1 Loop Print x x y y End Sub 答案 x 105 y 384 8 Private Sub Command1 Click Dim p s p 1 s 1 Do p p 2 s s p Loop While p 10 Print s s End Sub 答案 s 36 9 Private Sub Command1 Click Dim m n For m 1 to 3 n 0 While n 85 Then Text2 Text Very good ElseIf score 60 Then Text2 Text Good Else Text2 Text No good End If End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 屏幕出现用户界面 把鼠标移到 Text1 文本框并单击 输入分数 然后 单击 开始 命令按钮 系统执行 Command1 Click 事件过程 执行结果如图 3 3 1 所示 单击 标题为 结束 的命令按钮 执行 Command2 Click 事件过程 结束程序的执行 图 3 3 1 第 1 题的执行结果 2 求一元二次方程 ax bx c 0 的根 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 2 所示 表 3 3 2 第 2 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求一元二次方程的根 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 由中学数学知识知道 求一元二次方程的根的公式为 编程时要考虑如下各种情况 当 a 0 时 方程不是二次方程 当 b2 4ac 0 时 有两个相同的实根 当 b2 4ac 0 时 有两个不同的实根 当 b2 4ac 0 时 有两个共轭复根 Private Sub Command1 Click Cls Dim a b c disc x1 x2 realpart imagpart a InputBox 请输入方程的系数 a b InputBox 请输入方程的系数 b c InputBox 请输入方程的系数 c Print Print Print Tab 10 输入方程的系数为 a a b b c c Print If Abs a 0 000001 Then Print Tab 15 方程不是一个二次方程 Else disc b 2 4 a c If Abs disc 0 000001 Then x1 b Sqr disc 2 a x2 b Sqr disc 2 a Print Tab 5 方程有两个实根 Print Tab 18 x1 x1 Print Tab 18 x2 x2 ElseIf disc 0 000001 Then realpart b 2 a imagpart Sqr disc 2 a Print Tab 5 方程有两个虚根 Print Tab 18 x1 realpart imagpart i Print Tab 18 x2 realpart imagpart i End If End If End Sub Private Sub Command2 Click End End Sub 注意 程序中的条件 fabs a 0 000001 和 fabs disc 1 And x 5 Then Select Case x Case Is 2 y 3 x 5 Case Is 4 y 2 Cos x 1 Case Is 0 Then f UCase InputBox 输入运算标志 Chr 13 半径 r r 圆周长 r 2 pi Case A Print Tab 10 半径 r r 圆面积 r 2 pi Case B Print Tab 10 半径 r r 圆周长 r 2 pi Print Tab 10 半径 r r 圆面积 r 2 pi Case Else Print Tab 18 输入的运算标志错 End Select Else Print Tab 18 半径不能是负数 End If End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 单击标题为 开始 的命令按钮 执行 Command1 Click 事件过程 按 InputBox 对话框的提示输入半径 r 和运算标志 计算结果在窗体上显示 5 求满足 12 22 n2 1000 的最小 n 值 要求使用 While WEnd 语句 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 5 所示 表 3 3 5 第 5 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求满足 1 2 2 2 n 2 1000 的最小 n 值 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Dim n s n End Sub Private Sub Command2 Click End End Sub 6 输入若干个正实数 个数预先不能确定 求这些正实数之和 要求分别使用 Do While Loop 语句和 Do Until Loop 语句 解答 1 界面设计和属性设置 在窗体上建立三个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 6 所示 表 3 3 6 第 6 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求正实数之和 Command1 Caption Do While Loop Command2 Caption Do Until Loop Command3 Caption 结束 2 程序代码 Private Sub Command1 Click Cls Dim a s a InputBox 输入一个实数 Do While a 0 s s a a InputBox 输入一个实数 Loop Print Print Print Tab 15 输入的正实数之和为 s End Sub Private Sub Command2 Click Cls Dim a s a InputBox 输入一个实数 Do Until a 0 00000001 Print Print Print Print Tab 8 圆周率的近似值为 Sqr 6 s End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 单击标题为 开始 的命令按钮 执行 Command1 Click 事件过程 计算结果 在窗体上显示 8 由数值计算方法可知 用牛顿迭代法解方程 f x 0 的迭代公式为 试用牛顿迭代法求解方程 x5 3x2 2x 1 0 在 x0 0 附近的根 要求使用 Do Loop Until 语句 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 8 所示 表 3 3 8 第 8 题的属性设置 控件名称 属性名 属性值 Form1 Caption 用牛顿法求方程的根 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 根据迭代公式 牛顿迭代法的计算过程为 令 n 0 由迭代公式得 然后判别 x1 x0 是否小于 给定精度 若是 则迭代 结束 x1 作为方程的近似根 否则 进行下一步 令 n 1 由迭代公式得 然后判别 x2 x1 是否小 若是 则迭代结束 x2 作 为方程的近似根 否则 由 x2 求 x3 的值 判断 x3 x2 按这样迭代下去 一直到 xi 1 xi i 0 1 2 为止 根据上述计算过程可以编写程序为 Private Sub Command1 Click Dim x0 x1 x1 0 Do x0 x1 x1 x0 x0 5 3 x0 2 2 x0 1 5 x0 4 6 x0 2 Loop Until Abs x1 x0 0 00001 Print Tab 10 方程的根为 x1 End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 单击标题为 开始 的命令按钮 执行 Command1 Click 事件过程 在窗体上 显示计算结果 9 求 S 的值 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 9 所示 表 3 3 9 第 9 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求 s 1 1 2 1 3 1 4 1 99 1 100 的值 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Dim i s sign sign 1 s 0 For i 1 To 100 s s sign 1 i sign sign Next i Print Print Print Print Tab 18 s 的值为 s End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 单击标题为 开始 的命令按钮 执行 Command1 Click 事件过程 窗体显示 计算结果 10 求 100 到 999 中的水仙花数 所谓水仙花数是指一个三位数 它的各位数字的立方之和 等于该数 例如 因为 153 13 53 33 所以 153 是水仙花数 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 10 所示 表 3 3 10 第 10 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求水仙花数 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Dim i a b c Print Print Tab 5 100 999 之间的水仙花数为 For i 100 To 999 a i 100 b i a 100 10 c i a 100 b 10 If i a 3 b 3 c 3 Then Print Tab 10 i End If Next i End Sub Private Sub Command2 Click End End Sub 3 运行情况 执行结果如图 3 3 7 所示 图 3 3 7 第 10 题的执行结果 11 求 1000 之内的所有完数 所谓完数是指一个数恰好等于它的所有因子之和 例如 因 为 6 1 2 3 所以 6 为完数 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 11 所示 表 3 3 11 第 11 题的属性设置 控件名称 属性名 属性值 Form1 Caption 求完数 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Dim i j s Print Print Tab 5 1 1000 之内的完数为 For i 1 To 1000 s 0 For j 1 To i 1 If i Mod j 0 Then s s j Next j If i s Then Print Tab 5 i Next i End Sub Private Sub Command2 Click End End Sub 3 运行情况 程序执行结果如图 3 3 8 所示 图 3 3 8 第 11 题的执行结果 12 在窗体上输出形如以下图形 其中第一行的起始字母和终止字母由用户从键盘上输入 A B C D E B C D E A C D E A B D E A B C E A B C D 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主要属性设置如表 3 3 12 所示 表 3 3 12 第 12 题的属性设置 控件名称 属性名 属性值 Form1 Caption 输出由字母构成的图形 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Cls Dim starg As String 1 endg As String 1 stargc endgc i j k starg UCase InputBox 请输入起始字母 endg UCase InputBox 请输入终止字母 stargc Asc starg endgc Asc endg Print If stargc Form1 ScaleWidth Then Label1 Left 0 Else Label1 Left Label1 Left 100 End If End Sub Private Sub Command2 Click End End Sub 3 运行情况 运行程序后 屏幕出现用户界面 每单击一次标题为 移动 的命令按钮 执行 Command1 Click 事件过程 使标签往右移 100 缇 右移出窗体的右边界时 再次单击 移 动 命令按钮 标签回到窗体的左边界 执行情况如图 3 4 1 所示 图 3 4 1 第 1 题的执行情况 2 编写一个把某些英文单词翻译为中文单词的简单程序 要求用户界面为一个窗体 窗体 左侧是一个文本框 用户在这里输入想要翻译的英文单词 注意输入一个新的单词之前应清 除原有内容 窗体中间是一个命令按钮 在该命令按钮上面显示 翻译 两字 窗体右侧 也是一个文本框 当程序运行时 用户按下命令按钮后 窗体右侧的文本框显示单词的中文 意思 如果找不到想要翻译的英文单词 则给出相应的信息 解答 1 界面设计和属性设置 在窗体上建立两个标签 两个文本框和一个命令按钮 窗体和窗体上控件的主要属性设置如 表 3 4 2 所示 表 3 4 2 第 2 题的属性设置 控件名称 属性名 属性值 Form1 Caption 英文单词翻译为中文单词 Label1 Caption 英文 Label2 Caption 中文 Text1 Text 空串 Text2 Text 空串 Command1 Caption 翻译 2 程序代码 Private Sub Form Load Text1 Text Text2 Text End Sub Private Sub Command1 Click Select Case LCase Trim Text1 Text Case china Text2 Text 中国 Case france Text2 Text 法国 Case england Text2 Text 英国 Case america Text2 Text 美国 Case india Text2 Text 印度 Case Else Text2 Text 找不到该单词 End Select End Sub Private Sub Text1 MouseDown Button As Integer Shift As Integer X As Single Y As Single Text1 Text Text2 Text End Sub 3 运行情况 上机运行程序后 屏幕出现用户界面 此时 把鼠标移到 Text1 文本框并单击 然后输入英 文国家名 例如 China 英文国家名输入后 单击标题为 翻译 的命令按钮 系统执行 相应的 Click 事件过程 执行结果如图 3 4 2 所示 单击工具栏上的 结束 按钮 系统结 束程序的执行 图 3 4 2 第 2 题的执行结果 3 在文本框中输入算术表达式 并以回车符作为输入结束标志 对表达式中的圆括号是否 配对进行检查 且给出配对或不配对信息 若配对 则给出 左右圆括号配对 的信息 否 则 给出 左圆括号多于右圆括号 或 右圆括号多于左圆括号 的信息 解答 1 界面设计和属性设置 在窗体上建立一个文本框 窗体和文本框的主要属性设置如表 3 4 3 所示 表 3 4 3 第 3 题的属性设置 控件名称 属性名 属性值 Form1 Caption 判别算术表达式中的圆括号是否配对 Text1 Text 空串 2 程序代码 Dim n As Integer Private Sub Text1 KeyPress KeyAscii As Integer Cls If Chr KeyAscii Then n n 1 ElseIf Chr KeyAscii Then n n 1 End If Print If KeyAscii 13 Then If n 0 Then Print Tab 18 左右圆括号配对 ElseIf n 0 Then Print Tab 15 左圆括号多于右圆括号 Else Print Tab 15 右圆括号多于左圆括号 End If End If End Sub Private Sub Text1 MouseDown Button As Integer Shift As Integer X As Single Y As Single Cls Text1 Text n 0 End Sub 3 运行情况 运行程序后 焦点在 Text1 文本框上 输入算术表达式 然后按回车键 执行 Text1 KeyPress 事件过程 执行结果如图 3 4 3 所示 若输入另一个算术表达式 可以单击 Text1 文本框 再次输入算术表达式和按回车键 执行 Text1 MouseDown 事件过程 图 3 4 3 第 3 题的执行结果 4 编写一个程序 把某一图形装入到一个图片框中 且能实现该图形的放大 缩小和全屏 显示 解答 1 界面设计和属性设置 在窗体上建立一个图片框和三个命令按钮 窗体和窗体上控件的主要属性设置如表 3 4 4 所 示 表 3 4 4 第 4 题的属性设置 控件名称 属性名 属性值 Form1 Caption 图片缩放 Picture1 Picture 一幅图片 在程序中装入 Command1 Caption 图片放大 Command2 Caption 图片缩小 Command3 Caption 全屏显示 2 程序代码 Private Sub Command1 Click If Picture1 Height 50 Then Picture1 Height Picture1 Height 50 End If End If If Form1 ScaleWidth Picture1 Width 70 Then Picture1 Width Picture1 Width 70 End If End Sub Private Sub Command2 Click Select Case Picture1 Height Case Is 50 Picture1 Height Picture1 Height 50 Case Is 30 Picture1 Height Picture1 Height 30 Case Is 10 Picture1 Height Picture1 Height 10 End Select Select Case Picture1 Width Case Is 100 Picture1 Width Picture1 Width 100 Case Is 50 Picture1 Width Picture1 Width 50 Case Is 30 Picture1 Width Picture1 Width 30 Case Is 10 Picture1 Width Picture1 Width 10 End Select End Sub Private Sub Command3 Click Picture1 Height Form1 ScaleHeight 1000 Picture1 Width Form1 ScaleWidth End Sub Private Sub Form Load Picture1 Picture LoadPicture c Program Files Microsoft Office Office Bitmaps styles Globe wmf End Sub 3 运行情况 运行程序后 单击不同的命令按钮 系统执行相应的 Click 事件过程 执行结果如图 3 4 4 所示 图 3 4 4 第 4 题的执行结果 5 编写一个求三角函数值的程序 在程序中 用户可以选择输入角度或弧度值 也可以选 择计算一种三角函数 例如 正弦 余弦 正切等 的值 且能把计算的结果显示出来 要求 分别使用两组单选按钮进行输入选择和计算选择 每组单选按钮存放在一个框架中 用文本 框输入角度或弧度值 用标签输出计算结果 解答 1 界面设计和属性设置 在窗体上建立两个标签 两个文本框和两个框架 一个框架包含两个单选按钮 另一个框架 包含三个单选按钮 窗体和窗体上控件的主要属性设置如表 3 4 5 所示 表 3 4 5 第 5 题的属性设置 控件名称 属性名 属性值 Form1 Caption 计算三角函数的值 Label1 Caption 输入 Label2 Caption 输出 Text1 Text 空串 Text2 Text 空串 Frame1 Caption 输入选择 Option1 Caption 角度 Option2 Caption 弧度 Frame2 Caption 函数选择 Option3 Caption 正弦 Option4 Caption 余弦 Option5 Caption 正切 2 程序代码 Const Pi 3 14159265 Private Sub Form Load Option1 Value True Option3 Value True Text1 Text Text2 Text End Sub Private Sub Text1 Change Dim X As Single If Option1 Value Then X Val Text1 Text Pi 180 Else X Val Text1 Text End If If Option3 Value Then Text2 Text Sin X ElseIf Option4 Value Then Text2 Text Cos X ElseIf Option5 Value Then Text2 Text Tan X End If End Sub Private Sub Text1 MouseDown Button As Integer Shift As Integer X As Single Y As Single Text1 Text Text2 Text End Sub 3 运行情况 运行程序后 在文本框 Text1 输入角度 系统执行 Text1 Change 事件过程 执行结果如图 3 4 5 所示 单击标题为 弧度 的单选按钮和标题为 余弦 的单选按钮 鼠标单击文本 框 Text1 输入弧度 系统执行 Text1 Change 事件过程 执行结果如图 3 4 6 所示 图 3 4 5 第 5 题的执行结果 a 图 3 4 6 第 5 题的执行结果 b 6 编写一个程序 产生一个字体浏览器 要求用一个列表框显示系统当前可供选择的字体 另一个列表框显示系统当前可供选择的字体大小 并且使用标签显示所选字体及其大小样 例 解答 1 界面设计和属性设置 在窗体上建立四个标签 两个列表框 窗体和窗体上控件的主要属性设置如表 3 4 6 所示 表 3 4 6 第 6 题的属性设置 控件名称 属性名 属性值 Form1 Caption 字体浏览器 Label1 Caption 字体选择 Label2 Caption 字体大小选择 Label3 Caption 样例 Label4 Caption BorderStyle 中文字体演示 1 List1 Style 1 List2 Style 1 2 程序代码 Private Sub Form Load Dim i As Integer For i 0 To Screen FontCount 1 List1 AddItem Screen Fonts i Next i For i 8 To 12 List2 AddItem Trim Str i Next i For i 14 To 72 Step 2 List2 AddItem Trim Str i Next i End Sub Private Sub List1 Click Label4 FontName List1 Text End Sub Private Sub List2 Click Label4 FontSize List2 Text End Sub 3 运行情况 运行程序后 执行事件过程 Form Load 屏幕上显示用户界面 单击左边列表框 List1 上某 一复选框 选择字体 然后单击右边列表框 List2 上的某一复选框 选择字号 系统执行相 应的事件过程 执行结果如图 3 4 7 所示 图 3 4 7 第 6 题的执行结果 7 编写一个用于演示颜色合成情况的程序 要求使用滚动条作为红 绿和蓝三种基色值的 输入控件 提示 使用 RGB 函数对输入的三种基色进行合成得到复合颜色 解答 1 界面设计和属性设置 在窗体上建立四个标签和三个滚动条 窗体和窗体上控件的主要属性设置如表 3 4 7 所示 表 3 4 7 第 7 题的属性设置 控件名称 属性名 属性值 Form1 Caption 颜色合成演示 Label1 Caption 红色份量值 Label2 Caption 绿色份量值 Label3 Caption 蓝色份量值 Label4 Caption BorderStyle 空串 1 Hscroll1 Max LargeChange 255 5 Hscroll2 Max LargeChange 255 5 Hscroll3 Max LargeChange 255 5 2 程序代码 Private Sub HScroll1 Scroll Label1 Caption 红色份量值 Next i End Sub 答案 6 5 4 3 2 1 3 Private Sub Command1 Click Dim a 1 To 9 As Integer Dim b 1 To 3 1 To 3 As Integer Dim i j For i 1 To 9 a i i Next i For i 1 To 3 For j 1 To 3 b i j a i j If j i Then Print b i j Next j Print Next i End Sub 答案 1 2 4 3 6 9 4 Private Sub Command1 Click Dim a 1 To 5 1 To 5 As Integer i j For i 1 To 5 For j 1 To 5 If i max Then max a i p i Next i Print Print Print Tab 2 最大值为 max Print Tab 2 最大值所在数组元素的下标为 p End Sub Private Sub Command2 Click End End Sub 3 运行情况 程序执行结果如图 3 5 2 所示 图 3 5 2 第 2 题的执行结果 3 把 20 个整型数据存放到一维数组 a 中 找出 a 中出现频率最高的元素值及出现的次数 例如 若把 1 5 4 3 5 8 5 和 3 存放到数组 a 中 则出现频率最高的元素值是 5 出 现的次数是 3 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮主要属性设置如表 3 5 3 所示 表 3 5 3 第 3 题的属性设置 控件名称 属性名 属性值 Form1 Caption 找出出现频率最高元素和出现次数 Command1 Caption 开始 Command2 Caption 结束 2 程序代码 Private Sub Command1 Click Cls Dim i j fmax Dim a 1 To 20 As Integer b 1 To 20 As Integer Print Print Tab 2 用随机函数产生的数值是 Randomize For i 1 To 20 a i Int 10 Rnd 1 产生 1 10 之间的随机整数 并存放到 a i 中 Print a i If i Mod 4 0 Then Print Next i fmax 0 For i 1 To 20 b i 0 For j 1 To i If a i a j Then b i b i 1 b i 用来对 a i 出现的次数进行计数 If b i fmax Then fmax b i End If Next j Next i Print Print Tab 2 出现频率最高的数值是 For i 1 To 20 If b i fmax Then Print a i End If Next i Print Print Tab 2 出现的次数是 fmax End Sub Private Sub Command2 Click End End Sub 3 运行情况 程序执行结果如图 3 5 3 所示 图 3 5 3 第 3 题的执行结果 4 给定两组已按升序排列好的整型数据 编写一个程序把它们合并为一组仍按升序排列的 数据 解答 1 界面设计和属性设置 在窗体上建立两个命令按钮 窗体和命令按钮的主