影音先锋AⅤ天堂资源站,13小箩利洗澡无码视频APP,午夜理论片日本中文在线,最近新免费韩国日本电影

萬能百科  > 計算機?  > 

[多項選擇題] 在考生文件夾下有一個工程文件sjt5.vbp,窗體上有兩個命令按鈕和一個文本框,命令按鈕的名稱分別為Cmd1和Cmd2,標題分別為“計算”和“存

2021-07-20   

[多項選擇題] 在考生文件夾下有一個工程文件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è)人士。

標簽

<蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>