If(a>b) Then
Print a ‘如果a>b,输出变量a的值
Else
Print b ‘否则,输出变量 b的值
End If ‘结束If分支
count=0 #拥于记录试错的次数
rightname=“admin”
rightpasswd=“admin123”
while :#只允许试错3次
name=input(“请输入用户名:”)
passwd=input(“请输入密码:”)
if name==rightname passwd==rightpasswd:
print(“登录成功!”)
#如果登录成功,则直接跳出循环
else:
print(“登录失败!”)
#试错次数+1
else:
print(“登录次数超过三次,请稍后登录”)
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
Private Sub Command1_Click()
Dim x, y, t As Integer
x = 10
y = 30
If x < y Then
t =
x =
y =
End If
Label1.Caption = Str(x)
Label2.Caption = Str(y)
End Sub
转换成程序设计中的表达式为。
print("请输入3个数:")
x=int(input("x="))
y=int(input("y="))
z=int(input("z="))
temp=0
if x>y:
temp=y
y=x
x=temp
if x>z:
temp=z
z=x
x=temp
if y>z:
temp=z
z=y
y=temp
print("这3个数新序列是:",x,y,z)
①p=5 (a+b+p) ②if a>0 then b=b+1
③t1.text=”请输入密码:” ④For i=1 to 10 do j=j*2
Num1=4.1
Num2=5.8
age=(Num1+Num2)/2