如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 03:52:16

如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中?
假设现在 A1~D10行内均有数字,如果要做一个VBA程序将每行的除3余数依次填入 G行中,怎么办?本行只计算本行A1~D10的除3余数个数,下行又重新开始计算.嵌套循环?

Sub test()
Dim arr,brr
On Error Resume Next
arr = [a1:d10].Value
r = UBound(arr,1)
ReDim brr(1 To r,0 To 2)
For i = 1 To r
For j = 1 To UBound(arr,2)
If arr(i,j) "" Then
c = Val(arr(i,j)) Mod 3
brr(i,c) = brr(i,c) + 1
End If
Next
Next
Cells(1,UBound(arr,2) + 1).Resize(r,3) = brr
End Su

如何写一个VBA程序?可以对A~D内每行数字进行除3余数0,1,2统计后填写到相应行的 G行中? C++程序中,对一个三位数每位数字加6后除以10取余数（加密）,如何解密,输入加密后的,输出原数. 如何统计：A4：A13为数字：3、6、9、8、7、4、1、5、2、0；B4：B13为字母：A、B、C、D、E、F、G、H VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正如何使用IF函数统计EXCEL表格中某一区间内填写有数字的个数?或是使用COUNTIF函数? excel表格中如何统计含有数字的行数和每行含有多少数字? 在wps中圆圈内加数字,除1到10外,后现在的数字怎么样打出来数学关于一道算法的题输入一个自热数N,求其被3除得到的余数,并输出相应信息.写下程序用Matlab 写一个m文件,从1到100中随机抽取50个数字,输出其间的素数,并进行降序排列,最后求和.求程序 vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数如何将1到25这25个数字填写在5*5方格中,使得每行每列及对角线数字之和相等如何在excel中,填写一个条件后,在其他表格中自动出来相应的数据值.