Key = Val (Text2. Text)
i =1
j=9
flag = False
Do While i <= j And flag = False
m=(i+j)\2
If ⑴ Then
j=m-1
ElseIf ⑵ Then
i=m+1
Else
If ⑶ Then
j=m-1
ElseIf ⑷ Then
i=m+1
Else
flag = True
End If
End If
Loop
If flag Then Text3. Text = “在第”+ Str(m) +“个”Else Text3. Text =“找不到”
上述程序段中横线处可选语句为:
①Key \ 10 > a(m) \ 10 ②Key Mod 10 < a(m) Mod 10
③Key \ 10 < a(m) \ 10 ④Key Mod 10 > a(m) Mod 10
则(1)(2)(3)(4)处语句依次为( )
请回答下列问题:
编写VB程序,实现上述功能:程序运行时,随机产生n个闭区间(保证左端点值<右端点值),并排序后显示在列表框List1中。单击“计算”按钮后,在列表框List2中显示最终区间情况,在文本框Text1中显示删除区间的个数。程序运行界面如图所示。
请回答下列问题:
Const n= 5
Din a(1 To 2 * n) As Integer
Dim d(1 To 2 * n) As Integer
Private Sub Form Load0
'随机产生n个闭区间,a(1)、a(2)为第1个区间的左端点和右端点,a(3)、a(4)为第2个区间的左端点和右端点,…a(2*n-1)、a(2*n)为第n个区间的左端点和右端点。
For i=1 To n-1
For j=i+1 To n
If a(2*i)>a(2*j) Or Then
t=a(2*i): a(2*i)=a(2*j): a(2*j)=t
t=a(2*i-1):a(2*i-1)=a(2*j-1):a(2*j-1)=t
End If
Next j
Next i
'排序后的区间情况显示在列表框List1中,代码略。
End Sub
Private Sub Cmd1_Click( )
Dim k As Integer, i As Integer, e As Integer
c=1
List2. Additem “[” + Str(a(1)) + "," + Str(a(2)) + “]”
k=
For i=2 To n
If Then
c=c+1
k=a(2*i)
List2. MddItem "[" + Str(a(2*i- 1)) +".”+ Str(a(2*i)) + "]"
End If
Next i
Text1.Text=“删除”“剩除”++"个区间”
End Sub
例如:n=10,原文字符串为“ABCXYEFDOK”,m=4时,处理过程如下:
其中,第1段中字母“X”后移4位后超过字母“Z”的ASCII码值,用“b”表示,第2段中字母“Y”后移2位用“a”表示用VB编写程序,程序运行时,在文本框Text1中输入原文字符串,在文本框Text2中输入每段个数,单击“加密”按钮Command1后,在文本框Text3中显示加密结果。程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
Dim a(0 To 50) As String, b(1 To 50) As Integer
Private Sub Command1_Click ()
Dim i As Integer, j As Integer, k As Integer, m As Integer, max As Integer
n = Len(Text1. Text)
For i=1 To n
a(i) = Mid(Text1.Text, i, 1)
b(i) =
Next i
m=Val (Text2. Text)
max=1
For k=1 To n\m
For i=(k-1)*m+2 To k*m
j=i
Do while
b(i)=b(i)+1
j=j-1
Loop
If b(i)>max Then
max = b(i)
End If
Next i
For i=(k-1)*m+1 To k*m
s =s+ mingtoni (a(i), max)
Next i
max=1
Next k
If n Mod m <> 0 Then
For i=(n\m)*m+1 To n
s=s+ a(i)
Next i
End If
Text3.Text = s
End Sub
Function mingtomi(e As String, d As Integer) As String
If Ase(c) + d > Asc("Z") Then
Else
mingtomi = Chr(Asc(c) + d)
End If
End Function