大一下-筆試題庫VisualBasic程序設(shè)計課程試卷6共

VisualBasic（6）8考試形式閉 2002年5院 年 學(xué) 績 A．DOS和 VisualBasic程序設(shè)計時常用的move、Print屬于 在VisualBasic中最基本的對象是 Ａ．Ｂ．文本框 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運行下面的程序，當(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運行結(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