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程序填空

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程序填空题

三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。

Private Sub Form_Click()Dim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =0 to 9 '个位数数码For b = 0 To 9 '十位数数码For c = ----1----If a<>b And b<>c And a<>c Thenx =a+10*(b+10*c)n = ----2--------3----If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint "总共有这样的三位数"; n; "个"End Sub1、1 to 92、n+1或1+n3、print x;2、【程序说明】简单窗体是密码检验程序。

程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。

密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。

Private Sub Command1_Click() '确定按钮Static n As Integer---const-1----mypwd As String = "123456" '预设密码为自定义常量n = n + 1Label2.Visible = TrueIf ---__ text1.text=mypwd____ ---- ThenLabel2.Caption = "密码正确"ElseIf n < 3 ThenLabel2.Caption = "密码错误！"Text1.Text = ""Else--end--3----End IfEnd IfEnd Sub1、CONST2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text13、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。

VB程序填空题

V B程序填空题(总12页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。

程序中有三处错误，请更正。

程序如下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py="负数"=aEnd Sub①_________________________②___________________________③_____________________2、完善程序，使其能输出：1-2+3-4+5-6+...+99-100的值。

程序如下：Private Sub Command1_Click()s=_____For i=1 To _____s=s+((-1)^(______))*iNext iPrint sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。

编写程序，求方程的根，要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。

程序如下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Valb=Valc=Vald=b^2-4*a*cIf d________ Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)=x1=x2_______=______End IfEnd Sub4、如果下面程序执行后输出的结果是132，请将程序补充完整：Private Sub Command1_Click()i = 12: s = 1Do While _________________s = s * ii = i - 1LoopMsgBox (s)END Sub5、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。

VB填空题

V B填空题(共11页) -本页仅作为预览文档封面，使用时请删除本页-填空题一（题数：2道，共：10分，得分：分）1、(选修)下面程序代码结构包含了循环结构和_______结构，程序最终结果是s等于_______，t等于______。

PrivateSubCommand1_Click()Dim t,s As Integert=0s=0Do Until t>10If t Mod 3=0Thens=s+tEnd Ift=t+2LoopPrint s,tEnd Sub系统答案：选择，6，12//三种程序结构：顺序结构、选择结构、循环结构2、(选修)数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。

系统答案：sqr，a*a$%$a^2，abs填空题二（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序：Private Sub form_load()n=InputBox("请输入一个正整数：","输入")s=1For i=1To ns=s*iNext iMsgBox n+"!"+"="+Str(s),0,"阶乘计算"End Sub当n=4时，程序运行后输出的结果是___________________。

系统答案：24$%$4!=24//str()函数将数值型转换为字符串型，+号此处表示字符串的连接，所以需要数据类型转换。

2、(选修)下图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整：注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：SUM=SUM+i$%$SUM=i+SUM，i=i+2$%$i=2+i填空题三（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。

VB题库—程序填空

程序填空〖第1题〗『程序填空』(1分)(题号:59) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。

'-------------------------------------------------------Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'**********SPACE**********Case is > 0Label1.Caption = "+"Case Is < 0'**********SPACE**********Label1.Caption = "-"'**********SPACE**********Case is =Label1.Caption = "零"End SelectEnd Sub答案：1). Case Is > 02). Label1.Caption = "-"3). Case 0 或 Case Else 或 Case Is = 0〖第2题〗『程序填空』(1分)(题号:60) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

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之间。

程序设计语言VB填空题及答案

《程序设计语言VB》填空题1. Private Sub Command1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为。

2.设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = 2* iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是。

3.阅读下列程序段Option ExplicitPrivate Sub Command1_Click()Dim str1 As StringDim str2 As Stringstr1 = "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByVal a As String, b As String) Dim c As StringDim i As IntegerFor i = Len(a) To 1 Step -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“print”语句的输出结果是___ _。

4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = Int(Rnd) + 6If x ^ 2 > 25 Then y = x ^ 2 + 5x = Int(Rnd) + 4If x ^ 2 < 25 Then y = x ^ 2x = Int(Rnd) + 5If x ^ 2 = 25 Then y = x ^ 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为__ _。

vb程序填空

