已有23人关注
请教
发表在VB答疑区 2010-08-20
是否精华
版块置顶:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Single
Text1.Text = a
Text2.Text = b
mysum = Val(Text1.Text) * Val(Text2.Text)
lable1.Caption = "金额为: " & mysum
End Sub
不知道错哪了,Command,Label都建了
分享到:
精彩评论 1
Lemon
学分:0 LV1
2010-08-20
沙发
您好!

您要实现的是将text1和text2中的内容相乘。
需要将这两句代码删除
Text1.Text = a
Text2.Text = b
否则,得不到正确的结果。

这是因为 执行了上面两句代码以后,text1中的内容为a,text2中的内容为b。而变量a,b并没有赋值,所以默认值为0
因此得到的结果为0。

首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照