excel实现商为整数

发布网友发布时间：2022-04-24 04:59

我来回答

共3个回答

热心网友时间：2023-10-30 07:46

自动取1-9的数相乘作为被除数

Private Sub CommandButton1_Click()

Dim a, b

a = Int(Rnd() * 9 + 1)

b = Int(Rnd() * 9 + 1)

Label1.Caption = a * b

Label3.Caption = a

End Sub

函数

A1 (被除数)中输入=RANDBETWEEN(1,9)*B1

B1 （除数）中输入=RANDBETWEEN(1,9)

在表中插入一个微调按钮，随便链接一个单元格

热心网友时间：2023-10-30 07:46

其实不妨换一个思路，先随机生成乘法计算，然后再从乘法计算中随机取算式改为除法就好了。例如，A列为乘数1、B列为乘数2、C列为积；D列、E列分别生成一个随机数；F列为随机取的C的某一个单元格的值、G列为随机取的C列的某个单元格的值所对应的A列或B列的值、H列为输出的除法算式。
A1公式：=RANDBETWEEN(1,9)
B1公式：=RANDBETWEEN(1,9)
C1公式：=A1*B1，然后将A1:C1区域向下拖动填充公式，这样可以生成足够多的乘法算式，例如，拖动100行，生成100个乘法算式；然后，
D1公式：= RANDBETWEEN(1,100)
E1公式：= RANDBETWEEN(1,2)
F1公式：= INDEX($C$1:$C$100,D1,1)
G1公式：= INDEX($A$1:$B$100,D1,E1)
H1公式：=F1&" ÷ "&G1&" = "
然后将D1:H1区域向下拖动填充公式。最后H列就是你所要的除法算式了。追问

这个是我想实现的算式及功能。因为涉及混合运算所以不能取完乘法生成除法。

热心网友时间：2023-10-30 07:47

=RANDBETWEEN(1,9)*RANDBETWEEN(1,9)
这样不好么？