2014安徽VB二級(jí)考試綜合應(yīng)用

1、綜合應(yīng)用1. 已知考生文件夾中有工程文件menu1.vbp， 其中含有一個(gè)名稱為 “ menu1 ” 的窗體文件menu1.frm，要求在其中：1. 建立菜單，格式與內(nèi)容如下：調(diào)試(d) 數(shù)據(jù)處理逐語句計(jì)算退出 ctrl+x 其中，括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程calculate的功能是：求 s=1+(1+2)+(1+2+3)+ +(1+2+3+n)的值。請(qǐng)根據(jù)題意在 “ *question*” 下面的下劃線處填入正確內(nèi)容后，再刪除

2、下劃線，使該過程能夠正確運(yùn)行，不準(zhǔn)增加或減少程序行。 3.“ 計(jì)算” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate，“ 退出” 菜單項(xiàng)的click()事件執(zhí)行 end語句，其它菜單和子菜單不執(zhí)行任何操作。4 調(diào) 試 運(yùn) 行 并 生 成 可 執(zhí) 行 程 序 ：menu1.exe。解 ： 下 列 程 序 的 功 能 是 ： 求s=1+(1+2)+(1+2+3)+ +(1+2+3+ +n)的值。public sub calculate() dim n as integer, s as integer s = 0 n = 10 for i = 1 to n *question

3、* 內(nèi)循環(huán)上限for j = 1 to _i_ *question* 求和s = _s+j_ next j next i menu1.print s end sub 2.已知考生文件夾中有工程文件menu1.vbp，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 排序(s) 數(shù)據(jù)處理升序計(jì)算退出 ctrl+x 其中, 括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵；：復(fù)選標(biāo)記； ctrl+x：設(shè)置為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程ca

4、lculate的功能是：一只小球從 10米高度上自由落下，每次落地后反彈回原高度的 40，再落下。編程計(jì)算小球在第 8次落地時(shí)，共計(jì)經(jīng)過了多少米。 3.“ 計(jì)算” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate， “ 退出 ” 菜單項(xiàng)的click()事件執(zhí)行 end 語句，其它菜單和子菜單不執(zhí)行任何操作。 4 調(diào)試運(yùn)行并生成可執(zhí)行程序： menu1.exe。解：下列程序的功能是： 一只小球從 10 米高度上自由落下，每次落地后反彈回原高度的 40，再落下。編程計(jì)算小球在第8 次落地時(shí)，共計(jì)經(jīng)過了多少米。public sub calculate() h = 10 sum

5、=10 第 1 次下落高度*question* 求余下 7 次往返高度for i = 1 to _7_h = 0.4 * h *question* 計(jì)算總高度sum = sum + _ 2*h_ next i menu1.print 小球第 8 次落地時(shí)，共經(jīng)過了 ; sum; 米 end sub 3.已知考生文件夾中有工程文件menu1.vbp ，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中：1.建立菜單，格式與內(nèi)容如下：文件 (f) 數(shù)據(jù)處理打開計(jì)算退出ctrl+x 其中 ,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為fgt， 其它菜單和子菜單的名稱與標(biāo)題相同，但

6、不含熱鍵；ctrl+x ：設(shè)置為快捷鍵。2. 將考生文件夾下的模塊文件cdmk.bas 添加進(jìn)本工程，其中的過程calculate的功能是：在窗體上繪制如下圖所示的sin曲線圖案。過程中有2條語句需要完善，請(qǐng)根據(jù)題意在“ *question*” 下面的下劃線處填入正確內(nèi)容后，再刪除下劃線，使該過程能夠正確運(yùn)行，不準(zhǔn)增加或減少程序行。3. “ 計(jì)算 ” 菜單項(xiàng)的 click() 事件調(diào)用模塊中的子程序過程 calculate， “ 退出 ” 菜單項(xiàng)的 click() 事件執(zhí)行end語句，其它菜單和子菜單不執(zhí)行任何操作。解：下列程序的功能是： 在窗體上繪制 sin函數(shù)曲線。public sub c

