提示 : (1) 程序运行时单击两次鼠标, 观察输出结果 ; (2) 将输出内容修改为 我的第一个 VB 程序 ; (3) 尝试改变输出文本的颜色 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ;

第 13 章 VB 上机练习题程序最终是要在计算机上运行的, 学习程序设计过程中很重要的一个环节是上机练习, 只有将一个程序在计算机上编写 调试 运行并得到正确的结果, 才算完成了程序设计与实现 本章根据前面章节的学习内容, 将上机练习题目分类, 分别编写了 12 类上机题目, 供老师教学和上机参考 13.1 上机练习一 目的 : (1) 熟悉 Visual Basic6.0 开发环境 (2) 模仿简单的 VB 应用程序的编写 (3) 掌握 VB 应用程序的开发步骤 (4) 掌握 VB 应用程序的编写 调试 运行过程 上机题目 : 1. 设计一个程序, 当用鼠标单击窗体时, 窗体中显示 Visual Basic6.0 程序设计 字样 要点说明 : 建立 VB 应用程序工程, 在单击窗体事件中实现显示 Visual Basic6.0 程序设计 程序 界面如图 13-1 和图 13-2 所示 图 13-1 设计界面 图 13-2 运行界面 程序代码如下 : Private Sub Form_Click() Print "Visual Basic6.0 程序设计 " ' 在窗体上输出

提示 : (1) 程序运行时单击两次鼠标, 观察输出结果 ; (2) 将输出内容修改为 我的第一个 VB 程序 ; (3) 尝试改变输出文本的颜色 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.2 上机练习二 目的 : (1) 熟悉 Visual Basic6.0 工具箱中常用控件的使用 (2) 掌握 VB 应用程序界面设计技术 (3) 掌握对象属性设置方法 (4) 掌握事件驱动程序设计及运行机制 事件过程编程方法 上机题目 : 1. 在窗体的左上画两个命令按钮和两个文本框, 然后选择这 4 个对象, 并把他们移到窗体 的右下部 2. 在窗体的任意位置画一个文本框, 然后在属性窗口中设置下列属性 : Left 1600 Top 2400 Height 1000 Width 2000 3. 在窗体上画一个文本框和两个命令按钮, 并把两个命令按钮的标题分别设置为 隐藏文本

框 和 显示文本框 当单击第一个命令按钮时, 文本框消失 ; 而当单击第二个命令按钮时, 文本框重新出现, 并在文本框中显示 VB 程序设计 ( 字体大小为 16: 可以使用语句 Fontsize=16) 提示 : 设计实现改变文本框显示文本的颜色 语句 :Text1.ForeColor = RGB(255, 0, 0) 4. 设计一个用户登录验证界面, 两个标签 (Label) 分别是 用户名 和 密码, 两个文本 框 (TextBox) 分别是 用户名值 和 密码值, 两个命令按钮 (CommandButton) 分别是 确认 和 取消 按确认按钮验证用户名和密码 ( 假设用户名为 : VB, 密码为 : 123456 ), 输入正确显示 登录成功!, 否则显示 用户名或密码错误!, 按取消按钮 结束程序运行 ( 语句是 :End) ( 输入密码是显示 * ) 提示 : 设计给窗体增加一个背景图片, 把命令按钮改为图形按钮上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.3 上机练习三 目的 : (1) 掌握 VB 基本数据类型 (2) 掌握 VB 常量 变量的基本概念及符号常量 变量的申明 (3) 掌握 VB 表达式的概念, 能够书写正确的 VB 表达式并计算表达式的值 (4) 掌握 VB 中常用的内部函数及其应用 上机题目 : 1. 上机实现习题 3 第 5,6 题 提示 : 在窗体的 Click 事件过程中编程, 输出表达式的值

