全國vb上機題參考答案

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：168 大?。?.27MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩167頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　全國計算機等級考試二級VB上機題參考答案（70）　　第1套　　一、基本操作　　第1小題:　　新建一個名為Form1的窗體，單擊工具箱中的

2、TextBox控件圖標(biāo)，然后在窗體上拖拉出一個文本框；單擊"工具"菜單中的"菜單編輯器"命令，打開菜單編輯器。在"標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點擊"下一個"按鈕，再點擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，

3、在"名稱"欄中輸入"Dis"；點擊"下一個"按鈕，在"標(biāo)題"欄中輸入"退出"，在"名稱"欄中輸入"Exit"。　　打開代碼窗口，輸入如下的代碼：sjt3.frm　　Private Sub Dis_Click()<

4、;/p>　　Text1.Text = "等級考試" '單擊"操作"菜單中的"顯示"命令，在文本框Text1中顯示等級考試　　End Sub　　-------------------------------

5、-------------　　Private Sub Exit_Click()　　End '單擊"操作"菜單中的"退出"命令，結(jié)束程序　　End Sub&l

6、t;p>　　按要求保存文件即完成本題。　　第2小題： 　　新建一個窗體，點擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框，通過屬性窗口設(shè)置其Name屬性為"L1"，通過設(shè)置List屬性為列表框添加"AAAA"、"BBBB"、"

7、;CCCC"和"DDDD"四個列表項。　　打開代碼窗口，輸入如下的代碼：sjt4.frm　　Private Sub L1_Click()　　L1.RemoveItem ListIndex '單擊列表框L1中的某一項，將此項從列表框L1中刪除</p

8、>　　End Sub　　按要求保存文件即完成本題。　　二、簡單應(yīng)用　　第1小題:　　本題主要考查了計時器控件的屬性、滾動條控件的屬

9、性和LoadPicture函數(shù)。　　1、計時器控件的Interval屬性　　返回或設(shè)置對Timer控件的計時事件各調(diào)用間的毫秒數(shù)。　　2、滾動條控件的Value屬性　　該屬性值表示滾動框在滾動條上的當(dāng)前位置。如果在程序中設(shè)置該值，則把滾動框移到相應(yīng)的位置。</p&g

10、t;　　3、LoadPicture函數(shù)　　用來將圖形載入到窗體的Picture屬性、PictureBox 控件或Image控件。其語法為：　　對象名.Pictuer=LoadPictuer("文件名")　　解題方法：

11、;　　本題中滾動條的HScroll1的Change事件控制當(dāng)滾動框的位置改變后，計時器的時間間隔也發(fā)生變化；計時器Timer1的Timer事件控制圖像框中的圖片的交替變更。　　修改后的代碼如下：按要求保存文件即完成本題。　?。?）wy5.frm　　第2小題： </b&

12、gt;　　本題主要考查了圖像框控件的屬性。　　Height屬性：用來指定圖像框的高度。 Width屬性：用來指定圖像框的寬度。　　解題方法：　　命令按鈕C1（即放大按鈕）的Click事件用來控制當(dāng)圖像框的寬和高都小于3000時，圖像框

13、的寬和高各增加500；命令按鈕C2（即縮小按鈕）的Click事件用來控制當(dāng)圖像框的寬和高都大于1000時，圖像框的寬和高各減少500。　　修改后的代碼如下：　?。?）wy6.frm　　三、綜合應(yīng)用

