输入一四位数如果千位加个位比十位加百位大输出"good" 否则 "bad" 用case语句写下程序高中水平谢谢

显示全部楼层 · 2012-5-3 21:50:05

分太少！Private Sub Command1_Click()
a = InputBox("输入一个四位数")
Select Case Val(Mid(a, 1, 1)) + Val(Mid(a, 4, 1)) - Val(Mid(a, 2, 1)) - Val(Mid(a, 3, 1))
Case Is > 0
Print "good"
Case Else
Print "bad"
End SelectEnd Sub...

千问 · 2012-5-3 21:50:05

Private Sub Command1_Click()
s = Text1.Text
a = Val(Left(s, 1)) + Val(Right(s, 1))
b = Val(Mid(s, 2, 1)) + Val(Mid(s, 3, 1))
Select Case a
Case Is > b...

输入一四位数 如果千位加个位比十位加百位大 输出"good" 否则 "bad" 用case语句 写下程序 高中水平 谢谢

输入一四位数如果千位加个位比十位加百位大输出"good" 否则 "bad" 用case语句写下程序高中水平谢谢