第13章VB上机练习题

图 13-6 运行界面图 提示： (1)在命令按钮的 Click 事件中编写代码。 (2)观察 MsgBox 函数的参数和消息对话框的显示效果，可以通过改变参数后运行程序，掌握 各个参数的意义。 (3)通过输出返回值，掌握 MsgBox 函数按不同按钮的返回值。 示例程序代码： Private Sub Command1_Click()
图 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) End Sub
例如：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 所示。
Private Sub Command2_Click() End
End Sub 上机要求： （1）每题创建一个 VB 工程，并在窗体 (Form1)上设计界面，在相关事件过程中编写程序； （2）保存并运行应用程序； （3）工程文件夹压缩提交作业。
13.4 上机练习四 目的： （1）掌握 VB 顺序结构程序设计。 （2）掌握赋值语句的的正确使用。 （3）掌握输入、输出函数和 print 方法的使用。 （4）掌握 VB 应用程序的调试方法。 上机题目：
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，可以方便地随时调用 其中的数据进行各类统计运算。
1．编写程序使用 InputBox 函数输入数据，使用 print 方法在窗体上输出输入的数据，并输 出变量的数据类型。程序运行界面如图 13-5 所示。
图 13-5 运行界面图 提示： (1)在窗体的 Click 事件中编写代码。 (2)观察 InputBox 函数的参数和输入对话框的效果，可以通过改变参数后运行程序，掌握各 个参数的意义。 (3)通过输出变量的数据类型，掌握 InputBox 函数返回值的数据类型。 示例程序代码： Private Sub Form_Click()
（2）掌握 If 语句和 Select Case 语句的的正确使用。
（3）掌握多分支结构 If 语句的正确使用。。
（4）掌握 Iif 函数的使用。 上机题目： 1. 输入三个不同的数，将它们从大到小排序。 2. 编写程序，输入一个整数，判定该数的奇偶性。
3. 输入一个数，判断它能否同时被 2，５，７整除。 4. 输入一个数，判断它是否是完全平方数。（一个数如果是另一个整数的完全平方，那么 就称这个数为完全平方数）
7．设用 100 元钱买 100 支笔，其中钢笔每支 3 元，圆珠笔每支 2 元，铅笔每支 0.5 元，
问钢笔、圆珠笔和铅笔可以各买多少支？（每种笔至少买 1 支）
8．编写程序打印下列图形
* ** *** **** *****
* *** ***** ******* *********
***** ***** ***** ***** *****
第 13 章 VB 上机练习题 程序最终是要在计算机上运行的，学习程序设计过程中很重要的一个环节是上机练习， 只有将一个程序在计算机上编写、调试、运行并得到正确的结果，才算完成了程序设计与实 现。本章根据前面章节的学习内容，将上机练习题目分类，分别编写了 12 类上机题目，供 老师教学和上机参考。
13.1 上机练习一 目的： （1）熟悉 Visual Basic6.0 开发环境。 （2）模仿简单的 VB 应用程序的编写。 （3）掌握 VB 应用程序的开发步骤。 （4）掌握 VB 应用程序的编写、调试、运行过程。 上机题目： 1.设计一个程序，当用鼠标单击窗体时，窗体中显示“Visual Basic6.0 程序设计”字样。 要点说明：
End Sub 提示： （1）程序运行时单击两次鼠标，观察输出结果； （2）将输出内容修改为“我的第一个 VB 程序”； （3）尝试改变输出文本的颜色。 上机要求： （1）每题创建一个 VB 工程，并在窗体 (Form1)上设计界面，在相关事件过程中编写程序； （2）保存并运行应用程序； （3）工程文件夹压缩提交作业。 13.2 上机练习二 目的： （1）熟悉 Visual Basic6.0 工具箱中常用控件的使用。 （2）掌握 VB 应用程序界面设计技术。 （3）掌握对象属性设置方法。 （4）掌握事件驱动程序设计及运行机制、事件过程编程方法。 上机题目：
Dim x x = MsgBox("确认退出吗？", 0 + 32 + 1, "系统提示")
Print x
End Sub 上机要求： （1）每题创建一个 VB 工程，并在窗体 (Form1)上设计界面，在相关事件过程中编写程序； （2）保存并运行应用程序； （3）工程文件夹压缩提交作业。
13.5 上机练习五 目的： （1）掌握 VB 选择结构程序设计。
Dim x x = InputBox("请输入数据：", "InpuBox 示例", "我的数据") Print x Print TypeName(x) End Sub 2．在窗体上放一个命令按钮“退出”，编写程序，单击“退出”按钮时，出现如图 13-6 所示的消息对话框，并在窗体上输出函数返回值。
13.3 上机练习三 目的： （1）掌握 VB 基本数据类型。 （2）掌握 VB 常量、变量的基本概念及符号常量、变量的申明。 （3）掌握 VB 表达式的概念，能够书写正确的 VB 表达式并计算表达式的值。 （4）掌握 VB 中常用的内部函数及其应用。 上机题目： 1．上机实现习题 3 第 5,6 题。 提示：在窗体的 Click 事件过程中编程，输出表达式的值。
5. 键盘输入 a、b、c 的值，判断它们能否构成三角形。如果能构成一个三角形，则计算三 角形的面积。
6. 某公司进行工资调整，调整计划为：若基本工资大于等于 5000，则工资增加 20%；若
小于 5000 大于等于 3000，则工资增加 15%；若小于 3000，则工资增加 10%。请根据用 户输入的基本工资，计算出增加后的工资。 7. 输入一个数字（0～6），用中文显示星期几。（输入 0，显示星期日） 8. 设计一个两位数加、减、乘、除运算的程序，要求如下：
1．在窗体的左上画两个命令按钮和两个文本框，然后选择这 4来自百度文库个对象，并把他们移到窗体 的右下部。 2．在窗体的任意位置画一个文本框，然后在属性窗口中设置下列属性：
Left 1600 Top 2400 Height 1000 Width 2000 3．在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本
当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=13+53+33） 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 天要吃时只剩下一个，问小 猴共摘下了多少个桃子？
建立 VB 应用程序工程，在单击窗体事件中实现显示“Visual Basic6.0 程序设计”。程序 界面如图 13-1 和图 13-2 所示。
图 13-1 设计界面 程序代码如下： Private Sub Form_Click()
图 13-2 运行界面
Print "Visual Basic6.0 程序设计" '在窗体上输出
框”和“显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时， 文本框重新出现，并在文本框中显示“VB 程序设计”（字体大小为 16：可以使用语句 Fontsize=16）。 提示：设计实现改变文本框显示文本的颜色。 语句：Text1.ForeColor = RGB(255, 0, 0) 4. 设计一个用户登录验证界面，两个标签(Label)分别是“用户名”和“密码”，两个文本 框(TextBox)分别是“用户名值”和“密码值”，两个命令按钮(CommandButton) 分别是 “确认”和“取消”。按确认按钮验证用户名和密码（假设用户名为：“VB”，密码为： “123456”），输入正确显示“登录成功！”，否则显示“用户名或密码错误！”，按取消按钮 结束程序运行(语句是：End）。（输入密码是显示“*”） 提示：设计给窗体增加一个背景图片，把命令按钮改为图形按钮 上机要求： （1）每题创建一个 VB 工程，并在窗体 (Form1)上设计界面，在相关事件过程中编写程序； （2）保存并运行应用程序； （3）工程文件夹压缩提交作业。
（1）加、减、乘、除由用户单击相应按钮选择。
（2）运算数据由随机函数产生。
（3）选择合适的控件显示运算式中数据、运算符。
（4）对用户输入的结果对错用消息框给出提示。 结果正确时有“！”图标； 结果错误时有“×”图标。
9. 有如下分段函数：

x
2

3x

2
y


3x 2
1x x
当x 20 当10 x 20