2024年電大VisualBasic程序設(shè)計作業(yè)解析

VisualBasic程序設(shè)計作業(yè)14.窗體控件菜單5.完畢某種特定的功能對象名.措施名Form1.Show14.工具選項選項自動語法檢測能建立新的事件，但可以根據(jù)需要對事件進(jìn)行編程。從非嚴(yán)格意答：事件驅(qū)動是VB應(yīng)用程序的基本機制，其基本過程是：(2)窗體或窗體上的控件等待事件的發(fā)生。事件可由顧客引起(例如鍵盤操作或鼠標(biāo)點擊)、可由系統(tǒng)引起(例如定期器控件)、也可由代碼間接引起(例如現(xiàn)代碼裝載其他窗體時產(chǎn)生的Load事件)。(4)反復(fù)執(zhí)行第2和第3步。直到碰到End語句或單擊“結(jié)束”按鈕停止程序的運行。PrivateSubCommandIfTextlText=""OMsgBox"成績輸入不全!"Text4.Text=(Val(Textl.Text)+Val(Text2.IfText2.Text=""ThenTextIfText3.Text=""ThenTex電大天堂【VisualBasic程序設(shè)計】作業(yè)22.打開另存為顏色字體打印求Ifx<100ThenyIfEndIfEndIfEndIfEndIfDoUntilx>2IfxMod3<>0ThenEndIfoPrint"*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12oForj=3toNextIDay="星期日"&Chr(13)&"(Sunday)"Day="星期二"&Chr(13)&"(Tuesday)"Day="星期三"&Chr(13)&”(Wednesday)"Day="星期五"&Chr(13)&”(Friday)"Day="星期六”&Chr(13)&”(Saturday)"PrivateSuIfKeyAscii=13ThenIfn>=0Andn<7ThenMsgBox"請輸入0~6之間的整數(shù)!"EndIfEndIf新建一種工程，在默認(rèn)的窗體Form1上放置一種Picture控件，然后編寫如下代碼。Single,YAsSingle)IfButton=2ThenEndIfList1.AddItem"李敏"MsgBox"請在文本框中輸入信息!"EndIfEndIfIfList1.ListIndex<>-1ThCommand2.Enabled=TrueEndIf電大天堂【Visua|Basic程序設(shè)計】作業(yè)32.FileCopy"c:\command","4.Open”SEQNEW.DAT"ForOutp5.Open”SEQOLD.DAT"ForInput12.ADOrs("學(xué)號")Drivel.DrivFile1.PatteIfRight(File1.Path,1)="\"EndIfPicturel.AutoSize=DimiAstwopie=8*Atn(1)'求piFori=-twopieToNextipiepiep’設(shè)置點的大小’設(shè)置坐標(biāo)系CurrentX=-twopie/2CurrentX=twopie/2Nexti標(biāo)y軸刻度NextiFori=-twopieTotwopieStep0.1NextiIfCheck1.Value=1EndIfPrivateSubOption3_Click(IndexAsShapel.BorderStyShape1.BorderSDimADOrsAsNewRecordsetMSFlexGrid1.Rows=0strtmp=”學(xué)號”+vbTab+”姓名”+vbTab+”專業(yè)”'定義數(shù)據(jù)庫連接字符串'用于連接SQLServ'Server為服務(wù)器名稱UserID為登錄賬號Password為登錄口令′Database為詳細(xì)的數(shù)據(jù)庫名'假如還沒有建立與數(shù)據(jù)庫的連接，則用如下代碼創(chuàng)立。2.TCP/IP(或者回答TCP協(xié)議)cket接口應(yīng)用程序就可進(jìn)行信息收發(fā)通信了必關(guān)懷兩臺計算機間的通信細(xì)節(jié)就可以完畢數(shù)據(jù)的發(fā)送和接受工作?；赟ocket的通信過程如圖1所示。圖1即在錯誤發(fā)生時，捕捉并告知應(yīng)用轉(zhuǎn)向哪段代碼進(jìn)行錯誤處第2步：編寫錯誤處理程序，對所有可預(yù)見的錯誤做出反應(yīng)般可使用Resume或ResumeNext語句退出錯誤處理程序。Resume語句會繼續(xù)執(zhí)行引起錯誤的那句代碼，而ResumeNext語句則會跳過該語句，執(zhí)行引起錯誤代碼的下一句代碼。假如通過錯誤處理程序●使用Listen措施使服務(wù)器進(jìn)入偵聽狀態(tài)，等待客