Board logo

标题: [原创] [VBS基础视频教程]第二讲作业 [打印本页]

作者: broly    时间: 2011-8-3 22:44     标题: [VBS基础视频教程]第二讲作业

本帖最后由 broly 于 2011-8-3 22:45 编辑

请在此贴发布你的作业内容
作者: Demon    时间: 2011-8-4 00:34

写出下列的函数值:
Int(-1234.5678)
Fix(1234.5678)
Val(“12.34”)
Abs(-100)
Sqr(sqr(16))
Mid(“Visual Basic Scripting”,8,5)
Month(now)
Cint(1234.5678)
Sgn(-100)
InStr(1,”Visual Basic Scripting”,”Basic”)

VB写多了
作者: huabanyu8411    时间: 2011-8-30 10:08

Option Explicit

Dim a,b,sum,x,c,e

sum = "x{x[x(ax+b)+c]+c}+e"

MsgBox sum
显示x{x[x(ax+b)+c]+c}+e的脚本
作者: CrLf    时间: 2012-6-16 23:49

本帖最后由 CrLf 于 2012-6-16 23:51 编辑

有几题看不懂,所以暂时没做,以下是数学表达式题:
  1. Option Explicit
  2. Dim x,a,b,c,e
  3. x = 1
  4. a = 2
  5. b = 3
  6. c = 4
  7. e = 5
  8. MsgBox(x*(x*(x*(a*x+b)+c)+c)+e)
  9. MsgBox(Log(a*a+2*a*b+b))
  10. Const PI=3.14159265758
  11. MsgBox(Sqr(1+PI/2*Cos(48*180/PI)))
复制代码
以下是预测结果题:
  1. Option Explicit
  2. Dim str
  3. str = "Int(-1234.5678)=-1235:" & Int(-1234.5678) & vbcrlf
  4. str = str & "Fix(1234.5678)=1235:" & Fix(1234.5678) & vbcrlf
  5. str = str & "Abs(-100)=100:" & Abs(-100) & vbcrlf
  6. str = str & "Sqr(sqr(16))=2:" & Sqr(sqr(16)) & vbcrlf
  7. str = str & "Mid(""Visual Basic Scripting"",8,5)=asic :" & Mid("Visual Basic Scripting",8,5) & vbcrlf
  8. str = str & "Month(now)=6:" & Month(now) & vbcrlf
  9. str = str & "Cint(1234.5678)=1234:" & Cint(1234.5678) & vbcrlf
  10. str = str & "Sgn(-100)=-1:" & Sgn(-100) & vbcrlf
  11. str = str & "InStr(1,""Visual Basic Scripting"",""Basic"")=8:" & InStr(1,"Visual Basic Scripting","Basic") & vbcrlf
  12. MsgBox str
复制代码
手册看得不够认真...

顺便说一下,预测结果题中原题有几处用的是全角引号,望修正
作者: xiaopo    时间: 2015-8-10 17:30

本帖最后由 xiaopo 于 2015-8-10 19:09 编辑

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





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2