大一下-笔试题库VisualBasic程序设计课程试卷6共

VisualBasic（6）8考试形式闭 2002年5院 年 学 绩 A．DOS和 VisualBasic程序设计时常用的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．复选框 20.A．1B．2C．3D． OptionPrivateSubDimMAsInteger,NAsIntegerForM=1ToNNextMPrintMPrintEnd执行下面的程序，单击窗体后在窗体上显示的第一行结果是 ，第三行结果 PrivateSubDimMystrAsString,Mystr1AsString,Mystr2AsStringMystr1=“H”Fori=1ToMystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrNextiEndSub运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是 ，第二行 PrivateSubTest(xAsInteger)Ifx<6CallEndIfForm1.PrintxEndPrivateSubForm_Click()Test2EndSub过程Main()是本程序的起始过程其他为窗体模块中的事件过程当说明语句A被注释，说明语句B有效，执行本程序，分别单击命令按钮Command1和Command2，在窗体上显示的输出内容是7 ；若将说明语句B注释掉，而使说明语句A有效（删去语句前的注释号执行本程序分别单击命令按钮Command1和Command2，在窗体上显示的输出内容是8。PublicxAsIntegerSubMain()Form1.Printx;EndDimyAsInteger PrivateSubCommand1_Click()DimyAsInteger BPrintEndPrivateSubCommand2_Click()PrintEnd PrivateSubDimaAsInteger,bAsIntegerCallProc1(a,b)Printa,bEndPrivateSubProc1(cAsInteger,dAsDimaAsInteger,bAsIntegerPrintc,dEndPrivateSubProc1(ByValcAsInteger,ByValdAs那么，执行后第一行结果是 ，第二行结果是 执行下面程序后，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运行结果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，要求将原来的数覆盖掉，求出PrivateSubDimxAsInteger,sumAsIntegerx=1234Callrv(x,Print"x=";x,"sum=";sum;EndSubPrivateSub xAsInteger,sAsDimiAsInteger,a(10)AsIntegeri=1:k