7、alculate() const pi = 3.14159 menu1.cls *question* 定義坐標(biāo)原點(diǎn)位于窗體中央，窗體寬度為16，高度為 4 menu1.scale (-8, 2)-(_) menu1.line (-7.5, 0)-(7.5, 0) menu1.line (0, 1.1)-(0, -1.1) 畫 x 軸與y 軸for i = -7 to 7 在 x 軸上標(biāo)記坐標(biāo)刻度，線長(zhǎng)0.1 menu1.line (i, 0)-(i, 0.1) menu1.currentx = i - 0.2 menu1.currenty = -0.1 menu1.print i next i

8、 menu1.currentx = -2 * pi menu1.currenty = 0 for i = -2 * pi to 2 * pi step 0.001 x = i *question* 計(jì)算函數(shù)值y = _ menu1.line -(x, y), qbcolor(12) 畫 sin 曲線，紅色next i end sub 4.已知考生文件夾中有工程文件menu1.vbp ，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 插入 (c) 數(shù)據(jù)處理圖片計(jì)算退出 ctrl+x 其中 ,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為

9、fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程calculate的功能是：隨機(jī)產(chǎn)生 10個(gè)020之間（包括 0和20）不重復(fù)的正整數(shù)。 3.“ 計(jì)算” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate，“ 退出” 菜單項(xiàng)的click()事件執(zhí)行 end語句，其它菜單和子菜單不執(zhí)行任何操作。解：下列程序的功能是：隨機(jī)產(chǎn)生10 個(gè) 020之間（包括 0和 20）不重復(fù)的正整數(shù)。public sub calculate() dim a(1 to 10) as inte

10、ger dim i as integer, j as integer dim x as integer, yes as integer for i = 1 to 10 do *question* 產(chǎn)生 020 之間的隨機(jī)數(shù)x = int(_rnd*21_) yes = 0 for j = 1 to i - 1 if x = a(j) then yes = 1: exit for next j *question* 循環(huán)條件loop while _yes=1_ a(i) = x next i menu1.print 10 個(gè)數(shù)是： for i = 1 to 10 menu1.print a(i)

11、; next i end sub 5.已知考生文件夾中有工程文件menu1.vbp，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 插入(c) 數(shù)據(jù)處理批注計(jì)算退出 ctrl+x 其中, 括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程calculate的功能是：推算一個(gè)階梯的階數(shù)，該階梯每步跨2階，最后剩 1階；每步跨 3階，最后剩 2階；每步跨 4階，最后剩 3階；每步跨 5階

12、，則恰好走完。請(qǐng)根據(jù)題意在 “ *question*” 下面的下劃線處填入正確內(nèi)容后，再刪除下劃線，使該過程能夠正確運(yùn)行，不準(zhǔn)增加或減少程序行。 3.“ 計(jì)算 ” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate，“ 退出 ” 菜單項(xiàng)的click()事件執(zhí)行 end 語句，其它菜單和子菜單不執(zhí)行任何操作。4 調(diào) 試 運(yùn) 行 并 生 成 可 執(zhí) 行 程 序 ：menu1.exe。解：下列程序的功能是：推算一個(gè)階梯的階數(shù)。public sub calculate() dim n as integer *question* 循環(huán)變量步長(zhǎng)for n = 5 to 100 step

13、 _ 5_ *question* 題目給的條件if _n mod 2=1 and n mod 3=2 and n mod 4=3_ then menu1.print 該階梯的階數(shù)是： & n exit for end if next n end sub6.已知考生文件夾中有工程文件menu1.vbp ，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 插入 (c) 數(shù)據(jù)處理書簽計(jì)算退出 ctrl+x 其中 ,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置