14、　　本題主要考查了文件的輸入輸出和列表框的屬性。　　1、Open語句　　Open語句用來打開或建立一個文件，其語法為：　　Open 文件名 [for 存取方式] [Access 操作方式] [鎖定] As [#]文件號 [Len=記錄長度]<p&

15、gt;　　參數(shù)說明：　　"存取方式"指文件的輸入輸出方式，可以是以下操作之一：　　Output指定順序輸出方式　　Input指定順序輸入方式　　Append指定順序輸出方式,與Output不同的是，用Append方

16、式打開文件時，文件指針定位于文件尾部，如對文件執(zhí)行寫操作，則寫入數(shù)據(jù)附加到原來文件的后面。　　2、Input #語句　　用來讀取順序文件的數(shù)據(jù)。語法為：　　Input #文件號，變量列表　　3、Print #語句　　用來把數(shù)據(jù)寫入

17、順序文件。語法為：　　Print #文件號，[[Spc(n)|Tab(n)] [表達式列表] [;|,]]　　Spc(n)函數(shù)用來在當(dāng)前的輸出位置加入n個空白；Tab(n)函數(shù)用來設(shè)置在第n個位置寫入數(shù)據(jù)。　　分號表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號表示在當(dāng)前寫入的數(shù)據(jù)后換行。

18、　　4、Close語句 　　用來關(guān)閉一個被打開的文件。語法為：　　Close #文件號　　5、列表框的Selected屬性　　在程序運行期間返回或設(shè)置在ListBox控件中的一個項的選擇狀態(tài)。該屬性是一個與List 屬性一樣、有相同項數(shù)的布爾值數(shù)組。&l

19、t;/p>　　6、列表框的ListIndex屬性　　在程序運行期間返回或設(shè)置控件中當(dāng)前選擇項目的索引。　　修改后的代碼如下：　　按照題目要求保存文件即完成本題。　　第2套

20、;　　一、基本操作　　第1小題:　　新建一個名為Form1的窗體，點擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個文本框；執(zhí)行"工具"菜單中的"菜單編輯器"命令，打開菜單編輯器。在&qu

21、ot;標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點擊"下一個"按鈕，再點擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，在"名稱"欄中輸入"Dis"；點擊"下一個"按鈕，在"標(biāo)題"欄中輸入"

22、;清除"，在"名稱"欄中輸入"Clea"。　　打開代碼窗口，輸入如下的代碼：Sjt1.frm　　Private Sub Clea_Click()　　Text1.Text = "" '單擊"操作"菜單中的&

23、quot;清除"命令，清空文本框Text1　　End Sub　　Private Sub Dis_Click()　　Text1.Text = "等級考試" '單擊"操作"菜單中的"顯示"命令，文

24、本框Text1中顯示等級考試　　End Sub　　按要求保存文件即完成本題。　　第2小題： 　　新建一個窗體，點擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個文本框，并設(shè)置其初始內(nèi)容為

25、空白；點擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框，通過屬性窗口設(shè)置其Name屬性為"L1"，通過設(shè)置List屬性為列表框添加"AAAA"、"BBBB"、"CCCC"和"DDDD"四個列表項。　　打開代碼窗口，輸入如下的代碼：Sjt2.frm<p

26、>　　Private Sub L1_DblClick()　　L1.AddItem Text1.Text '當(dāng)雙擊列表框L1時，在列表框L1中加載文本框Text1中的內(nèi)容　　End Sub　　按要求保存文件即完成本題。<

27、p>　　二、簡單應(yīng)用　　第1小題:　　本題主要考查了RichTextBox（多格式文本框）控件。　　LoadFile()函數(shù)：將rtf格式文件或標(biāo)準(zhǔn)ASCII文本文件加載到RichTextBox控件中。<

28、;p>　　Len()函數(shù)：返回字符串的長度。　　解題方法：　　命令按鈕Command1的Click事件控制將當(dāng)前路徑下的文本文件wy01.txt加載到多格式文本框rtx1中；命令按鈕Command2的Click事件控制當(dāng)多格式文本框rtx的內(nèi)容不為空時，統(tǒng)計多格式文本框rtx中文本的長度。

29、　　修改后的代碼如下：　　按要求保存文件即完成本題。　　第2小題： 　　本題主要考查了鼠標(biāo)的事件。　　MouseUp事件：當(dāng)按下的鼠標(biāo)釋放時發(fā)生。<

30、;p>　　參數(shù)Button用來標(biāo)識釋放的鼠標(biāo)按鈕，Button為1，表示鼠標(biāo)左鍵；Button為2，表示鼠標(biāo)右鍵；Button為4，表示鼠標(biāo)中間鍵。　　解題方法：　　圖像框Image1的MouseUp事件控制當(dāng)釋放按下的鼠標(biāo)左鍵，且圖像框的高和寬都小于4000時，圖像寬的高和寬各增加500。當(dāng)釋放按下的鼠標(biāo)右鍵

31、，且圖像框的高和寬都大于1000時，圖像框的高和寬各減少500。　　修改后的代碼如下：　　按要求保存文件即完成本題。　　三、綜合應(yīng)用　　本題主要考查了用戶自定義類型和文件的打開、輸入輸出。<

32、/p>　　1、用戶自定義類型　　用戶可以利用Type語句定義自己的數(shù)據(jù)類型，其格式如下：　　Type 數(shù)據(jù)類型名　　數(shù)據(jù)類型元素名 As 類型名　　數(shù)據(jù)類型元素名 As 類型名<

33、;p>　　......　　End Type　　其中"數(shù)據(jù)類型名"是要定義的的數(shù)據(jù)類型的名字，其命名規(guī)則與變量的命名規(guī)則相同。　　2、文件<p&g

34、t;　　Open 文件說明 [For 方式] [Access 存取類型] [鎖定] As [#]文件號 [Len=記錄長度]　　Open語句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。　　3、Input #語句　　格式：Input #文件號,變量表

35、　　Input #語句從一個順序文件中讀出數(shù)據(jù)項，并把這些數(shù)據(jù)項賦給程序變量。　　4、Write #語句　　Write #文件號, 表達式表　　Write #語句把數(shù)據(jù)寫入順序文件中　　修改后的代碼如下：<

36、;p>　　按要求保存文件即完成本題。　　Private Type stu　　num As Long　　' nam As String ?‘Key：* 10　　score As Single　　'End ?

37、‘Key：Type　　---------------------------------------------------　　Private Sub COMEXIT_Click()　　End　　End Sub&l

38、t;/b>　　---------------------------------------------------　　Private Sub COMSTART_Click()　　'Dim rec As ?‘Key：stu　　Dim i As Intege

39、r　　' myfile1 = App.Path & "\" & ? ‘Key："stud1.dat"　　' myfile2 = App.Path & "\" & ? ‘Key："stud.

40、dat"　　Open myfile1 For Input As #1　　Open myfile2 For Output As #2　　For i = 1 To 8　　' Input ?, rec.num, rec.nam, rec.score‘Key

41、：#1　　' Write ?, rec.num, rec.nam, rec.score‘Key：#2　　Next i　　Close　　'COMSTART.Caption = ?

42、 ‘Key："完成"　　'COMSTART.Enabled = ? ‘Key：False　　End Sub　　第3套　　一、基本操作<

43、/b>　　第1小題:　　新建一個名為Form1的窗體，單擊"工具"菜單中的"菜單編輯器"命令，打開菜單編輯器。在"標(biāo)題"欄中輸入"操作"，在"名稱"欄中輸入"Op"；點擊"下一個&q

44、uot;按鈕，再點擊編輯區(qū)的"→"按鈕，在"標(biāo)題"欄中輸入"顯示"，在"名稱"欄中輸入"Dis"；點擊"下一個"按鈕，在"標(biāo)題"欄中輸入"清除"，在"名稱"欄中輸入"Clea"。　　打開代碼窗口，輸

45、入如下的代碼：sjt3.frm　　Private Sub Clea_Click()　　Cls '清除窗體Form1上的內(nèi)容　　End Sub　　--------------------

46、---------------------　　Private Sub Dis_Click()　　Print "等級考試" '在窗體Form1顯示等級考試　　End Sub　　按要求保存文件即

47、完成本題。　　第2小題： 　　新建一個名為Form1的窗體，點擊工具箱中的Label控件圖標(biāo)，然后在窗體上拖拉出一個標(biāo)簽控件，通過屬性窗口設(shè)置其Name屬性為"Lab1"。點擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框，通過屬性窗口設(shè)置其Name屬性為"L1"

48、;，通過設(shè)置List屬性為列表框添加若干列表項。　　打開代碼窗口，輸入如下的代碼：　　Sjt4.frm　　Private Sub L1_DblClick()　　Lab1.Caption = L1.ListCount &

49、#39;在標(biāo)簽Lab1顯示列表框中的項目數(shù)　　End Sub　　按要求保存文件即完成本題。　　二、簡單應(yīng)用　　第1小題:<p&g

50、t;　　本題主要考查了通用對話框控件的屬性。　　Filter(過濾器)屬性：用于確定文件列表框中所顯示文件的類型。該屬性值可以由一組元素或用"|"符號分開的分別表示不同類型文件的多組元素組成。該屬性在"文件類型"列表框中。　　FilterIndex屬性：是指定默認情況下要打開或保存為的文件類型。

51、　　Action屬性：用于指定對話框的操作，1為顯示"打開"對話框，2為顯示"另存為"對話框，3為顯示"顏色"對話框，4為顯示"字體"對話框，5為顯示"打印"對話框，6為顯示幫助文件。　　Shell函數(shù)：凡是能在Windows下運行的應(yīng)用程序，基本上都可以在VB中調(diào)用。這一功

52、能通過Shell函數(shù)來實現(xiàn)。Shell函數(shù)的格式為　　Shell(命令字符串[,窗口類型])　　其中"命令字符串"是要執(zhí)行的應(yīng)用程序的的文件名（包括路徑），它必須是可執(zhí)行文件，其擴展名為.COM、.EXE、.BAT或.PIF，其它文件不能用Shell函數(shù)執(zhí)行。"窗口類型"是執(zhí)行應(yīng)用程序時窗口的大小，有6種選擇，分別

53、為0、1、2、3、4和6。　　解題方法：　　命令按鈕Command6的Click事件控制打開默認文件類型為.exe的"打開"對話框，并通過Shell函數(shù)調(diào)用通用對話框CommonDialog1。　　修改后的命令按鈕Command6的代碼如下：</p&

54、gt;　　Private Sub Command6_Click()　　CommonDialog1.CancelError = True　　On Error GoTo Cancel　　CommonDialog1.Filter = "(可執(zhí)行文件*.exe)*.exe|?|(可執(zhí)行文件

55、*.com)*.com|*.com"　　'設(shè)置通用對話框CommonDialog1可顯示的文件類型為*.exe和*.com　　CommonDialog1.FilterIndex = 1 '設(shè)置通用對話框CommonDialog1默認的文件類型為*.exe　　CommonDialog1.

56、Action = 1 '設(shè)置通用對話框CommonDialog1顯示為打開對話框　　Shell CommonDialog1.filename, 1 '用Shell函數(shù)調(diào)用通用對話框CommonDialog1，并設(shè)置窗口的顯示類型為1　　Cancel:

57、;　　End Sub　　按要求保存文件即完成本題。　　第2小題： 　　本題主要考查了圖片框的屬性和畫Circle和Line的圖形方法。　　1、圖片框的FillStyle屬性

58、　　返回或設(shè)置用來填充PictureBox控件、以及由Circle和Line圖形方法生成的圓和方框的模式。FillStyle的值為0，則生成的圖形為實線模式。　　2、Circle方法　　用來在對象上畫圓、橢圓或弧。語法為：　　對象名.Circle(x, y),radius,[color,star

59、t,end,aspect]　　參數(shù)x和y表示所畫圖形的中心；參數(shù)radius為所畫圖形的半徑；參數(shù)color是所畫圖形的輪廓顏色；參數(shù)start和end指定所畫弧的起始位置和終止位置；參數(shù)aspect是所畫圓的縱橫尺寸比。缺省值為1.0，此時所畫出的是一個標(biāo)準(zhǔn)圓（非橢圓）。　　3、Line方法

60、　　用來在對象上畫直線和矩形。語法為：　　object.Line(x1,y1)-(x2,y2),[color],[B][F]　　參數(shù)x1、y1、x2和y2表示所畫直線的起點坐標(biāo)和終點坐標(biāo)，或者所畫矩形的對角線的起點和終點坐標(biāo)。參數(shù)Color為所畫直線的顏色或所畫矩形的邊框顏色。參數(shù)B表示要畫的是矩形不是直線；F表示所畫矩形的內(nèi)部將用矩形

61、的邊框顏色來填充。　　解題方法：　　命令按鈕C1的Click事件控制當(dāng)單選按鈕Op1被選中時畫一個圓環(huán)，首先以以中心點坐標(biāo)為(1500,1000)，半徑為變量b畫圓環(huán)的外圓，再以中心點坐標(biāo)為(1500,1000)，半徑為變量a畫圓環(huán)的內(nèi)圓；當(dāng)單選按鈕Op2被選中時畫一個矩形，以起點坐標(biāo)為(100,100)，終點坐標(biāo)為

62、(100+a,100+b)，畫一個邊框顏色和內(nèi)部顏色相同的矩形。　　修改后的代碼如下：　　wy6.frm　　Private Sub C1_Click()　　Dim a As Single</

63、p>　　Dim b As Single　　Dim t As Single　　On Error Resume Next　　If Op1.Value = True Then　　a = InputBox("輸入圓環(huán)的內(nèi)徑（輸入值必須大于0且

64、小于800）", "輸入?yún)?shù)", 100)　　b = InputBox("輸入圓環(huán)的外徑（輸入值必須大于0且小于900）", "輸入?yún)?shù)", 200)　　If a > b Then　　' t = ? ‘Key：a

