版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
VisualBasic(6)8考試形式閉 2002年5院 年 學(xué) 績 A.DOS和 VisualBasic程序設(shè)計時常用的move、Print屬于 在VisualBasic中最基本的對象是 A.B.文本框 B.C. D.7 B(, B( B(1to 假定變量LOGIC類型是BOOLEAN,下面賦值語 C.LOGIC= D.LOGIC= 控件固 B.可C.添 B.C. D.控件 函 C.拖動鼠 Ctrl Click、 B.Name、C.top、 的Click事件。 選項按鈕、B.復(fù)選框 20.A.1B.2C.3D. OptionPrivateSubDimMAsInteger,NAsIntegerForM=1ToNNextMPrintMPrintEnd執(zhí)行下面的程序,單擊窗體后在窗體上顯示的第一行結(jié)果是 ,第三行結(jié)果 PrivateSubDimMystrAsString,Mystr1AsString,Mystr2AsStringMystr1=“H”Fori=1ToMystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrNextiEndSub運(yùn)行下面的程序,當(dāng)單擊窗體時,窗體上顯示的內(nèi)容的第一行是 ,第二行 PrivateSubTest(xAsInteger)Ifx<6CallEndIfForm1.PrintxEndPrivateSubForm_Click()Test2EndSub過程Main()是本程序的起始過程其他為窗體模塊中的事件過程當(dāng)說明語句A被注釋,說明語句B有效,執(zhí)行本程序,分別單擊命令按鈕Command1和Command2,在窗體上顯示的輸出內(nèi)容是7 ;若將說明語句B注釋掉,而使說明語句A有效(刪去語句前的注釋號執(zhí)行本程序分別單擊命令按鈕Command1和Command2,在窗體上顯示的輸出內(nèi)容是8。PublicxAsIntegerSubMain()Form1.Printx;EndDimyAsInteger PrivateSubCommand1_Click()DimyAsInteger BPrintEndPrivateSubCommand2_Click()PrintEnd PrivateSubDimaAsInteger,bAsIntegerCallProc1(a,b)Printa,bEndPrivateSubProc1(cAsInteger,dAsDimaAsInteger,bAsIntegerPrintc,dEndPrivateSubProc1(ByValcAsInteger,ByValdAs那么,執(zhí)行后第一行結(jié)果是 ,第二行結(jié)果是 執(zhí)行下面程序后,A(1,3)的值 ,A(2,2)值 14,A(3,1)值 15OptionPrivateSubDimA(3,3)AsInteger,IAsDimJAsInteger,KAsInteger,NAsIntegerForK=5To1Step-1IfK>=3ThenForI=1To6-KNextForI=1ToA(K-I+1,3-N=N-NextIEndIfNextForK=1ToForI=1ToPrintA(K,I);NextINextKEndOUT.TXT中。DimPrivateSubForm_Click()Open"A:\TEST.TXT"ForInputAs#1DoWhileNotEOF(1)Input#1,a(1,i),a(2,i)Close#1Open"A:\OUT.TXT"ForOutputAs#2Fori=1 flag=Forj=1To ExitForEndIfNextNextFori=1ToForj=1ToIfa(2,i)=a(1,j)ThenExitForEndIfNextIfflag=0ThenWrite#2,a(2,i)NextiClose#2EndSub把字母A、B、C、Da、b、c、d1,2,3,45。PrivateSubForm_Click()DimchAsString,IAsIntegerch=InputBox("輸入") Case"A","a":I=Case"B","b":I=Case"D","d":I=I=EndMsgBox運(yùn)行結(jié)果chStr(I)EndSubabcdefghijklmnopqrstuvwxyzefghijklmnopqrstuvwxyzabcd輸入框如下:PrivateSubDimstAsString,chAsString,iAsInteger,nAsIntegerst=InputBox( i=ch n DoWhilech<> n=n+4EndIf(ch>="w")And(ch<="z")Thenn=n+4-26EndPrintChr(n);i=i+1ch=Mid(st,i,1)n=Asc(ch)End1234554321,要求將原來的數(shù)覆蓋掉,求出PrivateSubDimxAsInteger,sumAsIntegerx=1234Callrv(x,Print"x=";x,"sum=";sum;EndSubPrivateSub xAsInteger,sAsDimiAsInteger,a(10)AsIntegeri=1:k
溫馨提示
- 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. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 新高考數(shù)學(xué)二輪復(fù)習(xí)創(chuàng)新題型專題03 三角函數(shù)專題(數(shù)學(xué)文化)(解析版)
- 電子課程設(shè)計實習(xí)日志
- 轉(zhuǎn)讓教練車合同(范本)
- 流行伴奏課程設(shè)計
- 磷肥生產(chǎn)過程中的安全防護(hù)措施考核卷考核試卷
- 鎳鈷冶煉廠生產(chǎn)過程中的生產(chǎn)現(xiàn)場S管理考核試卷
- 碳酸飲料企業(yè)財務(wù)分析與控制考核試卷
- 輪胎企業(yè)綠色產(chǎn)品設(shè)計理念與實施考核試卷
- 錫礦選礦廠設(shè)備管理與優(yōu)化考核試卷
- 一年級人教版語文句子練習(xí)策略
- 乒乓球規(guī)則與組織編排
- LED顯示屏應(yīng)急預(yù)案
- 口腔修復(fù)病例討論課件
- 2024年P(guān)ython程序設(shè)計教案
- 空壓機(jī)及其配套設(shè)備設(shè)施采購安裝技術(shù)要求
- 體外診斷行業(yè)全球市場發(fā)展分析2024年
- 初中語文新教師培訓(xùn)
- 人教版二年級上冊脫式計算大全600題及答案
- 博鰲BNCT硼中子治療中心 環(huán)評報告
- 人工智能訓(xùn)練師的工作內(nèi)容
- 海味零食行業(yè)報告
評論
0/150
提交評論