【院刊】-【201411期】知识有奖问答---第二期 _ 学院院刊

查看: 6510\|回复: 0	[技术交流] 【院刊】-【201411期】知识有奖问答---第二期 [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2014-11-19 15:54 | |只看楼主

知识有奖问答---第二期

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

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

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

[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

Dim 数组
Randomize
随机次数 = int(10 * rnd)
For i= 0 to 随机次数
数组(i) = int(100 * rnd)
If 数组(i)mod 2 = 0 Then
数组(i)=数组(i)+1
End If
TracePrint 数组(i)
Next

复制代码

获取按键精灵论坛首页上的“按键精灵论坛” 图标，命名为按键精灵.bmp保存到c盘下.鲜花+1，银币+10起步，根据代码完善度酌情加分。

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

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

答案1： redim重新定义分配数组存储空间。

Dim 数组()
Randomize
随机次数 = int(10 * rnd)
ReDim 数组(随机次数)
For i= 0 to 随机次数
数组(i) = int(100 * rnd)
If 数组(i)mod 2 = 0 Then
数组(i)=数组(i)+1
End If
TracePrint 数组(i)
Next

复制代码

答案2： 不使用数组，将数组改成变量使用。

Dim 数组
Randomize
随机次数 = int(10 * rnd)+1
For i = 0 To 随机次数
数组= int(100 * rnd)+1
If 数组 mod 2 = 0 Then
数组=数组+1
End If
TracePrint 数组
Next

复制代码

第二题：
答案1： 使用网页按键实现。

Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("http://www.anjian.com")
Call Plugin.Web.Save("http://www.anjian.com/images/logo.gif", "c:\按键精灵.bmp")

复制代码

答案2： 使用api实现。

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
Call 下载文件("http://bbs.anjian.com/template/anjian-2013-10/image/common/logo.png", "C:\按键精灵.bmp")
RunApp "C:\按键精灵.bmp"
Function 下载文件(网页地址, 保存文件路径)
下载文件 = URLDownloadToFile(0, 网页地址, 保存文件路径, 0, 0)
If 下载文件 = 0 Then
TracePrint "成功"
ElseIf 下载文件 = -2147483646 Then
TracePrint "缓冲器长度无效或没有足够的内存空间完成此次操作"
ElseIf 下载文件 = -2146697208 Then
TracePrint "指定的资源或回调接口是无效的"
End If
End Function

复制代码

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

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

2个月学会赚大钱的脚本

按键学院实战班

本主题由超级版主 n15976906190 于 2017/9/2 8:41:33 执行审核主题操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

上一主题| 下一主题

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