Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, det As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
det = ‘(根的判别式b2-4ac)
Select Case det
Case Is > 0
x1 = (-b + Sqr(det)) / (2 * a)
x2 = (-b - Sqr(det)) / (2 * a)
Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2)
Case Is = 0
Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)
Case
Text4.Text = "此方程无实数根"
End Sub
if int (input ( ) ) %5= =0:
print("yes")
if int (input ( ) ) %5!=0:
print("no")
如果输入7,则输出( )。
x=6
If x <= 5 Then
y = 2 * x + 1
Else
y = x / 2
End If
| m= 1 m = m+ 5 n = 5 + m Print n ,m |
| a = 2 b = 3 print a > b |
| a=10 b=20 If a>b then Print a, b Else Print b, a End if |
| For k=15 to 1 step -5 Print k; next |
x=20
if x>=100 then y=5*x else y=4*x
end if
a=int(input( ))
if a>0:
print("正整数")
elif a<0:
print("负整数")
else:
print("零")
负整数
零
B . 正整数 C . 负整数 D . 零a=int(input())
if :
print("7的倍数" )
else:
print("不是7的倍数")
x=0
a=8
if a<9:
x=9
print (x)
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('偏瘦')
① ②
a=32
b=14
c=a%b
print(c)
Private Sub Command1_ Click()
a=Text2. Text '总评分
If a <75 Then
Label4. Caption ="★ 继续努力!"
Else
If a>90 Then
Label4. Caption ="★★★ 很棒!"
Else
Label4. Caption = "★★ 加油!"
End If
End If
End Sub
| Dim a As Integer Dim b As Integer Private Sub计算_Click() a=3 b=5 a=a+b Form1.Print a End Sub |
Num1=9
Num2=14
age=(Num1+Num2)/2
print(age)
a=20
b=2
c=a**b+300
print(c)
Node=11
Name="x"
print(Node,Name)
a=int(input("请输入1-20的整数"))
b=15
if a==b:
print("恭喜你,猜对了")
else:
if a>b:
print("很遗憾,猜大了")
else:
print("很遗憾,猜小了")
Num1=11
Num2=29
Sum=Num1+Num2
print(Num1,"+",Num2,"=",Sum)
m=19
if m>=30 or m<20:
print(m)

Am=['书法','绘画','体育'] m.append('歌唱')
m.append('舞蹈')
print("与体能有关的项目是:",m[2])