VB中数学公式写法即VB中数学算式的写法,如 （1+2）*（45*32）这个例子.另外我输入的格式如下：点击按钮后label3并不能显示计算结果,会直接显示公式内容Label3.Caption = "你应该输入" & "(text1.text-
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 18:33:13
VB中数学公式写法即VB中数学算式的写法,如 （1+2）*（45*32）这个例子.另外我输入的格式如下：点击按钮后label3并不能显示计算结果,会直接显示公式内容Label3.Caption = "你应该输入" & "(text1.text-
VB中数学公式写法
即VB中数学算式的写法,如 （1+2）*（45*32）这个例子.
另外我输入的格式如下：点击按钮后label3并不能显示计算结果,会直接显示公式内容
Label3.Caption = "你应该输入" & "(text1.text-1)*4+1024*text.text"
按以下三位的方法试验都未成功,源代码如下：
Private Sub Command1_Click()
If Text1.Text = "" Then
Label3.Caption = "请输入合法的的数值!"
Else
Label3.Caption = "你应该输入" & (Text1.Text - 1) * 4 + (1024 * Text.Text) & M作为分区大小
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_Click()
Label3.Caption = ""
End Sub
'只允许在text1中输入0-9的数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) "." Then
KeyAscii = 0
End If
End Sub
VB中数学公式写法即VB中数学算式的写法,如 （1+2）*（45*32）这个例子.另外我输入的格式如下：点击按钮后label3并不能显示计算结果,会直接显示公式内容Label3.Caption = "你应该输入" & "(text1.text-
Private Sub Command1_Click()
If Text1.Text = "" Then
Label3.Caption = "请输入合法的的数值!"
Else
Label3.Caption = "你应该输入" & (Val(Text1.Text) - 1) * 4 + (1024 * Val(Text.Text)) & M 作为分区大小
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_Click()
Label3.Caption = ""
End Sub
'只允许在text1中输入0-9的数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) "." Then
KeyAscii = 0
End If
End Sub
这里text1.text是文本类型,需要转换成数值类型的才能进行运算.
(Val(Text1.Text) - 1) * 4 + (1024 * Val(Text.Text))