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）的值，并在默认窗口输出这个值。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
(完整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答案(选择+填空+程序设计)
一、单选共300题（共计300分）滚动条的( )属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量. A:ValueB:LargeChangeC:ChangeD:SmallChange答案：D运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件.A:CLICKB:DBLCLICKC:GOTFOCUSD:CHANGE答案：D要获得用户在组合框输入的内容,应利用的组合框的属性是( ).A:ListB:ListIndexC:SelectedD:Text答案：D输入对话框InputBox的返回值的类型是 .A:长整数B:字符串C:浮点数D:整数案：B要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag答案：C假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案：D运算符"\"两边的操作数若类型不同,则先再运算.A:四舍五入为Byte类型B:取整为Byte类型C:四舍五入为整型D:取整为Integer类型答案：CVisual Basic程序设计时常用的Print、CLS属于( )A:属性B:对象C:方法D:事件答案：C当文本框的属性设置为True时,在运行时文本框不能编辑. A:VisibleB:EnabledC:LockedD:MultiLine答案：C要使标签所在处透明显示背景,应把其Backstyle属性设置为(). A:0B:1C:2D:3答案：AVisual Basic中,实现参数的传值方式的关键字是A:DimB:ByRefC:ReDim语句Print "5*5" 的显示结果是 .A:25B:"5*5"C:出现错误提示D:5*5答案：D若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置( ) A:Text属性值为*B:Caption属性值为*C:password属性值为空D:Passwordchar属性值为*答案：D在下列关于通用对话框的叙述中,错误的是( ).A:当Action属性值为3时,显示字体对话框B:CommonDialogl.ShowFont显示字体对话框C:在"打开"或"另存为"对话框中,FileName属性返回所选的文件名及其路径D:在"打开"或"另存为"对话框中,用户选择的文件名可以经FileTitle属性返回答案：AList1.Clear中的Clear是( ).A:属性D:对象答案：C以下不具有Picture属性对象是().A:窗体B:图片框C:图像框D:文本框答案：D设有如下数组定义语句: Dim s(3) as integer 则下列给数组元素赋值的错误语句是().A:S(2)=5*5-3*3B:s(3)=100C:S(3)=val(inputbox( "输入整数"))D:s(3)=array(0,1,2,3)答案：D简单组合框的style值为().A:0B:1C:2D:3答案：B以下()程序段可以实施X、Y变量值的变换.A:Y=X:X=YB:Z=X:Y=Z:X=YC:Z=X:X=Y:Y=ZD:Z=X:W=Y:Y=Z:X=Y答案：C表达式(7\3+1)*(18\5-1)的值是().A:8.76B:7.8C:6D:6.67答案：C下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案：B下列关于Select Case的叙述中,错误的是 .A:Case "abc","ABC" 表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同B:Case "X" 表示判断Is是否为大写字母XC:Case -7,0,100 表示判断Is是否等于字符串"-7,0,100"D:Case 10 To 100 表示判断Is是否介于10与100之间答案：C设a=6,则执行x=IIf(a>5,-1,0)后,x的值为().A:5B:6C:0D:-1答案：D有一如下过程:Sub fact(n As Integer, result As Long)result = 1For i = 1 To nresult = result * iNext iEnd Sub在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click()Dim res As Longfact 5, resPrint resEnd Sub程序运行后,单击命令按钮,则输出的结果是A:120B:15C:121D:100答案：AVisualBasic的编程机制是().A:可视化B:面向对象C:面向图形D:事件驱动答案：D在窗体上添加一个命令按钮,并写如下代码Private Sub Command1_Click()stra = "AbcD":strb = "hIJK"strc = LCase(stra)strd = UCase(strb)Print strc; strdEnd Sub运行后,单击命令按钮,显示的结果是 .A:abcdHIJKB:aBCdHijKC:ABCDHIJKD:AbcDhIJK答案：A声明符号常量应该用关键字().A:StaticB:ConstC:PrivateD:V26/ariant答案：B在VB中过()属性来设置字体颜色.A:FontColorB:ForeColorC:BackColorD:ShowColor答案：B要清除窗体A上已经在图片框P1中打印的字符串而不清除图片框中的图像,应使用语句( ). A:P1.Print""B:P1.picture=LoadPicture("")C:A.P1.ClsD:P1.piture""答案：CSub过程与Function过程最根本的区别是_______.A:Sub过程可以直接使用过程名调用,而Function过程不可以B:Function过程可以有参数,而Sub过程不可以C:两种过程参数传递方式不同D:Sub过程的过程名不能返回值,而Function过程能通过过程名返回值答案：D为达到把a、b中的值交换后输出的目的,编程如下:Private Sub Command1_Click()a% = 10: b% = 20Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByVal a As Integer, ByVal b As Integer)c = a: a = b: b = cEnd Sub在运行时发现输出结果错了,需要修改.下面列出的错误原因和修改方案中正确的是_________. A:输出语句错误,应改为:"Print "a", "b""B:调用swap过程的语句错误,应改为"Call swap a,b"C:过程的形式参数有错,应改为:"swap(ByRef a As Integer,ByRef b As Integer)"D:swap中3条赋值语句的顺序是错误的,应改为"a=b:b=c:c=a"答案：C在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim ss = Array(9, 8, 7, 6, 5, 4, 3, 2, 1, 0)For i = 4 To 1 Step -2Print s(10 - i * 2);Next i程序运行后,单击命令按钮,则输出的结果是().A:8 4B:4 8C:8 6 4 2D:7 3答案：A删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案：C要把一个命令按钮设置成无效,应设置其哪一属性值(). A:VisibleB:EnabledC:DefaultD:Cancel答案：B下面语句中用来定义窗体或标准模块数组的是().A:DimB:ReDimC:Static答案：A下列关于Select Case之测试表达式的叙述中,错误的是 . A:可以是浮点类型B:只能是变量名C:可以是字符型D:可以是整型答案：B下列选项中,与List1.Text等价的表达式是( ).A:List1.List(List1.ListIndex-1)B:List1.List(List1.ListIndex+1)C:List1.List(List1.ListCount-1)D:List1.List(List1.ListIndex)答案：D语句listl.removeitem 1 将删除list.listindext等于()的项目.. A:0B:2C:3D:1答案：D执行X=7.835 :y=Int(x*100+0.5)/100 后结果是 .A:7.84B:7.8C:7.83D:7.835答案：AVisual Basic的过程有三种,它们是A:属性过程、通用过程和函数过程B:事件过程、通用过程和函数过程C:事件过程、函数过程和子程序过程D:通用过程、子程序过程和函数过程答案：C组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A使用Function语句定义一个函数过程,其返回值的类型为_______. A:只能是符号常量B:是除数组之外的简单数据类型C:可在调用时由运行过程决定D:由函数定义时As子句声明答案：D列表框控件中的列表内容是通过()属性设置的.A:NameB:CaptionC:ListD:Text答案：C工具栏中的"启动"按钮的作用是().A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口答案：A在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案：C要使得窗体在出现之前就完成相关的程序设置可在()事件中进行编程.A:linkopenB:KeyPressC:loadD:click答案：C图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A:WidthB:PictureC:NameD:Stretch答案：D每建立一个窗体,工程管理器窗口中就会增加一个().A:工程文件B:窗体文件C:程序模块文件D:类模块文件答案：B表达式X+1>X是().A:算术表达式B:非法表达式C:字符表达式D:关系表达式要在垂直位置上移动控件,应利用控件的()属性.A:LeftB:WidthC:TopD:Height答案：C任何控件都具有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C下列选项中,不属于列表框方法的是( ).A:AddItemB:DelItemC:ClearD:RemoveItem答案：B若i的初值为8,则下列循环语句的循环次数为次. Do While i<=17i=i+2A:4次B:3次C:6次D:5次答案：D下列不能用commondialog 控件调用的对话框是(). A:open/saveB:helpC:fontD:search答案：D一个菜单项是不是一个分隔条,由()属性决定.A:Name(名称)B:CaptionC:EnabledD:Visible答案：B选中复选框控件时,value属性的值,可以是().A:TrueB:falseC:0D:1Interger类型的变量可存的的最大整数是().A:250B:256C:32768D:32767答案：D获取字符串a 最右边5个字符的函数是 . A:RightStr(a,5)B:RightTrin(a,5)C:Last(a,5)D:Right(a,5)答案：DVB认为下面()组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1答案：A下列控件中,没有Caption属性的是( ).A:框架B:复选框D:单选按钮答案：C要在图片框P1中打印字符串"HowAreYou",应使用语句(). A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C如果要给字体加删除线,可以选择下列那种属性().A:FontNameB:FontSizeC:FontStrikethruD:FontUnderLine答案：C下面哪些控件不会影响到界面设计效果().A:LabelB:TextC:CommonDialogD:Frame答案：C要改变控件的宽度,应修改该控件的()属性.A:TopB:WidthC:LeftD:Height答案：B变量未赋值时,数值型变量的值为().A:0B:空C:1D:无任何值答案：A设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(). A:Combo1.RemoveItem TextB:Combo1.RemoveItem 2C:Combo1.RemoveItem 3D:Combo1.RemoveItem Combo1.Listcount答案：B用ReDim语句定义的数组是().A:多维数组B:永久数组C:临时数组D:静态数组答案：C只能用来显示字符信息的控件是( ).A:文本框B:标签C:图片框D:图像框答案：B以下4个选项中,属性窗口未包含的是 .A:属性列表B:工具箱C:对象列表D:信息栏答案：B窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体答案：B启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1B:窗体1C:工程D:窗体答案：A若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性. A:BACKCOLORB:BORDERSTYLEC:FORECOLORD:BACKSTYLE答案：D以下不允许用户在程序运行时输入文字的控件是().A:标签框B:文本框C:下拉式组合框D:简单组合框答案：A引用列表框的最后一项应使用().A:List1.List(List1.ListCount-1)B:List1.List(List1.ListCount)C:List1.List(ListCount)D:List1.List(ListCount-1)答案：AInt( Rnd * 100 ) 表示的是范围内的整数.A:[1,100]B:[1,99]C:[0,99]D:[0,100]答案：C表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(). A:4^5B:3*4C:x+1D:SIN答案：C确定一个控件在窗体上的位置的属性是( ).A:Width和HeightB:Width或HeightC:Top和LeftD:Top或Left答案：C双击窗体的任何地方,可以打开的窗口是().A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对答案：A下面()控件不具有Caption属性.A:标签框B:单选钮C:命令按钮D:文本框答案：D如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A:VisibleB:EnabledC:DisabledPictureD:Default答案：A如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(). A:=B:*C:&D:-答案：D下列()是窗体的扩展名.A:frmB:basC:clsD:dll答案：A定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分B:秒C:毫秒D:微秒答案：C在设计应用程序时,通过____窗口可以查看到应用程序工程中的所有组成部分. A:代码窗口B:窗体设计窗口C:属性窗口D:工程资源管理器窗口答案：DCls方法可以清除窗体或图片框中的()内容.A:在设计阶段使用Picture设置的背景位图B:在设计阶段放置的控件C:在运行阶段产生的图形和文字D:以上全部内容答案：C为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为().A:5B:500C:300D:5000答案：DMSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的答案：C与传统的程序设计语言相比,Visual Basic 最突出的特点是 . A:子过程和函数功能的设计B:事件驱动运行机制C:调试技术D:结构化程序设计答案：B单击滚动条的滚动箭头时,产生的事件是().A:ClickB:ScrollC:ChangeD:Move命令钮标题热字的下划线,可通过( )符号来设置.A:\<B:&C:_D:\>答案：B下列语句中,属于合法的Visual basic 语句是().A:Option Base 4B:Option Base 2C:Option Base 1D:Option Base 3答案：C在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). A:ListB:IndexC:ListIndexD:TabIndex答案：C用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:Checked答案：C下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：CClear方法适用于() 控件.A:图片框B:窗体C:复选框D:组合框答案：D欲使某命令按钮失效,应修改命令按钮的()属性.A:VisibleB:CaptionC:EnableD:Enabled答案：D将通用对话框类型设置为"另存为"对话框,应修改( )属性.C:ActionD:Font答案：C若要把"XXX"添加到列表框List1中的第三项,则可执行语句( ). A:List1.AddItem "XXX", 3B:List1.AddItem 3,"XXX"C:List1.AddItem "XXX", 2D:List1.AddItem 2,"XXX"答案：C下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1答案：A下面()对象在运行时一定不可见.A:LineB:TimerC:TextD:Option答案：B()对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:Frame答案：C为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( ).A:ValueB:DefaultC:CancelD:Enabled答案：C下列选项中不属于事件的是 .A:ShowB:KeyUpC:LoadD:Dblclick答案：A能够改变窗体边框线类型的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案：B标签框文本的对齐方式由( )属性来决定.A:AlignB:AlignmentC:AutosizeD:BackStyle答案：B在参数传递过程中,使用关键字_______来修饰参数,可以使之按值传递. A:ByValB:ByRefC:ValueD:reference答案：A要想返回文本框中输入的内容则可利用其()属性进行编程.A:captionB:textC:nameD:righttoleft答案：B当一个工程含有多个窗体时,其中的启动窗体是( ).A:在"工程属性"对话框中指定的窗体B:第一个添加的窗体C:启动 Visual Basic 时建立的窗体D:最后一个添加的窗体答案：A如下语句不能定义一个10×10的数组的是().A:Option Base 1:Dim s(10, 10)B:Dim s(2 To 11, -4 To 5)C:Dim s(10, 10) As IntegerD:Dim s(9, 9)答案：C若要设置文本框最大可接收的字符数,可通过( )属性来实现. A:MultiLineB:LengthC:MaxD:MaxLength答案：D数组Dim arr(-1 to 4,2 to 4,3) 的元素个数是().A:60B:36C:30D:72答案：D以下有关对象属性的说法正确的是( ).A:对象所有的属性都罗列在属性窗口列表中B:不同对象不可能有同名属性C:不同对象的同名属性的取值一定相同D:对象的某些属性既可以在属性窗口中设置,也可以通过程序代码设置或改变答案：Dvb 中的坐标系最小刻度为().A:缇B:象素C:厘米D:一个标准字符宽度答案：A如果要在命令按钮上显示图形文件,应设置命令按钮的().A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性答案：B组合框控件是将()组合成一个控件.A:列表框控件和文本框控件B:标签控件和列表框控件C:标签控件和文本框控件D:复选框控件和选项按钮控件答案：A计时器的interval属性为0时,表示().A:计时器失效B:相隔0秒C:相隔0 毫秒D:计时器的enable属性为false答案：A清除列表框的所有选项应选择下列哪种方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案：A以下叙述错误的是( ).A:下拉式菜单和弹出式菜单都用菜单编辑器建立B:如果把一个菜单项的Enabled属性设置为False,则菜单项不可见. C:内缩符号由4个点组成,它表明菜单项所在的层次.D:除分隔线外,所有菜单项都能接收Click事件.答案：B在Visual Basic代码中,将多个语句合并在一行上的并行符是() A:撇号(')B:冒号(:)C:感叹号(!)D:问号(?)答案：B工程文件的扩展名为 .A:.basB:.vbpC:.frxD:.frm答案：B将Visual Basic编制的程序保存在磁盘上,至少会产生何种文件 .A:.doc与.txtB:.vbp与.frmC:.com与.exeD:.bat与.frm答案：B为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案：B决定控件上文字的字体、字形、大小及效果的属性是().A:TEXTB:CAPTIONC:NAMED:FONT答案：D一、判断共204题在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.答案：N有的对象属性既可在属性窗口中设定又可在程序代码中设定.答案：Y所有的控件在程序运行以后都是可见的.答案：NSingle 和Double型用于保存浮点数,在VB中定义单精度浮点8位,双浮点16位.答案：N时钟控件的属性Interval值为0时,表示屏蔽计时器.答案：Y有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y在过程中用Dim和Static定义的变量都是局部变量答案：Y对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).答案：Y事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义.答案：Y图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作.答案：N声明形参处缺省传递方式声明,则为按值传递(ByVal).答案：NVariant是一种数据类型,因此只能存放象其它数据类型一样,无特殊值.答案：NVB若同一个工程有许多窗体,可以指定任一窗体为启始窗体.答案：Y定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y过程中的静态变量是局部变量,当过程再次被执行时,它的值是上一次过程调用后的值.答案：Y在VB中,函数 Fix(-3.6) 的返回值是–4.答案：N可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y如果一个菜单项的Visible属性为False,则它的子菜单也不会显示.答案：YVB规定窗体文件的扩展名是 .vbp.答案：N当需要在同一窗体中建立几组相互独立的单选钮时,就要用框架将每一组单选钮框起来.答案：Y在打开一个Visual Basic工程进行修改后,要另存为一个版本,只需单击"工程另存为…"就行,因为系统将同时保存其他文件.答案：Y利用Private Const 声明的符号常量,在代码中不可以再赋值.答案：Y如果在过程调用时使用按地址传递参数(byref),则在被调过程中不可以改变实参的值.答案：N用通用对话框控件显示"字体"对话框前,必须先设置Flags属性,否则将发生"不存在字体"的错误.答案：Y用Cls方法能清除窗体或图片框图中用Picture属性设置的图形.答案：NDo/Loop While结构中的循环体,至少被执行一次.答案：Y要使定时器控件起作用,其属性Interval不可以设置为0.答案：Y对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如下命令:Dir1.Path=Drive1.Drive.答案：Y事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案：NFor/Next语句中,循环控制变量只能是整型变量.答案：N关系表达式是用来比较两个数据的大小关系的,结果为逻辑值.答案：Y面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法.答案：YVisual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其它位置,则需使用自定义坐标系统.答案：Y在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案：Y设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中.答案：N在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N由Visual Basic语言编写的应用程序有解释和编译两种执行方式.答案：Y在MsgBox 函数中 prompt 参数是必须的.答案：Y文件按照数据编码方式可以分为ASCII码文件和二进制文件.答案：Y在表达式中,运算符两端的数据类型要求一致.答案：Y计时器(Timer)控件的Interval属性的单位是毫秒,即若将此属性值设为10,则每0.01秒产生一次Timer事件.答案：Y数组控件形成之后,对于每一个控件的名称是相同的.答案：Y若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.答案：Y清除combo1对象的内容是combo1.clear.答案：YDo/Loop Until结构的循环,是"先判断、后执行(循环体)"的循环结构.答案：N在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive 的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变.答案：Y命令 Picture1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在 (500,800)的一个圆.答案：Y用DIM定义数值变量时,该数值变量自动赋初值为0.答案：Y在面向对象的程序设计中,对象是指可以访问的实体.答案：Y通常访问数组内容需要使用循环结构.答案：Y在VB 6.0中,如果要使窗体上的多个控件具有相同的尺寸,在选择了这些控件之后,应执行VB"格式"菜单中的命令.答案：Y用关键字Public声明的过程可以被其他模块调用.答案：YVB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案：N用dim语句声明的局部变量能保存上一次过程调用后的值.答案：N"菜单编辑器"中至少要填"名称"和"标题"这两个框,才能真确完成菜单栏的设计.答案：Y在命令按钮的Click事件过程中,exit与end等效.答案：N在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、And、Or.答案：YVisual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言.答案：Y设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False.答案：Y"事件过程"是用来完成事件发生后所要执行的程序代码.答案：Y某一过程中的静态变量在过程结束后,静态变量及其值可以在其它过程中使用.答案：N如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：YActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案：Y要设置一个图片按钮,除了设置按钮的Picture属性外,还应该将按钮的Style属性设置为1.答案：Y使用单选钮控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮.答案：Y组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择. 答案：Y图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件.答案：Y函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式.答案：N在单行If语句中,关键字End If是必不可少的.答案：N创建数组控件的方法之一是选定控件后通过复制、粘贴的方式.答案：YFunction函数有参数传递,并且一定有返回值.答案：Y计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,命名的内存单元就是常量或变量.答案：Y单击"启动"菜单项将窗体装入内存时,一定触发窗体的load事件.答案：YFor/Next循环正常(未执行Exit For)结束后,控制变量的当前值等于终值.答案：N多文档界面是指在一个父窗口下面可以同时打开多个子窗口.子窗口归属于父窗口,当父窗口关闭时,所有子窗口全部关闭.答案：YListl.clear是清除Listl的全部列表项,所以Clear是对象的方法.答案：Y在标准模块的声明部分中用Public声明的变量的有效范围是其所在的工程.答案：Y函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值.答案：Y将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案：YVisual_basic是合法的变量名.答案：Y填空共141题文本框中所显示的内容是它的【1】属性的值.答案 Text如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public mystring as string*15如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-2新建工程时系统会自动将窗体标题设置为【1】.答案：Form1如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】. 答案：退出(&X)拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change语句Print Not 10>15 And 8<5+2的输出结果为【1】.答案：FALSE对象具有属性和【1】.答案：方法当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：False要使同一类型控件组成一个控件数组,必须要求【1】.答案：Name 相同=或=名称相同滚动条控件有水平滚动条和【1】滚动条.答案：垂直Val("123.55ab456")的值是多少【1】.答案：123.55VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条=或=滚动条把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：True运行时,若需要命令按钮为灰色,即不被击活,在设计时可以通过【1】属性来实现.答案：enabled列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表=或==列表Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture1求x与y之积除以z的余数的VB表达式为【1】.答案 x*y Mod z已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】. 答案：DE文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件=或=随机显示弹出式菜单的方法是【1】.答案：PopupMenu要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：DefaultVB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案：连接设置计时器控件只能触发【1】事件.答案：timerVisualBasic6.0用于开发【1】环境下的应用程序.答案：WINDOWS一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：& 或+答案2 & 或 +。
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 对应的Visual Basic 表达式是： __ 。
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程序填空课堂练习题
程序填空课堂练习题在×××××××××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填空题题库
VB填空题题库1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。
答案：122) 语句a%=3.14156:Print a%的输出结果是______。
答案：33) 以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop答案：114) Fix(5.8)的值是______答案：55) 下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A答案：A=116) 表达式3/6*5的值是_______。
答案：2.57) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
If a<b Thend=a:a=b:b=dEndIfIf a<c Thend=a:a=c:c=dEndIfIf_____Thend=b:b=c:c=dEndIfPrint a,b,c答案：b<c8) 在Select case 结构中应至少包含一个______子句。
答案：CASE9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。
答案：赋值10) 有如下Sub过程:Sub ind(a As Integer)Static x As Integerx = x+aPrint x;End Sub以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。
Private Sub Command1_Click()Ind(2)End Sub答案：211) 逻辑常量值为TRUE或_______。
答案：FALSE12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。
答案：413) 表达式（2+8*3）/2的值是______。
答案：1314) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。
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填空题
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.'功能：以下程序段用于计算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)中,插入该数据后数组还是有序的。
(完整word)vb题库填空题
(完整word)vb题库填空题单选题1、在VB的工程中，工程文件的扩展名是______。
A:frmB：vbgC:vbpD：bas答案：C2、在VB的应用程序中，窗体文件的扩展名是______。
A：frmB:vbgC：vbpD：bas答案：A3、在VB的应用程序中，标准模块文件的扩展名是______。
A：frmB：vbgC：vbpD：bas答案：D4、以下关于保存工程的说法正确的是______。
A:保存工程时只保存窗体文件即可B：保存工程时只保存工程文件即可C：先保存窗体文件，再保存工程文件 D：先保存工程文件，再保存窗体文件答案:C5、在面向对象的程序设计中，最基本的元素是______.A:窗体文件B：工程文件C：属性D：对象答案:D6、在运行程序时,若要使文本框获得输入焦点，可调用文本框对象的______方法来实现。
A:RefreshB：GetFocusC:SetFocusD：Tab答案:C7、在程序运行时，若要获得用户在文本框中所选择的文本，可通过访问______属性来实现。
A：SelStartB：SelLengthC：TextD：SelText答案：D8、若要设置文本框最大可接收的字符数,可通过______属性来实现。
A：MultiLineB:LengthC：MaxD:MaxLength答案：D9、窗体的标题条显示内容由窗体对象的______属性决定。
A：BackColorB：BackStyle C：TextD：Caption答案：D10、若要取消窗体的最大化功能，则可设置______属性为False来实现。
A:ControBoxB：MinButtonC:MaxButtonD：Enabled答案：C11、命令按钮的标题文字由____属性来设置。
A：TextB:CaptionC:NameD：(名称）答案:B12、标签框的边框，由______属性的设置值决定。
A：BackColorB：BackStlyeC：BorderStyleD：AutoSize答案：C13、若要使标签框的大小自动与所显示的文本相适应，可通过设置______属性的值为True来实现。
- 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个数中最大值。