减少内存错误，验证指针是否可读写

整数变量 ＝ 取随机数 (0, 100000)
指针地址 ＝ 取变量地址 (整数变量)
编辑框1.加入文本 (“指针地址:” ＋ 到文本 (指针地址), #换行符)
.如果 (IsBadReadPtr (指针地址, 4) ≠ 0)
编辑框1.加入文本 (“是否可读:假”, #换行符)
.否则
编辑框1.加入文本 (“是否可读:真”, #换行符)
读入整数 ＝ 取字节集数据 (指针到字节集 (指针地址, 4), #整数型, )
编辑框1.加入文本 (“读出数据:” ＋ 到文本 (读入整数), #换行符)
.如果结束
.如果 (IsBadWritePtr (指针地址, 4) ≠ 0)
编辑框1.加入文本 (“是否可写:假”, #换行符)
.否则
编辑框1.加入文本 (“是否可写:真”, #换行符)