使用Ai软件去生成一个彩票预测软件

首先是文小言3.5版本

' 双色球彩票号码生成程序
' 红球范围：1-33，蓝球范围：1-16
DIM redBalls(5) AS INTEGER
DIM blueBall AS INTEGER
DIM i AS INTEGER
' 初始化随机数生成器
RANDOMIZE TIMER
' 生成6个不重复的红球号码
FOR i = 0 TO 5
DO
redBalls(i) = INT(RND * 33) + 1
' 检查生成的号码是否重复
DIM j AS INTEGER
FOR j = 0 TO i - 1
IF redBalls(i) = redBalls(j) THEN EXIT FOR
NEXT j
' 如果重复，则重新生成
IF j < i THEN CONTINUE FOR
LOOP WHILE TRUE
NEXT i
' 生成1个蓝球号码
blueBall = INT(RND * 16) + 1
' 输出生成的号码
PRINT "生成的双色球号码为："
FOR i = 0 TO 5
PRINT redBalls(i);
NEXT i
PRINT " + "; blueBall
END

很显然，答非所问

2.红衣大叔家的Ai 2.0.1版本

10 CLS
20 PRINT "彩票号码生成器"
30 PRINT "1.双色球"
40 PRINT "2.大乐透"
50 PRINT "3.退出"
60 INPUT "请选择(1-3):",C
70 IF C=3 THEN END
80 INPUT "生成几注:",N
90 CLS
100 ON C GOSUB 200,300
110 FOR I=1 TO N
120 PRINT "第";I;"注:";
130 GOSUB 400
140 PRINT
150 NEXT I
160 PRINT "按任意键继续..."
170 GET A$
180 GOTO 10
200 REM 双色球
210 R1=33:T1=6
220 R2=16:T2=1
230 RETURN
300 REM 大乐透
310 R1=35:T1=5
320 R2=12:T2=2
330 RETURN
400 REM 生成号码
410 DIM A(R1)
420 FOR J=1 TO T1
430 R=INT(RND*R1)+1
440 IF A(R)=1 THEN 430
450 A(R)=1
460 NEXT J
470 C=0
480 FOR J=1 TO R1
490 IF A(J)=1 THEN C=C+1:PRINT USING "##";J;
500 IF C=T1 THEN EXIT FOR
510 NEXT J
520 PRINT "-";
530 IF T2=0 THEN RETURN
540 DIM B(R2)
550 FOR J=1 TO T2
560 R=INT(RND*R2)+1
570 IF B(R)=1 THEN 560
580 B(R)=1
590 PRINT USING "##";R;
600 NEXT J
610 RETURN

这个怎么说，很像那么一回事了，具体能不能运行我还没有试

3.DeepSeek

10 CLS
20 PRINT " 双色球预测程序"
30 PRINT "-------------------"
40 RANDOMIZE TIMER
50 DIM R(5), B(1)
60 '生成红球
70 FOR I=0 TO 4
100 R(I)=INT(RND*35)+1
110 FOR J=0 TO I-1
120 IF R(I)=R(J) THEN 100
130 NEXT J
140 NEXT I
150 '红球排序
160 FOR I=0 TO 3
170 FOR J=I+1 TO 4
180 IF R(I)>R(J) THEN T=R(I):R(I)=R(J):R(J)=T
190 NEXT J
200 NEXT I
210 '生成蓝球
220 FOR I=0 TO 1
230 B(I)=INT(RND*12)+1
240 FOR J=0 TO I-1
250 IF B(I)=B(J) THEN 230
260 NEXT J
270 NEXT I
280 '蓝球排序
290 IF B(0)>B(1) THEN T=B(0):B(0)=B(1):B(1)=T
300 '显示结果
310 PRINT "红球：";
320 FOR I=0 TO 4
330 PRINT USING "##";R(I);
340 IF I<4 THEN PRINT " ";
350 NEXT I
360 PRINT
370 PRINT "蓝球：";
380 PRINT USING "#
#";B(0);" ";USING "#
#";B(1)
390 PRINT "-------------------"
400 PRINT "任意键继续..."
410 GET A$
420 RUN

怎么样，大家评价评价

最后是ChatGPT普通版本

10 CLS
20 PRINT "***** 彩票预测程序 *****"
30 PRINT "本程序随机生成一组双色球号码"
40 PRINT "--------------------------------"
50 DIM RED(6)
60 FOR I = 1 TO 6
70 R = INT(RND * 33) + 1
80 FOR J = 1 TO I-1
90 IF R = RED(J) THEN GOTO 70
100 NEXT J
110 RED(I) = R
120 NEXT I
130 PRINT "红球号码:"
140 FOR I = 1 TO 6
150 PRINT RED(I);
160 NEXT I
170 PRINT
180 BLUE = INT(RND * 16) + 1
190 PRINT "蓝球号码:"; BLUE
200 PRINT "--------------------------------"
210 PRINT "祝你好运！"
220 END

经测试，没有一个能用的，还是没有掌握gvb的语法，表现能力好一些的就是chatgpt

好厉害

你得先把gvbasic的语法告诉deepseek，不然他不知道就给你瞎用