批处理之家's Archiver

broly 发表于 2011-8-3 22:44

[VBS基础视频教程]第二讲作业

[i=s] 本帖最后由 broly 于 2011-8-3 22:45 编辑 [/i]

请在此贴发布你的作业内容

Demon 发表于 2011-8-4 00:34

[quote]写出下列的函数值:
Int(-1234.5678)
Fix(1234.5678)
[color=Red]Val(“12.34”)[/color]
Abs(-100)
Sqr(sqr(16))
Mid(“Visual Basic Scripting”,8,5)
Month(now)
Cint(1234.5678)
Sgn(-100)
InStr(1,”Visual Basic Scripting”,”Basic”)[/quote]
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

[i=s] 本帖最后由 CrLf 于 2012-6-16 23:51 编辑 [/i]

有几题看不懂,所以暂时没做,以下是数学表达式题:[code]Option Explicit

Dim x,a,b,c,e
x = 1
a = 2
b = 3
c = 4
e = 5

MsgBox(x*(x*(x*(a*x+b)+c)+c)+e)

MsgBox(Log(a*a+2*a*b+b))

Const PI=3.14159265758

MsgBox(Sqr(1+PI/2*Cos(48*180/PI)))[/code]以下是预测结果题:[code]Option Explicit

Dim str

str = "Int(-1234.5678)=-1235:" & Int(-1234.5678) & vbcrlf
str = str & "Fix(1234.5678)=1235:" & Fix(1234.5678) & vbcrlf
str = str & "Abs(-100)=100:" & Abs(-100) & vbcrlf
str = str & "Sqr(sqr(16))=2:" & Sqr(sqr(16)) & vbcrlf
str = str & "Mid(""Visual Basic Scripting"",8,5)=asic :" & Mid("Visual Basic Scripting",8,5) & vbcrlf
str = str & "Month(now)=6:" & Month(now) & vbcrlf
str = str & "Cint(1234.5678)=1234:" & Cint(1234.5678) & vbcrlf
str = str & "Sgn(-100)=-1:" & Sgn(-100) & vbcrlf
str = str & "InStr(1,""Visual Basic Scripting"",""Basic"")=8:" & InStr(1,"Visual Basic Scripting","Basic") & vbcrlf

MsgBox str[/code]手册看得不够认真...

顺便说一下,预测结果题中原题有几处用的是全角引号,望修正

xiaopo 发表于 2015-8-10 17:30

[i=s] 本帖最后由 xiaopo 于 2015-8-10 19:09 编辑 [/i]

首先感谢Broly的视频
LS的PI好像不对,应该是3.1415926535,而且PI的取值如果要求准确,最好根据tan(PI/4) = 1来算反正切。
最后顺便贴出自己的答案:[code]
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语言不一样
[/code]

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.