65、 '如果變量a的值大于變量b的值，a和b的值交換，　　始終保持變量b的值大于變量a的值　　a = b　　b = t　　End If</

66、p>　　P1.Cls　　'P1.FillStyle = ? ‘Key：0 '用實線模式來填充圖片框P1　　P1.FillColor = vbBlack　　'P1.Circle (1500, 1000), ?

67、 ‘Key：a 以中心點坐標(biāo)為(1500, 1000)，半徑為變量b畫圓　　P1.FillColor = vbButtonFace　　P1.Circle (1500, 1000), a　　End If　　If Op2.Value

68、 = True Then　　a = InputBox("輸入方框的長度（輸入值必須大于0且小于3000）", "輸入?yún)?shù)", 100)　　b = InputBox("輸入方框的寬度（輸入值必須大于0且小于1800）", "輸入?yún)?shù)", 200)<

69、p>　　P1.Cls　　'P1.Line (100, 100)-(100 + a, 100 + b), , ?F‘Key：B　　'畫一個起點坐標(biāo)為(100,100)，終點坐標(biāo)為(100 + a, 100 + b)，邊框顏色和內(nèi)部顏色相同的矩形<b

70、>　　End If　　End Sub　　三、綜合應(yīng)用　　本題主要考查了文件的打開和輸入輸出。　　1、文件&l