例如 :5(1):Print Chr(Int(Rnd * 5 + 100)) 6(1):Print 100 + 33 Mod 10 \ 7 + Asc("a") 2. 上机实现例 3.4 3. 设计实现求解一元二次方程的程序 提示 : 设计三个标签分别是 :a,b,c; 三个文本框输入 a,b,c 的值, 两个文本框或两个标签 输出 x1,x2; 两个命令按钮 计算 和 退出 提示 : 4. 求解鸡兔同笼问题 一个笼子中有鸡 x 只, 兔 y 只, 每只鸡有两只脚, 每只兔有 4 只脚 已知鸡和兔的总只数为 con, 总脚数为 sum, 问笼中鸡和兔各若干? 提示 : (1) 算法 : 列两个方程 x+y=con,2x+4y=sum 求解 x,y (2) 界面设计 : 设计四个标签分别是 :con sum x y; 个文本框输入 con 和 sum 值, 利用两个文本框或两个标签输出 x,y; 两个命令按钮 计算 退出 界面设计如图 13-3 所示 图 13-3 设计界面 图 13-4 运行界面 (3) 代码 : Private Sub Command1_Click() Dim x As Integer, y As Integer, con As Integer, sum As Integer

con = Val(Text1.Text) sum = Val(Text2.Text) y = (sum - 2 * con) / 2 x = con - y Text3.Text = Str(x) Text4.Text = Str(y) Private Sub Command2_Click() End 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.4 上机练习四 目的 : (1) 掌握 VB 顺序结构程序设计 (2) 掌握赋值语句的的正确使用 (3) 掌握输入 输出函数和 print 方法的使用 (4) 掌握 VB 应用程序的调试方法 上机题目 :

1. 编写程序使用 InputBox 函数输入数据, 使用 print 方法在窗体上输出输入的数据, 并输 出变量的数据类型 程序运行界面如图 13-5 所示 图 13-5 运行界面图提示 : (1) 在窗体的 Click 事件中编写代码 (2) 观察 InputBox 函数的参数和输入对话框的效果, 可以通过改变参数后运行程序, 掌握各个参数的意义 (3) 通过输出变量的数据类型, 掌握 InputBox 函数返回值的数据类型 示例程序代码 : Private Sub Form_Click() Dim x x = InputBox(" 请输入数据 :", "InpuBox 示例 ", " 我的数据 ") Print x Print TypeName(x) 2. 在窗体上放一个命令按钮 退出, 编写程序, 单击 退出 按钮时, 出现如图 13-6 所示的消息对话框, 并在窗体上输出函数返回值

图 13-6 运行界面图提示 : (1) 在命令按钮的 Click 事件中编写代码 (2) 观察 MsgBox 函数的参数和消息对话框的显示效果, 可以通过改变参数后运行程序, 掌握各个参数的意义 (3) 通过输出返回值, 掌握 MsgBox 函数按不同按钮的返回值 示例程序代码 : Private Sub Command1_Click() Dim x x = MsgBox(" 确认退出吗?", 0 + 32 + 1, " 系统提示 ") Print x 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.5 上机练习五 目的 : (1) 掌握 VB 选择结构程序设计

(2) 掌握 If 语句和 Select Case 语句的的正确使用 (3) 掌握多分支结构 If 语句的正确使用 (4) 掌握 Iif 函数的使用 上机题目 : 1. 输入三个不同的数, 将它们从大到小排序 2. 编写程序, 输入一个整数, 判定该数的奇偶性 3. 输入一个数, 判断它能否同时被 2,5,7 整除 4. 输入一个数, 判断它是否是完全平方数 ( 一个数如果是另一个整数的完全平方, 那么就称这个数为完全平方数 ) 5. 键盘输入 a b c 的值, 判断它们能否构成三角形 如果能构成一个三角形, 则计算三角形的面积 6. 某公司进行工资调整, 调整计划为 : 若基本工资大于等于 5000, 则工资增加 20%; 若 小于 5000 大于等于 3000, 则工资增加 15%; 若小于 3000, 则工资增加 10% 请根据用户输入的基本工资, 计算出增加后的工资 7. 输入一个数字 (0~6), 用中文显示星期几 ( 输入 0, 显示星期日 ) 8. 设计一个两位数加 减 乘 除运算的程序, 要求如下 : (1) 加 减 乘 除由用户单击相应按钮选择 (2) 运算数据由随机函数产生 (3) 选择合适的控件显示运算式中数据 运算符 (4) 对用户输入的结果对错用消息框给出提示 结果正确时有! 图标 ; 结果错误时有 图标 9. 有如下分段函数 : 2 x 3x 2 y 3x 2 1 x x 当 x 20 当 10 x 20 当 0 x 10 编程实现输入 x, 计算 y 并输出

