用HScroll 做加减法运算 OPTION 选择运算符号

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/23 18:13:35

用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

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
'这样改

分数加减法混合运算(用简便方法运算)15道题运算符号 12个7之间用运算符号2000怎么做用下面的数,选择合适的运算符号,组成一道乘法分配律的简便运算,并计算. 如何有理数加减法混合运算分数简便运算加减法及加减法乘除法混合运算小学数学快速加减法运算分数加减法的运算法则初一有理数加减法混合运算根据有理数加减法法则运算分数加减法（简便运算）