vb程序问题，很简单

显示全部楼层 · 2009-8-7 19:05:54

告诉我们“总是运行不了”是怎么回事？如果是程序出错，会有提示“错误代码”，而且通过待执行语句也可以看出错误出在哪里。应该是“类型不匹配”造成错误。修改为：num = CINT(Val(Text1.Text))rmb = CCUR(Val(Text2.Text))这样可以保证赋给变量的值和声明相符。尤其是货币这样的定点数。...

千问 · 2009-8-7 19:05:54

我粘你的代码，没发现错误。应该没问题，或者不是这段代码的问题，或者你控件名字没对应...

千问 · 2009-8-7 19:05:54

没问题啊没有错啊但是你得确定这几样东西有Text1，Text2pic1...

千问 · 2009-8-7 19:05:54

将 rmb 类型改为 long然后自己换算...

千问 · 2009-8-7 19:05:54

连个悬赏分都没有。。。。Private Sub Cmd1_Click()Dim num As IntegerDim rmb As Currencynum = Val('+Text1.Text+')rmb = Val('+Text2.Text+')pic1.Clspic1.Print num * rmbEnd Sub...