首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    刘金玉的零基础VB教程070期:贪吃蛇游戏开发第六节 记分与故障排除

    故障点分析 蛇重新开始游戏后,会自动变短 原因: 键盘按下时记录的键盘的按键,变成了方向 解决故障: Abs(currentDirect - KeyCode) < 4 因为四个按键的差值不会大于4 Move函数...参数1:left 参数2:top 参数3:width 参数4:height 游戏记分 重新定义label控件 直接赋值显示出来即可 记分的变量是全局变量,数值类型 课堂总结 1、故障排除 2、move函数的应用...(sno)).X = sno(UBound(sno)).X - W ElseIf currentDirect = 38 Then sno(UBound(sno)).Y = sno(UBound(...= 40 Then sno(UBound(sno)).Y = sno(UBound(sno)).Y + W End If End Function '蛇的运动 Private Sub timer1...(sno)).X + W > ScaleWidth _ Or sno(UBound(sno)).X < 0 _ Or sno(UBound(sno)).Y < 0 _ Or sno(UBound

    50210

    简谈VBA的Split函数

    标签:VBA,Split函数 Excel VBA提供了一种自定义的方式来拆分单元格中的文本,即Split函数,这在需要将单元格的内容拆分为许多部分时非常有用。...Split函数的语法如下: Split(string,delimiter,limit,compare) 其中, 参数string,想要拆分的字符串。 参数delimiter,将字符串分成段的字符。...图1 默认情况下,Split函数以空格作为分隔符来拆分字符串,因此下面的语句作用相同: arr=Split(str, “ “) 省略最后两个参数(limit和compare,因为它们是可选的)。...(arr) + 1) For i = 0 To UBound(arr) If arr(i) " " Then var(0, j) = arr(i)...如果想在单元格区域A1:A4中输入拆分后的字符串,可以使用语句: Range(“A1:A” & UBound(var,2))=Application.Transpose(var)

    3K50

    用VBA实现Excel函数01:VLOOKUP

    函数是Excel里非常重要的一个功能,所以,我们结合Excel的函数,用VBA去实现一些常用的函数功能。...1、实现简单的VLOOKUP 提到Excel的函数,VLOOKUP函数应该是最为常用的一个查找函数了,一般我们都是使用它的精确查找功能,也就是第4个参数设置为0或者false,所以我们也只实现一个精确查找的函数...UBound(arr, 1) = 10 LBound(arr, 1) = 0 UBound(arr, 2) '出错,因为arr是1维数组 LBound(arr, 2) '出错,因为arr是1维数组...arr = Range("A1:A10") UBound(arr, 1) = 10 LBound(arr, 1) = 1 UBound(arr, 2) = 1 LBound(arr, 2) = 1 其中...那我们就先完成这个循环的代码: Dim arrRows As Long arrRows = UBound(table_array, 1) - LBound(table_array, 1)

    7.1K31

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...Else SelectGetFolder = "" End If End WithEnd Function 第【4】步:得到文件夹(包含子文件夹)的路径 也可以用自定义函数...Loop Until sDic.Count = n GetAllFolderPath = sDic.keysEnd Function 再把返回的文件夹路径for next传入到读取文件列表的函数...,每次它会返回一个数组, 我们再在主程序新建一个【大数组】,把返回的数组一个一个读取出来,添加到【大数组】中就完成啦 读取文件列表也可以用自定义函数,如下 '输入文件夹,返回文件名列表(不包含子文件夹)...(PathArr), 1) = Application.Transpose(PathArr) For i = LBound(PathArr) To UBound(PathArr)

    74530

    VBA数组(四)数组函数

    VBA中操作数组的函数主要有以下几个,LBound函数UBound函数、Array函数、IsArray函数、Erase函数、Split函数、Join函数,后面分两节介绍数组函数。...LBound和UBound函数 介绍声明数组时说明过数组每个维度都有下界和上界,每个维度的下届和上界都可以自定义设置,它们通常用于获得动态数组不同维度的上界和下界。...语法结构如下,分别获得某个数组某个维度的下界和上界: LBound(数组名[,维数]) UBound(数组名[,维数]) 其中“维数”为1时表示“一维”,为2时表示“二维”,为3时表示“三维”,依次类推...由于LBound和UBound函数,返回的值需要赋值给变量,示例中定义了i、h、k变量来接收返回值。...---- 今天下雨 本节介绍了数组函数的LBound函数UBound函数、Array函数、IsArray函数,后面会补充剩下的数组函数,祝大家学习快乐。 ----

    4.8K40

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...SelectGetFolder = "" End If End With End Function 第【4】步:得到文件夹(包含子文件夹)的路径 也可以用自定义函数...Loop Until sDic.Count = n GetAllFolderPath = sDic.keys End Function 再把返回的文件夹路径for next传入到读取文件列表的函数...,每次它会返回一个数组, 我们再在主程序新建一个【大数组】,把返回的数组一个一个读取出来,添加到【大数组】中就完成啦 读取文件列表也可以用自定义函数,如下 '输入文件夹,返回文件名列表(不包含子文件夹)...(PathArr), 1) = Application.Transpose(PathArr) For i = LBound(PathArr) To UBound(PathArr)

    4.7K21
    领券