各种题库vb笔试

1、苏州大学 VisualBasic程序课程试卷（6）卷8 形式 2002 5 院 级 专业学 成绩一、选择题（请填写在答题纸的相应题号内 环境下的应用程序的工具A苏州大学 VisualBasic程序课程试卷（6）卷8 形式 2002 5 院 级 专业学 成绩一、选择题（请填写在答题纸的相应题号内 环境下的应用程序的工具ADOS2Visual Basic 程序设计时常用的move、3一个可执行的 Visual Basic 的应用程序至少要包括一4在VisualBasic中最基本的对象，它是应用程序的基石 6执行语句Format(1234.567, #,#0.00),正确的输出结果A.C. B. D

2、.语句可以用来正确B(B(,B(1to9假定变量LOGIC类型CLOGIC=#TRUE#DLOGIC= 的类型A顺序BD顺序、随机、字C 的类型A顺序BD顺序、随机、字C BA. C. 。B. D. 控件A函CBD通用过 。 Ctrl 会自动改变。 18.将命令按钮的 18 Click事件。 19. 19 20.A1C3B2D二、填充执行下面程序，第一行输出结果Option Private Sub DimMAs For M=1 eger, N NEnd M执行下面的程序，单击窗体后在窗体上显示二、填充执行下面程序，第一行输出结果Option Private Sub DimMAs For M=1

3、 eger, N NEnd M执行下面的程序，单击窗体后在窗体上显示的第一行结果是，第三行结果Private Sub DimMystrAsString,Mystr1AsString,Mystr2AsString Mystr1= “H”For i=1 To Mystr1=Mystr1&Mystr2 Mystr=Mystr & Mystr1Next iEnd 运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是，第二行是Private Sub Test(x AsIf x=3 For I=1 To 6-K NextI For I=1 To NextI Next K For To I=1 To N

4、extI NextK End SubNextI Next K For To I=1 To NextI NextK End Sub三、编程填空 Dim PrivateSubForm_Click() OpenA:TEST.TXTForInputAs#1 Do While Not EOF(1)Input Close#1OpenA:OUT.TXTForOutputAs For i=1 To flag= 0For j=1 To If ThenExitFor End IfNext Next For i=1 To For j=1 To Ifa(2,i)=a(1,j)Then ExitFor End IfNe

5、xt Ifflag=0ThenWrite#2,a(2,i) Next iClose End Ifa(2,i)=a(1,j)Then ExitFor End IfNext Ifflag=0ThenWrite#2,a(2,i) Next iClose End 2A、B、C、Da、b、c、d1，2，3，45PrivateSubForm_Click() Dim chAs String, IAschInputBox(输入 Case A, a: I = 1CaseB,b:I=CaseD,d:I=I=End MsgBox运行结果chStr(I) End Subabcdefghijklmnopqrstuvwx

6、yz efghijklmnopqrstuvwxyzabcPrivateSubDimstAsString,chAsString,ieger,nst = InputBox(i = 1chn = DoWhilech.If n = n + 4EndIf(ch=w)Andn = DoWhilech.If n = n + 4EndIf(ch=w)And(ch=z)Then n = n + 4 - 26Endi=i + ch=Mid(st,i,1) n = Asc(ch)End 41234554321，要求将原来的数覆盖掉，求出PrivateSubDimxAs x = eger,sumCallrv(x, x=;x,sum=;End PrivateSubrv( xAseger,sDimieger,a(10)i=1: k =0:s = a(i)= xMod 10 k=k*10+a(i) s = s + a(i)x=x10 i = i + 1LoopUntilx= End 苏州大学 VisualBasic程序