文檔介紹：

大學計算機二級考試常用vb代碼.docx參考代碼如下:mand1_Click()Textl.Text=””IfCheckl.Value=1ThenTextl.Text=Checkl.CaptionEndIfIfCheck2.Value=1ThenTextl.Text=Textl.Text+Check2.CaptionEndIfEndSub參考代碼如下:DimKAsSingle,SAsSinglePrivateSubC1_Click()S=11K=1DoK=K+1S=S+(-1)A(K+1)/KLoopUntil1/K<0.0001Textl.Text=S將計算結果顯示在文本框中EndSubPrivateSubC2_Click()Callputdata("kssj.dat",S)EndSubputdata過程的作用是打開指定的文件z進行寫操作。該過程有2個參數,一個是欲打開的文件名,一個是要保存的變量名。這里按題目要求,指定的文件名是kssj.dat,變量是S,為了保證變量S能夠在兩個過程中均能使用,把S定義為模塊級變量。操作步驟如下:1?打開考生文件夾中的工程Menu1.Vbpo單擊〃工具〃菜單的〃菜單編輯器〃命令,打開〃菜單編輯器〃窗口。在〃標題"欄中輸入菜單項的標題"播放(&P)〃,在"名稱"欄中輸入菜單項的名稱〃播放〃。單擊”下一個”按鈕”再單擊J"按鈕”使用與步驟3相似的方法輸入下級菜單項〃打開”;使用類似的操作,輸入如下所示的菜單:播放(P) 數據處理打開 計算退岀Ctrl+X說明:在"退出〃菜單項的’快捷鍵〃下拉列表框中選擇〃Ctrl+X〃。單擊〃工程〃菜單的〃添加文件"命令,將考生文件夾下的"CDMK.Bas"文件添加到本工程。該模塊的功能是:隨機產生10個1~99(包含1和99)之間的整數,找岀其最大值、最小值和平均值。填空的參考答案如下:'*****questiona(i)=lnt(Rnd*99+1)!*****questionIfa(i)vm_minThenm_min=a(i)添加如下所示的菜單事件過程代碼:PrivateSub退出_Click()EndEndSubPrivateSub計算_Click()CallcalculateEndSub調試運行并保存工程,然后單擊〃文件"菜單的〃生成Menu1.exe"命令,生成可執行程序:Menu1.exeo參考代碼如下:DimkAsInteger 'mand1_Click()mandl.Caption=”計數”Then'按鈕標題變為"mandl.Caption=”暫?！盩imerl.Enabled=True ,mandl.Caption=”計數”Timerl.Enabled=FalseEndIfEndSubPrivateSubHScroll1_Scroll()'水平滾動條調整定時器時間間隔Timerl.Interval=HScrolH.ValueLabel2.Caption=”時間間隔="&Timerl.Interval&”ms”在標簽中顯示時間間隔EndSubPrivateSubTimerl_Timer()k=k+1 '變量k加1LabelI.Caption=kIfk>=50Then '計數達到50時,置變量k為0Labell.Caption=”計數已達50”Timerl.Enabled=FalseEndIfEndSub參考代碼如下:DimxAsSingle,yAsSinglePrivateSubC1_Click()x=Val(Textl.Text)Ifx<=0Theny=Abs(x*(x4-2))Elselfx<=10Theny=Log(2*x)Elsey=Exp((x+1)/2)EndIfLabel2.Caption=yEndSubPrivateSubC2_Click()Callputdata(”kssj.dat",y)EndSub操作步驟如下:打開考生文件夾中的工程Menul.Vbp。單擊〃工具〃菜單的〃菜單編輯器"命令,打開〃菜單編輯器"窗口。在〃標題"欄中輸入菜單項的標題"標注(&B)〃,在〃名稱〃欄中輸入菜單項的名稱〃標注〃。單擊〃下一個〃按鈕,再單擊j按鈕,使用與步驟3相似的方法輸入下級菜單項〃線性〃;使用類似的操作,輸入如下所示的菜單:標注(B) 數據處理線性 計算退出Ctrl+X說明:在〃退出〃菜單項的〃快捷鍵"下拉列表框中選擇〃Ctrl+X〃。單擊〃工程〃菜單的〃添加文件"命令,將考生文件夾下的"CDMK.bas"文件添加到本工程。該模塊的功能是:在窗體上輸出100~200之間的所有素數。填空的參考答案如下:******questionExitDo******questionIfk>mThen添加如下所示的菜單事件過程代碼:PrivateSu

內容來自淘豆網www.taodocs.com轉載請標明出處.

總結

以上是生活随笔為你收集整理的大学计算机二级考试 vb,大学计算机二级考试常用vb代码.docx的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。