VB程序填空
VB程序填空(8套)
+++第一套+++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程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
VB经典填空题
《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、滚动条的属性表示滚动框在滚动条中的当前位置。
vb程序填空
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。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。
10套VB程序填空
（第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程序设计填空
VB程序设计填空35. a和b中有仅只有一个为1，相应的Visual Basic逻辑表达式为（）答案：a=1 xor b=1 36. Integer类型的变量占用（）字节空间答案：237. Print"x="&（2=4）的结果为（）答案：x=False38. sst="ABC12DE"，则Val（sst）=（）答案：039. string（3，"abc"）的结果为（）答案：aaa40. Val（"123.55ab456"）的值是多少（）答案：123.5541. VB6.0的基本表达式包括算数表达式，关系表达式和（）表达式答案：逻辑42. VB的工作模式可分为三种："设计"，运行，以及（）答案：中断43. VB6.0的连接运算符包括（）运算符和（）运算符两种答案：+ +44. VB6.0是运行于windows 9x/NT操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即可视化设计和（）答案：事件驱动编程45. VB表达式9^2MOD 45\2*3的值（）答案：446. VB的运算符包括算术运算符，（）运算符，关系运算符，逻辑运算符和特殊运算符。
答案：连接47. VB中，变量的声明可分为两种方法：隐式声明和（）答案：显示声明48. Visual Basic中的文本框中要使该框不允许多行输入，应设置（）属性为false 答案：Multiline49. Visual Basic6.0用于开发（）环境下的应用程序答案：WINDOWS50. 把条件1<=x<12写成VB关系表达式为（）答案：x>=1 and x<1251. 把整数0赋给一个逻辑型变量，则逻辑型变量的值为（）答案：False52. 把整型数1赋给一个逻辑型变量，则逻辑型变量的值为（）答案：True53. 变量min@表示（）类型的变量答案：货币54. 表达式32\7 MOD 3^2的值是（）答案：455. 表达式1 and 0的值（）答案：False56. 表达式[A] like[A]的值为（）答案：False57. 表达式（-3） And 8的值为（）答案：True58. 表达式（-3） MOD 8的值为（）答案：-359. 表达式81\7 MOD 2^2的值是（）答案：360. 表达式93\7 MOD 2^3的值是（）答案：561. 打开"工程窗口"的方法之一是按下（）组合键答案：CTRL+R62. 大于X的最小整数的VB表示形式为（）答案：Int（x）+163. 当程序运行时，要求窗体中的文本框呈现空白，则在设计时，把此文本框的（）属性设置成空白答案：Text64. 对象具有属性和（）答案：方法65. 对象是既包含（）又包含对数据进行操作的方法，并将其封装起来的一个逻辑实体答案：数据66.将焦点定位于命令按钮Command1之上的语句为（）答案：SetFocus67. 求X与Y之积除以Z的余数的VB表达式为（）答案：x*yModz68. 如果：I=11： J=3：I=Int（-8.6）+I\J+13 MOD 5，则I值是（）答案：-269. 如果：I=12： J=3：I=Int（-8.6）+I\J+13MOD 5，则I值是（）答案：-170. 如果要使用命令按钮表面显示文字"退出（X）"（在字符X之下加下划线），则其Caption 属性设置为（）答案：退出（&X）71. 如果要在单击钮时执行一段代码，则应将这段代码写在（）事件过程中答案：click1.若要在字符串asdgewl中取dge，则使用函数____实现()答案：Mid$(asdgewl,3,3)2.设a=2,b=3,c=4,d=5，则NOT a<c OR 4*c=() 答案：False3.设X$="abc123456z"则“a”+str$(val(right(x$,4)))的值是()答案：a34564设X为大于零的实数，则大于X的小偶数Visual Basic表达式是()答案：iif（int（x） mod 2=0，int（x）+2，int（x）+1）5设置空间背景颜色的属性名称是答案：backcolor6声明单精度常量g（重力加速度）代表9.8可写成()答案；const g=9.87声明单精度常量Pi代表3.14159的语句()答案：Const Pi=3.141598声明定长为10个字符变量Sstr的语句()答案：Sstr as String*109 说明变量类型有隐含类型说明和___两种方法()答案：强制类型10所有控件都具有的共同属性是()答案：name11文本框中所现实的内容是他的()答案：text12写出清楚标签Label1的显示信息的语句为() 答案：Label1=""13写出用随机函数产生一个200至300之间整数的VB表达式（）答案：200+Int（100*Rnd）14要使命令按钮cmdEnd可以以快捷键E访问，应设置属性（）答案：Caption15要使一个按钮设为默认按钮，要把此按钮的（）设置~~答案：Default16要使一个按钮无效，则可把他的Enabled属幸设为答案：false17一般情况下，控件有两个属性项的却省值是相同的，这两个属性项是name和（）答案：caption18一个工程可以包括多个类型的文件，其中扩展名为.frm的的文件表示（）答案：窗体19一个工程可以包括多个类型的文件，其中扩展名为.vbp的的文件表示（）答案：工程20一元两次方程ax2+bx+c=0有实根的条件为a 不等于0，并且b2-4ac>=0列出逻辑表达式（）答案：a<>0andb2-4*a*c>=021已知文本框内容为“ABCDE”若文本框Selstart=4，Sellength=2，则SelText为（）答案：DE22在VB6.0中变量名最长可达（）个字符答案：25523在VB6.0中，设Single型变量XYZ的值为123.45，若要将其转换成字符串，应使用的类型转换函数是（）答案：STR24在VB中，窗体由属性定义外观，由（）定义行为答案：方法25在VB中，若要改变一个窗体的标题，应在属性窗口中改变这个窗体的（）属性的值答案：Caption26在VB中要将字符窜"12345"转换成字值应使用的类型转换函数是（）答案：VAL27在VB中，若要求在模块中强制显示的指定变量的数据类型，应当在模块首部的申明部分使用（）语句答案：Option Explecit28在VB中，若要使一个文本框（Text）中的内容在超过文本框的宽度时能够自动换行显示应当将这个文本框的（）属性设置为true答案：MultiLine29在控件之中，（）不能从工具箱中被删除答案：内部空间30在控件之中，（）单独存在OCX文件中答案：ACTIVEX控件31在一条Dim语句中可以声明多个变量，如Dim,strVar,intVar,sngVar答案：Integer32征兵的条件：男性（sex）年龄（age）在18~20之间。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第1题'功能：求1!+2!+ (10)的值。
Private Sub Form_Click()'**********SPACE********** 【?】s = 1For I = 2 To 10t = t * I'**********SPACE********** 【?】'**********SPACE********** 【?】Print sEnd Sub答案：1). t = 1 2). s = s + t 3). Next I 或Next 第1题功能：下面的程序用于求三个数中最大数Private Sub Command1_Click() Dim a, b, c, max, min As Integera = Val(InputBox("请输入第一个数："))b = Val(InputBox(" 请输入第二个数："))c = Val(InputBox("请输入第三个数："))'**********SPACE**********【?】= amin = a'**********SPACE**********If b > max Then 【?】If b < min Then min = b'**********SPACE**********If 【?】Then max = cIf c < min Then min = cPrint "最大数为："; maxPrint "最小数为："; min End Sub 答案：1). Max 2). max = b 3). c > max 或max < c第1题（10.0分）题号:504'【程序填空】'功能：写出程序运行后，单击窗体，Form1上显示的内容' sum 函数的功能为累加求和' isum = 1' isum = 3' isum = 6' isum = 10' isum = 15'-------------------------------------------------------Private Sub Form_Click()Dim I As Integer, isum AsInteger'**********SPACE**********For I = 1 To 【?】isum = sum(I)'**********SPACE**********Form1.Print "isum ＝" 【?】Next IEnd SubPrivate Function sum(n AsInteger)Static j As Integer'**********SPACE**********【?】j + nsum = jEnd Function 答案：1). 52). + isum 或& isum 3). j =第1题（10.0分）题号:507Option Explicit【程序填空】'功能：本程序实现功能：将顺序文本文件“MYFILE.TXT”的' 内容一个字符一个字符地读入文本框txtTest中'-------------------------------------------------------Private Sub Form_Click()Dim InputData AsString * 1txtTest.Text = ""'**********SPACE**********Open App.Path &"\MYFILE.TXT" For 【?】As #1'**********SPACE**********Do While 【?】EOF(1)Input #1,InputData'**********SPACE**********txtTest.Text =txtTest.Text + 【?】LoopClose #1End Sub 答案：1). Input 2). Not 3).InputData第1题（10.0分）题号:57'【程序填空】'功能：求1!+2!+……+10!的值。
'-------------------------------------------------------Private Sub Form_Click()'**********SPACE**********【?】s = 1For I = 2 To 10t = t * I'**********SPACE**********【?】'**********SPACE**********【?】Print sEnd Sub 答案：1). t = 1 2). s = s + t 3).Next I 或Next第1题（10.0分）题号:502'【程序填空】'功能：用输入对话框输入x，根据如图公式计算对应的y，' 在窗体上输出y的值。
'-------------------------------------------------------Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】As Single'**********SPACE********** x = Val(【?】("Please input x :", "输入X的值"))If x = 10 Then'**********SPACE********** 【?】ElseIf x > 10 Then'**********SPACE********** y = Sqr(x) 【?】Elsey = 2 * x ^ 3 + 6End IfPrint yEnd Sub 答案：1). y 2). InputBox 3). y = 0 4). + Sin(x)第1题（10.0分）题号:507 Option Explicit '【程序填空】'功能：本程序实现功能：将顺序文本文件“MYFILE.TXT”的' 内容一个字符一个字符地读入文本框txtTest中'-------------------------------------------------------Private Sub Form_Click()Dim InputData As String * 1txtTest.Text = ""'**********SPACE**********Open App.Path & "\MYFILE.TXT" For 【?】As #1 '**********SPACE**********Do While 【?】EOF(1)Input #1,InputData'**********SPACE**********txtTest.Text =txtTest.Text + 【?】LoopClose #1End Sub 答案：1). Input 2). Not 3).InputData第1题（10.0分）题号:51'【程序填空】'功能：下面的程序段用于建立文件并输出文件，文件内容如下：Private Sub Form_Click()'**********SPACE**********Open "c:\1.txt" For 【?】As #1For i = 1 To 5Print #1, Spc(i); "*****"Next i'**********SPACE**********【?】'**********SPACE**********Open "c:\1.txt" For 【?】As #1For i = 1 To 5Line Input #1, xPrint xNext iClose #1End Sub 答案：1).Output 2). Close #1 或Close3). Input━━━━━━━━━━━━━━━━第1题（10.0分）题号:41'【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。
'-------------------------------------------------------Private Sub Form_Click()Print "5个数34、124、68、73、352的最大值是："max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%,ByVal b%, ByVal c%)'**********SPACE**********If 【?】Thenm = aElsem = bEnd If'**********SPACE**********If 【?】Thenmax = mElsemax = cEnd IfEnd Function 答案：1). max(max1, 73, 352) 2). a>b或b<a 3). m > c 或 c < m第1题（10.0分）题号:521'【程序填空】'功能：下面的事件过程判断文本框Text1中输入的数所在区间，' 并在文本框Text2中输出判断结果Private Sub Command1_Click()Dim int1 As Integer'**********SPACE**********【?】= Val(Text1.Text)Select Case int1Case 0Text2.Text = "值为0"'**********SPACE**********Case 【?】Text2.Text = "值在1和10之间（包括1和10）"'**********SPACE**********Case Is > 【?】Text2.Text = "值大于10"Case ElseText2.Text = "值小于0"End SelectEnd Sub 答案：1). int1 2). 1 To 10 3). 10第1题（10.0分）题号:61'【程序填空】'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好' (75分以上),及格(60分以上),不及格几个等级。