VBS計算方法

❶ vbs寫的計算器，本人電腦小白，高手輕噴

#include<stdio.h>
main()
{
char a,b;
int sum;
char reply;
do{
printf("輸入a,b:");
scanf("%c,%c",&a,&b);
if(a>=48 && a<=57 && b>=48 && b<=57)
{
sum=((int)(a+b));
printf("a,b和:%d\n",sum);
}
else
{
printf("輸入a,b字元錯誤\2\n");
}
printf("");
scanf("%c",&reply);
}while (reply>=0 && reply<=127);
getch();
}

❷ vbs計算的數字范圍是多少

幫你找了下微軟的幫助手冊，如下。

子類型 描述
Empty 未初始化的 Variant。對於數值變數，值為 0；對於字元串變數，值為零長度字元串 ("")。
Null 不包含任何有效數據的 Variant。
Boolean 包含 True 或 False。

Byte 包含 0 到 255 之間的整數。
Integer 包含 -32,768 到 32,767 之間的整數。
Currency -922,337,203,685,477.5808 到 922,337,203,685,477.5807。
Long 包含 -2,147,483,648 到 2,147,483,647 之間的整數。
Single 包含單精度浮點數，負數范圍從 -3.402823E38 到 -1.401298E-45，正數范圍從 1.401298E-45 到 3.402823E38。
Double 包含雙精度浮點數，負數范圍從 -1.79769313486232E308 到 -4.94065645841247E-324，正數范圍從 4.94065645841247E-324 到 1.79769313486232E308。

Date (Time) 包含表示日期的數字，日期范圍從公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日。
String 包含變長字元串，最大長度可為 20 億個字元。
Object 包含對象。
Error 包含錯誤號。

❸ 怎樣用VBS算圓周

你是說算圓周率嗎？下面是從從C語言轉移過來的，不過速度太慢，我這里運行了8分鍾還沒結束，我就直接結束它啦，你自己試試吧

dim a,b,c,d,e,f(2801),g
a=10000
c=2800

do while (b-c)
f(b=b+1)=a/5
loop

do while d=0 and g=c*2
b=c
d=d+f(b)*a
g=g-1
f(b)=d mod g
d=d/g
g=g-1

do while b=b-1
d=d*b
d=d+f(b)*a
g=g-1
f(b)=d mod g
d=d/g
g=g-1
loop

c=c-14
msgbox e+d/a
e=d mod a
loop

❹ VBS 簡單計算題，高手來，速度解決來。。。

Set fso = CreateObject("Scripting.FileSystemObject")
set o =fso.createtextfile("1.txt",true)
for a= 0 to 8
for b= 0 to 8
for c= 0 to 8
s=a+b+c
if s<13 then
o.writeline a&" "&b&" "&c
end if
next
next
next
o.Close

❺ 求一個計算時間差的VBS腳本

FunctionCheckExpire(strDateStart,iExpireTime)'#檢驗是否過期函數

OnErrorResumenext

CheckExpire=False

IfDateDiff("d",CDate(strDateStart),Date)>=iExpireTimeThen'#如果當前日期減去第一次運行的日期超過設定的天數則

CheckExpire=True

Endif

EndFunction

OnErrorResumenext

DimiExpireTime

iExpireTime=30'#過期時間為30天

DimoShell,DateStart

SetoShell=CreateObject("WScript.Shell")

DateStart=oShell.RegRead("HKLMSOFTWARECompanyKeyValue")

IfDateStart=""Then'#如果讀取到的值為空，說明是第一次運行

WScript.Echo"第一次"

oShell.RegWrite"HKLMSOFTWARECompanyKeyValue",Date()

EndIf

IfDateStart=""OrNotCheckExpire(DateStart,iExpireTime)Then

WScript.Echo"尚未過期"

Else

WScript.Echo"已過期"

WScript.Quit

EndIf

如果不懂，可以網路HI我。

❻ 用VBScript編寫一個計算1～100的和的函數,並給出通過該函數調用列印和值的方法

script type="text/vbscript">
dim i a integer

dim m as integer
m=0
for i=1 to 100
m=m+i
next
document.write("1 to 100 sum:" & str(m));

</script>

❼ VBS 計算器

http://hi..com/jin%5Fmz/blog/item/fb99267a6f669cec2f73b332.html
看看這個是不是你要的答案

❽ 編程，vbs計算求和

n趨近於無窮大，很明顯不可能讓計算機循環無限次。
所以要依賴推公式得出答案，等待其他人解吧，我試了幾種推導法都不行。

❾ vbs腳本能自動計算嗎

msgbox 3*75一般運算都可以這樣寫，比如(6+5)*(2-4)+3，那麼可以直接寫成msgbox ((6+5)*(2-4)+3)。加減乘除運算是沒問題的，不過對於一些復雜的科學運算，那麼可能需要相應變通。。。。

❿ vbs循環語句計算

Dimi,sum

sum=0

fori=1to100

sum=sum+i

nextmsgboxsum