71、t;p>　　Open 文件說明 [For 方式] [Access 存取類型] [鎖定] As [#]文件號 [Len=記錄長度]　　Open語句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。　　2、Input #語句　　格式：Input #文件號,變量表<

72、p>　　Input #語句從一個順序文件中讀出數(shù)據(jù)項，并把這些數(shù)據(jù)項賦給程序變量。　　3、Write #語句　　Write #文件號, 表達式表　　Write #語句把數(shù)據(jù)寫入順序文件中　　修改后的代碼如下：

73、　　Private Sub COMSTART_Click()　　Dim i As Integer　　Dim total As Integer　　Dim aver As Single　　Dim num(10), namstring(10), sexst

74、ring(10), wages(10)　　MyFile1 = App.Path & "\" & ? Key： "worker.dat"　　'將變量myfile1設(shè)置為考生文件夾下的worker.dat文件的路徑　　MyFile2 =

75、 App.Path & "\" & ? Key："worker1.dat"　　'將變量myfile2設(shè)置為考生文件夾下的worker1.dat文件的路徑　　Open MyFile1 For Input As #1　　'打開已

76、經(jīng)存在的文件worker.dat，以便從文件中讀出記錄，并設(shè)置其文件號為1　　Open MyFile2 For Output As #2　　'建立并打開文件worker1.dat，以便可以將記錄寫入文件中，并設(shè)置其文件號為2　　For i = 1 To 10　　I

77、nput ？, num(i), namstring(i), sexstring(i), wages(i) Key：#1　　'從文件worker.dat中讀出四個數(shù)據(jù)項，分別賦給四個數(shù)組num、namstring、sexstring和wages　　total = total + wages(i)<

78、;b>　　Next i　　aver = ? / 10 Key：total　　For i = 1 To 10　　If ? Then Write #2, num(i), namstring(i), sexstring(i), wages(i)

79、 Key：wages(i) > aver　　'如果數(shù)組wages中某個工人的體重大于平均體重，將這個工人的所有數(shù)據(jù)寫入考生文件夾下的worker1.dat文件中　　Next i　　COMSTART.Caption = ? Key：

80、"完成"　　'將命令按鈕COMSTART的標(biāo)題設(shè)置為"完成"　　COMSTART.Enabled = ? Key：False　　'將命令按鈕COMSTART設(shè)置為無效　　End Sub

81、　　第4套　　一、基本操作　　第1小題:　　新建一個名為Form1的窗體，單擊工具箱中的DriveListBox控件圖標(biāo)，然后在窗體上拖拉

82、出一個驅(qū)動器列表框；單擊工具箱中的DirListBox控件圖標(biāo)，然后在窗體上拖拉出一個目錄列表框；單擊工具箱中的FileListBox控件圖標(biāo)，然后在窗體上拖拉出一個文件列表框。　　打開代碼窗口，輸入如下的代碼：　　Private Sub Dir1_Change()　　File1.Path = Dir1.Path

83、 '當(dāng)目錄列表框Dir1的Path屬性改變時，文件列表框File1的目錄變?yōu)槟夸浟斜砜駾ir1的目錄　　End Sub　　-------------------------------------------------　　Private Sub Drive1_

84、Change()　　Dir1.Path = Drive1.Drive '當(dāng)驅(qū)動器列表框Drive1的Drive屬性改變時，目錄列表框Dir1的目錄變?yōu)轵?qū)動器Drive1的目錄　　End Sub　　-----------------------------------

85、　　Private Sub Form_Load()　　Dir1.Path = Drive1.Drive '窗體Form1加載時，目錄列表框Dir1的目錄變?yōu)轵?qū)動器Drive1的目錄　　File1.Path = Dir1.Path '窗體Form1加載時，文件列表框File1的目錄變?yōu)槟?/p>