上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.6 上机练习六 目的 : (1) 掌握 VB 循环结构程序设计 (2) 掌握 Fox Next 计数循环语句的正确使用 (3) 掌握 Do While Loop 条件循环语句的正确使用 (4) 掌握 Exit For Exit Do 语句的使用方法 上机题目 : 1. 求水仙花数 ( 水仙花数是指一个 3 位数, 其各位数字的立方和等于该数本身 如 : 153=1 3 +5 3 +3 3 ) 2. 求 1!+2!+3!+4!+ +10! 3. 找出 1000 以内的所有完数 ( 一个数如果恰好等于它的因子之和, 这个数就称为 完 数 例如 6=1+2+3) 4. 打印 Fibonacci 数列的前 20 项 该数列的第一项和第二项都为 1, 从第三项开始, 每 项都是前两项的和 5. 某班英语测试, 抽取十名同学的测试成绩分别为 :85 76 49 56 94 88 67 82 78 74, 编程依次输入这十名同学的成绩, 统计出及格人数和不及格人数, 并计算出 这十名同学的平均分数 6. 猴子吃桃问题 : 小猴在某开摘桃若干个, 当天吃掉一半多一个 ; 第二天吃了剩下的桃子 的一半多一个 ; 以后每天都吃尚存桃子的一半多一个, 到第 7 天要吃时只剩下一个, 问小 猴共摘下了多少个桃子?

7. 设用 100 元钱买 100 支笔, 其中钢笔每支 3 元, 圆珠笔每支 2 元, 铅笔每支 0.5 元, 问钢笔 圆珠笔和铅笔可以各买多少支?( 每种笔至少买 1 支 ) 8. 编写程序打印下列图形 * ** *** **** ***** * *** ***** ******* ********* ***** ***** ***** ***** ***** 9. 验证歌德巴赫猜想 : 一个大偶数可以分解为两个素数之和 试编程将 200~500 之间的全部偶数表示为两个素数之和 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.7 上机练习七 目的 : (1) 掌握 VB 循环结构程序设计 (2) 掌握 Fox Next 计数循环语句的正确使用 (3) 掌握 Do While Loop 条件循环语句的正确使用 (4) 掌握 Exit For Exit Do 语句的使用方法 上机题目 : 1. 从键盘输入 10 个任意大小的数据, 计算平均值并输出大于平均值的数据 要求 : 运行程序, 单击窗体后依次输入 10 个数据 提示 : 利用数组存储数据, 例如 : 定义 Dim a(1 To 10) As Single, 可以方便地随时调用 其中的数据进行各类统计运算

2. 建立一个 4 6 的二维数组, 其中的元素为区间 [15, 95] 内的随机整数 要求将数组显示在一个文本框中, 并输出各行 各列最大元素之和 提示 : 界面设计 : 参考图 13-7, 在窗体上添加 3 个按钮,3 个文本框和 2 个标签 其中, 显示数 组的文本框应设置其 MultiLine 属性为 True 图 13-7 求二维数组各行 各列最大元素之和 程序设计 : (1) 考虑到要在不同的过程中使用数组, 所以须在窗体的 通用声明 段中声明全局数组 Dim a(1 to 4,1 to 6) as Integer (2) 按钮 产生数组 的 Click 事件代码如下 : Private Sub Command1_Click() Dim p As String, i As Integer, j As Integer Randomize For i = 1 To 4 Next i For j = 1 To 6 Next j a(i, j) = Int(Rnd * 81) + 15 p = p & a(i, j) & " " p = p & vbcrlf ' vbcrlf 代表回车换行 Text1.Text = p (3) 各行最大元素之和 命令按钮的 Click 事件代码参考 : Private Sub Command2_Click() Dim i As Integer, j As Integer Dim MaxRow As Integer, SumRow As Integer

