Excelvba的代码问题 5
Fori=1TonDorx=Rnd()*(maxx-minx)+minxry=Rnd()*(maxy-miny)+minyIfisinside(rx,ry,Range("...
For i = 1 To n
Do
rx = Rnd() * (maxx - minx) + minx
ry = Rnd() * (maxy - miny) + miny
If isinside(rx, ry, Range("e6:e100"), Range("f6:f100")) = 111 Then '!!!!!!*************
rxx(i) = rx
ryy(i) = ry
Exit Do
End If
Loop
Next
①Rnd()括号内需要自己加内容吗？
②If isinside()=111，指的是我要写的内容在inside()范围内就输出111，对吗？ 展开
Do
rx = Rnd() * (maxx - minx) + minx
ry = Rnd() * (maxy - miny) + miny
If isinside(rx, ry, Range("e6:e100"), Range("f6:f100")) = 111 Then '!!!!!!*************
rxx(i) = rx
ryy(i) = ry
Exit Do
End If
Loop
Next
①Rnd()括号内需要自己加内容吗？
②If isinside()=111，指的是我要写的内容在inside()范围内就输出111，对吗？ 展开
1个回答
2019-10-20 · 百度认证:云南新华电脑职业培训学校官方账号
云南新华电脑学校
云南新华电脑学校是经云南省教育厅批准成立的省（部）级重点计算机专业学校，采用三元化管理模式，教学设备先进，师资雄厚学生毕业即就业，学院引进了电商企业入驻，创建心为电商创业园区，实现在校即创业
向TA提问
关注
![]()
展开全部
第一个问题,楼上已经解答了,
a=-20318
b=chr(a)即可得到阿
第二个问题:
首先VBA中不支持Chrw(1606)这个阿拉伯字母,VBA始终将其显示为"?"
而ASC("?")是一直等于63的.所以只要是VBA不认识的字符都将以?代替
a=-20318
b=chr(a)即可得到阿
第二个问题:
首先VBA中不支持Chrw(1606)这个阿拉伯字母,VBA始终将其显示为"?"
而ASC("?")是一直等于63的.所以只要是VBA不认识的字符都将以?代替
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
