大家帮我简化一下这个超简单的qbasic程序！！

CLS
REM "GUESS NUMBER 2 "
10 RANDOMIZE TIMER
LET A = INT(RND(1) * 10 + 1) - 1
LET B = INT(RND(1) * 10 + 1) - 1
LET C = INT(RND(1) * 10 + 1) - 1
LET D = INT(RND(1) * 10 + 1) - 1
IF A = B OR A = C OR A = D OR B = C OR B = D OR C = D THEN
20 GOTO 10
END IF
30 INPUT "LET'S GUESS"; E, F, G, H
IF E = A THEN
LET O = 2
END IF
IF E = B OR E = C OR E = D THEN
LET O = 1
END IF
IF NOT (E = A OR E = B OR E = C OR E = D) THEN
LET O = 0
END IF
IF F = B THEN
LET P = 2
END IF
IF F = A OR F = C OR F = D THEN
LET P = 1
END IF
IF NOT (F = A OR F = B OR F = C OR F = D) THEN
LET P = 0
END IF
IF G = C THEN
LET Q = 2
END IF
IF G = B OR G = A OR G = D THEN
LET Q = 1
END IF
IF NOT (G = A OR G = B OR G = C OR G = D) THEN
LET Q = 0
END IF
IF H = D THEN
LET R = 2
END IF
IF H = B OR H = C O

大家帮我简化一下这个超简单的qbasic程序！！ 麻烦帮我看一下这个excel函数能不能简化... 帮我一下,超简单 谁帮我翻译一下这个电子邮件的英文，问么全都被简化~！· 超简单的英文，拜托帮我翻译一下~在线等~超急~ 帮我看一下这个B超 超简单-->帮我看看这个网站怎么样？ 简单的应用题谁帮我这个小弟弟解一下 帮我看一下这个C语言的简单问题！ 谁帮我更改一下这个...码.（简单的）