VB试题第二套.doc

VB试题第二套一选择题（20*1.5）1、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框2、要使按钮上能放置图片需修改按钮的_属性。 A)mask B)backcolor C)visible D)style3、要使标签透明须将其_属性改为0 A)style B)backstyle C)boderstyle D)visible4、Print不能在以下_控件上输出 A)窗体 B）图形框 C）打印机 D)按钮5、MDI中反映当前选中子窗体的属性是_。 A)activeform B)activecontrol C)mdichild D)caption6.下列过程语句中，一定按传值方式进行数据传递的定义语句是_。 A）Sub Pro2(a As Integer) B）Sub Pro2(ByRef a As Integer) C）Sub Pro2(ByVal a As Integer) D）Sub Pro2(arr( )7下列四项中，不合法的VB常数是A.4100B.D-10C.2.5ED.65%8语句Print 5/5*5的输出结果是A.5B.25C.0D.19. 下列是VB中的合法变量名的是A.AB7B.7ABC.IFD.A.710. Print Format(HELLO,)：A.HELLOB.helloC.HED.he11. 在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是：A.TagB.IndexC.ListIndexD.Name12. 以下不能在工程资源管理器窗口中列出的文件类型是A. .basB. .resC. .frmD. .ocx13. 可以删除字符串尾部空格的函数是A.LtrimB.RtrimC.TrimD.Mid14. 下面程序运行时循环总次数是For M=1 To 3For N=0 To 2Next NNext MEnd SubA.6B.7C.8D.915.以下不能运行工程的操作是A.执行运行菜单中的启动命令B.单击工具栏中的启动命令C.按下F5键D.按下Ctrl+F5键16. 用于获得字符串S从第4个字符开始的4个字符的函数是A.Mid(S,4,4)B.Left(S,4,4)C.MidStr(S,4,4)D.MiddleStr(S,4,4)17.要使文本框可输入多行文字，要设置的默认选项是A.ScrollBoars和MultiLineB.MultiLineC.ScrollBoarsD.以上都不是18. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 _ Click() Dim a(-3 To 0) For I=LBound(a，1)To UBound(a，1) a(I)=I Next I Print a(LBound(a，1)；a(UBound(a，1)End Sub程序运行后的输出结果为A.00B.-30C.-10D.0319. 以下程序输出的结果为x=1y=4Do While y=4x=x*yy=y+1LoopPrint xA.4B.8C.12D.1620. Dim k As Integern=5m=1k=1Do until knm=m*2k=k+1LoopPrint mA.1B.5C.32D.4020. 在用通用对话框控件建立打开或保存文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即txt文件)，则正确的描述格式是text(txt)|(*txt) 文本文件(.txt)|(txt)text(txt)(*txt) text(txt)(*txt)二填空题 (10*1)(1)下列程序的运行结果是【1】Private sub form_click() Dim i as integer i=8 while I5 i=i-1print Iwend end sub (2)有如下事件过程private sub command1_click() dim a(3,3) for I=0 to 3 for j=0 to 3arr(I,j)=I+jnext jnext Ifor m=2 to 3 for n=2 to 3 print arr(m,n) next n next mend sub单击命令按钮，输出结果为_【2】(3)有如下事件过程：private sub command1_click() b=10 do until b=-1 a=inputbox(“输入a的值”) a=val(a)b= inputbox(“输入b的值”)b=val(b)a=a*bloopprint aend sub程序运行后，依次输入30、20、10、-1，输出结果为【3】。（1） 以下程序输入一串整数以-1结束求其中最大最小值请完成：Private Sub Form _ Click() Dim x As Single，amax As Single，amin As Single X=InputBox(Enter a score) amax=x amin=x Do While x-1 If 【4】Then amax=x End lf if 【5】Then amin=x End if x=InputBox(Enter a score) Loop Print Max=；amax，Min=；aminEnd Sub(5)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labl1中显示当前文件夹中文件的数量。如下图：(完成程序) Private Sub Dir1_Change() File1.Path=【6】 Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change() Dir1.Path=【7】 Label1. 【8】 =File1.ListCount End Sub(6) 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1_Click()Randomize For i=1 To 20 x=Int(【9】*100+200) If 【10】 =0 Then Print x S=S+x End If Next i Print Sum=;S End Sub三上机题（1）在名为Form1的窗体上画一个框架，名称为Frm1，标题为框架，高度为 2500，宽度为4000；再在框架中画一个文本框，名称为Text1，高度为400， 宽度为1200，其位置距框架的左边框600，距框架的上边框1200，文本框中 的初始内容设置为文本框。（2）在名称为 Form1的窗体中建立一个名称为 Text1的文本框，其初始内容为 等级考试；再建立两个命令按钮，名称分别为Cmd1、Cmd2，标题分别 为宋体、黑体（如图所示）。要求程序运行后，在单击宋体 按钮时，则执行语句 Text1.FontName=宋体；在单击黑体按钮时，则 执行语句 Text1.FontName=黑体。(3)在窗体上有一个列表框，名称为List1，一个文本框，名称为 Text1，和一 个命令按钮，名称为 C1，标题为复制。要求程序运行后，在列表框中 自动建立四个列表项，分别为Item1、Item2、Item3、Item4 如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本 框中（如图所示）。4. 设有如下程序 Private Sub search(a()As Variant, ByVal Key As Variant, index%) Dim I% For I=LBound(A） To UBound(A） If key=a(I) Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Dim b()As Variant Dim n As Integer b=Array(1,3,5,7,9,11,13,15) Call search(b,11,n)