vb等級考試題目與評析53-資料下載頁
2025-08-26 16:52本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。和Option3，然后通過屬性窗口設(shè)置窗體和單選按鈕的屬性，為Command1和VScroll1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊命。如果移動(dòng)垂直滾動(dòng)條的滾動(dòng)框，則在窗體上顯示滾動(dòng)框的位置值。不得使用任何變量。新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后。OptionButton的Caption屬性，并將Option1的value屬性值設(shè)置為True，Option2的Enabled屬性值為False；按要求保存文件即完成本題。滾動(dòng)條的Max、Min屬性值表。示滑塊處于滾動(dòng)條最大、最小位置時(shí)所代表的值，Value屬性代表滑塊所在位置滾動(dòng)條的當(dāng)前值。個(gè)整數(shù)中小于500的所有整數(shù)之和。去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其實(shí)現(xiàn)上述。最后把修改后的文件按原文件名。在考生文件夾下有一個(gè)工程文件，相應(yīng)的窗體文件為，本題的考查的是數(shù)組和隨機(jī)函數(shù)的用法。題目要求通過隨機(jī)函數(shù)Rnd產(chǎn)生20個(gè)0～1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)。內(nèi)所有偶數(shù)的平方和，并在文本框中顯示出來。能，但不能修改程序中的其他部分。
【正文】 rite 不允許其他進(jìn)程寫該文件 Lock Read Write 不允許其他進(jìn)程讀寫該文件 “文件號”是 1到 511之間的某個(gè)整數(shù)，對打開文件的各種操作要靠文件號來與文件發(fā)生關(guān)系。 “記錄長度”對于隨機(jī)方式打開的文件，指記錄長度；對于順序文件，指緩沖字符數(shù)。 Input 語句 用來讀取順序文件的數(shù)據(jù)。語法為： Input 文件號，變量列表 Print 語句 用來把數(shù)據(jù)寫入順序文件。語法為： Print 文件號， [[Spc（ n)|Tab（ n)] [表達(dá)式列表 ] [。|,]] Spc（ n)函數(shù)用來在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用 來設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 分號表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號表示在當(dāng)前寫入的數(shù)據(jù)后換行。 Close語句 用來關(guān)閉一個(gè)被打開的文件。語法為： Close 文件號 解題方法： 打開工程文件 ，輸入如下的代碼： Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(1 To N, 1 To M) As Integer Dim i, j Open amp。 \ amp。 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 Print Tab(5 * j)。 Mat(i, j)。 Next j Print Next i Print: Print Print 右上 左下對角線上的數(shù)為 ： For i = 1 To N For j = 1 To M If i + j = 6 Then Print Tab(5 * i)。 Mat(i, j)。 End If Next j Next i End Sub 按要求進(jìn)行操作并保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號-1