广州大学第7章 Visual Basic控制结构.ppt

第七章 Visual Basic控制结构 本章主要任务： （1）了解结构化程序设计方法； （2）掌握选择控制结构程序设计； （3）掌握循环结构程序设计。 在Text1中输入一个大于1的整数，点击“计算”按钮，要求计算出从1到这个整数之间（包括这个整数）的所有： （1）整数的累加 （2）整数的累乘 （3）奇数的累加 （4）偶数的累乘 ……… 并将结果显示在Label1中。 载入窗体： 1、随机生成x，y 2、随机生成算术式，计算出相应正确结果。 3、显示算术式 点击确定按钮： 4、比较用户输入和正确结果，显示结论，并依照结果正误对“正确”或“错误”数字加1 5、“共答”数字加1 6、计算“正确率” 7、清空输入结果的文本框，设置焦点 8、重新调用窗体载入过程 实现步骤：以下在form_load()事件中编程 1、随机生成x，y Randomize X = Int(10 * Rnd + 1) ‘1－10的随机数 Y = Int(10 * Rnd + 1) 实现步骤：以下在form_load()事件中编程 2、随机生成算术式，计算出相应正确结果 Select Case Int(4 * Rnd) + 1 ‘产生1－4的随机数 Case 1 S = Str(X) “+” Str(Y) “=“ ’生成”x+y=“字符串 Result = X + Y Case 2 S = Str(X) “-” Str(Y) “=“ ’生成”x-y=“字符串 Result = X - Y Case 3 S = Str(X) * Str(Y) =“ ’生成”x*y=“字符串 Result = X * Y Case 4 S = Str(X) / Str(Y) =“ ’生成”x/y=“字符串 Result = X / Y End Select 实现步骤：以下在form_load()事件中编程 3、显示算术式，给标签赋值显示算式 Label5.Caption = S 实现步骤：以下在Command1_Click()中编程 4、比较用户输入和正确结果，显示结论，并依照结果正误对“正确”或“错误”数字加1 If Val(Text5.Text) = Result Then Picture1.Print S Text5.Text √ Text2.Text = Text2.Text + 1 Else Picture1.Print S Text5.Text × Text3.Text = Text3.Text + 1 End If 实现步骤：以下在Command1_Click()中编程 5、 “共答”数字加1 Text1.Text = Text1.Text + 1 6、计算“正确率” Text4.Text = Int((Text2.Text / Text1.Text) * 100) 7、清空输入结果的文本框，设置焦点 Text5.Text = “” Text5.SetFocus 8、重新调用窗体载入过程 Form_Load 注意：声明全局变量！！ Dim Result As Integer Dim S As String 7.7 GoTo 型控制 二、On - GoTo 语句 形式： On 数值表达式　GoTo 行号表列 | 标号表列 例如: On x GoTo 30, 50, Line3, Line4 7.7 GoTo 型控制 二、On - GoTo 错误处理语句 形式： On Error GoTo 标号 On Error Resume Next 循环结构示例 综合练习 设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个1~10数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩。 综合练习 分析:产生1～10操作数，可通过Int(10* Rnd + 1) 实现 Int(Number) 函数：取不大于Number的整数。 Rnd函数：产生[0,1)之间随机数。 举例： Int(Rnd * 100) + 1 [1,100]的随机整数 Int(Rnd * 99) + 1 [1,100)的随机整数，即[1,99] Int(Rnd * 90) +