[填空題] 本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于—次投幣，1代表正面，0代表反面。在窗體上有三個(gè)文本框，名稱分別是Text1、Text2、Text3，分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運(yùn)行后，在文本框Text1中輸入總次數(shù)，然后單擊“開(kāi)始”按鈕，按照輸入的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡? Private Sub Command1_Click( ) Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To 【6】 r=Int(Rnd*2) If r= 【7】 Then n1=n1+1 Else n2=n2+1 End If Next Tcxt2.Text=n1 Text3.Text=n2 End Sub

[6]n或CInt(Text1.Text)或CInt(Text1)或Text1.Text或Val(Text1.Text)或Val

(Text1)或Text1 [7]1 [6]由于執(zhí)行次數(shù)由n決定，故For i循環(huán)的終值為n，即總次數(shù)有多少，就要執(zhí)行多少次For i循環(huán)。所以本處填：n或其他等價(jià)項(xiàng)目。 “Rnd*2”隨機(jī)產(chǎn)生0與1之間的數(shù)，Int函數(shù)對(duì)“Rnd*1”的返回值只有0與1兩種情況。由于Text2用來(lái)接受正面(即1)的次數(shù)，故在[7]處要填1，即當(dāng)“r=1”時(shí)，變量n1加一次。