For i = 1 To 4 MaxRow = a(i, 1) For j = 1 To 6 If a(i, j) > MaxRow Then MaxRow = a(i, j) Next j SumRow = SumRow + MaxRow Next i Text2 = SumRow (4) 各列最大元素之和 程序代码与求各行最大元素之和类似 Private Sub Command3_Click() Dim i As Integer, j As Integer Dim MaxCol As Integer, SumCol As Integer For i = 1 To 6 MaxCol = a(1, i) For j = 1 To 4 If a(j, i) > MaxCol Then MaxCol = a(j, i) Next j SumCol = SumCol + MaxCol Next i Text3 = SumCol (5) 退出运行 Private Sub Command4_Click() End 3. 从键盘输入 n 个任意大小的数据, 求这些数据的最大值 最小值和平均值 提示 : 如果要处理任意个数的数据, 需采用动态数组 动态数组与静态数组主要是在声明时有所不同 把本章上机练习题 1(1) 中的声明语句 : Dim a(1 To 10) As Single 改为以下三条语句, 其他代码请自行完成 Dim a() As Single n = InputBox(" 请输入需要统计的数据个数 ")

ReDim a(1 To n) 4. 编写程序, 在窗体中输出杨辉三角形的前 n 行, 行数在运行时由键盘输入 提示 : 一个 8 行杨辉三角形如图 13-8 所示 杨辉三角形中的各行是二项式 (a + b) n 展开 式中各项的系数 提示 : 由图 13-8 可以看出, 杨辉三角形每行的第 1 列均为 1; 其余各项的值都是其上一行中 前一列元素与同列元素之和 ; 若上一行的同列中没有元素则认为是 0 因此, 有如下递推关 系 图 13-8 输出杨辉三角形程序代码 : Private Sub Form_Click() Dim a(8, 8) As Integer, i As Integer, j As Integer For i = 1 To 8 a(i, 1) = 1 Print a(i, 1); " "; For j = 2 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Print a(i, j); If a(i, j) >= 10 Then Print " "; Else Print " "; Next j Print Next i 5. 控件数组的应用

