import math
a=float(input("请输入方程系数a:"))
b=float(input("请输入方程系数b:"))
c=float(input("请输入方程系数c:"))
d=b*b-4*a*c
if :
x1=(-b+math.sqrt(d))/(2*a)
x2=(-b-math.sqrt(d))/(2*a)
print("方程有两个不同的解",x1,x2)
elif:
x1=-b/(2*a)
print("方程有两个相同的解",x1)
else:
print("方程无解")
num =float(input("请输入:"))
①
②
③
④
print(num)
a=2
print('a=', 5*a)
Dim a(1 To 5) As Integer, i As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
Next i
Text1 Text = Str(a(i - 1))
该程序段运行后,文本框Text1中显示的内容是( )
请回答下列问题:
Const n= 12
Dim a(1 To n) As Integer, mc(1 To n) As Integer
Private Sub Command1_Click()
'n个用户的ID依次为1到n,读取n个用户的积分和排名数据分别存储到数组a和数组mc中,并在列表框Listl中显示ID、积分、积分排名,代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer, d As Integer
Dim s As String, flag As Boolean, x As Integer, y As Integer
Dim p(1To20) As Integer '存储输入的ID和积分增值,每次输入不超过10组
For i=1 To 20
p(i)=0
Next i
s= Text1.Text
d=0:k=0
For i= 1 To Len(s)
If Mid(s, i, 1)= "," Then
If flag Then
x = Val(Mid(s, i-d, d))
For j= 1 To k Step 2
If p(j) =x Then Exit For
Next j
If j> k Then
p(j)=x:k=k+2
End If
Else
y = Val(Mid(s, i-d, d))
p(i+1)=p(j+ 1)+y
End If
flag= Not flag: d= 0
Else
End If
Next i
For i=1 To k\2
x=p(2*i-1):y=p(2*i)
me(x)= 1
For j= 1 Ton
If j<> x Then
If a(j)<a(x)+y And a(j)>=a(x) Then
End If
If a(j)> a(x) +y Then mc(x)= m(x)+ 1
Next j
Next i
'在列表框List2中显示ID,积分、排名,代码略
End Sub
Dim n As Integer, a(1 To 100) As Integer
Private Sub Command1_Click()
Dim i As Integer
n = 14
Randomize
For i = 1 To n
a(i) =
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i, j, flag As Integer
List2.Clear
flag = 1
For i = 1 To n - 1
For j = n To i + 1 Step -1
If> 0 Then a(j) = a(j) + a(j - 1)
a(j - 1) = a(j) - a(j - 1)
End If
Next j
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
a=input()
print(a * 5)
通过键盘输入5,则运算结果是( )
1a=3
b=input()
c=a+b
print(“c”)
x = 2
print (x+1)
print (x+2)
运行后,变量x的值是( )
print(1+2==3)