[多項選擇題] 在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個命令按鈕和一個文本框,命令按鈕的名稱分別為Cmd1和Cmd2,標題分別為“計算”和“存
[多項選擇題] 在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個命令按鈕和一個文本框,命令按鈕的名稱分別為Cmd1和Cmd2,標題分別為“計算”和“存盤”,文本框為空,如圖3—1所示。程序的功能是在運行時,單擊“計算”命令按鈕,系統(tǒng)隨機產(chǎn)生20個只有兩位數(shù)的正整數(shù),將其存入到一個數(shù)組中,再將這20個數(shù)相加的結(jié)果在文本框中顯示出來。單擊“存盤”命令按鈕,將相加的結(jié)果存入“out5.txt”文件中。
要求:去掉程序中的注釋符,把程序中的改為正確的內(nèi)容,使其實現(xiàn)上述功能。
注意:不能修改程序中的其他部分,也不能修改控件的其他屬性。最后把修改后的程序以原文件名存盤。
sjt5.frm文件內(nèi)容如下:
Option Base1
Dim sum As Integer Private Sub Cmd1_ClickO
Dim art(20)As Integer
’Dim f1 As
Randomize
arr(1)=Int (Rnd * 90)+10
’sum=
For i=2 To 20
Do
a=Int(Rnd * 90)+10
’f1=
For j=1 To i—1
If arr(j)=a Then f1=True:Exit For
Next j
Loop While f1
arr(i)=a
sum=sum+arr(i)
Next i
Text1. Text=sum
End SubPrivate Sub Cmd2_Click()
’Call WriteData(,sum)
End Sub Sub WriteData(Filen
正確答案:① 對象主要屬性設(shè)置如表E所示。表 E 對象
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。