求助：VB程序运行不了
答案:2 悬赏:80 手机版
解决时间 2021-03-27 11:56
- 提问者网友：沉默菋噵
- 2021-03-27 03:04
求助：VB程序运行不了
最佳答案
- 五星知识达人网友：猎心人
- 2021-03-27 04:11
你没有输出你计算后的结果：
用textbox4输出你的计算结果就可以了。加一句：Text4.Text = m
另外，你定义的变量都是整型，计算结果很容易溢出。
修改如下：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, d As Integer, m As Integer
n = Val(Text1.Text)
d = Val(Text2.Text)
r = Val(Text3.Text)
m = Val(text4.Text)
Select Case n
Case 301 To 310, 401 To 410
m = 70 * d * r
Case 501 To 510, 601 To 610
m = 60 * d * r
Case 601 To 610, 701 To 710
m = 50 * d * r
Case Else
MsgBox "数据错误"
Text1.Text = ""
End Select
'加上下面一句:
Text4.Text = m
End Sub
用textbox4输出你的计算结果就可以了。加一句：Text4.Text = m
另外，你定义的变量都是整型，计算结果很容易溢出。
修改如下：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, d As Integer, m As Integer
n = Val(Text1.Text)
d = Val(Text2.Text)
r = Val(Text3.Text)
m = Val(text4.Text)
Select Case n
Case 301 To 310, 401 To 410
m = 70 * d * r
Case 501 To 510, 601 To 610
m = 60 * d * r
Case 601 To 610, 701 To 710
m = 50 * d * r
Case Else
MsgBox "数据错误"
Text1.Text = ""
End Select
'加上下面一句:
Text4.Text = m
End Sub
全部回答
- 1楼网友：一袍清酒付
- 2021-03-27 05:35
学VB干什么，学VB还不如学C#
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