VB填空

ID sjh th 16001 17002 18003 19004 20005 21006 22007 23008 24009 250010 260011 270012 280013 290014 300015 15111 16112 17113 18114 19115 20116 21117 22118 23119 241110 251111 261112 271113 281114 291115 15221 16222 17223 18224 19225 20226 21227 22228 23229 242210 252211 262212 272213 282214 292215 1533116332 17333 18334 19335 20336 21337 22338 23339 243310 253311 263312 273313 283314 293315 15441 16442 17443 18444 19445 20446 21447 22448 23449 244410 254411 264412 274413 284414 294415 15551 16552 17553 18554 19555 20556 21557 22558 23559 245510 255511 265512 275513 285514 295515 15661 16662 1766318664 19665 20666 21667 22668 23669 246610 256611 266612 276613 286614 296615 15771 16772 17773 18774 19775 20776 21777 22778 23779 247710 257711 267712 277713 287714 297715 15881 16882 17883 18884 19885 20886 21887 22888 23889 248810 258811 268812 278813 288814 298815 15991 16992 17993 18994 1999520996 21997 22998 23999 249910 259911 269912 279913 289914 299915tg下面正确的语句行是________。

+++第一套+++1、有如下Visual Basic程序段：a="Good"b="Bye"c=a+b该程序段运行后，变量c的值是____(1)____。

2、有如下Visual Basic程序段：x=3If x>5 Theny=x*xElsey=4*xEnd If该程序段运行后，变量y的值是____(1)____。

3、下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。

则程序中划线处的语句应更正为______(1)______。

Private Sub Command1_Click()Dim sum As Long,i As Integer,n As Integersum = 0n = Val(Text1.Text)For i = 1 To 2 * n - 1 Step 2sum = sum + 2Next iText2.Text=Str(sum)End Sub4、依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。

设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。

解决此问题的流程图如VB-1所示。

根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If (1) ThenLabel1.Caption = "你属于醉酒驾车!"ElseIf x >= 0.3 ThenLabel1.Caption = "你属于酒后驾车!"(2)Label1.Caption = "恭喜你没有违法!"End IfEnd IfEnd Sub程序中划线处(1)应填入程序中划线处(2)应填入图V B－1+++第二套+++1、有如下Visual Basic程序段：a=2b=3c=4c=b-a该程序段运行后,变量c的值为___(1)____。

《VB》经典填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。

2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。

3、工程文件的扩展名为，窗体文件的扩展名为。

4、属性窗口分为4个部分，这4个部分分别是、、、。

5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。

6、为了选择多个控件，可以按住键，然后单击每个控件。

7、在用Visual Basic 开发应用程序时，一般需要、、 3步。

8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。

9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。

10、为了使标签覆盖背景，应把属性设置为1。

11、为了使标签中的内容居中显示,应把属性设置为2。

12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。

14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。

16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。

19、计时器事件之间的间隔通过属性设置。

20、有时候需要暂时关闭计时器，可以通过设置属性来实现。

21、可以同时删除字符串前导和尾随空格的函数是。

22、当某一按钮的属性设置为False 时，该按钮不可见。

23、属性用于设置或返回文本框中的文本。

24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。

26、要使标签透明，可将其backstyle属性的值设为27、滚动条的属性表示滚动框在滚动条中的当前位置。

