VB试题第二套

《VB试题第二套》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB试题第二套一．选择题（20*1.5）1、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是A)单选按钮B)图片框C)通用对话框D)文本框2、要使按钮上能放置图片需修改按钮的_________属性。A)maskB)backcolorC)visibleD)style3、要使标签透明须将其_________属性改为0A)styleB)backstyleC)boderstyleD)visible4、Print不能在以下_________控件上输出A)窗体B）图形框C）打印机D)按钮5、MDI中反映当前选中子窗体的属性是_____

2、__。A)activeformB)activecontrolC)mdichildD)caption6.下列过程语句中，一定按传值方式进行数据传递的定义语句是_____。A）SubPro2(aAsInteger)B）SubPro2(ByRefaAsInteger)C）SubPro2(ByValaAsInteger)D）SubPro2(arr())7．下列四项中，不合法的VB常数是　A.　4100B.D-10C.2.5ED.65%8．语句Print5/5*5的输出结果是A.5B.25C.0D.19.下列是VB中的合法变量名的是A.AB

3、7B.7ABC.IFD.A.710.PrintFormat(″HELLO″,″＜″)：A.HELLOB.helloC.HED.he11.在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是：A.TagB.IndexC.ListIndexD.Name12.以下不能在"工程资源管理器"窗口中列出的文件类型是A..basB..resC..frmD..ocx13.可以删除字符串尾部空格的函数是A.LtrimB.RtrimC.TrimD.Mid14.下面程序运行时循环总次数是ForM=1To3　

4、ForN=0To2　　　NextN　　　NextMEndSubA.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.ScrollBoars

5、D.以上都不是18.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(-3To0)ForI=LBound(a，1)ToUBound(a，1)a(I)=INextIPrinta(LBound(a，1))；a(UBound(a，1))EndSub程序运行后的输出结果为A.00B.-30C.-10D.0319.以下程序输出的结果为x=1y=4DoWhiley＜=4　x=x*y　y=y+1LoopPrintxA.4B.8C.12D.1620.DimkAsIntegern=5m=1k

6、=1Dountilk＞n　　m=m*2　　k=k+1LoopPrintmA.1B.5C.32D.4020.在用通用对话框控件建立"打开"或"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即．txt文件)，则正确的描述格式是"text(．txt)

7、(*．txt)""文本文件(.txt)

8、(．txt)""text(．txt)‖(*．txt)""text(．txt)(*．txt)"二．填空题(10*1)(1)下列程序的运行结果是【1】Privatesubform_click()Dimiasintegeri=8wh

9、ileI>5i=i-1printIwendendsub(2)有如下事件过程privatesubcommand1_click()dima(3,3)forI=0to3forj=0to3arr(I,j)=I+jnextjnextIform=2to3forn=2to3printarr(m,n)nextnnextmendsub单击命令按钮，输出结果为_【2】(3)有如下事件过程：privatesubcommand1_click()b=10dountilb=-1a=inputbox(“输入a的值”)a=val(a)b=inputbox(“输入

10、b的值”)b=val(b)a=a*bloopprintaendsub程序运行后，依次输入30、20、10、-1，输出结果为【3】。（1）以下程序输入一串整数以-1结束求其中最大最小值请完成：PrivateSubForm_Click()DimxAsS