《Visual Basic.NET程序设计实验实训指导 教学课件 ppt 作者 邱炳城 实验3 猜数游戏》由会员分享，可在线阅读，更多相关《Visual Basic.NET程序设计实验实训指导 教学课件 ppt 作者 邱炳城 实验3 猜数游戏（38页珍藏版）》请在金锄头文库上搜索。
1、2019年5月24日星期五,Visual Basic.NET程序设计实验 实验3 猜数游戏,2019年5月24日星期五,【功能描述】,由计算机随机产生一个1，100间的整数，给用户猜测，每次给出猜大了还是猜小了的提示。最多猜5次，5次均猜错即为输。,2019年5月24日星期五,【实验内容】,1For-Next语句及If-Else-End If语句的应用。 2ListBox控件的应用 3Int()、Val()、Str()函数的运用。 4MessageBox.Show()方法的运用。 5Me关键字的运用。,2019年5月24日星期五,【实验目的】,1掌握For-Next语句的格式、功能及运用。 2
2、熟悉语句结构的嵌套及灵活应用。 3掌握通过代码改变窗体及其控件的属性的方法。 4熟悉人机交互的多种方法。,2019年5月24日星期五,【预备知识】,1赋值运算 2相关函数 3For-Next语句 4MessageBox.Show()方法 5Me,2019年5月24日星期五,【实验步骤】,1创建及保存项目 2“即时”窗口的使用 3窗体设计 4程序设计 5程序调试 6程序改进,2019年5月24日星期五,【问题与思考】,1在“即时”窗口输入一些命令，比较函数Str()和CStr()的异同。 2通过联机帮助学习Format()函数的使用方法。 3试按下面要求改写程序： 不限制用户的猜数次数，改为以成
3、绩来评价游戏结果。每局（猜一个数）给初始分为100分，每猜错一次扣10分，直至猜对为止。然后重新产生一个数，进入下一局。每猜一次都在窗体上显示出累计得分。 4试按下面要求改写程序： 当用户挑战成功（5次之内猜对）或挑战失败（5次都猜错）时，不用消息框显示游戏结果，改为用图片显示游戏结果。用一幅胜利形象的图片表示挑战成功，用一幅失败形象的图片表示挑战失败。 5过程zoom中的For语句使用参数d作为步长值，如果有代码使用zoom（0）来调用该过程，会出现什么不良后果？如何改进？,2019年5月24日星期五,赋值运算,赋值运算符除了实验1介绍的“”外，还有 += 、-= 、*= 、/= 、= 、=
4、 、&= 等，这些运算符的运算功能是：将一个表达式与一个变量或属性进行运算，并将结果赋给该变量或属性。 如： += 将一个数值表达式的值与一个数值变量或属性的值相加，并将结果赋给该变量或属性。 &= 连接String表达式与String变量或属性，并将结果赋给该变量或属性。 运算符“+=”除了作数值运算外，也可以作字符串（String）连接运算，但通常使用“&=”作为String连接运算符。,2019年5月24日星期五,赋值运算示例,下面代码运行后，变量x的值为20，而变量y的值为“128“。 Dim x As Int16 = 12 Dim y As String = “12“ x += 8
5、y &= 8,2019年5月24日星期五,Int()函数,该函数用于进行取整运算。Int(n)的返回值为不大于n的最大整数。 例如： Int(3.89) 返回值：3 Int(-3.2) 返回值：-4。,2019年5月24日星期五,Val()函数,该函数用于将字符串转换为数值。转换时，如果第1个字符不是数字字符，则返回数值0。例如： Val(“23KM“) 返回值：23 Val(“APPLE”) 返回值：0。 Val()函数在转换时能识别E、小数点、&O前缀（八进制）、&H前缀（十六进制），并且会排除空格、制表符和换行符。例如： Val(“2.6E3KM“) 返回值：2600 Val(“&O14
6、“) 返回值：12 Val(“&H1F“) 返回值：31 Val(“ 1615 198th Street N.E.“) 返回值：1615198,2019年5月24日星期五,Str()函数,与Val()函数对应的函数Str()，可用于将数值转换为字符串。如果参数是正数，转换结果保留前导空格。例如： Str(345) 返回值：“ 345“ Str(-3.14) 返回值：“-3.14“。,2019年5月24日星期五,For-Next语句,常用的For语句格式为： For 循环变量 = 初值 To 终值 Step 步长值 语句s Next 循环变量 执行For语句时，初值赋给循环变量，并判断循环变量的
7、值是否超过终值。如果超过，则执行Next后面的语句，否则执行“语句s”。执行Next语句时，循环变量加上步长值，然后判断循环变量的值是否超过终值。如果超过，则执行Next后面的语句，否则执行“语句s”。,2019年5月24日星期五,For-Next语句的运行过程,2019年5月24日星期五,For 语句示例1,下面代码用于求100以内奇数的和，结果赋给变量s。 Dim i, s As Integer s = 0 For i = 1 To 100 Step 2 s += i Next i,2019年5月24日星期五,For 语句示例2,如果循环变量在For语句之前未声明，则可在For语句中声明。
8、下面代码产生10个用“Hello“连接的字符串，结果赋给变量h。 Dim h As String For i As Integer = 1 To 10 Step 1 h &= “Hello“ Next i,2019年5月24日星期五,For 语句示例3,Next语句后面的循环变量可省略。步长为1时，“Step 1”也可省略。下面代码与示例2的代码运行结果相同。 Dim h As String For i As Integer = 1 To 10 h &= “Hello“ Next,2019年5月24日星期五,For 语句示例4,示例3代码中，因为循环体内的语句没有使用循环变量i，因此循环的初值
9、、终值及步长值可以任意设置，只要保证循环的次数为10次，程序的运行结果就保持不变。如将示例3代码改为下面代码，程序运行结果相同。 Dim h As String For i As Integer = 20 To 1 Step -2 h &= “Hello“ Next,2019年5月24日星期五,For Each 语句,For语句的另一常用格式为： For Each 元素 In 集合 语句s Next 元素 该语句的功能是对集合中的每一元素都运行“语句s”。,2019年5月24日星期五,例3-1 遍历集合中的元素,Me.Controls为当前窗体中所有控件的集合。下面代码对当前窗体中的所有控件的
10、文字颜色设置为红色。 For Each t As Control In Me.Controls t.ForeColor = Color.Red Next,2019年5月24日星期五,例3-2 随机数程序,在循环体内，如果某条件成立时需要退出For循环，则可采用Exit For语句。 随机产生20以内的正整数，如果产生的数刚好是12，则不再继续产生，最多产生10个数。 Dim k As Integer, s As String For i As Integer = 1 To 10 k = Int(Rnd() * 20 + 1) s &= k & “,“ If k = 12 Then Exit F
11、or End If Next MsgBox(s),2019年5月24日星期五,MessageBox.Show()方法,在实验1中曾使用MessageBox.Show()方法用于一个消息框，但该方法的重要作用是与用户交互。该方法显示一个消息框后，用户根据提示信息作出选择，程序根据用户的选择再作出相应的处理。 MessageBox.Show()方法根据用户的选择返回对话框结果DialogResult，包括Abort（中止）、Cancel（取消）、Ignore（忽略）、o（否）、Yes（是）、Retry（重试）、OK（确定）等。,2019年5月24日星期五,例3-3 处理对话框结果,下面代码询问用户
12、是否要将变量x的值加上100，如果用户选择是，则x值加100，否则x值不变。 Dim x As Integer = Val(TextBox1.Text) Dim r As DialogResult r = MessageBox.Show(“x的值要加上100吗？“, “增加“, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If r = Windows.Forms.DialogResult.Yes Then x += 100 End If TextBox2.Text = x,2019年5月24日星期五,Me,Me关键字可作为引用当前实例的对
13、象变量。 例如，下面代码将当前窗体最大化。 Me.WindowState = FormWindowState.Maximized,2019年5月24日星期五,创建及保存项目,（1）创建项目。启动Microsoft Visual Studio 2005，单击菜单“文件”“新建项目”，打开“新建项目”对话框，在“项目类型”中选择Visual Basic，在“模板”列表中选择“Windows 应用程序”，在“名称”框中输入项目的名称，输入：03_猜数游戏，然后单击“确定”按钮创建项目，如图1-2所示。若项目创建成功，则系统自动为项目添加一个名为Form1的窗体（Form1.vb）。 （2）保存项目。
14、单击菜单“文件”“全部保存”，打开“保存项目”对话框，在“位置”框中输入项目的保存位置，或单击“浏览”按钮选择项目的保存位置。对于较为简单的项目，没有必要单独为解决方案创建目录，因此不选择“创建解决方案的目录”选项。最后单击“保存”按钮保存项目，如图1-3所示。,2019年5月24日星期五,“即时”窗口的使用,按Ctrl+G或单击菜单“调试”“窗口”“即时”，进入“即时”窗口，分别输入下面命令，并观察显示结果。 ? Int(4.8) ? Int(-0.2) ? Val(“3e2x6“) ? Val(“+3e-2x6“) ? Val(“&O23“) ? Val(“&H23“) ? Str(2.4
15、) ? Str(10000000000000000000) ? Str(10000000000000000000.0) ? MessageBox.Show(“1+1=2 ?“, “问题“, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes 上面最后一条命令分别运行两次，在显示的消息框中分别单击“是”和“否”按钮，并比较结果。,2019年5月24日星期五,窗体设计,窗体的标签Label1显示游戏说明。只有当用户单击开始按钮Button1时，文本框TextBox1和确定按钮Button3才可用。用户在文本框Te
16、xtBox1中输入猜数然后单击确定按钮Button3时，程序判断所输入的猜数是否正确，并在列表框ListBox1上显示猜数结果。用户随时可单击按钮Button1重新开始游戏，单击按钮Button2或按Esc退出，程序询问用户是否真的要退出，并作出相应处理。,2019年5月24日星期五,“猜数游戏”窗体及控件的属性设置,2019年5月24日星期五,程序设计定义过程btf,定义一个过程btf用于设置游戏相关控件是否能用，并进行初始化工作。 Private Sub btf(ByVal t As Boolean) Label2.Text = “第1次猜:“ TextBox1.Text = “ TextBox1.Enabled = t Button3.Enabled = t ListBox1.Enabled = t ListBox1.Items.Clear() 清除列表框中的所有项 End Sub,2019年5月24日星期五,程序设计声明成员变量,程序需要记录用
