设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB高手请进来看下这道编程题哪里出错

VB高手请进来看下这道编程题哪里出错

[复制链接]
查看11 | 回复0 | 2011-7-5 07:35:16 | 显示全部楼层 |阅读模式
PrivateSubCommand1_Click()
Dima,bAsInteger
x=Text1.Text
b=Text2.Text
Ifx=100Orx=90Then
b=\"优秀\"
Else
Ifx90Orx=80Then
b=\"良好\"
Else
Ifx80Orx=70Then
b=\"中等\"
Else
Ifx70Orx=60Then
b=\"及格\"
Ifx60Orx=0Then
b=\"不及格\"
Else
b=Error
EndIf
EndIf
EndIf
EndIf
EndIf

EndSub
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行