一个入门VB程序,请大虾们指点迷津!

PrivateSubCommand1_Click()DimiAsDoubleDimjAsDoublei=Val(Text1.Text)SelectCaseiCasei<1... Private Sub Command1_Click()
Dim i As Double
Dim j As Double

i = Val(Text1.Text)

Select Case i
Case i < 1
j = 10
Case i < 5
j = 20
Case i < 10
j = 30
Case i > 10
j = 30 + (i - 10)

End Select

Text2.Text = j

End Sub

可是为什么在Text2box里得不到应该得到的数据呢,就比如在Text2里只显示“0”?哪里出现问题了呢?
展开
 我来答
pppwabcd
高粉答主

2009-11-12 · 繁杂信息太多,你要学会辨别
知道大有可为答主
回答量:2万
采纳率:71%
帮助的人:2772万
展开全部
问题出在最后一句上,没有还原成字符显示。
text2.text=str(j) 就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
意法半导体(中国)投资有限公司
2023-06-12 广告
单片机编程是指使用单片机编程语言,如C语言,来编写单片机的程序代码,以控制单片机的行为。这种技术在电子工程、计算机科学和电子通信等领域中被广泛应用。单片机编程的主要任务是设计和实现单片机的程序,包括定义单片机的指令系统、编写程序代码、处理器... 点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
shuoyizhi
2009-11-12 · TA获得超过2596个赞
知道小有建树答主
回答量:1519
采纳率:0%
帮助的人:689万
展开全部
Private Sub Command1_Click()
Dim i As Double
Dim j As Double

i = Val(Text1.Text)

Select Case i
Case Is < 1
j = 10
Case Is < 5
j = 20
Case Is < 10
j = 30
Case Is > 10
j = 30 + (i - 10)

End Select

Text2.Text = j

End Sub

参考资料: http://hi.baidu.com/shuoyizhi/blog/item/8e41d454218d3452d0090654.html

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2009-11-12
展开全部
为什么不用判断语句呢,你需要完成的工作是判断.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式