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

          回文數是從左向右讀和從右向左讀結果一樣的數字串,例如:1和363都是回文數編寫VB程序,構造一個大于給定正整數n的最小回文數p,構造方法如下
          (1)根據數字串n的左半部分子串st,構造對稱的右半部分,生成回文數p
          (2)若p>n,則p即為最小回文數,如:98712→98789
          (3)若p<=n則需重新構造p,方法是:從右向左查找字符串st中第一個“9”的字符;若不存在,則生成形如“10…01”的回文數p,p的長度比n的長度多1位,如:9999→10001若存在,則將第一個非“9”字符加1,并將該字符后面部分用字符“0“填充,最后構造對稱的右半部分,生成回文數p。如:98992→99099,
          實現上述功能的VB程序如下,請回答下列問題:
          (1)如果n為69999,則p為
          70007
          70007

          (2)請在橫線處填入合適的代碼
          Private Sub Command1_Click(  )
          Dim n As String,st As String.p As String
          Dim In As Integer.i As Integer.j As Integer
          n=Text1.text
          ln=Len(n)
          st=Mid(n,1,<ln+1>\2)
          p=st
          For i=ln\2To1 Stop-1
            p=p+Mid(n,i,1)
          Next i
          If
          Then
             i=(ln+1)\2
          Do While i>0
          If Mid(st,i,1)=“9“Then
          EIse Exit Do
          Loop
          If i<1 THen
              p=“1“
              For i=2 To In
                 p=p+“0“
              Next i
             p=p+“1“
          Else
             p=Mid(st,1,i-1)
             p=p+Chr(Asc(Mid(st,i,1))+1)
             For j=i+1 To ln-i
               p=p+“0“
             Next j
                If
          Then p=p+Mid(p,i,1)
                For j=i-1 To Step-1
                p=p+Mid(p,j,1)
                Next j
               End If
            End If
          End If
          Text2.Text=p
          End Sub

          【答案】70007;①;②;③
          【解答】
          【點評】
          聲明:本試題解析著作權屬菁優網所有,未經書面同意,不得復制發布。
          發布:2024/4/20 14:35:0組卷:0引用:1難度:0.5
          相似題
          • 1.根據AQI值判斷城市的空氣質量。若城市的AQI值(整數)不超過100則空氣質量優良,否則空氣質量有污染。當輸入的AQI值為-1時則退出程序。不要更改程序結構,將題中的①②③④填入正確的語句。
            city=input(“請輸入城市名:”)
            AQI=int(input(“請輸入空氣質量指數AQI的值:”))
            ①______ AQI!=-1:
            if ②______:
            print(city,“的空氣質量優良。”)
            ③______:
            print(city,“的空氣質量有污染。”)
            city=input(“請輸入城市名:”)
            AQI=④(input(“請輸入空氣質量指數AQI的值:”))
            (1)序號①答案為
             

            A.if
            B.while
            C.for
            D.def
            (2)序號②答案為
             

            A.AQI>=100
            B.AQI<=100
            C.AQI>100
            D.AQI<100
            (3)序號③答案為
             

            A.elif
            B.break
            C.if
            D.else
            (4)序號④答案為
             

            A.int
            B.float
            C.str
            D.else

            發布:2025/1/2 11:0:1組卷:0引用:0難度:0.4
          • 2.一球從100米高度自由落下,每次落地后反跳回原高度的一半,再下落。編寫一個C程序,求它在第10次落地時,其經過了多少米?第10次反彈多高?

            發布:2025/1/2 11:0:1組卷:1引用:3難度:0.3
          • 3.利用海倫公式求解三角形面積。已知a,b,c為三角形的三條邊長,p為三角形的半周長,即p=(a+b+c)/2,計算此三角形面積S的海倫公式為:。不要更改程序結構,將題中的①②③填入正確的語句。
            import math#導入數學模塊
            def hl(a,b,c):#定義求三角形面積的函數
            p=①
            s=math.jye.ai(②)#sqrt用于計算算術平方根
            return ③#返回面積的值
            a,b,c=3,4,5#邊長依次賦值
            print(“此三角形的面積S為:“,hl(a,b,c))
            (1)序號①答案為
             

            A. (a+b+c)/2                              B.p*(p-a)*(p-b)*(p-c)
            C. (a+b+c)*2                              D.s
            (2)序號②答案為
             

            A.(a+b+c)/2                              B.p*(p-a)*(p-b)*(p-c)
            C.(a+b+c)*2                                D.(3+4+5)/2
            (3)序號③答案為
             

            A.p                                          B.s
            C.p*(p-a)*(p-b)*(p-c)                  D.0

            發布:2025/1/2 11:0:1組卷:0引用:0難度:0.4
          APP開發者:深圳市菁優智慧教育股份有限公司| 應用名稱:菁優網 | 應用版本:5.0.7 |隱私協議|第三方SDK|用戶服務條款
          本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯系并提供證據,本網將在三個工作日內改正