【正文】
Mat(i, j)。 \ amp。|,]] Spc( n)函數(shù)用來(lái)在當(dāng)前的輸出位置加入 n個(gè)空白; Tab( n)函數(shù)用 來(lái)設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 “記錄長(zhǎng)度”對(duì)于隨機(jī)方式打開(kāi)的文件,指記錄長(zhǎng)度;對(duì)于順序文件,指緩沖字符數(shù)。 Binary 指定二進(jìn)制方式文件。 最后把修改后的文件按原文件名存 盤。雙擊命令按鈕打開(kāi)代碼窗口,在 Function Fun()和 End Function之間補(bǔ)充如下代碼: Function Fun() Dim i As Integer, sum As Long For i = 0 To 100 If i Mod 2 = 0 Then sum = sum + i * i End If Next i = sum End Function 按要求保存文件即完成本題。 第 1小題: 本題的考查的是數(shù)組和隨機(jī)函數(shù)的用法。程序運(yùn)行后,單擊命令按鈕,即 可計(jì)算出 0~ 100范圍內(nèi)所有偶數(shù)的平方和,并在文本框中顯示出來(lái)。這個(gè)程序不完整,請(qǐng)把它補(bǔ)充完 整,并能正確運(yùn)行。 在代碼窗口中添加如下代碼: Private Sub Command1_Click() = = 0 = 50 = 10 End Sub Private Sub VScroll1_Change() Print End Sub 按照題目要求保存文件即可完成本題。 按要求保存文件即完成本題。 要求: 不得使用任何變量。 *注意: 存盤時(shí)必須存放在考生文件夾下,工 程文件名為 ,窗體文件 名為 。1. 基本操作( 2小題,每小題 15分,共計(jì) 30分) 注意:下面出現(xiàn)的“考生文件夾”均為 C:\WEXAM\00000000\ ********************************************************************** 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì) Visual Basic應(yīng)用程序(包括界面和代碼)。 圖 1 圖 2 ***********