Private Sub Command1_Click( )
x=0
n=InputBox("")
For i=1 To n
For j=1 To i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是( )
For i=1 To 10 Step 4
s = s+i
Next i
该程序段运行后,语句s=s+i执行的次数为( )
<循环变量> <遍历结构>:
<语句块>
VB中,For循环语句的格式如下:
For循环变量= 初值 To 终值 Step 步长值语句组 Next |
for i in range(1,10,4):
s=s+i
该程序段运行后,语句s=s+i执行的次数是( )。
国际通常用BMI (Body Mass Index) 衡量人体肥胖和健康状况的标准,计算公式是:
BMI=体重(kg) /身高2 (m2)
国际、国内对BMI指数评判的标准(如下表39-1)。国际:世界卫生组织:国内:国家健康委员会。
分类 |
国际BMI值 |
国内BMI值 |
偏瘦 |
<18.5 |
<18.5 |
正常 |
18.5~25 |
18.5≤bmi <24 |
偏胖 |
25~30 |
24≤bmi <28 |
肥胖 |
≥30 |
≥28 |
请以国内为标准,帮他完善程序代码,在划线处填空。
w= (input(“请输入你的体重(单位:千克):”)) #转浮点数函数
h=float (input(“请输入你的身高(单位:米):”))
bmi= #计算bmi
if bmi<18.5:
print(“”)
elif:
print(“正常”)
elif 24<=bmi <28:
print(“偏胖”)
print(“肥胖”)
s=0
for i in range(1,10,3):
s=s+i
该程序段运行后,s的结果是
x=0
For i = 1 to 5
For j = i to 5
x=x+1
Next j
Next i
Print x
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为。
Private Sub Command1_Click()
Dim age As Integer, tree As Integer
age = 15
tree = 1
Do While tree
age =
Tree = tree + (age - 14)
Text1.Text = Str(age)
End Sub
实现上述功能的程序如下,请在划线处填入合适的代码。
def isprime(x):
for i in range(2,x):
if:
return False
return True
n=int(input(“请输入一个正整数n:”))
c=0
k=3
while k<=n-2:
if isprime(k) and:
print(k,k+2)
k=k+1
print(“共有”+str(c)+“对双胞胎数”)
i=1
while i<= 5:
i=i+1
print(i)
b=1
Do while (b<40)
b=b*(b+1)
Loop
Print b
s = 0
For k = 10 To 30 Step 5
s = s + k
Next k
Print s, k
程序运行后,s、k的值分别为:、
for i in range(0,10,2):
print("*")