14、為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程calculate的功能是：統(tǒng)計(jì)一個(gè)數(shù)字字符串中各數(shù)字字符出現(xiàn)的次數(shù)。 3.“ 計(jì)算” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate，“ 退出” 菜單項(xiàng)的click()事件執(zhí)行 end語句，其它菜單和子菜單不執(zhí)行任何操作。4調(diào)試運(yùn)行并生成可執(zhí)行程序：menu1.exe。解：下列程序的功能是：統(tǒng)計(jì)一個(gè)數(shù)字字符串中各數(shù)字字符出現(xiàn)的次數(shù)。public sub calculate() dim n(9) as integer, s as string dim i as integer, j as

15、integer, c as string s = inputbox( 請(qǐng)輸入一串?dāng)?shù)字 :) for i = 1 to len(s) *question* 逐個(gè)取數(shù)字字符 c = mid(s,i,1) if c = 0 and c 0 then menu1.print 數(shù)字 & i & 出現(xiàn)的次數(shù)為 & n(i) end if next i end sub 7.已知考生文件夾中有工程文件menu1.vbp，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 插入(c) 數(shù)據(jù)處理引用計(jì)算退出 ctrl+x 其

16、中, 括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置為快捷鍵。 2. 將考生文件夾下的模塊文件cdmk.bas添加進(jìn)本工程，其中的過程calculate的功能是：找出 10009999中滿足倒序后得到的數(shù)字是原數(shù)字倍數(shù)的數(shù)。請(qǐng)根據(jù)題意在 “ *question*” 下面的下劃線處填入正確內(nèi)容后，再刪除下劃線，使該過程能夠正確運(yùn)行，不準(zhǔn)增加或減少程序行。4 調(diào) 試 運(yùn) 行 并 生 成 可 執(zhí) 行 程 序 ：menu1.exe。解： 下列程序的功能是：找出10009999中滿足倒序后得到的數(shù)字是原數(shù)字倍數(shù)的數(shù)。public sub

17、calculate() dim n as integer, i as integer, m as integer for i = 1000 to 9999 m = 0 n = i do while n 0 *question* 求 n的逆序，存入m m = m * 10 + n mod 10_ n = n 10 loop *question* 判斷是否是倍數(shù) if m mod i =0 and m i 1 then menu1.print m & = & i & * & m i end if next i end sub 8. 已知考生文件夾中有工程文件menu

18、1.vbp ，其中含有一個(gè)名稱為“ menu1 ” 的窗體文件menu1.frm, 要求在其中： 1. 建立菜單，格式與內(nèi)容如下: 插入 (c) 數(shù)據(jù)處理文件計(jì)算退出 ctrl+x 其中 ,括號(hào)內(nèi)的字符為熱鍵；分隔條的名稱為 fgt ，其它菜單和子菜單的名稱與標(biāo)題相同，但不含熱鍵； ctrl+x：設(shè)置為快捷鍵。 2.將考生文件夾下的模塊文件cdmk.bas 添加進(jìn)本工程，其中的過程calculate的功能是：隨機(jī)產(chǎn)生一個(gè)四位正整數(shù)，計(jì)算并輸出該數(shù)各位數(shù)字之和。請(qǐng)根據(jù)題意在 “ *question*” 下面的下劃線處填入正確內(nèi)容后，再刪除下劃線，使該過程能夠正確運(yùn)行，不準(zhǔn)增加或減少程序行。 3.“ 計(jì)算” 菜單項(xiàng)的 click()事件調(diào)用模塊中的子程序過程 calculate，“ 退出” 菜單項(xiàng)的click()事件執(zhí)行 end語句，其它菜單和子菜單不執(zhí)行任何操作。4 調(diào) 試 運(yùn) 行 并 生 成 可 執(zhí) 行 程 序 ：menu1.exe。解： 該模塊的功能是： 隨機(jī)產(chǎn)生一個(gè)四位正整數(shù)，計(jì)算并輸出一個(gè)四位整數(shù)各位數(shù)字之和. publ