<span id="1jbx9"></span>
<strike id="1jbx9"><dl id="1jbx9"></dl></strike>
<strike id="1jbx9"></strike>
<strike id="1jbx9"></strike>
<span id="1jbx9"></span>
<ruby id="1jbx9"></ruby><strike id="1jbx9"><i id="1jbx9"></i></strike>
<ruby id="1jbx9"></ruby>
<strike id="1jbx9"><dl id="1jbx9"><cite id="1jbx9"></cite></dl></strike><span id="1jbx9"></span><strike id="1jbx9"><i id="1jbx9"></i></strike>
問答題庫

當前位置: 計算機等級考試題庫 > BASIC題庫

問題描述:

[填空題] 下列程序實現的功能是:當在窗體上單擊時,將隨機產生100個3位數,并把它們寫到D盤根目錄下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k As Integer Open 【13】 Randomize For i=1 To 10k=100+Int(899*Rnd) 【14】 Next i 【15】 End Sub

編寫如下兩個事件過程。 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在一般情況下(即不按住Shift鍵和鎖定大寫鍵時)運行程序,如果按“A”鍵,則程序輸出的結果是 語句PopupMenu PMENU,4 Or 2,,,PMENU3K中: 其中PMeNU表示 【14】 23 有如下程序段,該程序段循環的次數是______。Dim i As IntegerDim j As IntegerDim k As Integerk=0For i = 0 To 10 Step 3 For j = 1 To 5 If j > 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i > 8 Then Exit For Next i 以下程序用宋輸出20個在開區間(10,87)中的隨機整數R,每行輸出4個整數。請完善下列程序。 Private Sub Command1_Click()For I = 1 To 10 R = 【9】 Print R; If I Mod 4=0 Then PrintNext I End Sub 在Visual Basic中,用于管理文件系統的3個控件是文件列表框、目錄列表框和 【10】 。

點評難度:

      

您覺得難度如何呢?請反饋給我們,謝謝!

參考答案:

[AC]"d:myfilel.dat" For Random As #A0 [AD]Put#A0,i,k[AE]Close #A0

問題解析:

要使用文件,首先必須打開文件,本題沒有說明該文件是隨機文件還是順序文件,因此用隨機文件和順序文件均可以,本題以隨機文件處理為例。故[13]應填打開文件的語句,為“"d:myfilel.dat" For Random As #10”。打開文件后,本題通過一個For循環向文件中寫入數,該循環執行了10次,每一次產生一個三位數,并把該數寫到文件中去。向隨機文件寫入數據要用Put語句,故[14]處應填“Put #10,i,k”。文件讀寫完畢后,應關閉文件,所以[15]處應填“Close #10”。

試題分享:

相關考題

国产精品国产三级国产专区,大屁股大乳丰满人妻,中文字幕 日韩 无码 在线,日本不卡高清免费中文AV