存儲簡單幾何圖形(正方形、長方形和三角形)數(shù)據(jù)的方法描述如下:
1)使用特征數(shù):1表示正方形、2表示長方形、3表示三角形;
2)正方形只用1個(gè)正整數(shù)表示邊長、長方形用2個(gè)正整數(shù)分別表示它的長與寬、三角形用3個(gè)正整數(shù)分別表示其三邊的長;
3)數(shù)據(jù)的開頭是一個(gè)正整數(shù)n,表示接下來共有n個(gè)簡單幾何圖形的信息;所有原始數(shù)據(jù)都是合理的.如4,1,2,3,2,2,3,2,2,3,3,3,4,5,表示共有4個(gè)簡單幾何圖形,第一個(gè)為正方形:邊長為2;第二個(gè)為三角形:邊長分別為2,2,3;第三個(gè)為長方形:長和寬分別為2,3;第四個(gè)為三角形,三邊長分別為:3,4,5;
根據(jù)上述存儲方法,小龍編寫了一個(gè)計(jì)算所有簡單幾何圖形邊長之和的VB程序,功能如下:窗體加載時(shí),自動讀取數(shù)據(jù),依次存儲在數(shù)組元素a(1)、a(2)、a(3)…中.單擊“計(jì)算邊長之和”按鈕Commandl,程序?qū)?shù)據(jù)依次進(jìn)行分析計(jì)算,將計(jì)算結(jié)果顯示在文本框Text1中.
(1)如果數(shù)據(jù)為“5,1,2,3,2,2,3,2,2,3,1,5,2,8,9”,則三角形共有 11個(gè).
(2)實(shí)現(xiàn)上述功能的VB程序如下.請?jiān)跈M線處填入合適代碼.
Dim a(1 To 10000)As Long'存儲簡單幾何圖形的原始數(shù)據(jù)
Private Sub Form_Load( ?。?br />'本過程用于讀取簡單幾何圖形的原始數(shù)據(jù),相關(guān)數(shù)據(jù)存儲在數(shù)組a中
‘代碼略
End Sub
Private Sub Command1_Clici( ?。?br />Dim n As Long i As Long,s As Long,k As Long
n=①①
s=0
For i=1 To n
If a(k)=1 Then
s=s+4*a(k+1)
k=k+2
Elself a(k)=2 Then
s=s+②②
k=k+3
Else
s=s+a(k+1)+a(k+2)+a(k+3)
③③
End If
Next i
Text1.Test=Str(s)
End Sub.
【考點(diǎn)】編輯事件處理過程的代碼.
【答案】1;①;②;③
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:2引用:1難度:0.3
相似題
-
1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M(jìn)行處理,統(tǒng)計(jì)出各個(gè)分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運(yùn)行界面如右圖所示。
實(shí)現(xiàn)上述功能的Python程序如下,請?jiān)趧澗€處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( ?。?/h2>發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個(gè)單窗體VB程序的運(yùn)行界面如圖所示。下列說法正確的是( )
(1)窗體內(nèi)有1個(gè)按鈕
(2)窗體內(nèi)有2個(gè)文本框
(3)窗體內(nèi)有3個(gè)標(biāo)簽
(4)該窗體的標(biāo)題(Caption)屬性值是“加法計(jì)算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~