Qbasic的字符串怎样转换成数

来源：百度知道 编辑：UC知道 时间：2024/09/20 20:30:26
小明和爸爸玩掷筛子游戏。玩法是：小明和爸爸各掷两枚筛子(六面筛,六个面上的数字分别为1到6),如果小明的总点数小于爸爸的总点数,那么小明赢,否则爸爸赢.小明希望编写一个裁判程序,即由键盘输入小明和爸爸所掷筛子的数,然后由计算机评出胜负.但是现计算机的数字键盘坏了,只能用汉语拼音来代替输入筛子的点数,例如数字 ” 1 ” 对应的拼音 ” yi ” ,数字 ” 2 ” 对应的拼音 ” er ”……
任务:分两行从键盘输入四个用汉语拼音表示的数(全是小写拼音),第一行的两个数为小明的两个筛子的点数,第二行的两个数为小明爸爸的两个筛子的点数.
如果小明赢，打印“xiaoming ” ,否则打印 “ baba ”
样例输入：yi yi 样例输入xiao ming
liu liu
如题。

INPUT A$,B$
INPUTC$,D$
DIN E$(6),F(4)
FOR I= 1 TO 6
READ E$(I)
NEXT I
FOR I=1TO 6
IF A$=E$(I) THEN A$=I
IF B$=E$(I) THEN B$=I
IF C$=E$(I) THEN C$=I
IF D$ =E$ THEN D$=I
NEXT I
A(1)=STR$(A$)
A(2)=STR$(B$)
A(3)=STR(C$)
A(4)=STR(D$)
IF A(1)+A(2) <A(3)+A(4) THEN
PRITN "XIAOMIAN"
EHSE
PRITN "BABA"
END IF
DATA YI,ER,SAN,SI,WU,LUI
END

太复杂了。。键盘坏了还玩编程……
QB里边是writeln还是print我忘记了。函数返回值用result还是函数名我也忘记了，不过思路是这样。看看就行了

function pytosz(pystr)

if pystr = "yi" then pytosz = 1
if pystr = "er" then pytosz = 2
if pystr = "san" then pytosz = 3
...
end function

readln a, b
readln c, d
if (pytosz(a) + pytosz(b)) > (pytosz(c) + pytosz(d)) then write "xiaoming" else write "ba ba"

如果是字符的话，不用加val
直接x=text1.text

但如果是