1.Text2.text=Text1.Text cstr(fac(x)）Dim s As Long: s=1 s=s*i fac=s2.m=Max(a,b,c)*mac(a+b,b,c)-max(a,b,b+c）Text4.Text= cstr(m) max=x3.k=2 redim preserve a(i) loop until n=1 for i=1 to ubound(a)-14.a(i)=Int(Rnt*90+1) max=f(a,min) f=b(i) if f<b(i) then f=b(i)5.mr m mod r 65 r06.Open app.path&“\in5.dat “for input as #1 athelete(k)=ch s=s+a(n,k) if s=(s-maxmum-minmum)\5 if Open app.path&“\out5.dat “ for output as #17.For i =1 to 10 for j=1 To UBound(a)-i if a(n)=a(i) then ReDim Preserve a(n+1)monDialog1.Filter input #1,arr(i) CommonDialog1.FilterIndex=2 if arr(i)>arr(j) then9.If max<a(i) then max=a(i) for i=0 to 9 max=a(0) avg=avg+a(i)10.Iput #1,a(i,j) close #1 if a(i,j)>x then x=a(i,j) Open App.Path &”\out 5.dat” for output as #1 print #1 label1(k)11.call prime (x,flag) flag text2=x&”是素数”for i=2 to Sqr(x) If x Mod i=0Then Exit For If i>Sqr(x) Then flg=true Text2.Text=”“Text1.SetFocus12.Dim s as recordtype get #1,s sumval =s.a1+s.a2+s.a3 output13.Text1.text File1.Path=Dir1.path dirl.path =drive1.drive do while not EOF(1)14.Hws x,flag s=x if mid (s,i,1)<>mid(s,len(s)-i+1,1) i>len(s）\215.a(i,j)=int(rnd*9+1) b(i,j)=a(j,i) a(i,j) =a(j,i) a(j,i)=temp16.Find m,n s=1 p=x*y17.P=p&mid(s,i,1) redim preserve c(k) k=k+1 list1.additem c(i)18.n=int (rnd*90 +10) n Mod j=0 If j>sqr(n) Then19.call sxh(i) b=(x\10) Mod 10 x=a^3+b^3+c^3 x&“-”&a&“^3+”&b&“^3+”&c&”^3“bol1.text text3=a/b21.n=n\222.Text1=Text1.Text+a T=Time y=y+1 n=n+123.right(text1,1) ch n24.Select case s\1025.If a>b Then max=b26.S=s&Mid(Text1.Text,i,1)27.n-1 n mod i=0 sqr(m)\m-1 m mod j=0 sqr(m)\m-1 sqr(n)\n-128.S=chr(int(rnd*26+65) if a(i)>a(i-1) then if a(1)>a(n）count=count+129.If x=a(k) then exit for do while left<=right else if x>a(mid) then if i<>0 pointer then30.Redim preserve a(k) if a(j) >a(j+1) then small=small&a(i) if a(i)<>0 then exit for31.T=t*j s=s+t32.Len(s) “z”mid(s,j,1)<=”9”33.Ch=mid(str,i,1) str2=str2+chr(n) str234.p=p*1.0008 t=t+1 loop while p<=2635.If x mod i =0 if i>x-1 then36.Then Exit for x=i1、1-10间任一数字阶乘2、表达式M=max(0,b,c)*max(a+b,b,c)-max(a,b,b+c)3、求质因子整数N 分解4、随机产生10个两位数整数，并求最大最小值5、将一个十进制m整数转换成r（2-16）进制6、选出冠军，存盘，得分7、对动态数组生成，排序，插入元素8、通过对话框部件，完成打开，保存，进行排序9、利用inputbox给一维数组赋值10、偶数最大值，奇数平均值11、判断按钮对文本框1输入的正整数判断编写一个判断素数的sub过程12、计算最大值最小值，存盘maxval，minval13、Drivel.dirl 大写转小写，English214、编写sub过程hws 判断回文数15、随机生成4*4二维矩阵显示在图片框16、利用下面过程求m！和m*n17、从一个由字母与数字相混的字符串中选出数字串，筛选18、Rnd随机10个10~99整数，素数个数19、求所有水仙花数20、简单计算器程序21、十进制整数转换成二进制整数22、文本框随机产生30字母范文，产生范文，结束23、若是小写字母，显示大写，若是大写，显示小写，其他字符直接显示，在label2中显示总字符数24、编写程序，输入学生的百分制成绩，将百分制成绩转换成学分制成绩25、输入两个数，找出其中较大的输出26、编写一个程序，该程序的功能是：能够将输入的字符27、编写一个程序，该程序的功能是：输入任意一个整数，若该数不是素数28、随机产生N个大写字母，并显示29、对动态数组的选择排序，顺序查找，二分查找30、利用inputbox函数输入一个N位整数31、结合累加算法：求1！+2！+3！+...+n！32、在文本框中输入一串字符，统计其中字母，数字和其他字符个数33、如图所示，输入一串字符，按规则进行加密34、我国现有人口13亿，按人口增长率0.8%35、完善程序代码，要求实现从文本框输入一个正整数36、完善程序代码，要求筛选出100以内素数计算两个正整数的最大公约数，Dor= m Mod nIf r=0 Then Exit Dom=nn=rLoopFun=n当x的初值为10，Dox=x*1.01n=n+1Loop Until x>=yfun=n求从m到n的奇数的乘积Product=1For i=m To nIf i Mod 2< >0 Then Product=Product*i Next iFun=Product整数n的所有因子之和（不包括1与自身）Dim s,i As IntegerFor i=2 To n-1If n Mod i=0 Thens=s+iEnd IfNextFun=s。

（第3套）1327、在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！Private Sub Command1_Click()Dim a As Integer a = Val(①) If a = 0 Then Label1.Caption = "零"ElseIf a > 0 ThenLabel1.Caption = "正数"ElseLabel1.Caption = "②"End IfEnd Sub（第6套）1328、公鸡5文钱一只，母鸡3文钱一只，3只小鸡1文钱。

如果用100文钱买100只鸡，可以买公鸡、母鸡和小鸡各多少只？'完善下面的程序，单击“计算”按钮时，在Label 中显示公鸡、母鸡、小鸡的数量！ Private Sub Command1_Click()Dim i As IntegerDim j As Integer Dim k As Integer For i = 0 To ① '第一空 For j = 0 To 33 k = ② - j '第二空If 5 * i + 3 * j + k / 3 = ③ Then '第三空Label1 = "小鸡=" & kLabel2 = "母鸡=" & jLabel3 = "公鸡=" & iEnd IfNext jNext iEnd Sub（第4套）1329、完善程序，输入时间秒，转换成时、分、秒形式！Private Sub Command1_Click()Dim a, b, c, d As DoubleDim h As Stringa = Val(Text1.Text)b = ① '转换小时c = ② '转换分钟d = (a Mod 3600) Mod 60 '转换秒h = b & "小时" & c & "分钟" ③Text2.Text = hEnd Sub（第1套）1330、在左边的文本框中输入一个100以内的正整数（包括100），单击"判断"按钮，在右边的文本框显示是"奇数"还是"偶数";'输入大于100的整数则显示"输入的整数不能超过100"！Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If ① ThenText2.Text = "输入的整数不能超过100"ElseIf ② = 0 ThenText2.Text = "偶数"ElseText2.Text = "奇数"End IfEnd Sub（第8套）1331、完善程序，找出100以内的偶数(包括100)中能被3整除的正整数，并求出它们的和！'单击“求和”按钮时，在文本框中输出和！Private Sub Command1_Click()Dim x As Integerx = 0For i = 0 To 100 Step ① '第一空If ② Then '第二空③ '第三空End IfNext iText1.Text = xEnd Sub（第10套）1332、（1）在窗体form1中添加一个名位“label1”的控件，并显示文字“输入英寸长度”（2）在窗体form1中添加一个名为“command1”的按钮，并在按钮上显示文字“换算后的厘米长度”（3）在窗体form1中添加一个名为“text1”的文本框，并在文本框中显示内容“text1”（4）在窗体form1中添加一个名为“text2”的文本框，并在文本框中显示内容“text2”（5）完善程序，使之实现如下功能：在上面的文本框text1中输入一个正整数，单击“换算后的厘米长度”按钮，在下面的文本框text2中输出换算后的长度（注：1英寸=2.54厘米）Dim a As Singlea = Val(Text1.Text)Text2.Text = a ①End Sub（第4套）1333、'求1到100之间所有偶数之和与所有奇数之和!Private Sub Command1_Click()Dim s1 As Single, s2 As Single, i As Integers1 = 0s2 = 0For i = 1 To 100If ① = 1 Then '第一空s1 = s1 + iElse② '第二空End IfNext iText1.Text = ③ '第三空Text2.Text = ④ '第四空End Sub（第9套）1334、①在窗体form1中添加一个名为“command1”的按钮，并在按钮上显示文字“画图”②完善程序，单击“画图”按钮，使其能输出如下图形Private Sub Command1_Click()Dim i, j As IntegerFor i = 3 To ① Step ② ' 第一空Print Space(i); '打印空格For j = 1 To 10Print ③ '第二空Next jPrintNext iEnd Sub（第6套）1335、输入3个整数，输出最小值Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox("请输入数据", "输入3个数")For i = 1 To ① '第一空x = InputBox("请输入数据", "输入3个数")If ② Then '第二空min = xEnd IfNext iText1.Text = ③ '第三空End Sub（第5套）1336、'"五一"节时，某商场推出促销活动，购物总金额达到100元可以打9折，达到200元可以打8折，100元以下不打折！'完善程序，使之实现如下功能：在第一个文本框中输入购物总金额，单击"计算"按钮时，在第二个文本框中输出实际支付金额！Private Sub Command1_Click()Dim a As SingleDim b As Single① = Val(Text1.Text)If a ② 200 Thenb = a * 0.8③ a >= 100 Thenb = a * 0.9Elseb = aEnd IfText2.Text = bEnd Sub（第8套）1987、实现功能：单击按钮后打印如下所示的图案。

班级姓名座号
一、VB常用控件填空题
Visual Basic语言预定义了窗体、按钮、文本框、标签等控件类，正是VB编程人员在创建设计应用程序所需的常用控件，了解掌握这些控件的属性数据项、方法程序和响应事件的接口是学习使用VB编程的关键内容，请同学们回答问题，识记并掌握好以下题目所体现的知识内容：
1)窗体
二、判断题
三、VB编程体验
创建一个统计奖牌总数统计的应用程序，如下图所示，包括form窗体、label标签、textbox文本框、commandbutton按钮对象。

执行示范
'标题为“计算”按钮的“单击”事件过程
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Text1.Text
b = Text1.Text
c = Text1.Text
Label4.Caption = "奖牌总数为" & a + b + c
End Sub
'标题为“退出”按钮的“单击”事件过程
Private Sub Command2_Click()
End
End Sub
体验完毕，保存后，把其中扩展名为Frm的窗体文件、扩展名为vbp的工程文件，连同本作业文件一并上交到作业收件箱。

1、写出用随机函数产生一个200至300之间整数的VB表达式【1】.答案：200★+★Int(★Rnd*100★) 或 200★+★Int(★100*Rnd★)2、已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.答案：DE3、VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条或滚动条4、想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上【1】.答案： &5、列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表或列表6、设置控件背景颜色的属性名称是【1】.答案：backcolor7、如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有【1】个元素.答案：218、定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次【1】事件.答案：Timer9、写出清除标签Label1的显示信息的语句为【1】.答案：="" 或 Label1="" 或 =""10、写出清除图片框的文字或图形信息的语句【1】.答案：或 cls11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E 访问,应设置属性【1】.答案：Caption 14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案： (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案： "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*15 22、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\") 或shell("")24、设置计时器控件只能触发【1】事件.答案： timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案： (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.答案： 200,100,sqr(2),sqr(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll 和【1】事件.答案： Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.2,2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案： interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案： CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false.答案： MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案： click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：或 SetFocus38、滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案： change 39、文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件或随机40、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案： 041、循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】.答案： 042、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】 .答案： 043、VB中,变量的声明可分为两种方法:【1】数组和动态数组.答案：静态44、Option Base 1的作用是确定数组的下界为【1】. 答案： 145、VB中,变量的声明可分为两种方法:隐式声明和【1】.答案：显式声明46、一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式【1】.答案：a<>0★and★b^2-4*a*c>=047、在VB 中,设 Single型变量 XYZ 的值为,若要将其转换成字符串,应使用的类型转换函数是【1】.答案： STR 或 CSTR48、由Dim a (10) As single定义的数组占用【1】字节的内存空间.答案： 4449、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】.答案： VAL 或 Cint50、在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案： MultiLine51、大于X 的最小整数的VB表示形式为【1】.答案： Int(x)+1 或 Int(x)★+★152、一个工程可以包括多种类型的文件,其中扩展名为.bas 的文件表示【1】文件. 答案： 标准模块 或 模块 53、在VB 中,变量名最长可达【1】个字符. 答案： 255 54、在VB 中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案： Caption 55、在控件之中,【1】不能从工具箱中被删除. 答案： 内部控件 或 标准控件 56、在VB 中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句. 答案： Option Explicit 57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name 和【1】. 答案：caption 58、一个工程可以包括多种类型的文件,其中ActiveX 控件的文件扩展名为【1】. 答案： OCX 59、在利用Visual Basic 设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误 60、要使一个按钮无效,则可把它的Enable 属性设为【1】. 答案：False 61、在VB 中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互. 答案：方法 62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp 的文件表示【1】文件. 答案：工程 63、一个工程可以包括多种类型的文件,其中,扩展名为.frm 的文件表示【1】文件. 答案： 窗体 64、要使同一类型控件组成一个控件数组,必须要求【1】. 答案： Name 相同 或 名称相同 65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True. 答案：Default 66、在VB 中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义. 答案：ReDim 67、在控件之中,【1】单独保存在.OCX 文件中,在必要时可以加入到工具箱中. 答案：ACTIVEX 控件 68、VB 中的变量按其作用分为全局变量,模块变量,【1】. 答案： 局部变量 69、在一条Dim 语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar 、intVar 与sngVar 的数据类型分别是Variant 、Variant 和【1】. 答案： Integer 70、设x 为大于零的实数,则大于x 的最小奇数的Visual Basic 表达式是【1】. 答案： IIF(int(x) mod 2=0,int(x)+2,int(x)+1) 71、说明变量类型有隐含类型说明和【1】两种方法. 答案： 强制类型 或 强制类型说明 72、表达式(-3) Mod 8的值为【1】. 答案：–3 73、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】. 答案：a3456 74、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案：False 75、String(3, "abc")的结果为【1】. 答案： aaa 76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】". 答案： 中断 77、VB 的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案： 连接 78、Integer 类型的变量占用【1】字节空间. 答案： 2 79、表达式81\7 MOD 2^2 的值是【1】. 答案： 3 80、设x 为一个两位数,将x 个位数和十位数交换后所得两位数VB 的表达式是【1】. 答案：(x mod 10)★*★10★+★int(x/10) 81、求x 与y 之积除以z 的余数的VB 表达式为【1】.答案：x*y★Mod★z82、变量min&表示【1】类型的变量.答案：长整型83、A和B同为正整数或同为负整数的VB 表达式为【1】.答案：A=INT(A)★AND★ B=INT(B)★ AND★A*B>084、Val("")的值是多少【1】.答案：85、表达式"[A]"Like "[A]"的值为【1】.答案： False86、sst="ABC12DE",则Val(sst)=【1】.答案： 087、VB表达式9^2 MOD 45 \2 *3 的值【1】.答案：488、表达式 32\7 MOD 3^2 的值是【1】.答案： 489、默认情况下,所有未经显示声明的变量均视为 Variant 类型,如果要强制变量的声明,应在模块的声明段使用【1】语句.答案： Option Explicit90、征兵的条件:男性(sex)年龄(age)在18—20岁之间,身高(size)在1.65米以上;或者女性年龄在16—18岁之间,身高在以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>= ) or (notsex and age>=16 and age<=18 and size>= )91、把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： False92、a 和 b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】.答案： a=1★xor★b=193、设x=2,y=4,a=4,b=6,表达式 (a>x Xor b<x) OR x<y IMP y<b 的结果为【1】.答案： True94、把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： True95、如果:I=12:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案： -196、如果:I=11:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1 and x<12 或 x<12 and x>=1 98、声明单精度常量g(重力加速度)代表可写成【1】.答案：const g= 或 const single g= 100、X=2:Y=8:PRINT X+Y=10的结果是【1】.答案：True101、声明单精度常量P1代表的语句为【1】.答案：Const PI= 或 Const pi As Single = 102、VB 的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、的连接运算符包括【1】运算符和【2】运算符两种.答案：（1). & 或 + （2). & 或+105、表达式 1 and 0的值【1】.答案： False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案： True108、设x为大于零的实数,则大于x的最小偶数的Visual Basic表达式是【1】.答案：iif(int(x) mod 2=0,int(x)+2,int(x)+1)109、声明定长为10个字符变量Sstr的语句为【1】.答案：Dim Sstr as String*10 或 Sstr as String*10110、表达式(-3) And 8 的值为【1】.答案： True111、Print "x=" & (2=4) 的结果为【1】.答案： x=False。

