vb等級(jí)考試題目與評(píng)析27-wenkub.com
2024-08-31 16:53 本頁(yè)面
【正文】 打開代碼窗口，輸入如下的代碼： Private Sub C1_Click（ ) ReadData1 ReadData2 End Sub Private Sub C2_Click（ ) Dim arr3（ 20) As Integer Sum = 0 For i = 1 To 20 arr3（ i) = Int（ Arr1（ i) / 10) * Int（ Arr2（ i) / 10) Sum = Sum + arr3（ i) Next Print Sum End Sub 在上面的程序段中，通過循環(huán)將數(shù)組 Arr1和 Arr2的值訪問一遍，通過 arr3（ i) = Int（ Arr1（ i) / 10) * Int（ Arr2（ i) / 10)一句將數(shù)組 Arr1和 Arr2中下標(biāo)相同的元素分別除以 10，然后取整，再把兩個(gè)取整后的數(shù)的乘積賦值給 arr3（ i)；通過 Sum = Sum + arr3（ i)一句累加出數(shù)組 arr（ 3)中所有元素的和。|,]] Spc（ n)函數(shù)用來在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用來設(shè)置在第 n個(gè)位置寫入數(shù)據(jù)。 “記錄長(zhǎng)度”對(duì)于隨機(jī)方式打開的文件，指記錄長(zhǎng)度；對(duì)于順序文件，指緩沖字符數(shù)。 Binary 指定二進(jìn)制方式文件。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序。程序運(yùn)行后，如果 單擊“讀入數(shù) 據(jù)”按鈕，則讀入 20個(gè) 整數(shù)， 分別放入兩個(gè)數(shù)組中；如果單擊“計(jì)算“按鈕，則把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的 元素除以 10并截尾取整后相乘，其結(jié)果放入第三個(gè)數(shù)組中（即：把第一個(gè)數(shù) 組的第 n個(gè)元素除以 10截尾取整，再把第二個(gè)數(shù)組的第 n元素除以 10 截尾 取整，兩者相乘后的結(jié)果作為第三個(gè)數(shù)組的第 n個(gè)元素。 點(diǎn)擊工具箱中的 Label控件圖標(biāo)，然后在窗體 上拖拉出一個(gè)標(biāo)簽控件，通過屬性窗口設(shè)置其 Name屬性為“ Lab1” ,Width屬性為 2020， Height屬性為 375。 點(diǎn)擊工具箱中的 Label控件圖標(biāo)，然后在窗體上拖拉出一個(gè)標(biāo)簽控件，通過屬性窗口設(shè)置其 Name屬性為“ Lab1” ,Width屬性為 3000， Height屬性為 375。 設(shè)置單選按鈕 Value屬性的語(yǔ)法是： 單選按鈕名 .Value = True（ 1)或 False（ 0) 由于 Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時(shí)候，可以省略屬性名。 注意：不得修改已經(jīng)給出 的程序。然后畫一個(gè)標(biāo)簽，其名稱為 Lab1，高度為 375，寬度為 2020。存盤時(shí)，工程文件名為 ，窗體文件名 為 。在 F2中畫兩個(gè)單選按鈕，名稱分別為 Op3和 Op4，標(biāo)題分別為“廣州”和“昆 明”。 點(diǎn)擊工具箱中的 CommandButton控件圖標(biāo)，然后在窗
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1