試卷征集
加入會員
操作視頻

下列VB程序實現(xiàn)數(shù)字字母混合序列分離后分別排序,最后又合并輸出。具體算法如下:在文本框Text1輸入若干組混合序列,每組序列中僅包含一組字母和一個多位數(shù)字,序列之間用逗號隔開,以逗號結束。單擊“排序”按鈕command1,把每組序列中的字母和數(shù)字分開,并分別排序,最后在列表框list1輸出。排序規(guī)則如下:所有數(shù)字按從小到大升序排序,字母序列按長度升序排序,若長度相同,直接按字母序列大小升序排序(按字母的ASCII碼排序,“A”<“Z”<“a”<“z”)。實現(xiàn)算法的部分程序界面如圖所示,VB程序代碼如下,回答下列問題:
菁優(yōu)網
Private Sub Command1_Click(  )
Dim a(1 To 6)As Integer,b(1 To 6)As String,I as integer,j as integer
Dim c As String,k As Integer,tmp1 As Integer,tmp2 As String
s=text1.text
i=1:k=1:tmp1=0:tmp2=″″
Do While i<=Len(s)
c=Mid(s,i,1)
If c=“,“Then
a(k)=tmp1:b(k)=tmp2
tmp1=0:tmp2=″″

Else
If 菁優(yōu)網Then
tmp2=tmp2+c
Else
tmp1=tmp1*10+val(c)
End If
End If
i=i+1
Loop
For i=1 To 5
For j=1 To 6-i
If a(j)>a(j+1)Then tmp1=a(j):a(j)=a(j+1):a(j+1)=tmp1
If Len(b(j))>Len(b(j+1)) Or
 Then
tmp2=b(j):b(j)=b(j+1):b(j+1)=tmp2
End If
Next j
Next i
For i=1 To 6
List1.AddItem Str(a(i))+b(i)
Next i
End Sub
(1)代碼“l(fā)ist1.AddItem”中的AddItem是
C
C

(單選,填字母:A.屬性名   B.對象名   C.方法   D.事件名 )
(2)在程序橫線處填入合適代碼,使程序完整
(3)加框處代碼有錯,請改正
(4)若輸入的字符串為“21ckk,gho63,TCP43,23Yes,no62,phy46,”,則程序運行后第3組字符是
43ckk
43ckk

【答案】①;②;C;43ckk
【解答】
【點評】
聲明:本試題解析著作權屬菁優(yōu)網所有,未經書面同意,不得復制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.5
相似題
  • 1.學校舉辦了“語文作文現(xiàn)場賽”,參賽同學成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學的姓名和成績,以“:”分隔)。陳老師利用Python程序對作文成績進行處理,統(tǒng)計出各個分數(shù)等級的人數(shù),并輸出結果。程序運行界面如右圖所示。
    菁優(yōu)網
    實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。
    菁優(yōu)網

    發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3
  • 2.有如下Python程序段:
    菁優(yōu)網
    執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結果是(  )

    發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4
  • 菁優(yōu)網3.試題描述的內容:
    一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內有1個按鈕
    (2)窗體內有2個文本框
    (3)窗體內有3個標簽
    (4)該窗體的標題(Caption)屬性值是“加法計算器”

    發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網 | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯(lián)系并提供證據,本網將在三個工作日內改正