VB实验任务7.docVIP

实验任务7 课程名称：程序设计基础VB 实验名称——实验七 顺序结构程序设计（2） 一、实验目的： 1.进一步掌握常量、变量、运算符、表达式和常用函数 2.掌握顺序语句和输入输出函数的使用 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 实验1实验书77页 实验6-2编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？提示根据数学知识，可以写出如下的联立方程式：X+Y=H? （1）2X+4Y=F （2） （2）式 ? 2?(（1）式：2Y=F?2H 故 Y=（F?2H）/2 4?(（1）?（2）式：?2X=4H?F 故 X=（4H?F）/2可按上式编写程序，输入H和F的值Inputbox函数，设H=71，F=158。 图6-5 实验6-2运行结果 实验2实验书78页实验6-4 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时输出。例如，产生357，输出753。 提示 三位正整数用随机函数Rnd生成，最后结果要求采用MsgBox函数显示逆序结果，如图6-7所示。逆序的方法可以用字符串的提取和连接、数学计算两种。（参看实验6的第5题，关键是输入、输出的练习）本题实验报告上写代码。 图6-7 实验6-4运行结果 实验3实验书78页实验6-5(注意InputBox函数使用的格式) 本题实验报告上写代码。 实验6-5 单击窗体，弹出图6-8（a）所示输入对话框要求用户输入圆的半径，随后以单击窗体的位置作为圆心绘制圆，如图6-8（b）所示。 （a）实验6-5运行结果 （b）实验6-5运行结果 提示：利用窗体的MouseDown事件编程，通过事件中的参数X、Y获取鼠标按下的坐标位置，然后使用Circle方法绘制圆;Circle方法的调用格式：对象名.Circle (X, Y), r ‘其中X，Y是圆心坐标位置，r为圆半径 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim r As Integer r = Circle Print End Sub 实验4课本133页题目5，要求数据的输入和输出使用InputBox函数和MsgBox函数(注意字符串函数使用的格式)编程实现：将输入的字符串前半部分和后半部分对称交换位置；例如，原字符串“ABCDE”，对称交换后的字符串为“DECAB”。提示：首先根据字符串的长度（奇偶性）将字符串分为前、中、后三个部分，使用字符串函数Left、Mid、Right进行截取三部分字符串，并将其重新排放，最后将结果显示输出。本题实验报告上写代码。 补充实验： 实验5 实验书24页 实验2-6 思考：如果添加一根分针，如何实现分针的旋转移动工作 实验2-6 以下程序是模拟实现钟表盘的秒针工作状况，要求程序运行时，钟表上的秒针不动（指向12点），单击“开始”按钮，钟表上的秒针开始工作，如图2-6所示；单击停止按钮，钟表上的秒针停止工作。请仔细分析和推敲，完善以下程序。 提示：利用形状和直线控件，模拟钟表秒针，借助时钟控件的Timer事件控制秒针的有规律旋转。 Dim lenth As Integer, q As Integer Const PI = 3.14159 Private Sub CmdStart_Click() “开始”命令按钮的单击事件 _______________________ 参考答案Timer1.Enabled = True End Sub Private Sub CmdStop_Click() “停止”命令按钮的单击事件 _______________________ 参考答案Timer1.Enabled = False End Sub Private Sub Form_Load() 窗体的装载事件 _______________________ 参考答案Timer1.Enabled = False _______________________ 参考答案Timer1.Interval = 1000 lenth = LinSecondHand.Y2 - LinSecondHand.Y1 q = 90 E