VB 条件语句+限制文本框输入 条件语句问题:如果Text1.texe = "A" 则 text6.text = "10" '国文如果Text1.texe = "A+" 则 text6.text = "12"如果Text1.texe = "B" 则 text6.text = "14"如果Text1.texe = "C" 则 text6.text = "16"如

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 05:29:49

VB 条件语句+限制文本框输入
条件语句问题:
如果Text1.texe = "A" 则 text6.text = "10" '国文
如果Text1.texe = "A+" 则 text6.text = "12"
如果Text1.texe = "B" 则 text6.text = "14"
如果Text1.texe = "C" 则 text6.text = "16"
如果Text2.texe = "A" 则 text7.text = "11" '英语
如果Text2.texe = "A+" 则 text7.text = "13"
如果Text2.texe = "B" 则 text7.text = "15"
如果Text2.texe = "C" 则 text7.text = "17"
就是表单内有2个文本框 Text1.texe 对应text6.text
           Text2.texe 对应text7.text
我在文本框输入不同的字母,则相对应的文本框就会 = "相对应数字"
限制文本框输入问题:
Text1.texe和Text2.texe只能输入A++与A+与A与B++与B+与B
是要用来做成绩平均分数计算的

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证
if NOT( text1="A++" OR text1="A+" OR text1="A") THEN
MSGBOX "请输入A或者A+或者A++"
end if