恒祥空间的飘窗怎么样:hasfajskvgfdljfksdJA4

41．输入0～6之间的整数，然后根据该数决定是双休日或工作日，其中0为星期日，1～6分别为星期一到星期六。平均每小时加班费15元，双休日加倍。试计算6小时的加班费。
Dim W As Integer
W = InputBox("输入加班是在哪一天（0～6）")
Select Case W
Case 0,6 : Print "双休日六小时加班费=" ；6*30
Case _ 1,2,3,4,5 (或1 to 5)____ : Print "工作日六小时加班费=" ；6*15
Case Else : Print "输入错误！"
End Select
42．1～100之间的所有被3整除的数之和。
Dim I As Integer,S As Integer
S = 0
For I = 3 to 100 step ____3________
S = S + 1
Next
Print "S=";S
43．下列程序段运行后，y的值是_______9_______。
Dim x As Integer, y As Integer
x = 5
y = x
y = y + 10
y = y / 5
y = y + 6
Print "y=";y, "x=";x
44．以下程序段中的While循环将执行____ 0 _____次。
Dim k As Integer
K = 10
Do While (k < 0)
K=k-1
……
Loop
45．输入三角形的三条边的长度，判断是否为不等边三角形。A、B、C为单精度浮点数。
A = InputBox("输入第一条边的边长")
B = InputBox("输入第二条边的边长")
C = InputBox("输入第三条边的边长")
If A! = B AND __B! = C____ AND C! = A Then
Print "是不等边三角形"
Else
Print "不是不等边三角形"
End if
46．求一元一次方程AX+B=0的根，其中X为需求出的根。A、B从键盘输入，最后输出根值。
Dim A As integer, B As Single, X As Single
A = InputBox("输入A:")
B = InputBox("输入B:")
X = -B / A____________
Print "方程根为:";X
47．下面程序是根据圆的半径（变量名为R）计算面积，半径从键盘输入，请完成下列程序。
Dim R!,PI!
R = InputBox("输入半径：")
PI = 3.1415926
S = PI * _R^2______(或R*R)
Print "圆的面积为："；S
48．输入一个年份，判断是否为闰年。（若年份能被4整除但不能被100整除，或被400整除）。
Dim year As Integer
Year = InputBox("输入一个年份：")
If (__Year Mod 4___= 0 and Year mod 100 <> 0) or year mod 400 = 0 then
Print year: "是闰年"
Else
Print year: "是平年"
End if
49．若基本工资大于等于600，增加工资20%；若小于600大于400，增加工资15%；若小于400，增加工资10%。根据输入的基本工资计算增加后的工资。
S = InputBox("输入工资") ’S为单精度浮点数。
Select Case ______ S
Case Is >= 600: S=S*(1+0.2)
Case Is >= 400: S=S*(1+0.15)
Case Else : S=S*(1+0.1)
End Select
Print "增加后工资为"; S
50．从键盘输入一个整数N，然后求N阶乘（1×2×3…×N的积）。
Dim I As Integer,S As Integer,N As Integer
N = InputBox("输入一个整数：")
P = 1
For I =1 to N
P = ___ P * I ____________
Next
Print "N阶乘="；P