VB课堂练习一一．填空题1．在对象名与事件名之间用[ ]符号连接。

窗体的对象名用[ ]表示。

2．Visual Basic 的窗体和控件是具有自己的[ ]、[ ]和方法的对象。

3．窗体和控件的大部分属性可以通过[ ]设置、也可以通过[ ]设置。

4．在面向对象程序设计中，对象是一个由[ ]和[ ]组成的概念。

5．Visual Basic 中的对象包括[ ]、[ ]和[ ]。

6．Name属性的含义是[ ]，窗体的默认Name属性是[ ]。

7．Show 方法的作用是[ ]，Hide 方法的作用是[ ]。

8. 一个窗体对象，其最先发生的事件是[ ]事件，最后发生的事件是[ ]事件。

9. 移动窗体时，为了初始化该窗体中的各控件，可选用窗体的[ ]事件；关闭窗体用[ ]事件。

10.窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的顺序是：[ ]、[ ]、[ ]。

二．选择题1.在Visual Basic设计界面中不能隐藏的窗口是( )。

A）工程窗口B）属性窗口C）立即窗口D）窗体窗口2.以下可以构成语句的一项是( )。

A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名3.以下不是Visual Basic 的特点的选项是( )。

A）可视编程B）算法设计C）事件驱动D）面向对象4.在Visual Basic中通过( )属性来设置字体的颜色。

