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程序填空题
高中信息技术学业水平考试 VB程序填空题1. 该程序的功能是，已知两个数a,b的值，要求交换两个变量的值。
请在将程序缺失的“____________"的部分填写完整。
Private Sub Command1_Click()a=3b=4t=aa=b______Print “a=”;a,”b=”;bEnd Sub_________________________________(答案：B=T)2. 该程序的功能是，从键盘输入圆的半径R，输出圆的周长L和面积S。
请在将程序缺失的“____________"的部分填写完整。
Private Sub Command1_Click()R = 1L =_______S = 3.14 R RPrint “L=”;L,”S=”;SEnd Sub_________________________________(答案：23.14R)3. .该程序的功能是：输入一个三位整数，然后将它反向输出。
例如输入789，输出应为987。
请在将程序缺失的“____________"的部分填写完整。
Private Sub Command1_Click()Dim X As Integer, X1 As IntegerDim X2 As Integer, X3 As IntegerDim Y As IntegerX = 456X1 = ______X2 = (X - X1 100) \ 10X3 = X - X1 100 - X2 10Y = X3100+X210+X1Print "反向输出的数Y="; YEnd Sub_________________________________(答案：X\100)4. 该程序的功能是：输入一个四位整数X，然后求它的各位数字之和Y。
例如输入3456，输出应为6543。
，X表示原数，X1，X2，X3，X4分别表示原数的个位、十位、百位、千位上的数字。
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填空题
第一套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) 。
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）。
VB-填空题及答案
二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。
全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。
Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。
Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。
x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。
x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。
（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的VisualBasic 表达式是： __ 。
sqr （s*（s-a ）*（s-b ）*（s-c ）） 8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。
（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。
5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。
2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。
C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。
│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。
vb新题库(填空题)
vb新题库（填空题）所有填空题1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。
答案： 1：Windows 9x/NT#Windows9x/NT#Windows9x\\NT#Windows9x\\NT#Windows 9x#WindowsNT#Windows9x#WindowsNT#windows 9x/NT#windows9x/NT#windows9x\\NT#windows9x\\NT#windows 9x#windows NT#windows9x#windowsNT2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程等级：1 难度：1 知识点：VB知识点/VB简介2、VB是一种面向______的可视化编程语言，它采用______的编程机制。
答案： 1：对象2：事件驱动等级：1 难度：1知识点：VB知识点/VB的编程环境3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。
答案： 1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行等级：1 难度：1 知识点：VB知识点/VB简介4、VB的对象主要分为______和______两大类。
答案： 1：窗体#控件 2：控件#窗体等级：1 难度：1知识点：VB知识点/VB的对象、属性、方法和事件5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。
答案： 1：属性等级：1 难度：1知识点：VB知识点/VB的对象、属性、方法和事件6、在VB中，最基本的对象是______。
答案： 1：窗体等级：1 难度：1知识点：VB知识点/VB的对象、属性、方法和事件7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。
答案： 1：事件过程等级：1 难度：1知识点：VB知识点/VB的对象、属性、方法和事件8、调用方法的一般格式是______。
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程序填空题
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）的值，并在默认窗口输出这个值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序填空〖第1题〗『程序填空』(1分)(题号:59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。
'-------------------------------------------------------Private Sub Command1_Click( )x = ValSelect Case x'**********SPACE**********Case is > 0= "+"Case Is < 0'**********SPACE**********= "-"'**********SPACE**********Case is == "零"End SelectEnd Sub答案：1). Case Is > 02). = "-"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 ='**********SPACE**********【】'**********SPACE**********Case 【】= UCase(x)Case "m", "o", "p" To "z"= LCase(x)Case Else'**********SPACE**********【】End SelectEnd Sub答案：1). Select Case x2). "a", "c", "d" To "f"3). = Trim(x) + "a" 或 = 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:\" For 【】 As #1For i = 1 To 5Print #1, Spc(i); "*****"Next i'**********SPACE**********【】'**********SPACE**********Open "c:\" 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 = ValIf x >= 90 Then= "优秀"'**********SPACE**********ElseIf 【】Then= "良好"ElseIf x >= 60 Then'**********SPACE**********【】'**********SPACE**********【】= "不及格"End IfEnd Sub答案：1). x >= 75 或 75 <= X2). = "及格" 或 Label1 = "及格"3). Else〖第8题〗『程序填空』(1分)(题号:46)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。
'-------------------------------------------------------Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5% msg = "请输入分数（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle)) '**********SPACE**********While 【】total = total + 1'**********SPACE**********Select Case 【】Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1 '**********SPACE**********【】score = Val(InputBox(msg, msgtitle)) WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案：1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或0<=score ★And★100>=score 或score >=0 ★And★ 100>=score2). score3). End Select〖第9题〗『程序填空』(1分)(题号:56)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日,' 如果输入其它内容，一律显示"输入错误")'-------------------------------------------------------Private Sub Command1_Click()dim x as integerdim y as stringx=val'**********SPACE**********【】case 1y="今天是星期日"case 2y="星期一"case 3y="星期二"case 4y= "星期三"case 5y="星期四"case 6'**********SPACE**********【】case 7y= "星期六"'**********SPACE**********【】y = "输入错误" end select= yEnd Sub答案：1). select case x2). y="星期五"3). Case Else〖第10题〗『程序填空』(1分)(题号:41)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。