九九表

想学坏的小孩

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

' 画板1.自动重画 ＝ 真
' 画板1.边框 ＝ 2
' 画板1.画笔粗细 ＝ 10
' 画板1.画笔颜色 ＝ #绿色
' 画板1.刷子颜色 ＝ #蓝色
画板1.画矩形 (20, 20, 画板1.宽度 － 40, 画板1.高度 － 40)

.子程序 _按钮2_被单击

画板1.底图 ＝ {  }

.子程序 _标签1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 被乘数, 整数型
.局部变量 乘数, 整数型
.局部变量 要显示的内容, 文本型

.计次循环首 (9, 被乘数)
    .变量循环首 (1, 被乘数, 1, 乘数)
        画板1.文本颜色 ＝ 多项选择 (乘数, #黑色, #红色, #蓝色, #品红, #藏青, #紫色, #天蓝, #桃红, #深青)
        要显示的内容 ＝ 到文本 (被乘数) ＋ “×” ＋ 到文本 (乘数) ＋ “=” ＋ 到文本 (被乘数 × 乘数)
        画板1.定位写出 (乘数 × 45 － 40, 被乘数 × 20 － 10, 要显示的内容)
    .变量循环尾 ()
.计次循环尾 ()

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 被乘数, 整数型
.局部变量 乘数, 整数型
.局部变量 要显示的内容, 文本型

.计次循环首 (9, 被乘数)
    .变量循环首 (1, 被乘数, 1, 乘数)
        要显示的内容 ＝ 到文本 (被乘数) ＋ “×” ＋ 到文本 (乘数) ＋ “=” ＋ 到文本 (被乘数 × 乘数)
        画板1.定位写出 (乘数 × 45 － 40, 被乘数 × 20 － 10, 要显示的内容)
    .变量循环尾 ()
.计次循环尾 ()