按图 13-9 进行窗体设计, 其中包含三个由单选按钮构成的控件数组, 当单击单选按钮 时, 能够相应的改变文本框中的字体 颜色和字号 请参照例 7.13 自行完成 上机要求 : 图 13-9 控件数组的应用 (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.8 上机练习八 目的 : (1) 掌握 VB 子过程和函数过程的程序设计 (2) 掌握子过程和函数过程的定义 调用的正确使用 (3) 掌握掌握参数传递的基本方法和正确使用 (4) 掌握 VB 应用程序中变量的作用域的使用方法 上机题目 : 1. 子过程与函数过程的定义与调用 (1) 编写一个求两个数的最大公约数的 Function 过程, 并实现调用 (2) 将 Function 过程改写为一个求最大公约数的 Sub 过程, 并实现调用

观察 Sub 过程与 Function 过程在定义与调用时的区别, 并注意参数传递方式的选用 提示 : 界面设计 : 在窗体上设计两个三个标签分别是 m n 和 最大公约数, 三个文本框分 别表示 m n 和 最大公约数 的值, 两个命令按钮 计算 和 退出 设计界面和运行 界面如图 13-10 图 13-11 所示 图 13-10 设计界面 图 13-11 运行界面 程序代码 : Private Sub Command1_Click() Dim m As Integer, n As Integer, gys As Integer m = Val(Text1.Text) n = Val(Text2.Text) gys = gcd(m, n) Text3.Text = gys Public Function gcd(byval m As Integer, ByVal n As Integer) As Integer Dim t As Integer, r As Integer If m < n Then

t = m m = n n = t r = m Mod n Do While r <> 0 m = n n = r r = m Mod n Loop gcd = n End Function Private Sub Command2_Click() End 函数过程改写为子过程, 请读者自行完成 2. 数组作为参数 (1) 利用随机数 (100~500) 初始化一个正整数数组, 并将数组中的偶数值加一 要求一维数组的输入 输出 元素加一操作分别利用过程调用来实现 (2) 在主调过程中, 利用随机数初始化一个二维数组, 要求编写一个 Sub 过程, 通过函数调用找到该数组中的最小值元素及对应下标 提示 :Sub 过程的形参可以设置两个 : 一个是传送主程序中的二维数组, 另一个是返回所求得的最小值下标

3. 可选参数 参照例 8.8, 建立一个计算面积的过程, 使它能够有选择的计算圆的面积或长方形的面 积, 并给予验证 4. 键盘和鼠标事件 (1) 设计一个应用程序, 在窗体上建立一个文本框 text1 和一个标签 label1, 当从键盘向文本框输入英文字符时, 将其转换成大写字母显示在标签中 (2) 建立一个窗体, 在窗体上添加一个按钮, 编写程序, 保证该按钮随鼠标点击的位置而移动 在窗体上放置一个图片框 picture1, 设置鼠标指针的形状为 I 型 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.9 上机练习九 目的 : (1) 掌握 VB 界面设计 (2) 掌握图片框 图像框的正确使用 (3) 掌握定时器正确使用 (4) 掌握单选按钮 复选框及框架的正确使用 上机题目 : 1. 在窗体上添加一个文本框 三个框架控件 在第一个框架控件中添加四个单选按钮, 在第二个框架控件中添加四个复选框, 在第三个框架控件中添加四个单选按钮, 窗体设计界面及程序运行界面如图 13-12 所示

图 13-12 运行界面 程序代码 : Private Sub Check1_Click() If Check1.Value = 1 Then Text1.Font.Bold = True Else Text1.Font.Bold = False Private Sub Check2_Click() If Check2.Value = 1 Then Text1.Font.Italic = True Else Text1.Font.Italic = False Private Sub Check3_Click() If Check3.Value = 1 Then Text1.Font.Underline = True Else Text1.Font.Underline = False Private Sub Check4_Click() If Check4.Value = 1 Then Text1.Font.Strikethrough = True Else Text1.Font.Strikethrough = False

Private Sub Option1_Click() If Option1.Value = True Then Text1.FontName = Option1.Caption Private Sub Option2_Click() If Option2.Value = True Then Text1.Font.Name = " 楷体 _GB2312" Private Sub Option3_Click() If Option3.Value = True Then Text1.FontName = Option3.Caption Private Sub Option4_Click() If Option4.Value = True Then Text1.FontName = Option4.Caption Private Sub Option5_Click() If Option5.Value = True Then Text1.Font.Size = Val(Option5.Caption) Private Sub Option6_Click() If Option6.Value = True Then Text1.Font.Size = Val(Option6.Caption) Private Sub Option7_Click() If Option7.Value = True Then Text1.Font.Size = Val(Option7.Caption)

Private Sub Option8_Click() If Option8.Value = True Then Text1.Font.Size = Val(Option8.Caption) 2. 为计算机协会建立名单维护程序 在窗体上建立一个组合框 Combo1, 组合框中预设如 图所示的内容, 画一个文本框 (Text1) 和 3 个命令按钮, 标题分别为 修改 确定 和 添加 程序启动后, 确定 按钮不可用 程序的功能是 : 在运行时, 如果选中组合 框中的一个列表项, 单击 修改 按钮, 则把该项复制到 Text1 中 ( 可以在 Text1 中修改 ), 并使 确定 按钮可用 ; 若单击 确定 按钮, 则把修改后的 Text1 中的内容替换组合框 中该列表项的原有内容, 同时使 确定 按钮不可用 ; 若单 添加 按钮, 则把在 Text1 中的内容添加到组合框中 程序运行界面如图 13-13 所示 图 13-13 运行界面程序代码 : Private Sub Command1_Click() Text1.Text = Combo1.Text Command2.Enabled = True Private Sub Command2_Click() Combo1.Text = Text1.Text Command2.Enabled = False

Private Sub Command3_Click() Combo1.AddItem (Text1.Text) Private Sub Command4_Click() End 3. 利用定时器和图像框控件, 编写适当的事件过程, 使得程序运行时, 窗体上同一位置每隔一秒显示一副图片, 总共四副图片, 轮流播放 程序运行界面如图 13-14 所示 图 13-14 运行界面 程序代码 : Dim x As Integer Private Sub Timer1_Timer() Select Case x Case 0 Image1.Picture = Image2.Picture Case 1 Image1.Picture = Image3.Picture Case 2 Image1.Picture = Image4.Picture Case 3 Image1.Picture = Image5.Picture End Select x = x + 1 If x > 3 Then x = 0 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ;

(3) 工程文件夹压缩提交作业 13.10 上机练习十 目的 : (1) 掌握文件的基本概念 (2) 掌握顺序文件 随机文件的打开 关闭的正确使用 (3) 掌握 VB 文件基本操作的正确使用 (4) 掌握 VB 文件系统控件的正确使用 上机题目 : 1. 通过键盘输入 5 个学生的数据, 并将数据保存到顺序文件 sdata.txt 中 数据项包括编号 姓名 性别和年龄信息 2. 从 sdata.txt 读取数据到内存, 并将数据在窗体上显示出来 运行界面如图 13-15 所示 程序代码 : Private Sub Command1_Click() 图 13-15 从文件读取读取数据 Write #2, Text1.Text; Text2.Text; Text3.Text; Text4.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""

Command1.Enabled = False Private Sub Command2_Click() Open "d:\data\student1.txt" For Output As #2 Command2.Enabled = False 'Command1.Enabled = True Command5.Enabled = True Private Sub Command3_Click() Dim s1 As String, s2 As String, s3 As String, s4 As String Open "d:\data\student1.txt" For Input As #3 Do While Not EOF(3) Input #3, s1, s2, s3, s4 Picture1.Print s1; s2; s3; s4 Loop Close #3 Private Sub Command4_Click()

Close #2 End Private Sub Command5_Click() Close #2 Private Sub Text1_Change() Command1.Enabled = True 3. 编程实现具有对学生成绩录入 修改和显示功能的随机文件 4. 编写程序可以复制任何类型的文件 打开和保存文件时使用通用对话框 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.11 上机练习十一 目的 : (1) 掌握菜单的基本概念 (2) 掌握下拉式菜单和弹出式菜单的设计和正确使用 (3) 掌握 VB 通用对话框的正确使用

(4) 掌握 VB 多重窗体的正确使用 (5) 掌握 VB 工程结构并能正确应用 上机题目 : 1. 设计菜单及其应用程序界面, 编程实现如下功能 : 用户输入一个十进制数, 通过菜单项的选择将该数转换为八进制数或十六进制数 ; 程序的运行结果如图 13-16 和图 13-17 所示 图 13-16 将数据转换为八进制 图 13-17 将数据转换为十六进制 程序代码 : Private Sub m16_click() Dim x As Integer, s As String, x1 As Integer x = Val(Text1.Text) s = "" Do While x >= 16 x1 = x Mod 16 x = x \ 16 If x1 >= 10 Then s = Chr(55 + x1) & s Else s = x1 & s Loop If x > 0 Then If x >= 10 Then s = Chr(55 + x) & s Else s = x & s Text3.Text = s Private Sub m8_click()

Dim x As Integer, s As String, x1 As Integer x = Val(Text1.Text) s = "" Do While x >= 8 x1 = x Mod 8 x = x \ 8 s = x1 & s Loop If x > 0 Then s = x & s Text2.Text = s Private Sub mexit_click() End 2. 设计一个界面, 编程实现一个图片浏览器的简单效果, 如图 13-18 所示 图 13-18 图片浏览器运行界面程序代码 : Private Sub Command1_Click() Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)

