《Visual-Basic程序设计》试题及其答案

1、一、填空题（每题1分，共10分）写成VB的数值表达式为sin251.把数学式子： 12（Sqr(1+3.14159/2*Sin(25*3.14159/180)2设A=5，B=6，C=7，D=8，表达式32*BORA=CANDBCORCD的值是（True3若Case子句中的表达式表列具有形式：To，则它的含义是：当测试表达式的值等于（指定范围内的值）时，执行该Case子句相应的语句块。4执行下面的程序段后，x的值为（12x=0Fori=1To8Step3x=x+iNexti5在图片框上放置的控件称为图片框的（子）对象，而窗体是图片框的（父）对象。6将命令按钮Command1的Caption属性值

2、赋给文本框Text1的Text属性使用的语句为(Text1.Text=Command1.Caption)7复选框的Value属性为（1）时，表示复选框被选中。8.使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于(Max)属性值。9语句：DimA(-3to4)asInteger定义的一维数组A的元素个数是（810给定如下子过程：Functionfun(ByValnumAsLong)AsLongDimkAsLong,iAsIntegerk=1Fori=1Tonumk=k*iNextiEndFunction执行语句Printfun

3、(5)后在窗体上显示的结果为（0二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（CA)对象B)属性C)事件D)方法2.设a=VisualBasic，下面使b的值为Basic的赋值语句正确的是(B)。A)b=Left(a,8,12)B)b=Mid(a,8,5)C)b=Right(a,5,5)D)b=Left(a,8,5)3设X为整型变量,不能正确表达1X5的逻辑表达式是(A)。A)1X5B)X=2orX=3orX=4C)1XAndX5D)Not(X=5)4InputBox函数返回值的类型为(B)。A)数值型B)字符串型C)逻辑型D)货币型5执行语句：Print4+56*8/8Mod

4、9输出的值是(A)。A)4B)5C)6D)76.下列循环语句能正常结束循环的是（CA)i=5B)i=1欢迎共阅DoDoi=i+1i=i+2LoopUntili0LoopUntili=17以下叙述中正确的是（AA)窗体的 Name 属性指定窗体的名称，用来标识一个窗体B)窗体的 Name 属性的值是显示在窗体标题栏中的文本C)可以在运行期间改变窗体的 Name 属性的值D)窗体的 Name 属性值可以为空8VB 为命令按钮提供的 Cancel 属性（AA)用来指定命令按钮是否为窗体的“取消”按钮B)用来指定命令按钮的功能是停止一个程序的运行C)用来指定命令按钮的功能是关闭一个运行程序D)用来指定

5、命令按钮的功能是中断一个程序的运行9若使命令按钮失效，要对（A）属性设置为 False。A)EnabledB)Visible C)BackColor10在窗体中添加两个文本框（其 Name 属性分别为 Text1 和 Text2）和一个命令按钮（Name属性为 PrivateSubCommand1_Click()a=UCase(Text1.Text)+Left(Text2.Text,3)PrintaEndSubPrivateSubForm_Load()Text1.Text=abcDEFText2.Text=123456EndSub程序启动后，单击命令按钮，输出结果为（C）A）abcDEF123

6、456B）abcDEF123C）ABCDEF123D）ab12345611在运行程序时，要使文本框获得焦点，则需使用（B）方法。B)SetFocusC)GotFocusD)Move12下列语句中不能把图片框 Picture1 中的图形清除的是（AA)Picture1.DelB)Picture1.Picture=LoadPicture()C)Picture1.Picture=LoadPicture()D)Picture1.Picture=Nothing13要删除列表框中的某一个项目，需要使用（D）方法。A)Clear14在组合框中选择某一项目内容，在程序中可以通过（D）属性获得。A)List B

7、)ListIndex C)ListCount D)TextB)ReMoveC)MoveD)ReMoveItem15若有数组说明语句：Dima()ASInteger，则 a 被定义为（ BA)定长数组 B)可调数组 C)静态数组 D)可变类型数组16有如下语句：TypeStudentNameAsString欢迎共阅AgeAsIntegerSexAsStringEndTypeDimStuAsStudentWithStu.Name=李强.Age=21.Sex=男EndWith执行语句PrintStu.Age后在窗体上显示的结果是（BA)李强B)21 C)“男”D)Age17.要使子过程f1调用后能用

8、形式参数返回两个结果，下面子过程定义正确的是(C)。A）Subf1(ByValn%,ByValm%)B）Subf1(n%,ByValm%)EndSubEndSubC）Subf1(n%,m%)D）Subf1(ByValn%,m%)EndSubEndSub18.以下叙述中错误的是(D)。A)一个工程中可以包含多个窗体文件B)在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C)在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件D)全局变量必须在标准模块中定义19从磁盘上打开顺序文件c:t1.txt为读入数据做好准备，如下语句（A）是正确的。A）F=c:t1.

