UC知道关于vb的程序，恳请指点！谢谢！
来源：百度知道 编辑：UC知道 时间：2024/05/21 13:51:23
Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
A = MsgBox("两数相乘的结果是" & jfy(m, n), vbOKOnly, "对话框")
End Sub
窗体中有一个按钮，两个文本框。
模块中定义
Function jfy(A As Integer, B As Integer) As Integer
jfy = A * B
End Function
有什么不对呢？
m = Val(Text1.Text)
n = Val(Text2.Text)
A = MsgBox("两数相乘的结果是" & jfy(m, n), vbOKOnly, "对话框")
End Sub
窗体中有一个按钮，两个文本框。
模块中定义
Function jfy(A As Integer, B As Integer) As Integer
jfy = A * B
End Function
有什么不对呢？
Function jfy(A As Integer, B As Integer) As Integer
jfy = A * B
End Function
前边加上public
public Function jfy(A As Integer, B As Integer) As Integer
jfy = A * B
End Function
首先设置变量如l
定义好变量类型
dim m,n,l as integer '这个是必须定义的。
l=jfy(m.n)
A = MsgBox("两数相乘的结果是" & str(l), vbOKOnly, "对话框")
'str():把数值型变量转换位字符.
Private Sub Command1_Click()
dim m as integer,n as integer
m = Val(Text1.Text)
n = Val(Text2.Text)
A = MsgBox("两数相乘的结果是" & jfy(m, n), vbOKOnly, "对话框")
End Sub
A = MsgBox("两数相乘的结果是" & jfy(m, n), vbOKOnly, "对话框")
改为：
A = MsgBox("两数相乘的结果是" & str(jfy(m, n)), vbOKOnly, "对话框")