要求編寫一個(gè)“統(tǒng)計(jì)直角三角形的個(gè)數(shù)”的程序，功能如下：在文本框Text1中依次輸入3*N個(gè)數(shù)表示三角形的邊長(zhǎng)（用逗號(hào)分隔并以逗號(hào)結(jié)尾），單擊“計(jì)算”按鈕Command1后，程序統(tǒng)計(jì)直角三角形個(gè)數(shù)，并在標(biāo)簽Label1中顯示。程序運(yùn)行界面如圖1所示。
PrivateSubCommand1_Click （ ）
DimiAsInteger,jAsInteger,kAsInteger
Dimx1AsSingle,x2AsSingle,x3AsSingle,tAsSingle
DimTotaldAsInteger,vAsSingle,sAsString
s=Text1.Text
k=0：j=1：Totald=0
Fori=1ToLen（s）
IfMid（s,i,1）=″，″Then
v=Val（Mid（s,j,i-j））'提取三角形邊長(zhǎng)，保存在變量v中
①
IfkMod3=1Then
x1=v
ElseIfkMod3=2Then
x2=v
Ifx1＜x2Thent=x1：x1=x2：x2=t
Else
x3=v
Ifx1＜x3Thent=x1：x1=x3：x3=t
If②ThenTotald=Totald+1
EndIf
EndIf
Nexti
Label1.Caption=″一共構(gòu)成″+Str（Totald）+″個(gè)直角三角形″
EndSub
（1）請(qǐng)?jiān)冖佗跈M線處補(bǔ)充合適的代碼。
（2）加框處代碼有誤，請(qǐng)改正。
（3）觀察程序代碼，若正確完成（1）、（2）后，調(diào)試過程中出現(xiàn)如圖2錯(cuò)誤提示，可能是程序代碼執(zhí)行到第5或245或24行報(bào)錯(cuò)。
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存．
【答案】5或24
【解答】
【點(diǎn)評(píng)】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：0引用：2難度：0.5
相似題
-
1．有如下VB程序段：
執(zhí)行該程序段后，變量c的值是（ ?。?/h2>發(fā)布：2024/12/16 5:0:1組卷：1引用：2難度：0.3 -
2．小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”（如圖所示）進(jìn)行簡(jiǎn)單處理，部分代碼如圖：
程序執(zhí)行后的圖像效果是（ ?。?/h2>發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4 -
3．由大寫字母組成的長(zhǎng)度相同的兩個(gè)字符串s1和s2，檢測(cè)各字母的數(shù)量，如“ABDAC”與“AABCD”所含字母數(shù)量一樣，與“AABBC”所含字母數(shù)量不一樣。實(shí)現(xiàn)該功能的VB程序段如下：
填空處的代碼可以由以下部分組成：
①Text2.Text ②val（Text2.Text） ③b（a）=b（a）+1 ④b（a）=b（a）-1 ⑤b（i）＜＞0⑥b（i）=0
代碼順序正確的是（ ?。?/h2>發(fā)布：2024/12/16 9:30:1組卷：3引用：3難度：0.4
把好題分享給你的好友吧~~