恶意软件(virus.office.qexvmc.1065) excel vba 添加的模块

随机不重复生成.rar (1.12 MB)

2021-2-27 11:03 上传

点击文件名下载附件
下载积分: 经验 -1

在excel 里面 vba添加以下模块 结果反馈为恶意软件(virus.office.qexvmc.1065)
Sub c()
Dim s%, i%
Set d = CreateObject(ing.dictionary)
For i = 1 To 3
    Do Until d.Count = 6
        s = Int(Rnd * 33 + 1)
        d(s) =
    Loop
    Cells(i, 1).Resize(1, d.Count) = d.Keys
    d.RemoveAll
Next
End Sub

您好，麻烦提供一下文件样本，和杀毒检出信息截图