Private Sub Command2_Click() End Private Sub Dir1_Change() File1.Path = Dir1.Path Private Sub Drive1_Change() Dir1.Path = Drive1.Drive 3. 在窗体上画一个标签 ; 再建立一个菜单, 窗体外观如图 13-19 所示 请编写程序, 使得选中 当前时间 菜单项时, 就把系统时间显示在标签上 ; 当选中 当前日期 菜单项时, 就把系统日期显示在标签上 如图 13-20 所示 图 13-19 窗体外观 图 13-20 显示日期 4. 建立一个多窗体的应用程序, 简单实现数据编辑和数据查询功能 : 共 3 个窗体 ; 一个窗体为主窗体, 其余 2 个分别数据编辑和数据查询窗体 程序运行时, 先显示主窗体, 主窗体上是软件的简要说明, 主窗体上的菜单包括数据编辑 数据查询 退出 单击菜单项显示出相应功能的窗体, 各个子窗体上有返回主窗体功能 运行效果如图 13-21 图 13-14 所示

图 12-21 程序主界面 图 13-22 数据编辑运行界面 程序代码 : 图 13-23 数据查询运行界面 主窗体 : Private Sub medit_click()

Form2.Show (1) Private Sub mexit_click() End Private Sub mquery_click() Form3.Show (1) 数据编辑窗体 : Private Sub Command1_Click() Write #2, Text1.Text; Text2.Text; Text3.Text; Text4.Text Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Command1.Enabled = False Private Sub Command2_Click() Open "d:\data\student1.txt" For Output As #2 Command2.Enabled = False

