《VISUALBASIC程序设计》试题及其答案.pdf

1 一、一、填空题（每题填空题（每题 1 1 分，共分，共 1010 分）分） 1.1.把数学式子：把数学式子： 25sin 2 1 写成写成 VBVB 的数值表达式为的数值表达式为 （ Sqr(1+3.14159/2*Sin(25*3.14159/180)Sqr(1+3.14159/2*Sin(25*3.14159/180) ） 。 2 2设设 A=5A=5，B=6B=6，C=7C=7，D=8D=8，表达式，表达式 32*B32*B OROR A=CA=C ANDAND BC OROR CDCD 的值是（的值是（ TrueTrue ） 。 3 3若若 C Casease 子句中的表达式表列具有形式：子句中的表达式表列具有形式：1 T To o 2，则它的含义是，则它的含义是： 当测试表达式的值等于（当测试表达式的值等于（ 指定范围内的值指定范围内的值 ）时，执行该）时，执行该 C Casease 子句相应的语句块。子句相应的语句块。 4 4执行下面的程序段后，执行下面的程序段后，x x 的值为（的值为（ 1212） 。 x=0x=0 ForFor i=1i=1 ToTo 8 8 StepStep 3 3 x=x+ix=x+i NextNext i i 5 5在图片框上放置的控件称为图片框的（在图片框上放置的控件称为图片框的（子子）对象，而窗体是图片框的（）对象，而窗体是图片框的（父父） 对象。对象。 6 6将命令按钮将命令按钮 Command1Command1 的的 CaptionCaption 属性值赋给文本框属性值赋给文本框 Text1Text1 的的 TextText 属性使用的语句为属性使用的语句为 ( ( Text1.Text=Command1.CaptionText1.Text=Command1.Caption) ) 7 7复选框的复选框的 ValueValue 属性为（属性为（1 1）时，表示复选框被选中。）时，表示复选框被选中。 8.8. 使用滚动条可以获取某一范围内的数值输入使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的为使垂直滚动条的 ValueValue 属性值从下往属性值从下往 上递增变化，应设置滚动条上递增变化，应设置滚动条 MinMin 属性值大属性值大于于( (MaxMax) )属性值。属性值。 9 9语句：语句：DimDim A(-3A(-3 toto 4)4) asas IntegerInteger 定义的一维数组定义的一维数组 A A 的元素个数是（的元素个数是（8 8） 。 1010给定如下子过程：给定如下子过程： FunctionFunction fun(ByValfun(ByVal numnum AsAs Long)Long) AsAs LongLong DimDim k k AsAs Long,iLong,i AsAs IntegerInteger k=1k=1 ForFor i=1i=1 ToTo numnum k=k*ik=k*i NextNext i i EndEnd FunctionFunction 执行语句执行语句 PrintPrint fun(5)fun(5) 后在窗体上后在窗体上显示显示的结果为（的结果为（0 0） 。 二、单项选择题（每题二、单项选择题（每题 1 1.5.5 分，共分，共 3030 分）分） 1.1.装载窗体是窗体的（装载窗体是窗体的（C C） 。 A)A) 对象对象B)B) 属性属性C)C) 事件事件D)D) 方法方法 2.2.设设 a=“Visuala=“Visual Basic“Basic“，下面使，下面使 b b 的值为的值为“Basic“Basic“的赋值语句正确的是的赋值语句正确的是( (B B) )。 A)A) b=Left(a,8,12)b=Left(a,8,12)B)B) b=Mid(a,8,5)b=Mid(a,8,5) C)C) b=Right(a,5,5)b=Right(a,5,5)D)D) b=Left(a,8,5)b=Left(a,8,5) 3 3设设 X X 为整型变量为整型变量, ,不能正确表达不能正确表达 1=5)(X=5) 4 4InputBoxInputBox 函数返回值的类型为函数返回值的类型为( (B B) )。 A)A) 数值型数值型B)B) 字符串型字符串型C)C) 逻辑型逻辑型D)D) 货币型货币型 5 5执行语句：执行语句：PrintPrint 4+56*8/84+56*8/8 ModMod 9 9输出的值是输出的值是( (A A) )。 2 A)A) 4 4B)B) 5 5C)C) 6 6D)D) 7 7 6.6.下列循环语句能正常结束循环的是（下列循环语句能正常结束循环的是（C C） 。 A)i=5A)i=5B)B) i=1i=1 DoDoDoDo i=i+1i=i+1i=i+2i=i+2 LoopLoop UntilUntil ii 0 0LoopLoop UntilUntil i=1i=1 7 7以下叙述中正确的是以下叙述中正确的是 （A A） 。 A)A) 窗体的窗体的 NameName 属性指定窗体的名称属性指定窗体的名称 ，用来标识一个窗体，用来标识一个窗体 B)B) 窗体的窗体的 NameName 属性的值是显示在窗体标题栏中的文本属性的值是显示在窗体标题栏中的文本 C)C) 可以在运行期间改变窗体的可以在运行期间改变窗体的 NameName 属性的值属性的值 D)D) 窗体的窗体的 NameName 属性值可以为空属性值可以为空 8 8VBVB 为命令按钮提供的为命令按钮提供的 CancelCancel 属性（属性（A A） 。 A)A) 用来指定命令按钮是否为窗体的用来指定命令按钮是否为窗体的“取消取消”按钮按钮 B)B) 用来指定命令按钮的功能是停止一个程序的运行用来指定命令按钮的功能是停止一个程序的运行 C)C) 用来指定命令按钮的功能是关闭一个运行程序用来指定命令按钮的功能是关闭一个运行程序 D)D) 用来指定命令按钮的功能是中断一个程序的运行用来指定命令按钮的功能是中断一个程序的运行 9 9若使命令按钮失效，要对（若使命令按钮失效，要对（A A）属性设置为）属性设置为 FalseFalse。 A)A) EnabledEnabledB)B) VisibleVisibleC)C) BackColorBackColorD)CaptionD)Caption 1010 在窗体中添加两个文本框在窗体中添加两个文本框 （其其NamName e属性分别属性分别为为TextText1 1和和Text2Text2） 和一个命令按钮和一个命令按钮 （NamName e 属性为属性为 Command1Command1） ，然后编写如下两个事件过程：，然后编写如下两个事件过程： PrivatePrivate SubSub Command1_Click()Command1_Click() a a = = UCase(Text1.Text)UCase(Text1.Text) + + Left(Text2.Text,Left(Text2.Text, 3)3) PrintPrint a a EndEnd SubSub PrivatePrivate SubSub Form_Load()Form_Load() Text1.TextText1.Text = = “abcDEF“abcDEF“ Text2.TextText2.Text = = “123456“123456“ EndEnd SubSub 程序启动后，单击命令按钮，输出结果为（程序启动后，单击命令按钮，输出结果为（C C） A A）abcDEF123456abcDEF123456B B）abcDEF123abcDEF123 C C）ABCDEF123ABCDEF123D D）ab123456ab123456 1111在运行程序时，要使文本框获得焦点，则需使用（在运行程序时，要使文本框获得焦点，则需使用（B B）方法。）方法。 A)A) ChangeChangeB)B) SetFocusSetFocusC)C) GotFocusGotFocusD)D) MoveMove 1212下列语句中不能把图片框下列语句中不能把图片框 Picture1Picture1 中的图形清除的是（中的图形清除的是（A A） 。 A)A) Picture1.DelPicture1.DelB)B) Picture1.Picture1. Picture=LoadPicture(“)Picture=LoadPicture(“) C)C) Picture1.Picture1. Picture=Picture= LoadPicture(LoadPicture( ) )D)D) Picture1.Picture1. Picture=NothingPicture=Nothing 1313要删除列表框中的某一个项目，需要使用（要删除列表框中的某一个项目，需要使用（D D）方法。）方法。 A A) ) ClearClearB B) ) ReMoveReMoveC C) ) MoveMoveD D) ) ReMoveItemReMoveItem 1414在组合框中选择某一项目内容，在程序中可以通过（在组合框中选择某一项目内容，在程序中可以通过（D D）属性获得。）属性获得。 A A) ) ListListB B) ) ListIndexListIndexC C) ) ListCountListCountD D) ) TextText 3 1515若有数组说明语句：若有数组说明语句：DimDim a()ASa()AS IntegerInteger，则，则 a a 被定义为（被定义为（B B） 。 A)A) 定长数组定长数组B)B) 可调数组可调数组C)C) 静态数组静态数组D)D) 可变类型数组可变类型数组 1616有如下语句：有如下语句： TypeType StudentStudent NameName AsAs StringString AgeAge AsAs IntegerInteger SexSex AsAs StringString EndEnd TypeType DimDim StuStu AsAs StudentStudent WithWith StuStu .Name.Name = = “ “李强李强“ “ .Age.Age = = 2121 .Sex.Sex = = “ “男男“ “ EndEnd WithWith 执行语句执行语句 PrintPrint Stu.AgeStu.Age 后在窗体上后在窗体上显示显示的结果是（的结果是（B B） 。 A)A)李强李强B)21B)21C)C)“男男”D)AgeD)Age 17.17.要使子过要使子过程程 f f1 1 调用后能用形式参数返回两个结果调用后能用形式参数返回两个结果， 下面子过程定义正确的是下面子过程定义正确的是( (C C) )。 A A）SubSub f1(ByValf1(ByVal n%,ByValn%,ByVal m%)m%)B B）SubSub f1(n%,ByValf1(n%,ByVal m%)m%) EndEnd SubSubEndEnd SubSub C C）SubSub f1(n%,m%)f1(n%,m%)D D）SubSub f1(ByValf1(ByVal n%,m%)n%,m%) EndEnd SubSubEndEnd SubSub 18.18.以下叙述中错误的是以下叙述中错误的是( (D D) )。 A)A) 一个工程中可以包含多个窗体文件一个工程中可以包含多个窗体文件 B)B) 在一个窗体文件中在一个窗体文件中用用 PrivatPrivate e 定义的子过程或函数过程不能被其他窗体文件调用定义的子过程或函数过程不能被其他窗体文件调用 C)C) 在设计在设计 VBVB 程序时，窗体模块和标准模块需要分别保存为不同类型的文件程序时，窗体模块和标准模块需要分别保存为不同类型的文件 D)D) 全局变量必须在标准模块中定义全局变量必须在标准模块中定义 1919从磁盘上打开顺序文件从磁盘上打开顺序文件“c:t1.txt“c:t1.txt“为读入数据做好准备，如下语句（为读入数据做好准备，如下语句（A A）是正）是正 确的。确的。 A A） F=“c:t1.txt“F=“c:t1.txt“B B）F=“c:t1.txt“F=“c:t1.txt“ OpenOpen F F ForFor InputInput AsAs #1#1OpenOpen “F“F“ ForFor InputInput AsAs #2#2 C C）OpenOpen “c:t1.txt“c:t1.txt“ ForFor OutputOutput AsAs #1#1D D）OpenOpen c:t1.txtc:t1.txt ForFor InputInput AsAs #2#2 20.20.以下叙述中正确的是以下叙述中正确的是( (B B) )。 A)A) 一个记录中所包含的各个元素的数据类型必须相同一个记录中所包含的各个元素的数据类型必须相同 B)B) 随机文件中每个记录的长度是固定的随机文件中每个记录的长度是固定的 C)C) OpenOpen 命令的作用是打开一个已经存在的文件命令的作用是打开一个已经存在的文件 D)D) 使用使用 Input#Input#语句可以从随机文件中读取数据语句可以从随机文件中读取数据 三、程序阅读题三、程序阅读题(第第 1 1 题题 3 3 分，第分，第 2 2 题题 5 5 分，其余题各分，其余题各 4 4 分，共分，共 2 24 4 分分) 1 1当当 x x 的输入值分别为的输入值分别为 4 4、8 8 和和 1212 时，写出执行下列事件过程的输出结果。时，写出执行下列事件过程的输出结果。 PrivatePrivate SubSub Command1_Click()Command1_Click() DimDim x%,x%, y%y% x x = = InputBox(“InputBox(“请输入请输入 x x 的值：的值：“)“) SelectSelect CaseCase x x 4 CaseCase 1,1, 3,3, 5 5 ,7,7 y y = = x x + + 1 10 0 CaseCase 8 8 ToTo 1010 y y = = x x + + 2 2 CaseCase 2,2, 4,4, 6 6 y y = = 5 5 * * x x CaseCase IsIs 1010 y y = = x x * * x x + + 1 1 EndEnd SelectSelect PrintPrint “x=“;“x=“; x,x, “y=“;“y=“; y y EndEnd SubSub x=4x=4y=y=2020 x=8x=8y=y=1010 x=1x=12 2y=y=1 14545 2.2. 写出执行下列事件过程的输出结果。写出执行下列事件过程的输出结果。 PrivatePrivate SubSub Command1_Click()Command1_Click() ConstConst n n = = 3 3 DimDim i i AsAs Integer,Integer, k k AsAs IntegerInteger ForFor i i = = 1 1 ToTo n n PrintPrint Tab(nTab(n - - i)i) * * 2 2 + + 1);1); ForFor k k = = 1 1 ToTo i i PrintPrint Str(k);Str(k); NextNext k k ForFor k k = = i i - - 1 1 ToTo 1 1 StepStep -1-1 PrintPrint Str(k);Str(k); NextNext k k PrintPrint NextNext i i EndEnd SubSub 1 1 1 1 2 2 1 1 1 1 2 2 3 3 2 2 1 1 3 3. .设在一个窗体设在一个窗体（如图所示如图所示）中已设置了一个组合框中已设置了一个组合框 Combo1Combo1 和文本框和文本框 TextText 1 1，且有下列且有下列 程序，试写出事件过程程序，试写出事件过程 Combo1_ClickCombo1_Click 的功能。的功能。 DimDim strstr AsAs StringString PrivatePrivate SubSub Form_Load()Form_Load() strstr = = “ “ “ “ Combo1.AddItemCombo1.AddItem “ “北京北京“ “ Combo1.AddItemCombo1.AddItem “ “天津天津“ “ Combo1.AddItemCombo1.AddItem “ “西安西安“ “ Combo1.AddItemCombo1.AddItem “ “上海上海“ “ Combo1.AddItemCombo1.AddItem “ “武汉武汉“ “ Combo1.AddItemCombo1.AddItem “ “广州广州“ “ Combo1.AddItemCombo1.AddItem “ “海口海口“ “ 5 Combo1.TextCombo1.Text = = “ “北京北京“ “ EndEnd SubSub PrivatePrivate SubSub Combo1_Click()Combo1_Click() strstr = = strstr “a=“; a,a, “b=“;“b=“; b b CallCall f(a,f(a, b)b) PrintPrint “a=“;“a=“; a,a, “b=“;“b=“; b b EndEnd SubSub PrivatePrivate SubSub f(ByValf(ByVal x x AsAs Integer,Integer, y y AsAs Integer)Integer) x x = = x x + + 1 1 y y = = y y - - 1 1 EndEnd SubSub a=2a=2b=2b=2 a=2a=2b=1b=1 6 6若有如下窗体模块：若有如下窗体模块： DimDim a a AsAs IntegerInteger PrivatePrivate SubSub test()test() DimDim b b AsAs IntegerInteger a a = = a a + + 1:1: b b = = b b + + 1 1 PrintPrint “Sub:“Sub: “;“; a a, , b b 6 EndEnd SubSub PrivatePrivate SubSub Command1_Click()Command1_Click() a a = = 2:2: b b = = 3 3 CallCall testtest CallCall testtest EndEnd SubSub 写出当程序启动并单击命令按钮后，在窗体中显示的结果。写出当程序启动并单击命令按钮后，在窗体中显示的结果。 SubSub： 3 31 1 SubSub： 4 41 1 四、程序填空题四、程序填空题 (每空每空 2 2 分，共分，共 2 22 2 分分) 1.1. 下面事件过程的功能是下面事件过程的功能是：输入某个学生某门课程的百分制成绩输入某个学生某门课程的百分制成绩，并根据成绩输出评并根据成绩输出评 语，若语，若 0 0成绩成绩6060 时，评语为时，评语为“差差” ；若；若 6060成绩成绩7070 时，评语为时，评语为“通过通过” ；若；若 7070成成 绩绩8080 时，评语为时，评语为“中等中等” ；若；若 8080成绩成绩9090 时，评语为时，评语为“良好良好” ；若；若 9090成绩成绩100100 时时， 评语为评语为“优秀优秀” ，在横线上填上适当内容。在横线上填上适当内容。 PrivatePrivate SubSub Command1_Click()Command1_Click() DimDim s!s! s s = = InputBox(“InputBox(“请输入学生的成绩：请输入学生的成绩：“)“) IfIf0= 9090 PrintPrint “ “优秀优秀“ “ CaseCase IsIs = 8080 PrintPrint “ “良好良好“ “ CaseCase IsIs = 7070 PrintPrint “ “中等中等“ “ CaseCase IsIs = 6060 PrintPrint “ “通过通过“ “ (2)(2)CaseCase ElseElse 或或 IsIs =0=0 PrintPrint “ “差差“ “ EndEnd SelectSelect EndEnd IfIf EndEnd SubSub 2.2.下面程序的功能是：计算下面程序的功能是：计算 f=1f=1 -1/(2-1/(23)+1/(33)+1/(34)-1/(44)-1/(45)+5)+ +1/(19+1/(1920)20)的的 值，在横线上填上适当内容。值，在横线上填上适当内容。 PrivatePrivate SubSub Form_Click()Form_Click() DimDim f f AsAs SingleSingle, ,i i AsAs IntegerInteger, ,signsign AsAs IntegerInteger （3 3）sign=-1sign=-1 f f = = 1 1 （4 4）forfor i=2i=2 toto 1919 f f = = f f + + sign/(i*(isign/(i*(i + + 1)1) （5 5）sign=sign*(-1)sign=sign*(-1) NextNext i i PrintPrint “ “ f=f= “;“; f f 7 EndEnd SubSub 3 3. .下面窗体模块的功能是：从键盘上输入下面窗体模块的功能是：从键盘上输入 x x，y y 和和 z z 的值，按如下公式求的值，按如下公式求 f f (x(x，y y，z)z) 的值的程序，在横线上填上适当内容。的值的程序，在横线上填上适当内容。 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)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)*sin(z-y) 其中其中 x x、y y 和和 z z 互不相等。互不相等。 FunctionFunction f(ByValf(ByVal a a AsAs Single,ByValSingle,ByVal b b AsAs Single,ByValSingle,ByVal c c AsAs Single)Single)(6)(6)AsAs SingleSingle (7)(7)f=Sin(a)/(Sin(b)*f=Sin(a)/(Sin(b)* Sin(c)Sin(c) EndEnd FunctionFunction PrivatePrivate SubSub Command1_Click()Command1_Click() DimDim x!,x!, y!,y!, z!,z!, s!s! x x = = InputBox(“x=“)InputBox(“x=“) y y = = InputBox(“y=“)InputBox(“y=“) z z = = InputBox(“z=“)InputBox(“z=“) IfIf x x y y AndAnd y y z z AndAnd z z x x ThenThen s=f(x,x-y,x-z)+f(y,y-z,y-x)+s=f(x,x-y,x-z)+f(y,y-z,y-x)+(8)(8)f(z,z-x,z-y)f(z,z-x,z-y) PrintPrint “s=“;“s=“; s s ElseElse PrintPrint “ “数据输入错误！数据输入错误！“ “ EndEnd IfIf EndEnd SubSub 4 4. .下面事件过程的功能是从学生分数顺序文件下面事件过程的功能是从学生分数顺序文件 D:D: file1.datfile1.dat 中读取各个学生的分数中读取各个学生的分数， 并求该班的平均成绩，在横线上填上适当内容。并求该班的平均成绩，在横线上填上适当内容。 PrivatePrivate SubSub command1_Click()command1_Click() DimDim n%,n%, score!,score!, s!s! OpenOpen “D:file“D:file1 1.dat“.dat“(9)(9)AsAs #3#3ForFor InputInput n n = = 0:0: s s = = 0 0 WhileWhile(10)(10)NotNot EOF(3)EOF(3) InputInpu