1『V isual Basic——程序填空』'【程序填空】36'------------------------------------------------------- '题目：以下程序的功能如(图1)。

VB试题(选择、填空)

一，选择题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结构。

(完整word)VB填空题及答案

一、填空题1、Visual Basic 对象可以分为两类，分别为和。

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

4、浮点数由3部分组成，即符号、和尾数。

5、下述语句段在运行时的显示结果是。

Clsx=10.34 + 8 Print Len(x ）6、将代数式b a y x 22++转换成程序设计中的表达式为 . 7、关系式x ≤—5或x ≥5所对应的布尔表达式是。

9、下列程序的功能是：当x 〈50时，y=0.8×x ；当50≤x ≤100时，y=0.7×x ；当x 〉100时，没有意义。

请填空。

Private Sub Command1_Click （） Dim x As Singlex=InputBox("请输入x 的值！"） Case Is < 50 y=0。

8 * x Case 50 To 100 y=0。

7 * xPrint "输入的数据出界！” End Select Print x, y End Sub11、以下程序段的作用是将26个小写字母逆序打印出来，请补充完整。

For i=122 To Print ； Next i12、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click(） x=0Do Until x=—1a=InputBox("请输入第一个数字a 的值") a=Val(a)b=InputBox （”请输入第二个数字b 的值") b=Val （b ）x=InputBox(”请输入第三个数字x 的值”） x=Val （x) a=a + b + x Loop Print a End Sub程序运行后，单击命令按钮，在对话框中分别输入5,4，8，5,8,-1,输出结果为。

13、执行下面的程序段，x 的值为。

VB程序填空题

二、填空题1.假设一个文本框的Name属性为Text1，为了在该文本框中显示“Hello”，所使用的语句为text1.text=”Hello”。

2.一个工程文件包括多种类型的文件，其中，扩展名为_.VBP__文件表示工程文件。

3.扩展名为_.frm_____的文件表示窗体文件；4.扩展名为.Bas的文件表示标准模块文件；5．VB提供了三种控件，即___标准___、ActiveX控件和可插入对象。

6．VB应用程序主要由窗体模块、__标准___模块和类模块组成。

7．假设某一过程如下：Private Sub D_Click()Form1.caption=”abc”End Sub则响应该过程的对象名是___D___。

8．代数式ab2÷(5c+d)的Visual Basic表达式是：A*b*b/(5*c+d)。

9. 单击命令按钮Command1时，要将焦点定位到文本框T1上，需要使用代码text1.setfocus 。

10．假设某一过程如下：Private Sub cmd1_Click()Form1.Caption=”VB示例”End Sub则响应该过程的对象名是_CMD1____事件名是__CLICK____。

11.VB是一种面向__对象_的可视化编程语言，它采用_事件驱动_的编程机制。

12．VB的对象主要分为__窗体____和__控件__两大类。

13．VB中，用来描述一个对象的状态或特征的量称之为对象的_属性。

14.要运行VisualBasic应用程序，可按__F5___快捷键。

15、文本框常用的获得焦点的方法是___ SetFocus方法___。

16、在窗体上打印"大家都来学用Visual Basic"，代码是__print "大家都来学用Visual Basic"____。

17、清除窗体或控件对象上的信息用__Cls__方法。

18、下面程序运行后，输出的结果是__24_。

vb程序填空课堂练习题

程序填空课堂练习题在×××××××××SP ACE ××××××语句的下一行完成程序填空，首先将【？】删除。

然后填入正确答案。

答题结束后，必须在程序环境中做好保存、然后填入正确答案。

答题结束后，必须在程序环境中做好保存、1.由输入对话框输入n （n 必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框lable1上显示。

Sum=1/2+1/6+Sum=1/2+1/6+……+1/(k*(k+1)) (k<=n) 请在【】处填入正确的内容请在【】处填入正确的内容Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer al(InputBox(N= V al(InputBox(““n=n=””,”请重新输入”)) Loop Sum=0 K=0 Do …*************SPACE********** K=【?】Sum= sum+1/(k*(k+1)) …***********SPACE********* Loop Until 【？】【？】【？】 Labell.Caption= “sum= + Str(sum) End Sub 2.由12个文本框代表12个位置。

程序为A-J 10 个字母分配十个位置，并显示座位分配。

在【】处填入正确内容在【】处填入正确内容Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As Sring Randomize …*******SPACE******* For k = 1 To 【？】【？】t(k) =”Emty Emty”” Next k …*******SPACE******* For 【？】= 65 To 74 Do While True P = Int(1+12*Rnd) …*******SPCA*********** If t(p)=【？】【？】 Then T(p)= Chr(h) Exit Do 3.'以下程序用于判断一个正整数（≥3）是否为素数。

VB 程序填空题及答案

程序填空题1、以下程序是在C盘的当前文件夹中建立一个名为“StuData.txt”的顺序文件。

要求用inputbox函数输入5名学生的学号（stuno）、姓名（stuname）、和英语成绩（stueng）Private sub form_click()Open “c:\studata.txt” for output as#1For i=1 to 5Stuno=inputbox(“请输入学号”)Stuname=inputbox(“请输入姓名”)Stueng=inputbox(“请输入英语成绩”)Print #1,stuno,stuname,stuengNext iClose #1Enc sub1、打开第1题建立的顺序文件“StuData.txt”,读取文件中的数据，并将数据显示在窗体上。

Private sub form_click()Open “C”\studata.txt”for input as#1Do while not eof(1)Input #1,stuno,stuname,stuengPrint stuno;tab(10);stuname;tab(20);stuengClose #1End sub2、在C盘根根目录下有一个数据文件(xscj.dat),其内容如下：2002201，76，582002202，97，922002203，87，952002204，100，862002205，96，67第1列数据表示学号，第2列数据表示数学成绩，第3列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低的顺序在窗体上输出。

Dim a(5,4) as longPrivate sub form_click()Dim I as integer,j as integerOpen “c:\xscj.dat” for input as #1For i=1 to 5For j=1 to 3Input #1,a(I,j)Next jA(I,4) =a(I,2)+a(I,3)SortFor i=1 to 5For j=1 to 4Print a(I,j)Next jprintNext iClose #1End subPrivate sub sort()Dim I%,j%,k%,temp% For i=1 to 4For j=i+1 to 5If a(I,4)<a(j,4) thenFor k=1 to 4Temp=a(I,k)A(I,k)=a(j,k)A(j,k)=tempNext kEndifNext jEnd sub3、以下程序是将数组a中的10个数按升序排列。

vb程序填空

操作题(5道共40分) 【第1题】打开“Z:\13\工程1.vbp实现功能：在Text1、Text2、大值”按钮后，在Label3中显示这Private Sub Command1_Click() a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If c > max Then ②Label3.Caption = CStr(③) End Sub 【第2题】打开“Z:\12\工程1.vbp 实现功能：在Text1后，在Label1、Label2、Label3Text1中输入“3672”，Label1、“12”，即1小时1分12秒。

Private Sub Command1_Click() ss = Val(①) h = ② m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod ③ Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s) End Sub 【第3题】明文：0123456789 密文：打开文件“Z:\1\工程1.vbp 若在文本框text1在文本框text2Private Sub Command1_Click() Dim i As Integerx = Text1.Text y = ""For i = 1 To ① temp1 = Mid(x, i, 1)temp2 = ②y = y + temp2Next iText2.Text = ③ End Sub 【第4题】打开“Z:\4\工程1.vbp 水仙花数是指一类三位数，153=13+53+33。

Private Sub Command1_Click()For i = 100 To 999a = i \ ①b = (i - a * ②) \ 10c = i Mod 10③ End Sub【第5题】打开“Z:\9\工程1.vbp ”，完善程序并保存。

VB程序填空

程序分析与填空一、程序分析题1、有两个文本框Text1 Text2及一个命令按钮command1，有以下事件过程：Private sub command1_click()X=0Do while x<50X=(x+2)*(x+3)N=n+1LoopText1.text=nText2.text=xEnd sub程序运行后，单击命令按钮，在两个文本框中显示的分别是_______________2、窗体上有3个文本框Text1 Text 2 Text3和一个命令按钮command1.如果在Text1中输入200，在Text 2中输入150，则执行下列程序后，Text3的值为___________Private sub command1_click()Dim m,n,t as integerM=V al(text1.text)N=val(text2.text)If n*m=0 thenExit subEnd ifIf m<n thenT=m :m=n: n=tEnd ifDoR=m mod nM=nN=rLoop while r<>0Text2.text=mEnd sub3、有如下函数过程：Function sum%(x%)For i=1 to xS=s+xNext iSum=sEnd function在下列按钮单击事件中调用该函数，则该程序的运行结果是_____________Private sub command1_click()Dim a as integerDim b as integerA=10:B=15C=Sum(A)+Sum(B)Print CEnd sub4、下列程序运行后，在窗体上单击结果是___________Private sub form_click()Print 1;End subPrivate sub form_mousedown(button as integer ,shift as integer ,x as single,y as single)Print 2;End subPrivate sub form_mouseup(button as integer ,shift as integer ,x as single,y as single)Print 3;End sub5、程序运行后，窗体上的显示结果为____________Private sub form_click()For a=1 to 4Print tab(5-a);For j=1 to 2*a-1Print “*”;Next jPrintNext aEnd sub6、程序运行后，窗体上的显示结果为_____________Private sub form_activate()Y=1For a=1 to 5For b=1 to aFor c=1 to bY=y+1Next cNext bNext aPrint “y=”;yEnd sub7、在窗体上添加一个命令按钮，名称为command1.然后编写如下程序：Private sub command1_click()Dim a(5) as integer,b(5) as integerFor j=1 to 4a(j)=3*jb(j)=a(j)*3next jtext1.text=b(j)end sub程序运行后，单击命令按钮，写出程序的运行结果：________________8、在VB程序如下：A＝1：B＝1For I=1 to 3A=A+BNext iFor j=1 to IA=A+BNext JPrint A;I;JEnd sub运行程序显示结果为_______________9、在VB程序如下：Private sub form_activate()EXAM(3)End subPrivate sub EXAM(X%)Dim I%For I=1 to XPrint “ABC”NextEnd sub运行程序显示结果为________________10、在VB程序如下：Private sub form_click()Dim a(5,5)as byte ,I as byte ,j as byteFor i=1 to 5For j=1 to 5a(i,j)=i+jnext j,ifor i=1 to 5print a(i,i);next iend sub单击窗体后，窗体上的显示结果为 ___________________11、在窗体上添加一个命令按钮（其Name属性为command1），然后编写如下代码：Private sub command1_click()Dim a(10) as integerDim p(3) as integerK=1For i=1 to 10a(i)=inext ifor j=1 to 3p(j)=a(j*2)next jfor i=1 to 3k=k+p(i)*2next iprint kend sub程序运行后，单击命令按钮，程序的运行结果是__________ 12、有VB程序如下：Private sub form_click()S=0 : I=1 : F=IWhile I<=6F=F*IIf I/2 <> Int(I/2) Then Goto 90S=S+FIf I=6 Then Print F; else Print F; “+”；90I=I+1WendPrint “=”;SEnd sub单击窗体后，窗体上的显示结果为________________13、有VB程序如下：Private sub form_click()N=1For I=1 to 8 step 2N=N*2Print NNext IEnd sub 单击窗体后，窗体上的显示结果是_______________14、在窗体上画一个名称为command1的命令按钮，然后编写如下程序：Private sub command1_click()Static x as integerStatic y as integerClsY=1Y=Y+5X=5+XPrint X,YEnd sub第一次单击命令按钮command1后，窗体上显示的结果是_______ 第二次单击命令按钮command2后，窗体上显示的结果是_______ 15、依次输入数据1、2、3、4、5后，窗体上显示的结果是__________________Private sub form_activate()Dim a(10)For j=6 to 10A(j)=val(iputbox(“请输入数据”))Next jPrint A(5)+A(6)+A(10)End sub17、程序运行后，结果为_________private sub form_click()X=98Select case xCase x<60?”不及格”Case x>60?”及格”Case x>75?”良好Case x>90?”优秀”End selectEnd sub18、private sub form_activate()Sum=0For i=1 to 9If I<>10 then print sum+1 else print sum+2Next iPrint sumEnd sub程序运行后，结果有________行，最后一行的内容是_________ 19、在窗体上画一个列表框（名称为list1），然后编写如下事件过程，单击窗体后，列表框中的数据项为_______Private sub form_click()For i=1 to 6List1.additem iNext iFor i=1 to 3List1.removeitem iNext iEnd sub20、运行结果为________Private sub form_activate()K=0For I=3 to 5K=K+II=I+1K=K+INext IPrint K+IEnd sub21、运行结果为________Private sub form_click()Print 3;End subPrivate sub form_mousedown(button as integer , shift as integer, x as single ,y as single)Print 2;End subPrivate sub form_mouseup (button as integer , shift as integer, x as single ,y as single)Print 1;End sub22、运行结果为________Private sub form_activate ()A=5:b=10Print XY(A)+XY(B)End subPrivate function XY(T)For I=1 to TS=S+INext IXY=SEnd function23、写出下列程序段所对应的函数表达式Dim x as integerX=inputbox(“enter an integer”)Select case xCase is <=0Y=x+0Case is <=10Y=x+1Case is <=15Y=x+2Case is >15Y=x+3Print yEnd select24、运行结果为__________Private sub form_activate()For k=1 to 3If k<=1 then a3If k<=2 then a=2If k<=3 then a=1Print a;NextPrint kEnd sub25、程序运行后，单击窗体输出的是_________Private sub form_click() N=0Do while N<=4N=N+1Print N;LoopEnd sub26、运行后，单击窗体输出的是_________Private sub form_click()X=1Do until S>100S=S+x^2X=x+1LoopPrint s;xEnd sub27、运行结果为________Private sub form_activate()For i=1 to 5For x=i to 5 step 1If i=2 and x<5 then print “*”;Next xNext iEnd sub28、在窗体上画一个命令按钮，名称为command1.然后编写如下程序：Private sub command1_click()For a=1 to 4For b=0 to aPrint chr(65+a);Next bPirntNext aEnd sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________29、输入的数据依次为：0，1，0，1，0，1后，运行结果为__________ Option base 1Private sub form_activate()Dim x(6) as integerDim s as integerDim t as integerFor i=1 to 6X(i) = inputbox(“请输入数据”)If I mod 2<>0 thenS=S+X(I)ElseT=T+X(I)End ifNext IPrint S,TEnd sub30、运行后，结果为__________Private sub form_activate()A=1: X=8DoA=A+1X=X－2Loop while X<5Print “A=”;APrint”X=”;XEnd sub31、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private sub form_load()List1.additem”345”List1.additem”234”List1.additem”678”List1.additem”456”Text1.text=””End subPrivate sub list1_dblclick()A=list1.textPrint A+text1.textEnd sub程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则窗体输出结果是________32、程序运行后，E、F、G的结果分别是______________ Private sub form_activate()E=0 :F=0For j=1 to 5E=E+1 :G=G+1For K=1 to 7E=E+1:G=G+1For M=1 to 10F=F+1Next ME=E=1Next kG=G+1Next jPrint E,F,GEnd sub33、程序运行后，单击窗体，输出的是________private sub form_click()A=Int(rnd(3)+2)Select case aCase0:b=b+2Case 1:b=b+3Case 2:b=b+3Case 3:b=b+10End selectPrint bEnd sub34、在窗体上画一个命令按钮，名称为command1.然后编写如下程序：Private sub command1_click()For i=1 to 2For j=1 to iPrint string(I,”VB”)Next jPrintNext iEnd sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是__________35、程序运行后，如果单击命令按钮，则在窗体上显的内容是__________Option base 1Private sub command1_click()Dim a(10),p(3)as integerK=5For i=1 to 10a(i)=inext ifor i=1 to 3p(i)=1 to 3p(i)=a(i*i)next ifor i=1 to 3k=k+p(i)*2next iprint kend sub36、在VB中，M＝0：S＝0Do while M<10M=M+1M=M^2+MS=S+MLoopPrint S程序运行后，输出的结果是___________37、在窗体上画一个命令按钮（名称为command1），然后编写事件过程；Private sub command1_click()Dim b as integerb=b+1Print bEnd sub运行程序，三次单击命令按钮后，变量b 的值是__________ 38、程序运行后，结果是_______Private sub command1_click()S=0For K=1 to 5J=1For M=1 to KJ=J*MNext MS=S+JNext KPrint SEnd sub39、执行下列程序，从键盘输入10，运行结果是_________ Private sub command1_click()S=inputbox(“请输入一个数字”)Select case SCase is>0Print “>0”Case is >3Print “>3”Case is>5Print “>5”End selectEnd sub40、在窗体上画一个命令按钮（名称为command1），然后编写如下代码：Option base 1Dim aS=0A=array(1,2,3,4)J=1For i=4 to 1 step -1S=s+a(i)*jj=j*10Next iPrint sEnd sub程序运行后，单击命令按钮，其输出结果是_________41、执行下列程序后，第一行输出结果是_________,第二行输出结果是___________Option explic itPrivate sub form_click()Dim a as integera=2Call sub1(a)End subPrivate sub sub1(x as integer)X=x*2+1If x<10 thenCall sub1(x)End ifX=x*2 +1Print xEnd sub42、在窗体上画一个文本框，然后编写如下事件过程：Private sub form_click()X=Inputbox(“请输入一个整数”)Print x+text1.textEnd sub程序运行后，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是_________43、运行下面程序后，单击命令按钮，其输出结果是________ Dim y as integerPrivate sub command1_click()Dim x as integerX=1Y=1Call AA(y+1)Z=BB(X)Print X,Y,ZEnd subPrivate sub AA(Byval z as integer)Y=Y+ZZ=X+YEnd subPrivate function BB(byRef Y as integer)Y=Y+1BB=X+Y End function44、运行下面程序，依次输入1、2、3、4、5、6，则运行结果是_________Option base 1Private sub form_activate()Dim x(6) as integerDim s as integerDim t as integerFor I=1 to 6X(I)=inputbox(“请输入数据”)If I mod 2<>0 thens=s+x(I)Elset=t+x(I)End ifNext IPrint s,tEnd sub45、下面程序运行后，单击窗体，则在窗体上显示的内容是：a=______b=_______Private sub form_click()Dim a as integer , b as integerA=20:b=50P1 a,bP2 a,bP3 a,bPrint “a=”;a,”b=”;bEnd subSub p1(x as integer ,byval y as integer)X=x+10Y=y+20End subSub p2(byval x as integer, y as integer)X=x+10Y=y+20End subSub p3(byval x as integer , by val y as integer)X=x+10Y=y+20End sub46、在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮按钮结果是______private sub command1_click()K=0For j=1 to 2For i=1 to 3K=i+1Next iFor i=1 to 7K=k+1Next iNext jPrint kEnd sub47、下面程序通过for 循环计算一个表达式的值，这个表达式是________________Private sub command1_click()Dim sum as double, x as doubleSum =0N=0For i=1 to 5X=n/iN=n+1Sum=sum +xNextEnd sub48、窗体上有一个命令按钮和一个文本框，命令按钮事件代码如下：Private sub command1_click()X=1Y=1Text1.text=””For I=1 to 3F=X+YX=YY=FText1.text=text1.text+Str(Y)Next IEnd sub程序运行后，文本框的内容是___________二、程序填空1、以下程序判断从文本框text1中的输入的数据。

VB程序填空改错设计题库全汇编

1.'功能：以下程序段用于计算n的阶乘：n！。

（1！=1）2. 已知某城市一年的交通事故车辆报废情况，编程序计算该城市的交通事故一年损失金额。

3. 下面的程序用"冒泡"法将数组a中的10个整数按从小到大排列，请将程序补充完整。

4. '程序运行界面。

键盘输入3个数，将它们按由大到小的顺序输出，-1为结束标志。

5. '在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为'"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题'为"显示"。

要求程序运行后，如果选中某个复选框，则当单击'"显示"命令按钮时，则显示相应的信息。

例如，如果选中"体育"'和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示'"我的爱好是体育音乐"（如图1所示）；而如果选中"体育"、'"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"'我的爱好是体育音乐美术"。

6. 窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。

' 判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*”7. 下面的程序用于求三个数中最大数8. 要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。

9. 求A,B,C三个数的最大值。

10. 该程序通过For循环计算一个表达式的值，这个表达式是1/2+2/3+3/4+4/511. 用户单击命令按钮后，程序将文本框Text1中的文本反转显示，同时在文本框Text2中显示文本框Text1中字符串的个数12. 功能：单击“插入数据”按钮后，输入一个整型数据，该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。

VB程序填空

1.'------------------------------------------------------- '【程序填空】'-------------------------------------------------------'功能：该程序通过For循环计算一个表达式的值，这个表达式是' 1/2+2/3+3/4+4/5'------------------------------------------------------- Private Sub Command1_Click()'**********SPACE**********Dim 【?】 As Double, x As DoubleDim n As LongDim i As Integer'**********SPACE**********sum = 【?】n = 0For i = 1 To 5x = n / in = n + 1'**********SPACE**********sum = 【?】NextForm1.Print sumEnd Sub答案：1). sum2). 03). sum + x 或 x + sum2.'------------------------------------------------------- '【程序填空】'------------------------------------------------------- '功能：以下程序的功能如(图1)。

VB程序填空

1、使得index不为1，2时，在窗体的标题栏中显示“Other”。

Select Case indexCase 1Form1.Caption = "1"Case 2Form1.Caption = "2"( )Form1.Caption = "Other"End Select答案: Case Else2、下列程序用来判断该年是否闰年，闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click()Dim y As Integery = InputBox(＂请输入年号＂)If (y Mod 4 = 0 ( ) y Mod 100<>0) or (y Mod 400 = 0) ThenPrint ＂是闰年＂ElsePrint ＂是普通年份＂End IfEnd Sub答案: And3、下列程序用于输入一个整数，用于判定该数的奇偶性，请补充完该程序。

Private Sub Command1_Click()Dim x As Integerx = InputBox("请输入数字")If ( ) ThenPrint "偶数"ElsePrint "奇数"End IfEnd Sub答案: x Mod 2 = 04、下面的程序用于求三个数中最大数。

Private Sub Command1_Click()a = Val(InputBox("输入第一个数"))b = Val(InputBox("输入第二个数"))c = Val(InputBox("输入第三个数"))Max = a : Min = aIf b>( ) Then Max = bIf b<( ) Then Min = bIf ( ) Then Max = cIf ( ) Then Min = cPrint"最大数为：";MaxPrint"最小数为：";MinEnd Sub答案: a | a | Max < c | Min > c5、下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

'-------------------------------------------------------Private Sub Command1_Click()x = Text1.Text'**********SPACE**********【?】'**********SPACE**********Case 【?】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else'**********SPACE**********【?】End SelectEnd Sub答案：1). Select Case x2). "a", "c", "d" To "f"3). Label1.Caption = Trim(x) + "a" 或 Label1.Caption = x + "a"〖第3题〗『程序填空』(1分)(题号:36)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能如(图1)。

'-------------------------------------------------------Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】Print "x1="; x1, "x2="; x2'**********SPACE**********【?】q = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i" End IfEnd Sub答案：1). d > 0 或 0 < d2). End If3). Else〖第4题〗『程序填空』(1分)(题号: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). Output2). Close #1 或 Close3). Input〖第5题〗『程序填空』(1分)(题号:49) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序段用于求∑n!'-------------------------------------------------------Private Sub Form_Click()Dim sum As Integer, n As Integern = InputBox("请输入一个正整数")sum = 0For i = 1 To n'**********SPACE**********sum =【?】Next iPrint sumEnd SubPrivate Function mul(ByVal x As Integer)Dim s As Integer, i As Integers = 1'**********SPACE**********For i = 1 To 【?】s = s * iNext i'**********SPACE**********【?】End Function答案：1). sum★+★ mul(i)2). x3). mul = s〖第6题〗『程序填空』(1分)(题号:61) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好' (75分以上),及格(60分以上),不及格几个等级。

'-------------------------------------------------------Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 ThenLabel1.Caption = "优秀"'**********SPACE**********ElseIf 【?】ThenLabel1.Caption = "良好"ElseIf x >= 60 Then'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption = "不及格"End IfEnd Sub答案：1). x >= 75 或 75 <= X2). Label1.Caption = "及格" 或 Label1 = "及格"3). Else〖第8题〗『程序填空』(1分)(题号:46) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。