用HScroll 做加减法运算 OPTION 选择运算符号Dim ,,s As LongPrivate Sub Command1_Click()If Option1 Thens = m + nLabel5.Caption = "运算结果：" & m & "+" & n & "=" & sElseIf Option2 Thens = m - nLabel5.Caption = "运算结果：" & m & "

来源：学生作业帮助网编辑：六六作业网时间：2024/11/18 05:59:27

用HScroll做加减法运算OPTION选择运算符号Dim,,sAsLongPrivateSubCommand1_Click()IfOption1Thens=m+nLabel5.Caption="运算

用HScroll 做加减法运算 OPTION 选择运算符号Dim ,,s As LongPrivate Sub Command1_Click()If Option1 Thens = m + nLabel5.Caption = "运算结果：" & m & "+" & n & "=" & sElseIf Option2 Thens = m - nLabel5.Caption = "运算结果：" & m & "
用HScroll 做加减法运算 OPTION 选择运算符号
Dim ,,s As Long
Private Sub Command1_Click()
If Option1 Then
s = m + n
Label5.Caption = "运算结果：" & m & "+" & n & "=" & s
Else
If Option2 Then
s = m - n
Label5.Caption = "运算结果：" & m & "-" & n & "=" & s
Else
If Option3 Then
s = m * n
Label5.Caption = "运算结果：" & m & "*" & n & "=" & s
Else
s = Format(m / n,"0.00")
Label5.Caption = "运算结果：" & m & "/" & n & "=" & s
End If
End If
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Change()
m = HScroll1.Value
Label3.Caption = m
End Sub
Private Sub HScroll2_Change()
n = HScroll2.Value
Label4.Caption = n
End Sub
算不出结果来都等于0

用HScroll 做加减法运算 OPTION 选择运算符号Dim ,,s As LongPrivate Sub Command1_Click()If Option1 Thens = m + nLabel5.Caption = "运算结果：" & m & "+" & n & "=" & sElseIf Option2 Thens = m - nLabel5.Caption = "运算结果：" & m & "
Option Explicit
Dim m!,n!,s As Long
Private Sub Command1_Click()
If Option1 Then
s = m + n
Label5.Caption = "运算结果：" & m & "+" & n & "=" & s
Else
If Option2 Then
s = m - n
Label5.Caption = "运算结果：" & m & "-" & n & "=" & s
Else
If Option3 Then
s = m * n
Label5.Caption = "运算结果：" & m & "*" & n & "=" & s
Else
Label5.Caption = "运算结果：" & m & "/" & n & "=" & Format(m / n,"0.00")
End If
End If
End If
End Sub
Private Sub Form_Load()
Option1.Value = True
End Sub
Private Sub HScroll1_Change()
m = HScroll1.Value
Label3.Caption = m
End Sub
Private Sub HScroll2_Change()
n = HScroll2.Value
Label4.Caption = n
End Sub
'这样改

用HScroll 做加减法运算 OPTION 选择运算符号Dim ,,s As LongPrivate Sub Command1_Click()If Option1 Thens = m + nLabel5.Caption = 运算结果： & m & + & n & = & sElseIf Option2 Thens = m - nLabel5.Caption = 运算结果： & m & 二次根式的加减法运算怎么做? 二次根式的加减法运算怎么做? 用加减法做分数加减法混合运算(用简便方法运算)15道题分数加减法简便运算有理数加减法怎么用绝对值做啊分数加减法的运算法则根据有理数加减法法则运算加减法乘除法混合运算小学数学快速加减法运算如何有理数加减法混合运算分数加减法（简便运算）分数简便运算加减法及小数加减法混合运算是什么意思二次根式加减法怎么运算... 加减法去括号运算法则加减法去括号运算法则加减法去括号运算法则等价无穷小替换不能在分子上做加减法运算,但是好多书上却做了.为什么?请提供理论依据.