[問答題] 在考生文件夾下有一個工程文件stj3.vbp,相應(yīng)的窗體文件為stj3.frm。在窗體上有一個名稱為Command1、標(biāo)題為“計(jì)
[問答題] 在考生文件夾下有一個工程文件stj3.vbp,相應(yīng)的窗體文件為stj3.frm。在窗體上有一個名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕;兩個水平滾動條,名稱分別為Hscroll1和Hscroll2,其Max屬性均為100,Min屬性均為1;四個標(biāo)簽,名稱分別為Lable1、Lable2、Lable3和Lable4,標(biāo)題分別為“運(yùn)算數(shù)1”、“運(yùn)算數(shù)2”、“運(yùn)算數(shù)結(jié)果”和空白;此外還有一個包含有四個單選按鈕的控件數(shù)組,名稱為Option1,標(biāo)題分別為“+”、“-”、“*”、“/”,如圖所示。程序運(yùn)行后,移動兩個滾動條中的滾動框,用滾動條的當(dāng)前值作為運(yùn)算數(shù),如果選中一個單選按鈕,然后單擊命令按鈕,相應(yīng)的計(jì)算結(jié)果將顯示在Lable4中,程序運(yùn)行情況如圖所示。這個程序不完整,請把它補(bǔ)充完整,并能正確運(yùn)行。試題源程序:1 Private Sub Command1_Click( )2 For i=0 To 33 If =True Then4 opt=Option1(i).Caption5 End If6 Next7 Select Case8 Case "+"9 Result=HScroll1.Value+HScroll2.Value10 Case "-"11 Result=HScroll1.Value-HScroll2 Value12 Case "*"13 Result=HScroll1.Value*HScroll2.Value14 Case "/"15 Result=HScroll1.Value/HScroll2.Value16 End Select17 Label4.
正確答案:(1)啟動VB程序,打開考生文件夾下的工程文件stj3.vbp。(2)雙擊窗體的任意位置,進(jìn)入代碼編輯窗口,完善程序如下:1 Private Sub Command1_Click( )2 For i=0 To 33 If Option1(i).Value=TrueTheni. opt=Option1(i).Caption4 End If5 Next6 Select Case opt7 Case "+"8 Result =HScroll1.Value +HScroll2.Value9 C
參考解析:(1)OptionButton控件的Value屬性,返回或設(shè)置控件的狀態(tài),True表示已選擇了該按鈕;False(缺省值)表示沒有選擇該按鈕。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。