高二下高教版可视化编程应用基础—Visual Basic2.7 挑战正话反说（二）课件

2.7 挑战正话反说（二） 可视化编程应用基础——visual Basic (陈建军) 1 正话反说程序 前面我们编程实现了正话反说程序，通过前面程序我们发现计算机程序可以快速、准确地进行正话反说。但上次课的程序只能进行单个正话反说，如果想连续进行正话反说，该如何实现呢? 2 含5道测试题的正话反说程序 含5道测试题的正话反说程序功能如下：（图片链接源程序） 3 任务1：程序界面设计 Label标签 Label标签 Label标签 Text文本框 按钮 按钮 4 任务2：含5道题的正话反说编码实现 单击“第1题”按钮，在标签2显示原话，当文本框输入时，原话隐藏，单击“挑战”按钮，判断反说结果是否正确并且把命令按钮1的标题改为“第2题”，以此类推，直到5道题做完后得出最后分数。 5 知识集中营 数组函数Array() 用户存储一组数据，其格式为array(表达式），其中表达式是多个表达式，中间用逗号间隔，其中表达式可以是数值、字符串。 注意：使用array()函数对数组赋初值之前，必须将变量名定义为Variant类型。 如本程序中： dim aDy as variant aDY = Array("我看书", "我喝牛奶", "咚咚口伤红眼泪", "累太是但,玩好", "上海自来水来自海上") 6 代码参考 For i = 1 To Len(sTM) b = Mid(sTM, i, 1) s = b + s Next If Text1.Text = s Then iDF = iDF + 20 MsgBox "太棒了！" Else MsgBox "继续努力！” End If iTH = iTH + 1 If iTH > 5 Then Command1.Caption = "挑战结束" Else Command1.Caption = "第" & iTH & "题" End If 7 任务3：字符替换操作界面设计 Label标签 Label标签 Label标签 TEXT文本框 TEXT文本框 TEXT文本框 按钮 8 任务4：字符替换程序编码实现 输入一段字符s、查找字符m和替换字符n，要求字符串s中的字符m替换为字符n。 程序需循环查询字符串，得到查找字符m的位置，然后将该位置字符替换为字符n，直至查找结束。 9 知识集中营 instr函数： 用于查找字符串，返回子串在字符串中的位置，instr(s,m)，用于返回m在字符串s中的位置。 left函数 用于从字符串左边截取子串，如left(s,m)， 从字符串s左边截取长度为m的子串。 right函数 用于从字符串右边截取子串，如right(s,m)， 从字符串s右边截取长度为m的子串。 10 代码参考 a = Text1.Text b = Text2.Text c = Text3.Text m = Len(b) n = InStr(a, b) Do While n <> 0 a = Left(a, n - 1) + c + Mid(a, n + m) n = InStr(a, b) Loop Text1.Text = a 11 作业 对本程序5道题目随机顺序抽题进行正话反说测试。 12 $