


版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
VisualBasic課程試卷(11)9考試形式閉 2002年5控件的 3 把焦點移至按扭上, \、/、MOD、*四個運算符中,優(yōu)先級最低的是(4
Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是(
VisualBasic認為下列( A1和 Aver和 Sum和 A1表達式INT(-17.8)+Sgn(17.8)的值是( - - -
bd
對應的VisualBasic表達式是( 以下關(guān)于選項按扭的說法,正確的是( 選項按扭的Enabled屬性用于決定該按扭是否被選中 選項按扭的Value屬性用于決定該按扭是否被選中 選項按扭的Checked屬性用于決定該按扭是否被選中 選項按扭的Visible屬性用于決定該按扭是否被選中 是(11 在代碼中任意一個命令按扭只需使用名稱Command1 通用過程可以通過執(zhí)行“工具”菜單中的(
可以在窗體模塊的通用段中 下面 下面的過程定義語句中合法的是( SubProc1(ByValn()) SubProc1(n)AsInteger
1 加載后Image控件的尺寸與原圖的大小相比 VB的文件管理控件是(
隨機模式允許用戶在
ASCII 在語句PublicSubPrime(MAsInteger)中M是一個按( 二 PrivateSubForm_click()x=5y=-IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xEnd PrivateSubForm_click()n=0j=DoUntiln>2n=n+1j=j+n*(n+1)Printn;jEndSub PrivateSubForm_click()k=0Forj=1ToFori=1Tok=i+
Fori=1Tok=k+PrintkEndSub 運行下面的程序,單擊窗體后在窗體上顯示的內(nèi)容是(24)APrivateSubDimxAsInteger,yAsIntegerx=2: y=10y=y 'Ax=x 'BLoopWhiley>0Printx;",";yEnd PrivateSubForm_Click()Dimm(2)AsIntegerFori=1To2m(i)=0k=Fori=1ToForj=1Tom(j)=m(i)+1Printm(k);End PublicFunctionmyfunc(mAsInteger,nAsInteger)AsIntegerDoWhilem<>nDoWhilem>m=m-nDoWhilem<n=n-mmyfunc=mEndPrivateSubForm_Click()Printmyfunc(24,End (28PrivateSubmysub()StaticsAsIntegerFori=1To10Step2s=s+iPrintEndPrivateSubForm_Click()CallmysubEnd (30(31PrivateSubForm_Click()Dima(3,3)AsIntegerForm=1To3Forn=1ToIfn=mOrn=3-m+1Thena(m,n)=1a(m,n)=EndForm=1ToForn=1ToPrinta(m,End (33(34(35PrivateSubTest(xAsDimiAsIntegerIfx<>0ThenCallTest(x-1)Fori=1ToxPrintx;NextiEndIfEndSubPrivateSubForm_click()Test3End三 10分。PrivateSubCommand1_Click()Max=0Min=Fori=1Toif( )thenmax=nif( )thenmin=ns=s+n p=s/Print最高分Max;最低分MinPrint"最后得分:";pEnd 12-22+32-42+……+(n-1)2-n2。PrivateSubCommand1_Click()s=0i=c=1s=s+c*i* loopwhile( Print"S=";sEnd PrivateSubCommand1_Click()DimA(6,6)AsIntegerFori=1ToForj=1ToIfi=j Endprint EndSub5:A4個數(shù)據(jù)、、、,輸入XXX1個PrivateSubCommand1_Click()Dima(4)Asa(1)=11:a(2)=22:a(3)=33:a(4)=x=Val(InputBox("請輸入X:")) )Then("Fori=1To )ThenExitIfi<5Forj= ( Fork=1ToPrint
MsgBox數(shù)據(jù)沒找到EndIfEndIfEnd 本程序用于驗證任何一個大于6的偶數(shù)均可表示為兩個素數(shù)之和例如14=3 待驗證的偶數(shù)從文本框TxtInput輸入,所有滿足上述條件的素數(shù)對都顯示在窗體上。OptionExplicitPrivateSubDimnAsInteger,iAsIntegern=Val(TxtInput.Text)Fori=3Ton-2Step2IfPrime(i)ThenIfn-i>=iAnd )ThenPrintn;"=";i;"+";n-iEnd NextiEndSubPrivateFunctionPrime(nAsInteger)AsBooleanDimiAsInteger,AsBooleanPrime=Fori=2ToIfnModi=0Then( NextIf=False End sum(n,k)=1k+2k+……nk.FunctionSum計算給定參數(shù)時函數(shù)的PrivateSubForm_Click()Printsum(3,2)EndPrivateFunctionsum(nAsInteger,kAsInteger)AsLongDimiAsInteger,sAsLongFori=1Tos=s+ EndPrivateFunctionpower(aAsInteger,bAsIn
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 礦物加工廠安全文化建設(shè)與培訓考核試卷
- 內(nèi)蒙古自治區(qū)北京八中烏蘭察布分校2025屆高三物理試題模擬試題含解析
- 四川省綿陽市三臺縣2025年初三4月考語文試題文試題含解析
- 內(nèi)蒙自治區(qū)烏蘭察布市集寧二中2025屆高三第二次高考模擬考試數(shù)學試題試卷含解析
- 山東圣翰財貿(mào)職業(yè)學院《分鏡頭設(shè)計》2023-2024學年第二學期期末試卷
- 蘇州城市學院《科技文獻閱讀》2023-2024學年第二學期期末試卷
- 山東濟南市市中區(qū)2025年六年級下學期模擬數(shù)學試題含解析
- 山東省沾化縣重點名校2025年初三第二次??加⒄Z試題文試題含答案
- 明達職業(yè)技術(shù)學院《社會統(tǒng)計學》2023-2024學年第二學期期末試卷
- 天津電子信息職業(yè)技術(shù)學院《材料組織結(jié)構(gòu)的表征》2023-2024學年第二學期期末試卷
- 甘肅酒泉事業(yè)單位考試筆試含答案2024
- 廣東高考:數(shù)學必考知識點總結(jié)
- 宗教政策法規(guī)知識課件
- 七下生物考試試卷及答案
- 財產(chǎn)險試題庫及答案
- 湖南新高考教學教研聯(lián)盟暨長郡二十校聯(lián)盟2025屆高三年級第二次聯(lián)考物理試題及答案
- 金店裝修施工方案
- 2025山東煙臺市蓬萊區(qū)城市建設(shè)投資集團有限公司招聘22人筆試參考題庫附帶答案詳解
- 建筑勞務公司人事管理制度
- 應聘人員登記表
- 2024年山東省公共衛(wèi)生臨床中心招聘筆試真題
評論
0/150
提交評論