Private Sub Command1_Click( )
Dim s, j As Single
s=
For j=1 to 50
If Then
s=s*j
Else
s=
End if
Next j
print “s=”:s
End Sub
试在横线处填写适当的内容,使程序得到相应的计算结果。
a=10, i=10
If i>10 then
a=a+i
Else
a=a-i
End if
x=20
if x>=100 then y=5*x else y=4*x
end if
s='t1Hr2a3'
s1='' ; s2=''; i = 0
while i < len(s):
if '0'<=s[i]<='9':
s1 = s1 + s[i]
elif 'a'<=s[i]<='z':
s2 = s[i] + s2
i = i + 1
ans = s2 + s1
print(ans)
程序执行后,输出的结果是( )
a= 1
b=2
if (a+b>3) :
print("yes")
else:
print("no")
Dim a As Integer, b As Integer
a=6
b=8
S=1+a*b/2
Print S
pi=3.14
r=10
s=pi*r*r
print(s)