Visual Studio 2010旗舰版的vb.net版本组词程序代码

Imports System
Imports System.Windows.Forms

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click







    Randomize()

    'a数142\b量100\c形容141\d名223\n区别100\f代100\g副100\h动292\i介100\j个体名词100\k抽象名词100\l助100\m语气100。

    '定义数组来存储数据

    Dim a(142) As String
    Dim b(100) As String
    Dim c(141) As String
    Dim d(223) As String
    Dim n(100) As String
    Dim f(100) As String
    Dim g(100) As String
    Dim h(292) As String
    Dim i(100) As String
    Dim j(100) As String
    Dim k(100) As String
    Dim l(100) As String
    Dim m(100) As String



    '数
    a = {"一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "二十", "二十一", "二十二", "二十三", "二十四", "二十五", "二十六", "二十七", "二十八", "二十九", "三十", "三十一", "三十二", "三十三", "三十四", "三十五", "三十六", "三十七", "三十八", "三十九", "四十", "四十一", "四十二", "四十三", "四十四", "四十五", "四十六", "四十七", "四十八", "四十九", "五十", "五十一", "五十二", "五十三", "五十四", "五十五", "五十六", "五十七", "五十八", "五十九", "六十", "六十一", "六十二", "六十三", "六十四", "六十五", "六十六", "六十七", "六十八", "六十九", "七十", "七十一", "七十二", "七十三", "七十四", "七十五", "七十六", "七十七", "七十八", "七十九", "八十", "八十一", "八十二", "八十三", "八十四", "八十五", "八十六", "八十七", "八十八", "八十九", "九十", "九十一", "九十二", "九十三", "九十四", "九十五", "九十六", "九十七", "九十八", "九十九", "一百", "二百", "三百", "四百", "五百", "六百", "七百", "八百", "九百", "一千", "两千", "三千", "四千", "五千", "六千", "七千", "八千", "九千", "一万", "两万", "三万", "四万", "五万", "六万", "七万", "八万", "九万", "十万", "二十万", "三十万", "四十万", "五十万", "六十万", "七十万", "八十万", "九十万", "一百万", "一千万", "一亿", "十亿", "百亿", "千亿", "万亿"}
    '量
    b = {"个", "只", "条", "头", "匹", "颗", "棵", "朵", "片", "页", "本", "支", "架", "辆", "艘", "座", "台", "把", "块", "张", "件", "双", "对", "副", "身", "套", "种", "类", "群", "批", "堆", "捆", "束", "排", "行", "列", "面", "口", "扇", "根", "节", "瓶", "盒", "包", "袋", "篮", "筒", "盆", "锅", "碗", "盘", "勺", "筷", "床", "桌", "椅", "柜", "箱", "房", "栋", "层", "间", "亩", "顷", "里", "步", "米", "厘米", "毫米", "千克", "克", "吨", "升", "毫升", "分", "秒", "时", "天", "周", "月", "年", "季", "世纪", "元", "角", "分", "度", "场", "回", "次", "轮", "番", "遍", "趟", "下", "阵", "道", "股", "缕", "丝"}
    '形容
    c = {"美丽", "漂亮", "丑陋", "英俊", "可爱", "迷人", "温柔", "善良", "邪恶", "凶狠", "残暴", "慈祥", "和蔼", "严肃", "活泼", "开朗", "内向", "外向", "聪明", "愚蠢", "机智", "笨拙", "勇敢", "胆小", "懦弱", "坚强", "脆弱", "乐观", "悲观", "积极", "消极", "热情", "冷漠", "大方", "小气", "吝啬", "宽容", "狭隘", "忠厚", "奸诈", "老实", "狡猾", "勤劳", "懒惰", "勤奋", "散漫", "认真", "马虎", "细心", "粗心", "敏捷", "迟钝", "迅速", "缓慢", "安静", "吵闹", "嘈杂", "整洁", "凌乱", "肮脏", "干净", "清爽", "油腻", "干燥", "潮湿", "温暖", "寒冷", "炎热", "凉爽", "明亮", "黑暗", "昏暗", "宽敞", "狭窄", "宽阔", "狭小", "高大", "矮小", "肥胖", "瘦弱", "强壮", "虚弱", "健康", "生病", "甜蜜", "苦涩", "辛辣", "酸甜", "咸淡", "柔软", "坚硬", "光滑", "粗糙", "陡峭", "平缓", "笔直", "弯曲", "丰富", "贫乏", "空洞", "充实", "精彩", "平淡", "无聊", "有趣", "快乐", "悲伤", "幸福", "痛苦", "幸运", "倒霉", "安全", "危险", "稳定", "动荡", "复杂", "简单", "困难", "容易", "古老", "年轻", "崭新", "陈旧", "优秀", "低劣", "良好", "恶劣", "茂密", "稀疏", "繁华", "荒凉", "真实", "虚假", "准确", "错误", "清晰", "模糊", "完整", "残缺", "整齐", "杂乱"}

    '名词
    d = {"天空", "大地", "海洋", "山脉", "河流", "湖泊", "森林", "树木", "花朵", "草地", "房屋", "建筑", "桥梁", "道路", "车辆", "船只", "飞机", "火车", "自行车", "电脑", "手机", "电视", "书籍", "纸张", "笔墨", "书包", "衣服", "裤子", "鞋子", "帽子", "围巾", "手套", "钟表", "镜子", "梳子", "牙刷", "牙膏", "杯子", "盘子", "碗", "筷子", "勺子", "刀叉", "桌椅", "床铺", "枕头", "被子", "窗帘", "窗户", "门", "锁", "钥匙", "箱子", "柜子", "钱包", "书包", "背包", "雨伞", "雨衣", "太阳", "月亮", "星星", "云彩", "风", "雨", "雪", "霜", "雾", "冰", "火", "光", "电", "声音", "音乐", "语言", "文字", "数字", "颜色", "形状", "味道", "气味", "动物", "植物", "人物", "朋友", "同学", "老师", "家长", "孩子", "婴儿", "老人", "男人", "女人", "工人", "农民", "士兵", "警察", "医生", "护士", "厨师", "司机", "演员", "歌手", "画家", "作家", "运动员", "科学家", "工程师", "学生", "职员", "老板", "顾客", "商品", "礼物", "玩具", "工具", "乐器", "武器", "珠宝", "首饰", "钻石", "黄金", "白银", "珍珠", "宝石", "煤炭", "石油", "天然气", "金属", "塑料", "玻璃", "陶瓷", "木材", "石头", "沙子", "泥土", "灰尘", "垃圾", "水果", "蔬菜", "粮食", "肉类", "鱼类", "鸟类", "昆虫", "细菌", "病毒", "细胞", "基因", "思想", "感情", "梦想", "希望", "快乐", "悲伤", "愤怒", "恐惧", "爱", "恨", "友谊", "亲情", "爱情", "知识", "智慧", "经验", "历史", "文化", "传统", "风俗", "节日", "宗教", "哲学", "法律", "政治", "经济", "商业", "工业", "农业", "教育", "科技", "艺术", "文学", "数学", "物理", "化学", "生物", "地理", "体育", "健康", "疾病", "医院", "药店", "公园", "花园", "动物园", "游乐场", "电影院", "剧院", "博物馆", "图书馆", "超市", "商场", "市场", "银行", "邮局", "酒店", "饭店", "咖啡馆", "茶馆", "学校", "幼儿园", "小学", "中学", "大学", "工厂", "公司", "办公室", "会议室", "厨房", "卧室", "客厅", "浴室", "厕所"}

    '区别
    n = {"慢性", "急性", "雄性", "雌性", "阴性", "阳性", "中式", "西式", "欧式", "日式", "韩式", "美式", "彩色", "黑白", "公共", "私有", "野生", "家养", "金质", "银质", "木质", "铁质", "铜质", "纸质", "棉质", "丝质", "麻质", "荤的", "素的", "正的", "副的", "男的", "女的", "大号", "中号", "小号", "初等", "中等", "高等", "初级", "中级", "高级", "双边", "多边", "单方", "多方", "专职", "兼职", "有期", "无期", "民用", "军用", "国营", "私营", "大型", "中型", "小型", "微型", "电动", "手动", "遥控", "自动", "半自动", "精装", "简装", "平装", "有线", "无线", "长途", "短途", "高速", "低速", "高温", "低温", "高压", "低压", "旺季", "淡季", "单排", "双排", "独生", "超生", "亲生", "野生", "亲生", "法定", "非法", "机密", "公开", "天然", "人工", "新式", "老式", "后补", "正式", "临时", "专职", "业余", "良性", "恶性"}
    '代词
    f = {"我", "你", "他", "她", "它", "我们", "你们", "他们", "她们", "咱们", "自己", "自身", "别人", "旁人", "大家", "大伙儿", "某人", "有人", "无人", "每人", "这", "那", "这些", "那些", "这儿", "那儿", "这里", "那里", "这边", "那边", "如此", "这样", "那样", "什么", "怎么", "怎样", "哪", "哪儿", "哪个", "哪些", "谁", "谁的", "啥", "每", "各", "某", "有的", "有些", "任何", "一切", "全部", "所有", "全体", "整体", "部分", "少数", "多数", "许多", "好多", "不少", "些许", "一点儿", "一些", "少许", "好多", "凡", "但凡", "任", "无论", "甭管", "不管", "不论", "唯一", "唯独", "单单", "仅仅", "光", "净", "都", "全", "皆", "俱", "通", "满", "悉", "一概", "一律", "一齐", "一同", "一道", "一起", "一伙", "一帮", "一群", "一撮", "一串", "一溜", "一茬", "一宗", "一档"}
    '副词
    g = {"很", "非常", "特别", "极其", "格外", "相当", "太", "更", "最", "稍", "略", "有点儿", "几乎", "将近", "大约", "大致", "大概", "也许", "可能", "或许", "确实", "的确", "真的", "实在", "正", "就", "才", "刚", "已经", "曾经", "正在", "将要", "马上", "立刻", "立即", "连忙", "赶紧", "赶忙", "急忙", "匆匆", "依然", "仍然", "还", "再", "又", "也", "都", "全", "只", "仅", "单单", "光", "净", "老是", "总是", "一直", "一贯", "永远", "从来", "向来", "绝不", "决不", "未必", "未曾", "未尝", "不免", "难免", "幸亏", "幸好", "竟然", "居然", "果然", "诚然", "究竟", "到底", "偏偏", "反倒", "反正", "横竖", "好歹", "左右", "上下", "内外", "前后", "先后", "陆续", "纷纷", "处处", "时时", "常常", "往往", "频频", "再三", "屡次", "一再", "逐渐", "逐步", "缓缓", "慢慢", "稍稍"}
    '动
    h = {"跑", "跳", "走", "坐", "站", "躺", "睡", "爬", "飞", "游", "滚", "躲", "藏", "追", "赶", "拉", "推", "抱", "扛", "抬", "提", "拎", "背", "拖", "拽", "打", "拍", "敲", "砸", "扔", "丢", "抛", "接", "抓", "挠", "挖", "掘", "铲", "插", "刺", "割", "砍", "劈", "锯", "削", "磨", "缝", "补", "织", "绣", "编", "绑", "系", "挂", "吊", "贴", "粘", "涂", "抹", "刷", "洗", "涮", "泡", "浸", "浇", "洒", "灌", "吹", "吸", "呼", "喝", "吃", "咬", "嚼", "吞", "咽", "含", "舔", "吻", "看", "瞧", "望", "盯", "瞪", "瞥", "瞅", "瞄", "视", "观", "察", "听", "闻", "嗅", "尝", "品", "摸", "触", "碰", "撞", "挤", "压", "按", "捏", "揉", "搓", "压", "踩", "踏", "跺", "踢", "踹", "蹬", "跨", "迈", "越", "翻", "转", "弯", "折", "叠", "卷", "展", "开", "关", "启", "闭", "合", "分", "拆", "装", "卸", "安", "装", "修", "理", "补", "救", "治", "医", "疗", "选", "择", "挑", "拣", "捡", "拾", "拿", "放", "摆", "置", "存", "储", "藏", "借", "贷", "租", "买", "卖", "购", "销", "赠", "送", "给", "要", "取", "偷", "抢", "夺", "占", "领", "攻", "守", "防", "御", "战", "斗", "争", "吵", "骂", "哄", "劝", "阻", "拦", "挡", "遮", "蔽", "盖", "揭", "掀", "揭", "露", "显", "示", "表", "达", "说", "讲", "谈", "论", "述", "叫", "喊", "呼", "唤", "吼", "唱", "歌", "吟", "诵", "读", "念", "写", "抄", "画", "绘", "描", "涂", "抹", "擦", "扫", "拖", "抹", "除", "消", "灭", "毁", "坏", "损", "伤", "残", "废", "杀", "宰", "害", "死", "亡", "生", "存", "活", "长", "育", "孕", "怀", "养", "喂", "饲", "培", "育", "教", "学", "习", "练", "训", "练", "考", "试", "竞", "争", "比", "赛", "赢", "输", "胜", "败", "进", "退", "出", "入", "来", "去", "回", "归", "到", "达", "离", "开", "上", "下", "前", "后", "左", "右", "内", "外", "中", "间", "顶", "端", "底", "部", "头", "尾"}

    '介词
    i = {"从", "自", "由", "于", "在", "到", "往", "向", "朝", "对", "对于", "关于", "把", "被", "让", "给", "替", "为", "因", "由于", "按照", "依照", "遵照", "根据", "据", "以", "用", "靠", "凭", "借", "除", "除了", "除去", "除却", "比", "同", "和", "跟", "与", "及", "以及", "连", "连同", "随着", "伴着", "沿着", "顺着", "趁着", "通过", "经由", "本着", "基于", "鉴于", "至于", "乃至", "以至", "甚至", "不管", "无论", "哪怕", "任凭", "不只", "不止", "除非", "除开", "虽说", "尽管", "哪怕是", "就算", "纵使", "即便", "如果", "要是", "倘若", "假若", "只要", "只有", "除非是", "由于是", "正因为", "之所以", "是因为", "为了", "以便", "以免", "以防", "免得", "省得", "为着", "围绕", "面对", "针对", "有关", "相关", "涉及", "牵连", "依附", "临近", "靠近", "接近"}


    '100个个体名词
    j = {"猫", "狗", "鸡", "鸭", "鹅", "猪", "牛", "羊", "马", "鱼", "虾", "蟹", "鸟", "鹰", "鸽", "燕", "雀", "鹿", "熊", "狼", "狐", "猴", "象", "狮", "虎", "豹", "蚊", "蝇", "蝉", "蝶", "蜂", "蚕", "蛾", "蚌", "螺", "龟", "蛇", "蛙", "鼠", "兔", "鲸", "鲨", "杉", "杨", "柳", "松", "柏", "桦", "枫", "槐", "桂", "梅", "兰", "竹", "菊", "荷", "桃", "李", "杏", "梨", "枣", "橘", "柚", "瓜", "果", "稻", "麦", "棉", "麻", "茶", "烟", "葱", "蒜", "姜", "芹", "茄", "椒", "蘑", "菇", "笋", "薯", "芋", "豆", "瓜", "梨", "桃", "杏", "枣", "椅", "桌", "床", "柜", "箱", "灯", "扇", "笔", "墨", "纸", "砚", "书"}


    '100个抽象名词
    k = {"爱情", "友情", "亲情", "热情", "心情", "感情", "激情", "同情", "真情", "交情", "恩情", "思念", "回忆", "梦想", "理想", "幻想", "希望", "期望", "渴望", "愿望", "绝望", "勇气", "信心", "决心", "耐心", "细心", "专心", "恒心", "虚心", "良心", "真心", "忠心", "诚心", "野心", "疑心", "担心", "操心", "关心", "伤心", "开心", "决心", "智慧", "知识", "经验", "理论", "思想", "观念", "意识", "意志", "精神", "灵魂", "品德", "道德", "品质", "性格", "气质", "脾气", "风俗", "习惯", "传统", "文化", "文明", "纪律", "法律", "规则", "制度", "原则", "策略", "方法", "方式", "途径", "目标", "目的", "意义", "价值", "利益", "权力", "义务", "责任", "荣誉", "名声", "声誉", "形象", "印象", "感觉", "知觉", "灵感", "情绪", "态度", "观点", "意见", "建议", "批评", "表扬", "赞美", "诅咒", "奥秘", "秘密", "隐私", "真理"}



    '100个助词
    l = {"的", "地", "得", "着", "了", "过", "呢", "吧", "啊", "呀", "哇", "哟", "喽", "嘛", "啦", "嘞", "哩", "啰", "咯", "哼", "呸", "呦", "嗨", "呐", "啵", "呃", "唔", "咩", "咋", "乎", "所", "等", "们", "似的", "一般", "一样", "起见", "罢了", "不成", "得了", "就是了", "就是啦", "算了", "好了", "行了", "可以了", "不得了", "了不得", "来着", "也罢", "也好", "啦哟", "呀哈", "哟呵", "啊哟", "哇噻", "嗯哼", "嘘", "啧", "唷", "嘿", "哟喂", "哟哟", "哎呀呀", "哎哟哟", "嗯呐", "嗷", "呜", "吁", "嘘嘘", "嗡嗡", "嘤嘤", "吱吱", "喳喳", "汪汪", "喵喵", "咩咩", "哞哞", "嘎嘎", "咯咯", "叽叽", "咕咕", "呼呼", "哗哗", "啦啦", "唰唰", "啪啪", "砰砰", "咚咚", "锵锵", "铃铃", "铮铮", "嗡嗡嗡", "哗哗哗", "呼呼呼", "咚咚咚", "砰砰砰", "咯咯咯", "汪汪汪", "喵喵喵"}


    '100个语气词
    m = {"啊", "呀", "啦", "吧", "呢", "哟", "哦", "噢", "嗯", "哼", "呸", "嗨", "呦", "哇", "嘛", "喽", "嘞", "哩", "咯", "哎", "哎呀", "哎哟", "啊哟", "呦呵", "哟哟", "嗯哼", "嘘", "啧", "嘿", "啊哈", "哇噻", "哦哟", "哟喂", "哼唧", "啊呀", "呀嘿", "啦呀", "吧哟", "呢嘛", "哟啦", "哦啦", "噢哟", "嗯呐", "呸呸", "嗨哟", "呦呦", "哇哦", "嘛呀", "喽喽", "嘞嘞", "哩哩", "咯咯", "哈哈", "嘻嘻", "嘿嘿", "呜呜", "嘤嘤", "呜呜呜", "嘤嘤嘤", "嘻嘻嘻", "哈哈哈", "嘿嘿嘿", "哦哦哦", "啊啊啊", "呀呀呀", "啦啦啦", "哇哇哇", "啧啧啧", "吁吁吁", "嘘嘘嘘", "哟哟哟", "哦哦呀", "啊啊哟", "呀呀哈", "啦啦哟", "哇哇啦", "啧啧啦", "吁吁啦", "嘘嘘呀", "哟哟哈", "哦哦哈", "啊啊哈", "呀呀哟", "啦啦哈", "哇哇哟", "啧啧哟", "吁吁哟", "嘘嘘哟", "哟哟呀", "哦哦呀", "啊啊呀", "呀呀呀", "啦啦呀", "哇哇呀", "啧啧呀", "吁吁呀", "嘘嘘呀", "哎哎哎", "哦哦哦", "噢噢噢"}


    'a数142\b量100\c形容141\d名223\n区别100\f代100\g副100\h动292\i介100\j个体名词100\k抽象名词100\l助100\m语气100。

    '组词公式
    '组词公式
    ' 名+介：名词+介词","介词+名词
    ' 名+助：名词+助词","助词+名词
    ' 名+语：名词+语气词","语气词+名词
    ' 动+动：动词+动词
    ' 动+形：动词+形容词","形容词+动词
    ' 动+区：动词+区别词","区别词+动词
    ' 动+数：动词+数词","数词+动词
    ' 动+量：动词+量词","量词+动词
    ' 动+代：动词+代词","代词+动词
    ' 动+副：动词+副词","副词+动词
    ' 动+介：动词+介词","介词+动词
    ' 动+助：动词+助词","助词+动词
    ' 动+语：动词+语气词","语气词+动词
    ' 形+形：形容词+形容词
    ' 形+区：形容词+区别词","区别词+形容词
    ' 形+数：形容词+数词","数词+形容词
    ' 形+量：形容词+量词","量词+形容词
    ' 形+代：形容词+代词","代词+形容词
    ' 形+副：形容词+副词","副词+形容词
    ' 形+介：形容词+介词","介词+形容词
    ' 形+连：形容词+连词","连词+形容词
    ' 形+助：形容词+助词","助词+形容词
    ' 形+语：形容词+语气词","语气词+形容词
    ' 区+区：区别词+区别词
    ' 区+数：区别词+数词","数词+区别词
    ' 区+量：区别词+量词","量词+区别词
    ' 区+代：区别词+代词","代词+区别词
    ' 区+副：区别词+副词","副词+区别词
    ' 区+介：区别词+介词","介词+区别词
    ' 区+助：区别词+助词","助词+区别词
    ' 区+语：区别词+语气词","语气词+区别词
    ' 数+数：数词+数词
    '- 数+量：数词+量词","量词+数词
    '- 数+代：数词+代词","代词+数词
    '- 数+副：数词+副词","副词+数词
    '- 数+介：数词+介词","介词+数词
    '- 数+助：数词+助词","助词+数词
    '- 数+语：数词+语气词","语气词+数词
    '- 量+量：量词+量词
    '- 量+代：量词+代词","代词+量词
    '- 量+副：量词+副词","副词+量词
    '- 量+介：量词+介词","介词+量词
    '- 量+助：量词+助词","助词+量词
    '- 量+语：量词+语气词","语气词+量词
    '- 代+代：代词+代词
    '- 代+副：代词+副词","副词+代词
    '- 代+介：代词+介词","介词+代词
    '- 代+助：代词+助词","助词+代词
    '- 代+语：代词+语气词","语气词+代词
    '- 副+副：副词+副词
    '- 副+介：副词+介词","介词+副词
    '- 副+助：副词+助词","助词+副词
    '- 副+语：副词+语气词","语气词+副词
    '- 介+介：介词+介词
    '- 介+助：介词+助词","助词+介词
    '- 介+语：介词+语气词","语气词+介词
    '- 助+助：助词+助词
    '- 助+语：助词+语气词","语气词+助词
    '- 语+语：语气词+语气词



    ' 名+介：名词+介词","介词+名词
    ' 名+助：名词+助词","助词+名词
    ' 名+语：名词+语气词","语气词+名词
    ' 动+动：动词+动词
    ' 动+形：动词+形容词","形容词+动词
    ' 动+区：动词+区别词","区别词+动词
    ' 动+数：动词+数词","数词+动词
    ' 动+量：动词+量词","量词+动词
    ' 动+代：动词+代词","代词+动词
    ' 动+副：动词+副词","副词+动词
    ' 动+介：动词+介词","介词+动词
    ' 动+助：动词+助词","助词+动词
    ' 动+语：动词+语气词","语气词+动词
    ' 形+形：形容词+形容词


    For io As Integer = 0 To 100
        '名+介

        TextBox1.Text = TextBox1.Text & d(Rnd() * 222) & i(Rnd() * 99) & vbCrLf

        '介+名

        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & d(Rnd() * 222) & vbCrLf

        '名+助

        TextBox1.Text = TextBox1.Text & d(Rnd() * 222) & l(Rnd() * 99) & vbCrLf

        '助+名

        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & d(Rnd() * 222) & vbCrLf

        '名+语气

        TextBox1.Text = TextBox1.Text & d(Rnd() * 222) & m(Rnd() * 99) & vbCrLf

        '名+语气


        TextBox1.Text = TextBox1.Text & d(Rnd() * 222) & m(Rnd() * 99) & vbCrLf




        '语气+名
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & d(Rnd() * 223) & vbCrLf

        '动+动
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & h(Rnd() * 291) & vbCrLf

        '动+形容
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & c(Rnd() * 140) & vbCrLf

        '形容+动
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & h(Rnd() * 291) & vbCrLf

        '动+区别
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & n(Rnd() * 99) & vbCrLf

        '区别+动
        TextBox1.Text = TextBox1.Text & n(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+数
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & a(Rnd() * 141) & vbCrLf

        '数+动
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & h(Rnd() * 291) & vbCrLf

        '动+量
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & b(Rnd() * 99) & vbCrLf

        '量+动
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+代
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & f(Rnd() * 99) & vbCrLf

        '代+动
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+副
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & g(Rnd() * 99) & vbCrLf

        '副+动
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+介
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & i(Rnd() * 99) & vbCrLf

        '介+动
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+助
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & l(Rnd() * 99) & vbCrLf

        '助+动
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '动+语气
        TextBox1.Text = TextBox1.Text & h(Rnd() * 291) & m(Rnd() * 99) & vbCrLf

        '语气+动
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & h(Rnd() * 291) & vbCrLf

        '形容+形容
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & c(Rnd() * 140) & vbCrLf


        ' 形+区：形容词+区别词","区别词+形容词
        ' 形+数：形容词+数词","数词+形容词
        ' 形+量：形容词+量词","量词+形容词
        ' 形+代：形容词+代词","代词+形容词
        ' 形+副：形容词+副词","副词+形容词
        ' 形+介：形容词+介词","介词+形容词
        ' 形+连：形容词+连词","连词+形容词
        ' 形+助：形容词+助词","助词+形容词
        ' 形+语：形容词+语气词","语气词+形容词
        ' 区+区：区别词+区别词
        ' 区+数：区别词+数词","数词+区别词
        ' 区+量：区别词+量词","量词+区别词
        ' 区+代：区别词+代词","代词+区别词
        ' 区+副：区别词+副词","副词+区别词
        ' 区+介：区别词+介词","介词+区别词
        ' 区+助：区别词+助词","助词+区别词
        ' 区+语：区别词+语气词","语气词+区别词
        ' 数+数：数词+数词

        '形容+区别
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & n(Rnd() * 99) & vbCrLf

        '区别+形容
        TextBox1.Text = TextBox1.Text & n(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '形容+数
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & a(Rnd() * 141) & vbCrLf

        '数+形容
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & c(Rnd() * 140) & vbCrLf

        '形容+量
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & b(Rnd() * 99) & vbCrLf

        '量+形容
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '形容+代
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & f(Rnd() * 99) & vbCrLf

        '代+形容
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '形容+副
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & g(Rnd() * 99) & vbCrLf

        '副+形容
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '形容+介
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & i(Rnd() * 99) & vbCrLf

        '介+形容
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '形容+助
        TextBox1.Text = TextBox1.Text & c(Rnd() * 140) & l(Rnd() * 99) & vbCrLf

        '助+形容
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & c(Rnd() * 140) & vbCrLf

        '区别+语气
        TextBox1.Text = TextBox1.Text & n(Rnd() * 99) & m(Rnd() * 99) & vbCrLf

        '语气+区别
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & n(Rnd() * 99) & vbCrLf

        '数+数
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & a(Rnd() * 141) & vbCrLf


        '- 数+量：数词+量词","量词+数词
        '- 数+代：数词+代词","代词+数词
        '- 数+副：数词+副词","副词+数词
        '- 数+介：数词+介词","介词+数词
        '- 数+助：数词+助词","助词+数词
        '- 数+语：数词+语气词","语气词+数词
        '- 量+量：量词+量词
        '- 量+代：量词+代词","代词+量词
        '- 量+副：量词+副词","副词+量词
        '- 量+介：量词+介词","介词+量词
        '- 量+助：量词+助词","助词+量词
        '- 量+语：量词+语气词","语气词+量词

        '数+量
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & b(Rnd() * 99) & vbCrLf

        '量+数
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & a(Rnd() * 141) & vbCrLf

        '数+代
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & f(Rnd() * 99) & vbCrLf

        '代+数
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & a(Rnd() * 141) & vbCrLf

        '数+副
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & g(Rnd() * 99) & vbCrLf

        '副+数
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & a(Rnd() * 141) & vbCrLf

        '数+介
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & i(Rnd() * 99) & vbCrLf

        '介+数
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & a(Rnd() * 141) & vbCrLf


        '数+助
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & l(Rnd() * 99) & vbCrLf

        '助+数
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & a(Rnd() * 141) & vbCrLf

        '数+语气
        TextBox1.Text = TextBox1.Text & a(Rnd() * 141) & m(Rnd() * 99) & vbCrLf

        '语气+数
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & a(Rnd() * 141) & vbCrLf

        '量+量
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & b(Rnd() * 99) & vbCrLf

        '量+代
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '代+量
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & b(Rnd() * 99) & vbCrLf

        '量+副
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & g(Rnd() * 99) & vbCrLf

        '副+量
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & b(Rnd() * 99) & vbCrLf

        '量+介
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '介+量
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & b(Rnd() * 99) & vbCrLf

        '量+助
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '助+量
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & b(Rnd() * 99) & vbCrLf



        '量+语气
        TextBox1.Text = TextBox1.Text & b(Rnd() * 99) & m(Rnd() * 99) & vbCrLf

        '语气+量
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & b(Rnd() * 99) & vbCrLf


        '- 代+代：代词+代词
        '- 代+副：代词+副词","副词+代词
        '- 代+介：代词+介词","介词+代词
        '- 代+助：代词+助词","助词+代词
        '- 代+语：代词+语气词","语气词+代词
        '- 副+副：副词+副词
        '- 副+介：副词+介词","介词+副词
        '- 副+助：副词+助词","助词+副词
        '- 副+语：副词+语气词","语气词+副词
        '- 介+介：介词+介词
        '- 介+助：介词+助词","助词+介词
        '- 介+语：介词+语气词","语气词+介词
        '- 助+助：助词+助词
        '- 助+语：助词+语气词","语气词+助词
        '- 语+语：语气词+语气词

        '代+代
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '代+副
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & g(Rnd() * 99) & vbCrLf

        '副+代
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '代+介
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '介+代
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '代+助
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '助+代
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '代+语气
        TextBox1.Text = TextBox1.Text & f(Rnd() * 99) & m(Rnd() * 99) & vbCrLf

        '语气+代
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & f(Rnd() * 99) & vbCrLf

        '副+副
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & g(Rnd() * 99) & vbCrLf


        '副+介
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '介+副
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & g(Rnd() * 99) & vbCrLf

        '副+助
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '助+副
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & g(Rnd() * 99) & vbCrLf

        '副+语气
        TextBox1.Text = TextBox1.Text & g(Rnd() * 99) & m(Rnd() * 99) & vbCrLf

        '语气+副
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & g(Rnd() * 99) & vbCrLf

        '介+介
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '介+助
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '助+介
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '介+语气
        TextBox1.Text = TextBox1.Text & i(Rnd() * 99) & m(Rnd() * 99) & vbCrLf

        '语气+介
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & i(Rnd() * 99) & vbCrLf

        '助+助
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '助+语气
        TextBox1.Text = TextBox1.Text & l(Rnd() * 99) & m(Rnd() * 99) & vbCrLf


        '语气+助
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & l(Rnd() * 99) & vbCrLf

        '语气+语气
        TextBox1.Text = TextBox1.Text & m(Rnd() * 99) & m(Rnd() * 99) & vbCrLf



    Next
End Sub

End Class