《VisualBasic程序设计》精彩试题及其问题详解.docx

实用文档一、填空题（每题1分，共10分）1.把数学式子：1sin25写成VB的数值表达式为2（Sqr(1+3.14159/2*Sin(25*3.14159/180))）2．设A=5，B=6，C=7，D=8，表达式3>2*BORA=CANDB<>CORC>D的值是（True）3．若Case子句中的表达式表列具有形式：<表达式1>To<表达式2>，则它的含义是：当测试表达式的值等于（指定范围内的值）时，执行该Case子句相应的语句块4．执行下面的程序段后，x的值为（12）x=0Fori=1To8Step3x=x+iNexti5．在图片框上放置的控件称为图片框的（子）对象，而窗体是图片框的（父）对象6．将命令按钮Command1的Caption属性值赋给文本框Text1的Text属性使用的语句为(Text1.Text=Command1.Caption)7．复选框的Value属性为（1）时，表示复选框被选中8.使用滚动条可以获取某一范围内的数值输入为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于(Max)属性值9．语句：DimA(-3to4)asInteger定义的一维数组A的元素个数是（8）。

10．给定如下子过程：Functionfun(ByValnumAsLong)AsLongDimkAsLong,iAsIntegerk=1Fori=1Tonumk=k*iNextiEndFunction执行语句Printfun(5)后在窗体上显示的结果为（0）二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（C）A)对象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为整型变量,不能正确表达1=5)4．InputBox函数返回值的类型为(B)A)数值型B)字符串型C)逻辑型D)货币型5．执行语句：Print4+5\6*8/8Mod9输出的值是(A)文案大全实用文档A)4B)5C)6D)76.下列循环语句能正常结束循环的是（C）A)i=5B)i=1DoDoi=i+1i=i+2LoopUntili<0LoopUntili=10C)i=10D)i=6DoDoi=i+1i=i-2LoopUntili>0LoopUntili=17．以下叙述中正确的是（A）。

窗体的Name属性指定窗体的名称，用来标识一个窗体窗体的Name属性的值是显示在窗体标题栏中的文本可以在运行期间改变窗体的Name属性的值窗体的Name属性值可以为空8．VB为命令按钮提供的Cancel属性（A）用来指定命令按钮是否为窗体的“取消”按钮用来指定命令按钮的功能是停止一个程序的运行用来指定命令按钮的功能是关闭一个运行程序用来指定命令按钮的功能是中断一个程序的运行9．若使命令按钮失效，要对（A）属性设置为FalseA)EnabledB)VisibleC)BackColorD)Caption10．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=UCase(Text1.Text)+Left(Text2.Text,3)PrintaEndSubPrivateSubForm_Load()Text1.Text="abcDEF"Text2.Text="123456"EndSub程序启动后，单击命令按钮，输出结果为（C）A）abcDEF123456B）abcDEF123C）ABCDEF123D）ab12345611．在运行程序时，要使文本框获得焦点，则需使用（B）方法。

A)ChangeB)SetFocusC)GotFocusD)Move12．下列语句中不能把图片框Picture1中的图形清除的是（A）A)Picture1.DelB)Picture1.Picture=LoadPicture("")C)Picture1.Picture=LoadPicture()D)Picture1.Picture=Nothing13．要删除列表框中的某一个项目，需要使用（D）方法A)ClearB)ReMoveC)MoveD)ReMoveItem14．在组合框中选择某一项目内容，在程序中可以通过（D）属性获得A)ListB)ListIndexC)ListCountD)Text文案大全实用文档15．若有数组说明语句：Dima()ASInteger，则a被定义为（B）A)定长数组B)可调数组C)静态数组D)可变类型数组16．有如下语句：TypeStudentNameAsStringAgeAsIntegerSexAsStringEndTypeDimStuAsStudentWithStu.Name="李强".Age=21.Sex="男"EndWith执行语句PrintStu.Age后在窗体上显示的结果是（B）。

