小李用VB編寫(xiě)了一個(gè)VB程序,在文本框Text1中輸入任意字符床s,單擊命令按鈕Command1,統(tǒng)計(jì)s中以各連續(xù)數(shù)字字符串為一因子的數(shù)字之和。如輸入字符串“ast23bcde567fg8”,則輸出598,即23+567+8,并在Label2中輸出結(jié)果。程序界面如圖所示。代碼如下:
(1)若要將文本框的默認(rèn)值設(shè)置為空,則應(yīng)設(shè)置文本框的texttext屬性為空。
(2)為實(shí)現(xiàn)上述功能的VB程序,請(qǐng)?jiān)跈M線(xiàn)處填寫(xiě)合適的代碼。
Private Sub Command1_Click ( )
Dim s,c As String
Dim n,num,sum As Integer
s=Text1.Text
n=Len(s)
For i=1 To n
c=Mid(s,i,1)Mid(s,i,1)
If Not (c>=″0″And c<=″9″) Then
sum=sum+num
num=00
Else
num=num*10+val(c)num*10+val(c)
End If
Next i
Label2.Caption=Str(sum)
End Sub
(3)若將加框處代碼去除,輸入字符串“ast23bcde567fg8”,則程序運(yùn)行后顯示的結(jié)果是590590。
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存.
【答案】text;Mid(s,i,1);0;num*10+val(c);590
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書(shū)面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/4/20 14:35:0組卷:0引用:1難度:0.5
相似題
-
1.大部分社交軟件都有好友推薦的功能,當(dāng)用戶(hù) A 和用戶(hù) B 的共同好友數(shù)量超過(guò)閾值 p 時(shí),由系統(tǒng)向用戶(hù) A 推薦用戶(hù) B。
編寫(xiě) VB 程序,實(shí)現(xiàn)好友推薦功能。運(yùn)行程序,列表框 Listl 中顯示用戶(hù) id 及好友列表,在文本框 Textl 中 輸入推薦目標(biāo)用戶(hù) id,在文本框 Text2 中輸入閾值 p,點(diǎn)擊“推薦”按鈕,在列表框List2 中顯示用戶(hù)之間的關(guān)系,在標(biāo)簽 Label5 中顯示向目標(biāo)用戶(hù)推薦的好友列表。程序運(yùn)行界面如圖:
(1)根據(jù)如圖所示數(shù)據(jù),若輸入用戶(hù) id 為“3”,輸入閾值為“3”,則推薦好友為:
(2)實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。發(fā)布:2025/1/2 10:30:2組卷:0引用:1難度:0.3 -
2.某學(xué)校開(kāi)展了藝術(shù)節(jié)活動(dòng),數(shù)組a中存儲(chǔ)了n個(gè)節(jié)目的編號(hào)和得分?jǐn)?shù)據(jù),數(shù)組存儲(chǔ)結(jié)構(gòu)如圖所示:
小明使用選擇排序思想對(duì)上述n個(gè)節(jié)目按得分進(jìn)行降序排序(得分相同的按編號(hào)升序排列),并依據(jù)得分插入各個(gè)節(jié)目的排名信息,處理后數(shù)組a的存儲(chǔ)結(jié)構(gòu)如圖所示:
程序運(yùn)行時(shí),單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中,單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進(jìn)行排序,并將排名結(jié)果顯示在列表框List2中。
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問(wèn)題:
(1)已知窗體名稱(chēng)為Forml,要使程序加載時(shí),窗體標(biāo)題自動(dòng)顯示為“第15題程序”,則可在
(2)請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
(3)加框處代碼有誤,請(qǐng)改正。發(fā)布:2025/1/2 10:30:2組卷:0引用:1難度:0.3 -
3.小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”(如圖所示)進(jìn)行簡(jiǎn)單處理,部分代碼如圖:
程序執(zhí)行后的圖像效果是( )發(fā)布:2024/12/20 9:30:2組卷:3引用:5難度:0.4