a=32
b=14
c=a//b
print(c)
姓名 |
身高(cm) |
体重(kg) |
1000米(s) |
立定跳远(m) |
小明 |
174 |
60 |
3'55" |
2.21 |
小张 |
175 |
55 |
4'10" |
2.35 |
①两人中只有一人参赛:。
②两人同时参加比赛:。
③两人都不参加比赛:。
x = 2
print (x+1)
print (x+2)
运行后,变量x的值是( )
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(x, y, z)
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中显示的内容是( )
Dim i As Integer
Dim c As String, s As String, t As String
s = "2021 PYthon": t = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
t = t + c
ElseIf c >= "0" And c <= "9" Then
t = c + t
End If
Next i
Text1.Text = t
执行该程序段后,文本框Text1中显示的内容是( )
编写一个VB程序,实现上述功能。程序运行时,在列表框List1中显示n名学生的姓名、性别和成绩,在文本框Text1中输入性别,Text2中输入k,单击“筛选”按钮Command1,在列表框List2中显示筛选出的学生姓名、性别和成绩。程序运行界面如图所示。
Dim n As Integer
Dim xm(1 To n) As String
Dim xb(0 To n) As String
Dim cj(0 To n) As Integer
Private Sub Form_Load()
'读取学生姓名、性别和成绩分别存 xm、xb 和 cj 数组,并在列表框 List1 中显示。
'学生人数存变量 n,代码略。
End Sub
Private Sub Command1_Click()
Dim s As String, k As Single, m As Single, mm As Integer
Dim c As Integer, p As Integer, i As Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k = Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm =
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To n
If xb(j) = s Then
If Then p = j
End If
Next j
If i <> p Then
t1 = xb(i): xb(i) = xb(p): xb(p) = t1
t2 = cj(i): cj(i) = cj(p): cj(p) = t2
End If
If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do
i = i + 1
Loop
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
请回答下列问题:
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
a=87
b=12
print(a,"-",b,"=",a-b)