本帖最后由 xiaopo 于 2015-8-10 19:09 编辑
首先感谢Broly的视频
LS的PI好像不对,应该是3.1415926535,而且PI的取值如果要求准确,最好根据tan(PI/4) = 1来算反正切。
最后顺便贴出自己的答案:- Rem 第二讲作业之(一)
- '错误的命名:3x(数字开头) 85(数字开头) 名称(中文) a%b(不能有%) ab#(不能有#) \x1(不能有\) My Name(不能有空格)
- ''年龄“(不能有'”) 学校(不能有中文) $(不能有$)
-
- Rem 第二讲作业之(二)
- '1题
- Option Explicit
- Dim a,b,c,e,x
- a = 1: b = 2: c = 3: e = 4: x = 5
- MsgBox x * (x * (x * (a * x + b) + c) + c) + e
- '2题
- 'lg(a^2+2ab+b^2) lg是数学里面是以10为底的对数
- '查看log的帮助文档,得到如下:
- '用 n 的自然对数除 x 的自然对数,可以得到以 n 为底的 x 的对数。如下所示:
- 'Logn(x) = Log(x) / Log(n)
- '以下示例为一个自定义的 Function 过程,该过程计算以 10 为底的对数:
- 'Function Log10(X)
- ' Log10 = Log(X) / Log(10)
- 'End Function
- MsgBox Log(a * a + 2 * a * b + b * b) / Log(10)
- '通过下面的发现才知道原来VBS有幂运算符^
- 'MsgBox 2^4
- '3题
- 'ln(1+|(a+b)/(a-b)|)^10)
- MsgBox Log(1+(Abs((a+b)/(a-b)))^10)
- '4题
- '下面的示例利用 Atn 来计算 pi 的值:
- 'Dim pi
- 'pi = 4 * Atn(1) ' 计算 pi 的值。
- Dim pi
- pi = 4 * Atn(1)
- MsgBox Sqr(1 + pi/2 * Cos(48 * pi / 180))
- '5题
- 'ctg在数学中是cot的意思
- MsgBox Cos((1-x^3)/(1+x^2))/Sin((1-x^3)/(1+x^2))
- '6题
- Dim y
- y = 6
- MsgBox 1 / (1 + 1 / (1 + 1 / (x + y)))
-
- Rem 第二讲作业之(三)
- 'Int(-1234.5678) -1235
- 'Fix(1234.5678) 1234
- 'Abs(-100) 100
- 'Sqr(sqr(16)) 2
- 'Mid("Visual Basic Scripting",8,5) Basic 注意这道!!!与C语言不一样
- 'Month(now) 8
- 'Cint(1234.5678) 1235
- 'Sgn(-100) -1
- 'InStr(1,"Visual Basic Scripting","Basic") 8 注意这道!!!与C语言不一样
复制代码
|