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