[填空題] 在窗體上先畫一個(gè)名為Text1的文本框和—個(gè)名為L(zhǎng)abel1的標(biāo)簽，再畫—個(gè)名為Op1的有4個(gè)單選按鈕的單選按鈕選項(xiàng)組，其Index屬性按季度順序?yàn)?～3(見圖1)。在文件sales.txt中按月份順序存有某企業(yè)某年12個(gè)月的銷售額。要求在程序執(zhí)行時(shí)，鼠標(biāo)單擊—個(gè)單選按鈕，則Text1中顯示相應(yīng)季度的銷售總額，并把相應(yīng)的文字顯示在標(biāo)簽上。圖2是單擊“第三季度”單選按鈕所產(chǎn)生的結(jié)果。請(qǐng)?zhí)羁铡?Dim sales(12) As Long Private Sub Form_load() Open "sales.txt" For Input As #1 Fork=1 To 12 Input #1,sales(k) Next k Close #1 End Sub Private Sub 【12】 (Index As Integer) Dim sum As Long,k As Integer,month As Integer sum=0 month=Index* 【13】 For k=1 To 3 month=month+1 sum=sum+sales(month) Next K Label1.Caption=Op1(Index). 【14】 &"銷售總額" Text1=sum End Sub

[12] Op1_Click

[13] 3 [14] Caption[評(píng)析] 本題是要求鼠標(biāo)單擊哪個(gè)單選按鈕，則Text1中顯示相應(yīng)季度的銷售總額，所以該題的第1空應(yīng)該填 Op1 Click。一年有十二個(gè)月，分四個(gè)季度，每3個(gè)月是1個(gè)季度，所以該題的第2空應(yīng)該填3。Caption屬性表示控件中顯示的內(nèi)容，所以該題的第3空應(yīng)該填Caption。