9、txtB）F=c:t1.txtOpenFForInputAs#1OpenFForInputAs#2C）Openc:t1.txtForOutputAs#1D）Openc:t1.txtForInputAs#220.以下叙述中正确的是(B)。A)一个记录中所包含的各个元素的数据类型必须相同B)随机文件中每个记录的长度是固定的C)Open命令的作用是打开一个已经存在的文件D)使用Input#语句可以从随机文件中读取数据三、程序阅读题第1题3分，第2题5分，其余题各4分，共24分)1当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。PrivateSubCommand1_Click()Di

10、mx%,y%x=InputBox(请输入x的值：)SelectCasexCase1,3,5,7y=x+10Case8To10y=x+2Case2,4,6y=5*xCaseIs10y=x*x+1欢迎共阅EndSubx=4y=20 x=8y=102.写出执行下列事件过程的输出结果。PrivateSubCommand1_Click()Constn=33.设在一个窗体（如图所示）中已设置了一个组合框 Combo1 和文本框 Text1，且有下列程序，试DimstrAsStringPrivateSubForm_Load()Combo1.AddItem北京Combo1.AddItem天津Combo1.Ad

11、dItem西安Combo1.AddItem上海Combo1.AddItem武汉Combo1.AddItem广州Combo1.AddItem海口str=str&Combo1.Text&，EndSub在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本框中显示所有选择项目的内容。PrivateSubForm_Click()Dima(1To2,1To2)AsIntegerDimiAsInteger,jAsIntegerFori=1To2Forj=1To2a(i,j)=(2*i-1)*4+jNextjNextiFori=1To2Printa(i,3-i),a(3-i,i)Next

12、iEndSub6131365写出执行下列事件过程的输出结果。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3:b=2Callf(8,a)Printa=;a,b=;bCallf(a,b)Printa=;a,b=;bEndSubPrivateSubf(ByValxAsInteger,yAsInteger)x=x+1y=y-1EndSuba=2b=2a=2b=16若有如下窗体模块：DimaAsIntegerPrivateSubtest()DimbAsIntegera=a+1:b=b+1PrintSub:;a,bEndSubPrivateSub

13、Command1_Click()a=2:b=3CalltestCalltestEndSub写出当程序启动并单击命令按钮后，在窗体中显示的结果。Sub：31Sub：41四、程序填空题每空 2 分，共 22 分)1.下面事件过程的功能是：输入某个学生某门课程的百分制成绩，并根据成绩输出评语，若 0成绩60 60成绩70 70成绩80 时，评语欢迎共阅 80成绩90 90成绩100 线上填上适当内容。PrivateSubCommand1_Click()Dims!s=InputBox(请输入学生的成绩：)If0=sAnds=90Print优秀CaseIs=80Print良好CaseIs=70Print

14、中等CaseIs=60Print通过(2)CaseElse 或 Is=0Print差EndSelectEndIfEndSub2.下面程序的功能是：计算 f=1-1/(23)+1/(34)-1/(45)+1/(1920)的值，在横线上填上适当内容。PrivateSubForm_Click()DimfAsSingle,iAsInteger,signAsInteger（3）sign=-1f=1（4）fori=2to19f=f+sign/(i*(i+1)（5）sign=sign*(-1)NextiPrintf=;fEndSub3.下面窗体模块的功能是：从键盘上输入x 和 z 的值，按如下公式求序，在横

15、线上填上适当内容。f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z)+sin(y)/(sin(y-z)*sin(y-x)+sin(z)/(sin(z-x)*sin(z-y)其中 x、y 和 z 互不相等。Functionf(ByValaAsSingle,ByValbAsSingle,ByValcAsSingle)(6)AsSingle(7)f=Sin(a)/(Sin(b)*Sin(c)EndFunctionPrivateSubCommand1_Click()Dimx!,y!,z!,s!x=InputBox(x=)y=InputBox(y=)欢迎共阅z=InputBox(z=)

16、IfxyAndyzAndzxThens=f(x,x-y,x-z)+f(y,y-z,y-x)+(8)f(z,z-x,z-y)Prints=;sElsePrint数据输入错误！EndIfEndSub4.下面事件过程的功能是从学生分数顺序文件 D:file1.dat 班的平均成绩，在横线上填上适当内容。PrivateSubcommand1_Click()Dimn%,score!,s!OpenD:file1.dat(9)As#3ForInputn=(11)n+1WendPrint平均成绩为：;s/nEndSub五、程序设计题（每题7分，共14分）1.假设体操比赛有 10 个评委和评分规定为：采用 10 分制；去掉一个最高分和去掉一个最低分，然后计算平均分，该平均分作为最后得分。试编写一个事件过程，输入10 个评委对某个运动员的评分存放在一维数组 s 中，计算该运动员的最后得分。PrivateSubCommand1_Click()Dims!(1To10),max!,min!,i%,sum!Fori=1To10s(i)=InputBox(请输入第&Str(i)&个评委的分数)NextiFori=1To10Ifs(i)maxThenmax=s(i)Ifs(i)minThe