vb等級(jí)考試題目與評(píng)析43-wenkub
2022-09-16 20:42:58 本頁(yè)面
【正文】 3）程序運(yùn)行后，單擊滾動(dòng)條兩端的箭頭時(shí)，滾動(dòng)框移動(dòng)的增量值為 2 4）程序運(yùn)行后，單擊滾動(dòng)框前面或后面的部位時(shí)，滾動(dòng)框移動(dòng)的增量值 為 10 5）滾動(dòng)框的初始位置為 100 程序的運(yùn)行情況如圖所示。 要求： 不要編寫(xiě)任何代碼。 程序的運(yùn)行情況如圖 2所示。再選中窗體，設(shè)置其 Caption屬性為“設(shè)置滾動(dòng)條屬性”。 其功能是產(chǎn)生 20個(gè) 0～ 1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這 20 個(gè)整數(shù)中大于 500的所有整數(shù)之和。最后把修改后的文件按原文件名 存盤(pán)。 要求： 請(qǐng)勿改動(dòng)程序中的任何內(nèi)容，只在 Function Fun()和 End Function之間 填入你編寫(xiě)的若干語(yǔ)句。打開(kāi)工程文件 體文件名為 ，在代碼窗口中補(bǔ)充如下代碼： Function Fun() Dim i As Integer Dim temp As Integer For i = 0 To 100 If i Mod 7 0 Then temp = temp + i End If Next i Fun = temp End Function 按要求保存文件即完成本題。 最后把修改后的文件按原文件名存 盤(pán)。在這種方式下，可以用 Get和 Put語(yǔ)句對(duì)文件中任意字節(jié)位置的信息進(jìn)行讀寫(xiě)。 Input 語(yǔ)句 用來(lái)讀取順序文件的數(shù)據(jù)。 分號(hào)表示后續(xù)寫(xiě)入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫(xiě)入；逗號(hào)表示在當(dāng)前寫(xiě)入的數(shù)據(jù)后換行。 For Input As 1 For i = 1 To N For j = 1 To M Input 1, Mat(i, j) Next j Next i Close 1 Print Print 初始矩陣為 ： Print For i = 1 To N For j = 1 To M
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1