回轉(zhuǎn)體體積計算課程設(shè)計報告-全文預(yù)覽
【正文】 ‘列表框清空 = ‘文本框內(nèi)容清空End SubPrivate Sub Command4_Click() ‘單擊退出事件 EndEnd SubPrivate Sub option1_Click(index As Integer) ‘顯示不同的圖片框，用于輸入不同的體素的尺寸 If Option1(1) Then ‘ 圓柱體的尺寸 = 底面直徑 = 圓柱高度 = False = False ElseIf Option1(2) Then ‘圓臺的尺寸 = 下底直徑 = 圓臺高度 = 上底直徑 = True = True = True ElseIf Option1(3) Then ‘圓錐體的尺寸 = 底面直徑 = 圓錐高度 = False = True = False ElseIf Option1(4) Then ‘球冠的尺寸 = 底面直徑 = 球冠高度 = False = False Else ‘球臺的尺寸 = 小端半徑 = 大端半徑 = False = FalseEnd IfEnd SubPrivate Sub Command5_Click() ‘單擊確定事件 Dim sd, xd, h, a, b As Singl
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1