《vb考试题及答案.docx》由会员分享,可在线阅读,更多相关《vb考试题及答案.docx(7页珍藏版)》请在课桌文档上搜索。
1、I.下列不是VB常为t的是,A) 3.14B) NameC)# I O/18/2007#D)True2,确定控件在窗体上位移的I性是C ,A) Width 和 Height B) Width 和 Top C) Top 和 LeftD Top和 Height3 .数学表达式1XIO表示成正确的VB衣达式为BA) lXIOB) X=l AndXl()C)X=1 OrxIOD)X=I nl 104 .下面的语句可以实现:先在窗体上输出大n字母A,然后在同一行的笫IO列输 出小写字母b.) PrintAjTab(9)bB Prim zSpc(8)ibC) PrintASpace(10bD) Prinl
2、A;Tab RtrimC) LtrimD Mid13.函数 Inl(Rnd*80)+1 是在.D范国内产生随机整数,A) 0, 80B) |0. 79|O (1. 79)D) (1. 8014 .下列四个字符率进行比较,最大的是 DC) CinemaD) ,ext) 9977 nB) CD45 15 .要使文本框可以显示乡行文本,猛;设置 A 属性为TrUC.A) MuItiLincB) EnabledC MaxLcngthD) Locked16 .己知 f= 12345678”,则表达式 VaI(LefUf.3)+val(Mid(f,4.2)的例是_&_,A) 168B)12345C)i23
3、DH517 .执行谙句:MSgbOX ”北京欢迎您!二1. “2008”.所产生的消息对话框的标翘是上.A)北京欢迎您!B) 2008C) 0D I18 .下面正篇的赋假语句是,_.A) y=3xB)3*x=yC)y=3*xD)x+y=1019 .设 a=6,则执行 IFIIF(a5,-l.0)THBN X=O EISE X=I 后,x 的伯为C .A)5B)6C)0D)l20 .在 ViSUalBaSiC 中,表达式 yl+z2=a*Sin(b*x+c+k 的类型是。A)算术表达式B)关系表达式O逻辑表达式D)字符表达式 21.如果变果 a=50、b= ABC c=*abc d=10.则表达
4、式 acAnd(vc 的值是 B,) TrueB FalseC) YesD) No22 .若 Dim b(3) As Integer .Kl UcasdChrt97) & UB(und(b)的结 A是 A 。A) A3B) A2O AlD) AO23 .下列各项不是ViSUal Basic的堪本数据类型的是A .A) CharB) StringC) IntegerD) Double24 .下列表达式中,友达K A的运算结果与其它3个不同“A) InH-3.5)-1.5B) Intl.5)+05C) -Abs(-4.5)D)Fix(-4.5)-0.5 25.对于窗体FomlI,执行了 FQrmL
5、Lefi=FOnnLLeft+100语句后,则该窗体DA)上移B)下移O左移Di移26.1. 于窗体FOmlI,若将其名称属性设置为Disp1Caption姐性设置为OK则下列正确的语 句是_. A) Fml.Left= I(XK)B)OK.Lefl= IOOOC) Disp,Lcft= 1(XXD)以上语句都不对27 .以下程序段执行后,整型变下n的优为 B . y=2OO8 n=y4 + y4-y 1 A) 486B) 487O 507D) 46728 .如果每0.1秒产生一个计时器事件,那么时果控件的InlCrVal屈性成i殳为 C .) 1B) IOC) IOOD 100029 .如果
6、a=l, b=-l.则语句PrinMa=D And (b = l)的输出结果是_B_) FalseB) TrueC)D)30 .将数据项“北京臾运会”添加到列表框USU中成为第2项,应使用谱句.A) LiStLAddItCm”北京奥运会”.2B Listl.Addltcm2. ”北京奥运会”C) LiStLAddhCm”北京奥运会”.ID ListLAddItcmE ”北京奥运会”31 .若要使标签框的大小自动与所显示的文本相适应,则可通过设置属性的值为Tme来实现。A) AutoSizeB) Alignment C) AppearanceD) Visible32 . .表示表动条控件控件范困
7、外人俏的屈性是A ,A) MaxB)LargCChange C)ViIlUCD)Min33 .窗体上有一个列表枢控件UMl,其中含有若干列表项,则D能表示当前被选中的列表项内容。A) List !.List B ListLListIndex C) LislIJndexD) LisiLTcxt34 .要消除PiCUIreBoX控件中的图形,可用 语句。A) picture 1 .ic(ure=Loadpic(ure () B) picture !.pictureC picture! .pic(ure=Loa10情况的语句为:Case CA) Not(-I01b 10)B) -IOlb IOO !
8、s10D) AbS(N)1038 .以下程序段运行后,输出结果是 D .Fori=I To 3Forj=I ToiIfj Mod 2=0TbenElse PrinS m: End If Ncxtj Print Next iA$B) C) D) $ S$S$ $ $s39 .下列程序段的循环结构执行后,i的输出伯足 B C Dim y As Integer For i=2 To 10 Slep 2 y=y+i Next i Print i A) )1B) 12C) 13D)因为y初值不知道,所以不确定40.下面分别是求两个数中的人数的程序段,不IE确的是 D ,A) Max=llf(xy,x.y
9、)B) If xy ,I,hcn Miix=X Else Max=yC) Max=xD Ify=x Then Max=yIf y=x Then Mrx=yMax=X填切1 . VB工程文件的扩展名为vbp.一体文带的扩展名为.frm.2 .若要将窗体FOnnl隐藏起来,谓用语句为 ftrml.hkk.3 . ViSUaIB於记的三种工作粮式是设计、运行 和中的,4 .在调用过程时4数传递的两种方式是按值 和按地址 ,5 .卜面程序的功能是找出100到999之间所有的,水仙花数”,请用正确的内容埴空.所料水 仙花数”是指一个三位数,其各位数字的立方和等干该数本身.例如153= IMM3.故153
10、 是“水仙花数”.Private Sub FOrnLCliCk()Dimps IntegerForn=IoOTb 999a= int(n.l(K)b=lnt(n-a+l(X)IO) c=n ModIO p=a3+b3+c3 If p=n ThenPrintn:是“水仙花数” End IfNext nPrin l”;End Sub6 .以下程序实现每次单击按钮Commandl时标签Labdl在窗体FonnI中向右移动100 个标准单位:当标签移出窗体右边界时.再次单击Commandl.标签Laben回到窗体 的左边界.Private Sub Command LeIiCk()If LabcILLc
11、it Form !.Width thenLabdIhn=OElseLabdLkn=kbdlkft+IOOEndlfEnd Sub7,执行下面过程后,窗体上显示的是130Private Sub Fo门ILCliCkODim a(IO,IO) as IntegerDim i as Iineger j as IntegerFor i=l (o IOForj=I (o IOa(ij)=i*jnextjnext iprint a(2,2)+a(3,3)end subMM1 .编写程序,分别用InPUlBOX函数接收两个整数,在窗体中输出其中的较大数.(10)2 . S=l+2=3问n最小为多少时S的值大
12、于IoOOo请编程计算n的值“ (10分).3 .用循环语句编程输出下列图形(10分)4 .利用随机函数模拟产生IO名学生的EVB课程*期末考试成绩(O-KX).然后将成绩按从大到小的次序排序输出.(10分)5编写程序.分别用InPUtBoX函数接收两个整数.在窗体中给出其中的较大数* (10)6 .编写程序将自然数31(X)中的所有素数打印出东,并统计其个数(10分).7 .用循环谱句编程输出下列图形(K)分)编程一,Private Sub Command I _Click() a = VaI(InPBo*(请输入 A 的伯) b = VwinpulBoxCiJtSJd B 的值RIfa b
13、ThcnPrirU ,两个数中A大”ElsePrint 两个数中B大”End IfEnd Sub编程二,Private Sub Commanil_Click() Dim $ AS ln(eger.n As Integer s = 0 n = 0Do While s = IOOOn =n Is = s n 2LpPrint nEnd Sub编程三,Private Sub Form_Load()Forml.ShowDim Att As StringFor i 0 To 4Print String(i *2+1, Next End Sub编程四:Opiion Base 1Privalc Sub Fo
14、r-Click()Dim a(10) As IntegerFori= Ilb IOa(i) Int(Rnd * 101)Print a(i):NcxtiPrintFor i = I To 9Forj = i + ITb 10If a(i) V a(j) lhcn = a(i)a(i) = a(j)a(j) = tEnd IfEnd Sub编程五:同一编程六:Private Sub Comnuind l_Click()Dim i As Integer, m As Integer, flag As Boolean. S As Integer S = OFor m = 3 To 100Ilag = TrueFor i = 2 Tb m - 1If (m Mod i) = 0 Then flag = FalseNext iIf flag Then s = s+ 1Print mEnd IfNext mPrint 一共有” &s& 个素数”End Sub编程七,Private Sub Form_Load()Forml.ShowDim Att As StringFor i = 0 To 4Att = String(i *2 + 1, ,*h)Print Space(9 - i) & Att Next End Sub