A）FontColor B）ClipControlC）BackColor D）ShowColor5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( )属性。

A）ControlBox B）ClipControlC）BordeStyle D）AutoRedraw7.( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A）文件B）属性C）方法D）窗体8.以下不属于同类的是( )。

一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。

（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。

（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。

（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。

（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。

（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。

（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。

（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。

在Command1_Click()中能完成这个功能的命令为___D___。

（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。

（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。

第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (1) 。

2.有如下程序段：x=5y=10z=12if x+y<=z Or y+z<=x Or x+z<=y then a=" False" else a=" True"该程序段运行后，a 的值为(1) 。

3.有如下程序段：s=0for i=1 to 5s=s+i*inext i该程序段运行后，s的值为(1) 。

4.程序填空随机产生10个1～100之间的正整数，按从小到大的次序排序并输出。

为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。

图12-3sub command1_click()const n=10dim i,j,t as integerdim a(1 to 10) as integerfor i=1 to 10______(1)__________next iFor i = 1 To n - 1For j = i+1 To nIf ______(2)______ Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFor i = 1 To nList1.AddItem Str(a(i))Next iEnd sub答案：1.False2.”True”3.554.a(i)=int(rnd()*100)+1 a(i)>a(j)第二套1．有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为 (1) 。

2．有如下程序段：x=5y=-20if not x>0 then x=y-3 else y=x+3该程序段运行后，x 的值为 (1) 。

3．有如下程序段：e=0:f=1for i=1 to 3e=e+ff=f+enext i该程序段运行后，f的值为 (1) 。