

Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序
Dim i As Integer, j As Integer ,k as integer
a(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25
s = ""
For i = 1 To 5
k = i
For j = i + 1 To 6
If a(k) > a(j) Then
Next j
If i <> k Then
t = a(k): a(k) = a(i): a(i) = t
End If
Next i
For i = 1 To 6
s = s + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中,并将s在label3中显示
i = 1: j = 1: s = ""
Do While i <= 6 j <= 6 '如果两数组都还有数据未合并
If Then
s = s + Str(a(i)) : i = i + 1
Else
s = s + Str(b(j)) : j = j + 1
End If
Loop
Do While i <= 6 '只有数组a还有数据未合并
s = s + Str(a(i)) : i = i + 1
Loop
Do While j <= 6 '只有数组b还有数据未合并
s = s + Str(b(j)) : j = j + 1
Loop
Label3.Caption = s
End Sub
图a
图b
Private Sub Command1_Click()
Dim s As String, c As String, tmp As String
Dim i As Integer, cnt As Integer
Dim flag As Boolean
cnt=0 : flag = True
List.Clear: s = Text1.Text: Text1.text=""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
tmp = tmp + ch
If Len(tmp) > 1 Then
If ① Then flag = False
End If
Else
If flag Then
List1.AddItem tmp: cnt = cnt + 1
Else
flag = True
End If
tmp = ""
End If
Next i
If flag Then List1.AddItem tmp: cnt = cnt + 1
If ② Then Text2.Text = "找不到" Else Text2.Text = Str(cnt)
End Sub
① ②
“11 456 7 4443 488 666666”,单击“筛选密码”按钮,文本框Text2中显示的内容是。
For i=1 To 3
For j=i To 5
If a(j) > a(j+1) Then
t=a(j): a(j)=a(j+1): a(j+1)=t
End If
Next j
List1.AdcIItem Str(a(i))
Next i
a(1)到a(6)的初始值依次为“8 6 5 7 9 3 ”,经过该程序段“加工”后,列表框List1中显示的是( )
a=1:b=2:t=0
t=a:a=b:b=t
该程序段运行后,a,b的值为( )
Dim s As String
s="浙江杭州市"
If Len(s)>=5 Then
s=Mid(s,3,2)
Else
s=Mid(s,1,2)
EndIf
该程序段运行后,s的值为( )
s = "318714101223411624"
c=Mid(s, 1, 1):i=1:max=0
For j=2 To Len(s)
If t> c Or j = Len(s) Then
End If
Next j
上述程序段中方框处可选语句如下:
①i=j
②t=c
③c = Mid(s, j, 1)
④If j-i>max Then max=j-i
则(1)(2)(3)(4)处语句依次为( )
①设计算法 ②编写程序 ③调试运行 ④分析问题
for i in range(1, 11): #i控制*的行数
for j in range(i): #j控制每行的个数
print("*",end=' ') #输出*
print( ) #输出换行
A .
B .
C .
D .
运行结果是:(填:A/B/C/D)
a=[2,3,5,6,9]
x=min(a);y=max(a);ans=a[1]
if x**2>y:
ans = ans + x**2
ans = ans// 2
else:
ans=ans+y
ans=ans号y
print (ans)
执行该程序段后,输出的内容是( )
|
def encrypt(st1): st2="" for s in stl: st2 += chr(ord(s)+5) return st2 print(encrypt("ktocji")) |
运行结果是
s = 0: i = 1
Do While i <= 10
If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i
List1.AddItem Str(a(i))
i = i + 1
Loop
i = 10
Do While i >= 1
If a(i) = 1 Then s = s + 1
i = i - 1
Loop
该程序段运行后,变量s值是( )