Private Sub Form_Click()
n=1
s=0
Do while
s=
n=n+1
Loop
Print s
End sub

①设定⼀个理想数字比如:66,
②让⽤户输入数字,如果比66⼤,则显示:“你猜大了!”;
③如果⽐66小,则显示:“你猜小了!”;
④只有等于66,显示:“你才对了!”,并退出循环。

Private Sub Form-Click()
Dim S As Integer
Dim N As Integer
N=0
S=0 ‘S变量存放的是总和
Do While (条件)
N=N+1
S=S+N
Loop
Text1. Text=Str()
End Sub
wine_ value=int (input ("请输入酒精含量:") )
if wine. _value<20:
print ("不构成酒驾")
else:
if 80>wine_ value>=20:
print ("构成酒驾")
else:
print ("构成醉驾")
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
Else
if b>3 then
c=a*b
else
c= a mod b
End if
End if
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
试在横线处填写适当的内容,使程序得到相应的计算结果。
x=6
If x <= 5 Then
y = 2 * x + 1
Else
y = x / 2
End If

Private Sub Command1_Click( )
Dim a As Single
Dim b As Single
Dim total As Single
a = Val(Text1. Text)
b =Val(Text2. Text)
total =
Text3. Text =
End Sub
|
图1
图2 |
Private sub Form1_click( )
For s= to 1 step
Print “无人机继续向前移动”
Print“无人机停止移动,并转向”
End sub
a=5
if :
print("YES")
height=input('你的身高是多少米:')
height=float(height)
weight =input('你的体重是多少KG:')
weight =float(weight)
BMI=weight/(height*height)
if BMI>=24.9:
print('肥胖')
① BMI<24.9 ② BMI>=18.5:
print('正常')
else:
print('偏瘦')
① ②
import math
for num in range(100,1000):
![]()
if num==pow(gw,3)+pow(sw,3)+pow(bw,3): #pow(x,y)函数返回xy的值
print(num)
上述程序段中加框处应该填入的代码段是( )
B .
C .
D .
for i in range (10):
print (i)
Num1=9
Num2=14
age=(Num1+Num2)/2
print(age)
x=int(10.5)*10
x=10
y=x/5
print(y)
x=10
y=3
Print(x%y,x**y)

a1=int(input ("请输入自然数:"))
a2=int(input ("请输入自然数:"))
p=int(a1*a2)
print(p)
假如输入5和6,结果是( )