题目

小李编写了一个VB程序， 功能如下：在文本框Text 1中输入连续多个正整数(以“，”作为分割符和结束符)，单击“排序”按钮Cmd 1，对其中的整数进行降序排序。排序后奇数在前，偶数在后，在标签Label 3中输出结果。程序运行界面如图所示。 （1） 要使窗体Form 1标题显示“奇偶排序”，可修改该窗体的(单选，填字母：A .Text/B .Captin/C .Name) 属性来实现。 （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Cmd 1_Cik()         Dim s As Strng，c As String，a( 1 To 100)As Integer     Dim n As Integer，i As Integer，j As Integer，k As Integer，t As Integer     s=Text 1．Text：n=0     For i=1 To Len(s)         c=Mid(s，i，1)         If Not(c>=”0”And c<=”9”) Then             n=n+1             a(n)=①             j=0         Else             j=j+1         End If Next i For i=1 To n-1             ②         For j=i+1 To n           If a(j) Mod 2= 1 Then             If  Then k=j         ElseIf a(k) Mod 2=0 And a(j)>a(k) Then             k=j         End If       Next j       If k<>i Then t=a(k)：③：a(i)=t     Next i     c=””     For i=1 To n         c=c+Str(a(i))     Next i     Label 3．Caption=c End Sub ① ② ③  （3） 程序中加框处代码有错，请改正。 答案： 【1】B 【1】Val(Mid(s，i-j，j))或等价答案【2】k=i【3】a(k)=a(i) a(k) Mod 2=0 or a(k) Mod 2= 1 And a(j)>a(k)或a(k) Mod 2= 0 or a(j)>a(k)或等价答案

查看本题答案和解析