|
事件主窗口.创建完毕() 单选框1.背景颜色 = 无色 单选框2.背景颜色 = 无色 单选框3.背景颜色 = 无色 结束事件
事件单选框1.选择改变() 如果 单选框1.选中 = 真 则 单选框2.选中 = 假 单选框3.选中 = 假 结束 如果 结束事件
事件单选框2.选择改变() 如果 单选框2.选中 = 真 则 单选框1.选中 = 假 单选框3.选中 = 假 结束 如果 结束事件
事件单选框3.选择改变() 如果 单选框3.选中 = 真 则 单选框2.选中 = 假 单选框1.选中 = 假 结束 如果 结束事件'
事件主窗口.按下某键(键代码为 整数型,传址 屏蔽 为 逻辑型) 判断 键代码 分支 返回键 弹出提示("你按下了返回键！")'如果 键代码=返回键 则弹出相应提示 分支 音量增键 弹出提示("你按下了音量增键！")'如果 键代码=音量增键 则弹出相应提示 分支 音量减键 弹出提示("你按下了音量减键！")'如果 键代码=音量减键 则弹出相应提示 分支 中键 弹出提示("你按下了中键")'如果 键代码=中键 则弹出相应提示 结束 判断 结束事件
事件单选框1.选择改变() 如果 单选框1.选中 = 真 则 单选框2.选中 = 假 否则 单选框2.选中 = 真 结束 如果 结束事件
事件单选框2.选择改变() 如果 单选框2.选中 = 真 则 单选框1.选中 = 假 否则 单选框1.选中 = 真 结束 如果 结束事件
事件按钮1.被单击() 如果 单选框1.选中 = 真 则 信息框("信息：","感谢您的支持,我们将做得更好！","确定") 结束 如果 结束事件 事件按钮2.被单击() 结束 事件
事件主窗口.按下某键(键代码为 整数型,传址 屏蔽 为 逻辑型) 判断 键代码 分支 返回键 弹出提示("你按下了返回键！")'如果 键代码=返回键 则弹出相应提示 分支 音量增键 弹出提示("你按下了音量增键！")'如果 键代码=音量增键 则弹出相应提示 分支 音量减键 弹出提示("你按下了音量减键！")'如果 键代码=音量减键 则弹出相应提示 分支 中键 弹出提示("你按下了中键")'如果 键代码=中键 则弹出相应提示 结束 判断 结束事件
事件单选框1.选择改变() 如果 单选框1.选中 = 真 则 单选框2.选中 = 假 否则 单选框2.选中 = 真 结束 如果 结束事件
事件单选框2.选择改变() 如果 单选框2.选中 = 真 则 单选框1.选中 = 假 否则 单选框1.选中 = 真 结束 如果 结束事件
事件按钮1.被单击() 如果 单选框1.选中 = 真 则 信息框("信息：","感谢您的支持,我们将做得更好！","确定") 结束 如果 结束事件
事件按钮2.被单击() 变量 计数 为 整数型 变量 结果 为 整数型 变量循环首 计数 = 1 至 100 步进 1 '变量循环,变量"计数"从1递增到100,每次递增值为步进值1,步进值默认为1,这里就可以省略不写,步进值也可以为负数,表示递减 结果 = 结果 + 计数 变量循环尾 信息框("信息：","累加结果为："& 结果 ,"确定") 结束事件
事件按钮3.被单击() 变量 计次 为 整数型 判断循环首 计次 < 10 '如果条件满足就继续执行循环中的语句,如果条件不满足时则停止循环 计次 = 计次 + 1 判断循环尾 弹出提示("共循环"& 计次 & "次") 结束事件
事件按钮4.被单击() 变量 文本数组 为 文本型() 变量 当前文本 为 文本型 文本数组=分割文本("项目1|项目2|项目3","|") 枚举循环首 当前文本 从 文本数组 '将文本数组中的每一个成员枚举出来,赋值给当前文本变量 调试输出(当前文本) 编辑框1.内容 = 编辑框1.内容 &"\n" & 当前文本 枚举循环尾 结束事件
| 