86、錄列表框Dir1的目錄　　End Sub　　------------------------------------------------　　Private Sub File1_dblClick()　　MsgBox File1.fi

87、lename '當(dāng)雙擊文件列表框File1的文件名時，在信息框MsgBox中顯示雙擊的文件名　　End Sub　　按要求保存文件即完成本題。　　第2小題： 　　新建一個名為Fo

88、rm1的窗體，單擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個文本框；單擊工具箱中的Timer控件圖標(biāo)，然后在窗體上拖拉出一個計時器，設(shè)置其Interval屬性為1000。　　打開代碼窗口，輸入如下的代碼：　　Private Sub Form_Load()　　Text1.Text = Str(Time

89、) '窗體Form1加載時，在文本框Text1中顯示當(dāng)前時間　　End Sub　　-------------------------------------　　Private Sub Timer1_Timer()

90、　Text1.Text = Str(Time) '當(dāng)觸發(fā)計時器Timer1的Timer事件時，在文本框Text1中顯示當(dāng)前時間　　End Sub　　按要求保存文件即完成本題。　　二、簡單應(yīng)用<

91、;p>　　第1小題:　　本題主要考查了文件的打開和輸出。　　1、文件　　Open 文件說明 [For 方式] [Access 存取類型] [鎖定] As [#]文件號 [Len=記錄長度]

92、　Open語句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。　　方式：指定文件的輸入輸出方式，可以使用下述操作之一：　　Output：指定順序輸出方式。　　Input：指定順序輸入方式。　　Append：指定順序輸出方式。與Output不同的是，當(dāng)A

93、ppend打開文件時，文件指針被定位在文件的末尾。如果對文件執(zhí)行寫操作，則寫入的數(shù)據(jù)附加在原文件的后面。　　2、Write #語句　　Write #文件號, 表達式表　　Write #語句把數(shù)據(jù)寫入順序文件中　　解題方法：</p

94、>　　命令按鈕CMDstart的click事件利用For循環(huán)計算1+1/2+1/3+...+1/10的結(jié)果，并將結(jié)果寫入到考生文件夾下的result.dat文件中；同時將命令按鈕CMDSTART的標(biāo)題設(shè)置為"完成"，將命令按鈕CMDSTART設(shè)置為無效。　　修改后的代碼如下：<p&

95、gt;　　wy5.frm　　Private Sub CMDstart_click()　　Dim E As Single, J As Integer　　Dim T As Single　　'Open App.Path &

96、? For ? As ? ‘Key："result.dat" output #1　　'建立并打開文件worker1.dat，以便可以將記錄寫入文件中，并設(shè)置其文件號為1　　'E = ?‘Key：1 '為變量E賦初值

97、;　　T = 1　　For J = 2 To 10 Step 1　　T = 1 / J　　E = E + T　　Debug.Print T, E<

98、p>　　Next J　　'Write #1, ? ‘Key：E '把變量E寫入文件號為1的result.dat文件中　　Print E　　Close #

99、1　　'CMDSTART.Caption =? ‘Key："完成" '將命令按鈕CMDSTART的標(biāo)題設(shè)置為"完成"　　'CMDSTART.Enabled = ? ‘Key：False '將命令按鈕CMDSTART設(shè)置為無

100、效　　End Sub　　按要求保存文件即完成本題。　　第2小題： 　　本題主要考查了單文本框的屬性。　　Text屬性：該屬性用來設(shè)置文本框中顯示的內(nèi)容。&

101、lt;/p>　　FontName屬性：用來返回或設(shè)置控件中的文本所用字體。　　FontSize屬性：用來返回或設(shè)置控件中的文本所用字體的大小。　　修改后的代碼如下：　　wy6.frm&l

102、t;p>　　Option Explicit　　---------------------------------------------------　　Private Sub Command1_Click()　　Option1.Value = True　　Optio

103、n6.Value = True　　Text1.Text = "請輸入您要設(shè)置的文本"　　End Sub　　---------------------------------------------------　　P

104、rivate Sub Command2_Click()　　Option1.Value = True　　Option6.Value = True　　'Text1.Text = ? ‘Key："" '將文本框Text1的內(nèi)容清空<p&

105、gt;　　End Sub　　---------------------------------------------------　　Private Sub Command3_Click()　　End<p&g

106、t;　　End Sub　　---------------------------------------------------　　Private Sub Form_Load()　　Option1.Value = True　　Opti

107、on6.Value = True　　Text1.Text = "請輸入您要設(shè)置的文本"　　End Sub　　---------------------------------------------------

108、Private Sub Option1_Click()　　Text1.FontName = "仿宋_GB2312"　　End Sub　　---------------------------------------------------

109、;　　Private Sub Option2_Click()　　'Text1.FontName = ? ‘Key："楷體_GB2312" 將文本框Text1的字體設(shè)置為"楷體_GB2312"　　End Sub<p

110、>　　---------------------------------------------------　　Private Sub Option3_Click()　　Text1.FontName = "隸書"　　End Sub

111、　　---------------------------------------------------　　Private Sub Option4_Click()　　Text1.FontName = "黑體"　　End Sub<

112、;/p>　　---------------------------------------------------　　Private Sub Option5_Click()　　Text1.FontSize = "5.5"　　End Sub</

113、b>　　Private Sub Option6_Click()　　'Text1.FontSize = ? ‘Key："10.5" 將文本框Text1字體的大小設(shè)置為"10.5"　　End Sub</p&

114、gt;　　---------------------------------------------------　　Private Sub Option7_Click()　　Text1.FontSize = "16"　　End Sub

115、　　---------------------------------------------------　　Private Sub Option8_Click()　　Text1.FontSize = "42"　　End Sub<

116、;/b>　　三、綜合應(yīng)用　　本題主要考查了文件的打開和輸入輸出。　　1、文件　　Open 文件說明 [For 方式] [Access 存取類型] [鎖定] As [#]文件號 [Len=記錄

117、長度]　　Open語句的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的存取方式。　　方式：指定文件的輸入輸出方式，可以使用下述操作之一：　　Output：指定順序輸出方式。　　Input：指定順序輸入方式。　　Appen

118、d：指定順序輸出方式。與Output不同的是，當(dāng)Append打開文件時，文件指針被定位在文件的末尾。如果對文件執(zhí)行寫操作，則寫入的數(shù)據(jù)附加在原文件的后面。　　2、Input #語句　　格式：Input #文件號,變量表　　Input #語句從一個順序文件中讀出數(shù)據(jù)項，并把這些數(shù)據(jù)項賦給程序變量。

119、;　　3、Print #語句　　Print #文件號, 表達式表　　Print #語句把數(shù)據(jù)寫入順序文件中　　命令按鈕"打開"修改后的代碼如下：　　wy7.frm<

120、;p>　　Private Sub COMEXIT_Click()　　End　　End Sub　　-----------------------------------------　　Priv

121、ate Sub COMSTART_Click()　　Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer　　myfile1 = App.Path & "\" & "prog8a.dat"

122、; '將變量myfile1設(shè)置為考生文件夾下的prog8a.dat文件的路徑　　myfile2 = App.Path & "\" & "prog8b.dat" '將變量myfile2設(shè)置為考生文件夾下的prog8b.dat文件的路徑　　'Open myfile1

123、 For ? As #1 ‘Key："prog8a.dat" '打開已經(jīng)存在的文件prog8a.dat，以便從文件中　　讀出記錄，并設(shè)置其文件號為1　　'Open myfile2 For ? As #2‘Key："prog8b.dat" '建立并打開文件prog8b.dat，

124、以便可以將記錄　　寫入文件中，并設(shè)置其文件號為2　　While Not EOF(1)　　' Input ?, Ch$ ‘Key：#1 '從文件prog8a.dat中讀出一個數(shù)據(jù)項，賦給字符串變量Ch　　If Asc(Ch$)

125、>= 48 And Asc(Ch$) <= 57 Then　　Number = Number + 1　　ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then　　Cp = Cp + 1　　ElseIf Asc(C

126、h$) >= 97 And Asc(Ch$) <= 122 Then　　Lp = Lp + 1　　Else　　' Others = ? ‘Key：Others + 1 '如果不是數(shù)字、字母，是其它類型的字符，Others加1&l

127、t;/p>　　End If　　Wend　　' Print ? Number, Cp, Lp, Others ‘Key：#2 '把變量Number、Cp、Lp和Others寫入文件號為2的prog8b.dat文件中</

128、p>　　Close　　' COMSTART.Caption = ? ‘Key："完成" '將命令按鈕COMSTART的標(biāo)題設(shè)置為"完成"　　' COMSTART.Enabled = ? ‘Key：Fa

129、lse '將命令按鈕COMSTART設(shè)置為無效　　End Sub　　第5套　　一、基本操作　　第1小題:<

130、/p>　　新建一個名為Form1的窗體，點擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框，通過屬性窗口設(shè)置其Name屬性為List1，MultiSelect屬性為2，并在List屬性中添加列表項"第一題"、"第二題"…"第八題"；點擊工具箱中的ListBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框，通過屬性窗口設(shè)置其Name屬性為Li

131、st2；點擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個命令按鈕，通過屬性窗口設(shè)置其Name屬性為Cmd1，Caption屬性為復(fù)制。　　打開代碼窗口，輸入如下的代碼：　　Private Sub Cmd1_Click()　　Dim i As Integer, j As Integer<

132、;/p>　　Dim a(8) As String　　For i = 0 To List1.ListCount - 1　　If List1.Selected(i) Then　　a(i) = List1.List(i) '將列表框List1中選中的列表項放進數(shù)組a中

133、　　j = j + 1　　End If　　Next i　　If j < 2 Then　　MsgBox &quo

134、t;請選擇至少兩項" '如果列表框List1中選中的列表項少于2項，以信息框提示　　Else　　List2.Clear　　For i = 0 To List1.ListCount - 1　　If a(i

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

全國vb上機題參考答案

文檔簡介

溫馨提示

最新文檔

評論

全國vb上機題參考答案

文檔簡介

溫馨提示

最新文檔

評論

免費下載