单选1.启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A.窗体B.工程1C.窗体1D.工程2.下列关于窗体上控件的基本操作错误的是().A.按下一次DEL键可以同时删除多个控件B.按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件C.按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件D.按一次DEL键只能删除一个控件3.求以10 为底X 的常用对数的表达式为().A.LOG(X)/LOG(10)B.LOG(X)C.LOG(X)/LOG(E)D.LN(X)4.要在图片框P1中打印字符串"HowAreYou",应使用语句().A.P1.Print"HowAreYou"B.Print"HowAreYou"C.P1.Picture=LoadPicture("HowAreYou")D.Picture1.Print="HowAreYou"5.在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为().A."Label1"、"Label1"B."Caption"、"Label"C."Label"、"Label"D."Label1"、"Visual Basic"6.要使得标签能自动扩充以满足字体大小则可对其()属性进行设置.emnemonicB.tagC.autosizeD.alignment7.要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为().A.0B.2C.3D.18.以下不具有Picture属性对象是().A.文本框B.窗体C.图片框D.图像框9.由For k=10 to 0 step 3:next k循环语句控制的循环次数是().A.-10B.0C.-11D.1210.循环结构For I%= -1 to -17 Step -2 共执行()次.A.5B.8C.9D.611.()属性决定了按Tab键时焦点在各个控件之间移动的顺序.A.SetFocusB.TabStopC.TablndexD.Index12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是().A.-10B.0C.-11D.1213.单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.A.ScrollB.ChangeC.KeyDownD.Dragover14.要清除组合框Combol中的所有内容,可以使用()语句.bo1.Removebo1.Clsbo1.Clearbo1.Delete15.用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件.A.KeyUpB.KeyPressC.ClickD.KeyDown判断：1.Visual Basic程序的运行,仅能从某一窗体启动,如Form1窗体。
2.Single 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.3.所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.4.Picture图片框既可用来显示图片和绘制图形,也可用Print方法来显示文字.5.属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.6.VB允许设计和使用用户自己设计的控件.7.只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可完成.8.图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值.9.方法是VB 对象可以响应的用户操作.10.在VB6.0中命令按钮不仅响应Click事件,而且响应DbClick事件.11.文本框控件有Caption属性.12.move方法的一般形式是:对象名.move A,B[,C,D],其中A指Left,C 指width.13.控件是对象,而窗体不是对象,它只是控件对象的窗口.14.图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值.15.计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.16.定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.17.对象的属性只能在属性窗口中设置.18.标签控件可以用来让用户输入数据.19.当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.20.图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作.填空1.在VB 6.0中,变量名最长可达_____个字符.2.设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为_____.3.如果要在单击钮时执行一段代码,则应将这段代码写在_____事件过程中.4.VB中,变量的声明可分为两种方法:隐式声明和_____.5.VB是一种面向_____的程序设计语言,采用了_____编程机制.6.表达式Ucase(Mid("abcdefgh",3,4))的值是_____.7.请用正确内容填空,以下程序的输出结构是:4 7 105 8 116 9 12Option Base 1Private Sub Form_Click()Dim i as integerDim j as integerDim a(3,3) as integerFor i=1 to 3For j=1 to 3a(i,j)=_____print a(i,j);Next jprintNext iEnd Sub8.在过程调用中,参数的传递可分为两种方式,其中按_____传递方式是默认的. 程序设计1.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求50以内所有偶数的和，并在窗体上输出出来。
' 将结果存入变量S中'-------------------------------------------------Private Sub Form_Click()Dim s As Integer'******** Begin *********'********* End ***********TestFunc (s)End SubPrivate Sub TestFunc(i As Integer)Dim OUT As IntegerOUT = FreeFileOpen App.Path& "\18.out" For Output As #OUTPrint #OUT, iClose #OUTEnd Sub2.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun其功能是：根据整型形参m，'计算如下公式的值:' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)' 例如：若m=9，则应输出：2.133256'-------------------------------------------------Private Function fun(m As Integer) As Single'********** Begin *********'********** End *************End FunctionPrivate Sub Form_Load()ShowPrint fun(9)TestFuncEnd SubPrivate Sub TestFunc()Dim i As IntegerDim s As StringDim l As IntegerDim d As DoubleDim a(10) As StringDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path& "\in.dat" For Input As #fInfOut = FreeFileOpen App.Path& "\out.dat" For Output As #fOutFor i = 1 To 10Line Input #fIn, a(i)l = Val(a(i))Print #fOut, fun(l)NextClose #fInClose #fOutEnd Sub程序填空1.'------------------------------------------------------- '本程序段将一个十进制整数m转换成 r (2－16)进制字符串'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。
'------------------------------------------------------- Function TranDec$(ByVal m%, ByValr%)Dim StrDtoR$Dim iB%, mr%StrDtoR = ""Do While m <> 0'**********FILL**********mr = _____m = m \ rIf mr>= 10 Then'**********FILL**********StrDtoR = Chr(mr - 10 + _____) &StrDtoRElseStrDtoR = mr&StrDtoREnd IfLoopTranDec = StrDtoREnd FunctionPrivate Sub Command1_click()Dim m0%, r0%, i%m0 = Val(Text1.Text)r0 = Val(Text2.Text)If r0 < 2 Or r0 > 16 Theni = MsgBox("输入的R进制数超出范围", vbRetryCancel)If i = vbRetry ThenText2.Text = ""Text2.SetFocusElseEndEnd IfEnd IfLabel3.Caption = "转换成" & r0 & "进制数"'**********FILL**********Text3.Text = TranDec(m0, _____)End Sub2.'-------------------------------------------------------'本程序运行后，单击"替换"按钮，可以将text1中包含的'text2内容，替换为text3内容。