'Command1.Enabled = True Command5.Enabled = True Private Sub Command4_Click() Close #2 Unload Me Private Sub Command5_Click() Close #2 数据查询窗体 : Private Sub Command1_Click() Unload Me Private Sub Command2_Click() Dim s1 As String, s2 As String, s3 As String, s4 As String Open "d:\data\student1.txt" For Input As #3 Do While Not EOF(3) Input #3, s1, s2, s3, s4 Picture1.Print s1; s2; s3; s4

Loop Close #3 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业 13.12 上机练习十二 目的 : (1) 掌握关系数据库的基本概念 (2) 掌握 SQL 的查询语句 Select 正确使用 (3) 掌握 VB 可视化数据管理器的正确使用 (4) 掌握数据库访问控件 Data 的正确使用 (5) 掌握 ADO Data 控件和 DataGrid 控件的正确使用 上机题目 : 1. 利用可视化数据管理器为 Students 数据库添加 2 个表 : 图书基本信息 表和 借阅 表, 它们的结构分别如表 13-1 和表 13-2 所示, 并输入若干条图书基本信息记录和学生借 阅图书的记录 表 13-1 图书基本信息 表结构 字段名 数据类型 字段长度 主键 图书编号 字符型 10 是 书名 字符型 50 否 作者 字符型 20 否 出版社 字符型 50 否 价格 单精度 4 否 内容提要 字符型 100 否

表 13-2 借阅 表结构 字段名 数据类型 字段长度 主键 学号 字符型 8 是 图书编号 字符型 10 是 借出日期 日期形 否 2. 利用可视化数据管理器的 SQL 语句窗口输入 Select 语句, 按以下要求进行查询 1) 查看所有 铁道出版社 出版社的图书 2) 查看某同学借阅的所有图书的书名 作者 价格 借出日期 3) 查看 2014 年 9 月以前借出的书名 借阅者姓名 借出日期 3. 用查询生成器生成第 2 题的第 2) 3) 两个查询 4. 用数据窗体设计器设计一个窗体, 管理维护 图书基本信息 表 5. 设计一个显示 图书基本信息 表数据在窗体, 每次显示一条记录 要求分别用 Data 控件和 ADO Data 控件实现 6. 设计一个窗体显示第 2 题的第 2) 小题查到的信息, 每次显示一条记录 请使用 ADO Data 控件来连接数据源 7. 设计一个窗体显示第 2 题的第 3) 小题查到的信息, 每次显示多条记录 请使用 ADO Data 控件来连接数据源 8. 编写一个对 图书基本信息 表进行简单维护的程序, 包括记录的添加 删除 修改和简单查询功能, 这些功能用菜单实现 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ; (3) 工程文件夹压缩提交作业