第1个回答 2014-06-18
你说得有点不清楚，，，1，你是要输入内容你写的，然后没次向文本写如你那段话，2，还是系统每次帮你随便随机输入段话？ 情况1代码 UserVar Var1=0 "你要输入的内容" SayString ""&Var1&"" 情况2代码 Dim n,n1,字符串 Randomize n = CInt((16) * Rnd) //给N变量随机定义个数字，小括号内的16代表， //改数值在1-16之间，如果你想他更多直接改（16）， n1 = "" Select Case n //根据N的数值选择者对应的 //低下我1共写了16个选择，你想更多直接复制下面的 //然后更改他们选择号码就行了 Case 1 //情况 N=1的话就选择下面的字符串 字符串 = "今" //字符串是变量名，可以换成别的，=号后面可以改成你喜欢的字 Case 2 //和1的情况1样，以下类推 字符串 = "给问问我分~！" Case 3 字符串 = "希望对你有帮助" Case 4 字符串 = "今天天气真好啊" Case 5 字符串 = "是吗" Case 6 字符串 = "吃饭" Case 7 字符串 = "按键精灵好玩" Case 8 字符串 = "XXOO" Case 9 字符串 = "是什么意思" Case 10 字符串 = "把分给我吧" Case 11 字符串 = "你吃饭了吗" Case 12 字符串 = "擦" Case 13 字符串 = "擦鞋" Case 14 字符串 = "操" Case 15 字符串 = "广播体操" Case 16 字符串 = "安静" End Select //结束选择 n1 = n1 & 字符串 //将获得的字符串内容复制给n1 MessageBox ""&n1&"" //弹出窗口，，在在后面输入随机字符串 SayString ""&n1&"" //这是文本输入的方法 如果你是我说的情况1，就复制情况1里面2行代码就行了，如果是情况2，就复制情况2里面的代码，我已经注释过了，还可以批量给1大堆记事本写入某句话这些功能能加上或者指定窗口发1句话比如游戏的喊话，不知道你用途我就不写了，如果需要联系我398310909QQ，我帮你写，希望对你有帮助~！本回答被提问者采纳