17. A)李强B)21C)“男”D)Age要使子过程f1调用后能用形式参数返回两个结果，下面子过程定义正确的是(C)18. A）Subf1(ByValn%,ByValm%)B）Subf1(n%,ByValm%)<子过程体><子过程体>EndSubEndSubC）Subf1(n%,m%)D）Subf1(ByValn%,m%)<子过程体><子过程体>EndSubEndSub以下叙述中错误的是(D)一个工程中可以包含多个窗体文件在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件全局变量必须在标准模块中定义19．从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备，如下语句（A）是正确的20. A）F="c:\t1.txt"B）F="c:\t1.txt"OpenFForInputAs#1Open"F"ForInputAs#2C）Open"c:\t1.txt"ForOutputAs#1D）Openc:\t1.txtForInputAs#2以下叙述中正确的是(B)一个记录中所包含的各个元素的数据类型必须相同随机文件中每个记录的长度是固定的Open命令的作用是打开一个已经存在的文件使用Input#语句可以从随机文件中读取数据三、程序阅读题(第1题3分，第2题5分，其余题各4分，共24分)1．当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。

PrivateSubCommand1_Click()Dimx%,y%x=InputBox("请输入x的值：")SelectCasex文案大全实用文档2. Case1,3,5,7y=x+10Case8To10y=x+2Case2,4,6y=5*xCaseIs>10y=x*x+1EndSelectPrint"x=";x,"y=";yEndSubx=4y=20x=8y=10x=12y=145写出执行下列事件过程的输出结果PrivateSubCommand1_Click()Constn=3DimiAsInteger,kAsIntegerFori=1TonPrintTab((n-i)*2+1);Fork=1ToiPrintStr(k);NextkFork=i-1To1Step-1PrintStr(k);NextkPrintNextiEndSub1121123213.设在一个窗体（如图所示）中已设置了一个组合框Combo1和文本框Text1，且有下列程序，试写出事件过程Combo1_Click的功能DimstrAsStringPrivateSubForm_Load()str=""Combo1.AddItem"北京"Combo1.AddItem"天津"Combo1.AddItem"西安"Combo1.AddItem"上海"Combo1.AddItem"武汉"Combo1.AddItem"广州"Combo1.AddItem"海口"文案大全实用文档Combo1.Text="北京"EndSubPrivateSubCombo1_Click()str=str&Combo1.Text&"，"Text1.Text=strEndSub在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本框中显示所有选择项目的内容。

4. 写出执行下列事件过程的输出结果PrivateSubForm_Click()Dima(1To2,1To2)AsIntegerDimiAsInteger,jAsIntegerFori=1To2Forj=1To2a(i,j)=(2*i-1)*4+jNextjNextiFori=1To2Printa(i,3-i),a(3-i,i)NextiEndSub131365．写出执行下列事件过程的输出结果PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3:b=2Callf(8,a)Print"a=";a,"b=";bCallf(a,b)Print"a=";a,"b=";bEndSubPrivateSubf(ByValxAsInteger,yAsInteger)x=x+1y=y-1EndSuba=2b=2a=2b=16．若有如下窗体模块：DimaAsIntegerPrivateSubtest()DimbAsIntegera=a+1:b=b+1Print"Sub:";a,b文案大全实用文档EndSubPrivateSubCommand1_Click()a=2:b=3CalltestCalltestEndSub写出当程序启动并单击命令按钮后，在窗体中显示的结果。

Sub：31Sub：41四、程序填空题(每空2分，共22分)下面事件过程的功能是：输入某个学生某门课程的百分制成绩，并根据成绩输出评语，若0≤成绩＜60时，评语为“差”；若60≤成绩＜70时，评语为“通过”；若70≤成绩＜80时，评语为“中等”；若80≤成绩＜90时，评语为“良好”；若90≤成绩≤100时，评语为“优秀”，在横线上填上适当内容PrivateSubCommand1_Click()Dims!s=InputBox("请输入学生的成绩：")If0<=sAnds<=100ThenSelectCase(1)sCaseIs>=90Print"优秀"CaseIs>=80Print"良好"CaseIs>=70Print"中等"CaseIs>=60Print"通过"(2)CaseElse或Is>=0Print"差"EndSelectEndIfEndSub2.下面程序的功能是：计算f=1-1/(2×3)+1/(3×4)-1/(4×5)+⋯+1/(19×20)的值，在横线上填上适当内容PrivateSubForm_Click()DimfAsSingle,iAsInteger,signAsInteger（3）sign=-1f=1（4）fori=2to19f=f+sign/(i*(i+1))（5）sign=sign*(-1)NextiPrint"f=";f文案大全实用文档EndSub3.下面窗体模块的功能是：从键盘上输入x，y和z的值，按如下公式求f(x，y，z)的值的程序，在横线上填上适当内容。

f(x,y,z)=sin(x)/。