• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.7.0
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.7
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.7
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[技术交流] 【院刊】-【201411期】知识有奖问答---第二期 [复制链接]

1#

知识有---第二期

本文按键学院提供技术支持


▂_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂__▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂▂_▂▂_▂▂

咱们第一期的问答中,童鞋们都很腻害哈,答对的童鞋很多。小编再接再厉,小编的目标就是,有一天出一道题把大家都难倒,哈哈~也欢迎热心的童鞋们,带着你们平时遇到的觉得有意思的错题联系小编哈~



[backcolor=rgb(46, 139, 87)]答题有效时间[backcolor=rgb(154, 205, 50)]

答题有效时间:发帖时间起三天内

[backcolor=rgb(46, 139, 87)]奖励[backcolor=rgb(154, 205, 50)]

奖励名额:前30名答对者
答对第一题:鲜花1朵,银币5个
答对第二题:鲜花1朵,银币10个
另有若干参与奖:鲜花1朵

_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂__▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂▂_▂▂_▂▂

[backcolor=rgb(46, 139, 87)]题目①[backcolor=rgb(154, 205, 50)]

为什么调试时提示类型错误。(回答错误点,并且改写代码,让代码可以使用) 鲜花+1,银币+5
  1. Dim 数组
  2. Randomize
  3. 随机次数 = int(10 * rnd)
  4. For i= 0 to 随机次数
  5. 数组(i) = int(100 * rnd)
  6. If 数组(i)mod 2 = 0 Then
  7. 数组(i)=数组(i)+1
  8. End If
  9. TracePrint 数组(i)
  10. Next
复制代码
获取按键精灵论坛首页上的“按键精灵论坛” 图标,命名为按键精灵.bmp保存到c盘下.鲜花+1,银币+10起步,根据代码完善度酌情加分。





[backcolor=rgb(46, 139, 87)]答案公布[backcolor=rgb(154, 205, 50)]

第一题:
错误点: Dim 数组 只是声明了变量, 并没有声明array数组, 所以这里的数组缺少了数组的上限元素,需要用 ReDim 重新定义和分配储存空间.

答案1: redim重新定义分配数组存储空间。
  1. Dim 数组()
  2. Randomize
  3. 随机次数 = int(10 * rnd)
  4. ReDim 数组(随机次数)
  5. For i= 0 to 随机次数
  6. 数组(i) = int(100 * rnd)
  7. If 数组(i)mod 2 = 0 Then
  8. 数组(i)=数组(i)+1
  9. End If
  10. TracePrint 数组(i)
  11. Next
复制代码
答案2: 不使用数组,将数组改成变量使用。
  1. Dim 数组
  2. Randomize
  3. 随机次数 = int(10 * rnd)+1
  4. For i = 0 To 随机次数
  5. 数组= int(100 * rnd)+1
  6. If 数组 mod 2 = 0 Then
  7. 数组=数组+1
  8. End If
  9. TracePrint 数组
  10. Next
复制代码
第二题:
答案1: 使用网页按键实现。
  1. Call Plugin.Web.Bind("WQM.exe")
  2. Call Plugin.Web.Go("http://www.anjian.com")
  3. Call Plugin.Web.Save("http://www.anjian.com/images/logo.gif", "c:\按键精灵.bmp")
复制代码
答案2: 使用api实现。
  1. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  2. Call 下载文件("http://bbs.anjian.com/template/anjian-2013-10/image/common/logo.png", "C:\按键精灵.bmp")
  3. RunApp "C:\按键精灵.bmp"
  4. Function 下载文件(网页地址, 保存文件路径)
  5. 下载文件 = URLDownloadToFile(0, 网页地址, 保存文件路径, 0, 0)
  6. If 下载文件 = 0 Then
  7. TracePrint "成功"
  8. ElseIf 下载文件 = -2147483646 Then
  9. TracePrint "缓冲器长度无效或没有足够的内存空间完成此次操作"
  10. ElseIf 下载文件 = -2146697208 Then
  11. TracePrint "指定的资源或回调接口是无效的"
  12. End If
  13. End Function
复制代码

ps:由于每日发放银币有上限,奖励陆续发放中~~~

您所在的用户组无法下载或查看附件

2个月学会赚大钱的脚本

按键学院实战班



本主题由 超级版主 n15976906190 于 2017/9/2 8:41:33 执行 审核主题 操作
按键学院免费交流群:376122403

按键学院招生计划
按键学院系统教程
发新话题 回复该主题