任务2.7-挑战正话反说（2）PPT.pptVIP

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