
一个入门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”?哪里出现问题了呢? 展开
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”?哪里出现问题了呢? 展开
3个回答
展开全部
问题出在最后一句上,没有还原成字符显示。
text2.text=str(j) 就可以了。
text2.text=str(j) 就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?

2023-06-12 广告
单片机编程是指使用单片机编程语言,如C语言,来编写单片机的程序代码,以控制单片机的行为。这种技术在电子工程、计算机科学和电子通信等领域中被广泛应用。单片机编程的主要任务是设计和实现单片机的程序,包括定义单片机的指令系统、编写程序代码、处理器...
点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
展开全部
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
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
展开全部
为什么不用判断语句呢,你需要完成的工作是判断.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询