var FileStreamRotator = require('file-stream-rotator') var express = require('express') var fs = require('fs') var morgan = require('morgan') var path = require('path')
var app = express() var logDirectory = path.join(__dirname, 'log')
CORS定义了一种浏览器和服务器可以交互的方式,以确定允许跨源请求是否安全。它允许比纯粹的同源请求更多的自由和功能,但比简单地允许所有跨源请求更安全。 CORS规范最初是作为W3C建议书发布的,但该文件已经过时。目前主动维护的CORS定义规范是WHATWG的Fetch Living Standard。
element 是指由 DOM API 中成员返回的类型为 element 的一个元素或节点。 例如, document.createElement() 方法会返回一个 node 的对象引用,也就是说这个方法返回了在DOM中创建的 element。 element 对象实现了 DOM Element 接口以及更基本的 Node 接口,参考文档将两者都包含在内。
import Vue from 'vue' import App from './App.vue' import router from './router' import store from './store' import Cesium from 'cesium/Cesium' // noinspection ES6UnusedImports import widget from 'cesium/Widgets/widgets.css'
Vue.config.productionTip = false
new Vue({ router, store, render: h => h(App), mounted () { var viewer = new Cesium.Viewer('cesiumContainer') } }).$mount('#app')
Visual Basic for Applications(VBA)是一种Visual Basic的一种宏语言,主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。也可说是一种应用程序视觉化的Basic Script。 1994年发行的Excel 5.0版本中,即具备了VBA的宏功能。Excel宏编程主要使用VBA。
数据类型
基本数据类型
即Primary Type Data,下述列表的括号内为字节数:
Byte (1):无符号类型,取值范围0-255
Boolean (2)
Integer (2)
Long (4)
Single (4)
Double (8)
Currency (8)
Decimal (14)
Date (8)
String
Object (4)
Variant (根据分配确定)
自定义的数据类型
相当于C语言的struct,例如:
1 2 3 4 5
Type 自定义类型名 元素名 As 类型 … [元素名 As 类型] End Type
数组
1 2 3 4 5 6 7 8 9 10 11 12 13 14
Option Base 0 '數組索引值從0開始 Option Base 1 '數組索引值從1開始 Dim MyArray(10) '聲明一個數組變量,10是最大的可用的數組索引值 MyArray(5) = 101 '給數組的元素賦值 Dim Data(10,5) '聲明一個二維數組變量 Data(1,1) = "A001" '給數組元素賦值 Dim cArr(-11 To 20, 1 To 3) As String '聲明一個數組,定義數組索引值的上下界 Dim dArr() As String '聲明動態數組 ReDim dArr(0 To 5, 1 To 2) '改變動態數組的尺寸默認把原數據清除。如果保留原來的數據,必須加上參數Preserve。 '使用Preserve參數時只能改變最後一維的大小 If UBound(vTemp) = -1 Then '判斷數組變量vTemp是否為 空數組 End If Erase MyArrar, Data 'Erase語句清除數組元素,釋放變量佔用的空間
Sub 计算平均成绩() ' ' 计算平均成绩 宏 ' 计算平均成绩 ' ' 快捷键: Ctrl+l ' Application.Goto Reference:="计算平均成绩" Dim count As Integer ' 统计学生总数 count = Range("A1").CurrentRegion.Rows.count ' 统计学生总数 ActiveSheet.Cells(1, "E").Value = "平均成绩" Dim workSocre As Double ' 课程分 Dim videoScore As Double ' 视频分 Dim discussScore As Double ' 讨论分 For i = 2 To count ' 计算学生平均成绩 workSocre = ActiveSheet.Cells(i, "A").Value videoScore = ActiveSheet.Cells(i, "B").Value discussScore = Discuss(ActiveSheet.Cells(i, "C").Value) ActiveSheet.Cells(i, "E").Value = workSocre * 0.6 + videoScore * 100 * 0.2 + discussScore * 0.2 Next MsgBox ("平均成绩计算完成!") End Sub
Function Discuss(discussCount As Integer) As Integer Dim score As Integer Select Case discussCount Case Is >= 20 score = 100 Case Is >= 15 score = 80 Case Is >= 10 score = 60 Case Is >= 5 score = 40 Case Is > 0 score = 20 Case Is = 0 score = 0 End Select Discuss = score End Function