VB程序习题集(附答案)

1、VB程序习题集（附答案） -CAL-FENGHAI-(2020YEAR-YICAI)INGBIAN VB简介 1、在以下有关对象属性的叙述中，不正确的是O A、一个对象的属性可分为外观.行为若干类 B、不同属性可能具有不同的数据类型 C、一个对象的所有属性都可在属性窗口的列表中进行设置 D、属性窗口中的属性列表既可按字母排序也可按类别排序 2、Visual Basic中最基本的对象是,它是应用程序的基石，也是其 他控件的容器。 A、文本框 B、命令按钮 C、窗体 D标签 3、有程序代码Visual Basic” ,其中的 Textl Text 和 Visual Basicv 分别 代表o A、

2、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 4、用窗体的属性来设置窗体的标题。 A、Caption B、Style C、Text D、Name 5、窗体上有一个文本框控件Textl,假设已存在三个整型变量a、b、c,且变 量a的值为5,变量b的值为7,变量c的值为12。以下的语句可 以使文本框内显示的内容为：5+7=12o A、= a + b + c B、=a+b=c C、Textl = a A=B; B=T C、If A=BThenT=A A=B B=T D、|fA=BThenT=A:A=B:B=T 8、关于语句lfx = lTheny=l,下列说法正确的是

3、 A、x = l和y=l均为赋值语句 B、x = l和y=l均为关系表达式 C. x=l为关系表达式，y=l为赋值语句 D. x = l为赋值语句，y = l为关系表达式 9、下列说法中正确的是二 A、语句=x的含义是将变量x的值显示于文本框Textl中 B、语句二x的含义是将文本框Textl中的内容赋值给变量x C、语句二x的含义是将文本框Textl中的内容转换为数值型后赋值给变量x D、以上说法都是错误的 10、下列语句正确的是o A、If x y Then y = x 八 3 B、If x yThen y = x3 C、If x y The ny = x A 3 D、If x y The

4、n y = x * * 3 11、如果X的值小于或等于Y的平方，则打印“OK”，表示这个功能的单行If 语句是O As lfx= y2Then Print OK11 B、lfx=y A2Then Print OK11 C、lfx=yA2Then “OK” D、If x 90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是0 A、a数组中的数据是30个100以内的整数 B、语句For Each arrltem In a有语法错误 C、If arrltem Mod 7=0语句的功能是输出数组中能够被7整除的数 D lfarrltem90语句的作用是当数组元

5、素的值大于90时退出For循环 12、有以下程序： Option Base 1 Dim a() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 1 To 3 Forj = 1To2 a(ij)=i*2+j Next j Next i ReDim Preserve a 4) Forj = 3To4 a(3,j) =j + 9 Next j Print a(3, 2) ; a(3, 4) End Sub 程序运行后，单击窗体，输出结果是0 A、8 13B、0 13C、7

6、 12D、0 0 13、下面的数组声明语句中是正确的。 A、Dim a3Z4 as Integer B、Dim a(3, 4) As Integer C、Dim a3;4 as Integer D、Dim a(3:4) as Integer 14、设有数组声明语句： Option Base 1 Dim A(2) As Integer 则数组A的下界为。 As 0B、1C、2D、不能确定 15、以下说法不正确的是。 A、使用ReDim语句可以改变动态数组的维数 B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型 C、使用ReDim语句可以改变动态数组每一维的大小 D、使用Re

7、Dim语句可以对动态数组中的所有元素进行初始化 16、用Array函数给某X赋值时，X必须是。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量 17、设有数组声明语句： Option Base 1 Dim A(-l To 2) As Long 则函数UBound(A)的值为。 A、0B、-1C、1D、2 18、设用复制、粘贴的方法建立了一个命令按钮数组Commandl,以下对该数 组的说法中错误的是o A、命令按钮的Caption属性都是Commandl B、在代码中访问任意一个命令按钮只需使用名称Commandl C、命令按钮的大小都相同 D、命令

8、按钮共享相同的事件过程 19、在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim 8(3,3) For m=l To 3 For n=l To 3 If n=m Or n=4-m Then a(m/n)=m+n Else a(mzn)=O End If Print a(m,n); Next n Print Next m End Sub 运行程序， 单击命令按钮, 窗体上显示的内容为 O 2 0 0 2 0 4 2 3 0 2 0 0 0 4 0 0 4 0 3 4 0 0 4 5 A、 0 6 B、4 0 6 C、 0 6 D、 0

9、5 6 20、下列程序段的执行结果为o Dim A(3) For i = 1 To 3 A(i) = i*i Next i Print A(i -1) A、16B、9C、4D、1 21、以下是VB中合法的数组元素表示法。 As X9B、X9C、X9D、X(9) 22、设有数组声明语句： Option Base 1 Dim A(-l to 2) As Integer 则数组A中共有个元素。 A、2B、3C、4D、不能确定 23、使用语句Dim A(1 To 15) As Integer声明数组A之后，下面说法中正确的是 A、数组中所有元素的值为0 B、数组中所有元素的值不确定 C、数组中所有元素

10、的值为空串 D、以上说法均不对 24、在以下语句中，a只能是o DimX(15) For Each a In X Print a; Next a A、已经声明的静态数组B、已经声明的动态数组 C、Variant类型的变量D、整型变量 25、设有数组声明语句： Option Base 1 Dim A(2) As Long 则函数LBound(A)的值为。 A、0B、-1C、1D、2 26、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为Ml。 设窗体Fowl标题为“rnyforml,双击控件数组中的第三个按钮，打开代码 编辑器，写如下代码： Private Sub Ml_Click(l

11、ndex As Integer) =rnyforrnZ1 End Sub 运行时单击按钮数组中的第一个按钮，则窗体显示标题为O A、Forml B、Ml C、myforml D、myform2 27、在窗体上画一个名为Commandl的命令按钮，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a, s As Integer a = Array(l, 2, 3, 4) j = l For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行

12、上面的程序，其输出结果是O A、1234B、12C、34D、4321 28、窗体上有Commandl、Command2两个命令按钮。现编?以下程序： Option Base 0 Dim a() As Integer, m As Integer Private Sub Commandl_Click() m=lnputBox(请输入一个正整数) ReDim a(m) End Sub Private Sub Command2_Click() m=lnputBox(请输入一个正整数) ReDim a(m) End Sub 运行程序时，单击Commandl后输入整数10,再单击Command2后输入整数

13、 5,则数组a中元素的个数是o A、5B、6C、10D、11 29、下面有关数组的说法中，错误的是。 A、一般而言，数组必须先定义后使用 B、数组的下界必须从0开始 C、Erase语句的作用是对已定义固定大小数组的值重新初始化 D、定义数组时，数组维界值可以不是整数 30、下面有关数组处理的叙述中，不正确的是 A、过程中用ReDim语句重定义动态数组时，其下标的上下界可为赋了值的 变量 B、在过程中，可以使用Dim、Private和Static语句定义数组 C、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型 D、在ReDim语句中使用Preserve语句时，只能改变数组最后一维的

14、维上界 过程 1、下列说法中正确的是二 A、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量 同名，但其作用域只限于该过程 B、在窗体的FormLoad事件过程中定义的变量是全局变量 C、局部变量的作帀域可以超出所定义的过程 D、在调用过程时，所有局部变量被系统初始化为0或空字符串 2、下有关参数的说法中，错误的是. A、过程的形参不可以是定长字符吊类型的变量 B、按地址传递参数，形参和实参的类型可以不同 C、按值传递参数，形参和实参的类型可以不同，只要相容即可 D、按地址传递参数，形参和实参也能以按值传递方式进行形实结合 3、Visual Basic中系统默认的参数传递方式

15、是。 A、按值 B、按地址 C、byval D、按形参 4、在Visual Basic中，下列关于过程的定义说法正确的是。 A、过程可以嵌套定义也可以嵌套调用 B、过程可以嵌套定义但不可以嵌套调用 C、过程不可以嵌套定义但可以嵌套调用 D、过程不可以嵌套定义也不可以嵌套调用 5、若在应用程序中用 u Private Sub subl(x As Integer, y As Single)M 定义了子程序 subl,调用程序中的变量ij均为Integer型，则正确调用子程序subl的是 Callsubl(iJ)Call subl, i) Call subl, 234)Call subl(,245/

16、) A、 B、 c、 D、无 6、调用由语句Private Sub convert(y As Integer)定义的Sub过程时，以下不是按 值传递的语句是O A、Call convert(x) B、Call convert(x * 1) C、convert (x) D、convert x 7、在Visual Basic中，全局变量的定义方式是。 A、Dim B、Static C、Private D Public 8、在过程中定义的变量，若希望在离开过程后，还能保存过程中该变量的值， 则应该使用关键字在过程中定义该局部变量。 A、Dim B、Static C、Private D、Public

17、9、可以在中，使用Public pubstr as String*20定义一个定长字符串。 A、窗体模块 B、标准模块 C、类模块 D、三者均可 10、若在应用程序的标准模块、窗体模块和过程Subl的说明部分，分别用 u Public G As IntegernPrivate G As Integer和 u Dim G As IntegerM 语句说明 了三个同名变量G。如果在过程Subl中使用赋值语句“G=3596”，则该语句是 给在说明部分定义的变量G赋值。 A、标准模块 B、过程Sub C、窗体模块 D、标准模块、窗体模块和过程Subl 11、多窗体程序由多个窗体组成。在缺省情况下，Vi

18、sual Basic在执行应用程序 时，总是把指定为启动窗体。 A、不包含任何控件的窗体 B、设计时的第一个窗体 C、命名为Frml的窗体 D、包含控件最多的窗体 12、在窗体模块的通用声明段中声明变量时，不能使用关键字。 A、Dim B、Static C、Private D、Public 13、下面的过程定义语句中合法的是 A、Sub procl(Byval n()B、Sub procl(n) As Integer C、Function procl(procl)D、Function procl(Byval n) 14、Sub过程与Function过程最根本的区别是。 A、两种过程参数的传递方

19、式不同 B、Sub过程可以使用Call语句或直接使用过程名调用，而Function不可以 C、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 D、Function过程可以有参数，Sub过程不可以 15、在过程调用中，参数的传递可以分为两种方式。 A.按值传递和按地址传递B、按值传递和按参数传递 C、按地址传递和按参数传递 D、按参数传递和按位置传递 16、要想在过程调用后返回两个结果，下面的过程定义语句中正确的是 A、Sub procl(ByVal n, ByVai m) B、Sub procl(ByVal n, m) C、Sub proclfn, ByVai m)D、

20、Sub procl(n, m) 17、通用过程可以通过执行“工具”菜单中的命令来建立。 A、添加过程 B、通用过程C、添加窗体 D、添加模块 18、假设已定义了一个私有通用过程 Private Sub Subl(a As Single, b As Single), 则下列调用语句中错误的是O A、Subll2, 12B、Call Sublx, y C、CallSubl(2*x, sin(l)D、subl 12, x 19、在过程调用中，参数的传递可以分为按值传递和两种方式。 A. 按数组传递B、按参数传递C、按地址传递D、按索引传递 20、在参数传递过程中，使用关键字来修饰参数，可以使之按值传

21、 递。 A、ByVai B、ByRefC、Value D、Reference 21、下面有关标准模块的叙述中，错误的是c A、标准模块不完全由代码组成，还可以有窗体 B、标准模块中的Private过程不能被工程中的其他模块调用 C、标准模块的文件扩展名为bas D、标准模块中的全局变量可以被匸程中的任何模块引用 22、下面的过程定义语句合法的是o A、Sub procl(ByVal n()B、Sub procl(n) As Integer C、Function procl(procl)D、Function procl(ByVal n) 23、在过程调用中，参数的传递可以分为按地址传递和两种方式

22、。 A.按数组传递 B、按参数传递 C.按值传递 D、按位置传递 24、在参数传递过程中，使用关键字来修饰参数，可以使之按地址 传递。 A、ByVaiB、ByRefC Value D、Reference 25、Sub过程与Function过程最根本的区别是= A、Sub过程可以使用Call语句调用，而Function过程不可以 B、Function过程可以有参数，而Sub过程不可以 C、两种过程的参数传递方式不同 D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 26、标准模块中有如下程序代码： Public x As Integer, Y As Integer Su

23、b var_pub() x=10 : y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Commandl_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x; y End Sub 运行程序后单击命令按钮，窗体上显示的是O A、100100 B、100120 C、110100 D、110120 27、在窗体上有1个命令按钮，并有如下事件过程: Sub S() X = 1 Y = 2 Z = X + Y Print X, Y, Z End Sub Private Sub Comman

24、dl_Click() X = 2 Y = 3 Z = X + Y Calls Print X, Y, Z End Sub 运行程序后单击命令按钮，窗体上显示的笫二行是。 A. 123B、235C、233 D. 125 常用控件 1、下列属性是每个控件都具有的。 A、Name B、Caption C、Font D、Interval 2、单选按钮用于一组互斥的选项中，若一个应用程序中包含多组互斥条件，可 使用控件对单选按钮进行分组。 A、框架控件或图像控件 B、组合框或图像控件 C、组合框或图片框 D、框架控件或图片框 3、以下所列的控件中，具有Caption属性的有个。 CheckBox （复选

25、框）、ComboBox （组合框）、HscrollBar （水平滚动条）、 DirListBox （文件夹列表框）、Image （图像框）、Frame （框架）、Label （标 签）、Line （线条） A、5 B、4 C、3 D、2 4、使用方法可以将新的列表项添加到一个列表框中。 Ax Print B、Additem C、Clear D、Removeitem 5、在程序中可以通过复选框和单选按钮的属性值来判断它们的当前 状态。 Ax Caption B、Value C、Checked D、Selected 6、以下使用方法的语句中，正确的是o A、 B、 C、 D、 7、Visual B

26、asic中除窗体能显示图片外，下面列出的控件中可以显示图片的控件 有个。 PictureBox、Image、TextBox、CommandButton OptionButton、Label A. 2 B、3 C、4 D、5 8、能够区分各鼠标按钮与【Shift . Ctrl . Alt键的事件过程是 A、Click B、Keypress C、Dblclick D、MouseMove 9、下列关于Line和Shape控件说法不正确的是。 A、Line和Shape控件都可以在窗体或图片框控件内绘制图形或画线 B、Line和Shape控件绘制的图形不支持任何事件 C、程序运行时可以使用Move方法移

27、动Line控件 D、可以在容器中绘制Shape控件，但是不能把该控件当作容器 10、Visual Basic中利用Circle方法不可以画。 线圆 圆直弧椭 A、 B、 C、 D、 11、如下语句中，与功能相同的是O A、B、 C、D、 12、使用方法可将新的列表项添加到一个列表框中。 A、Print B、Additem C、Clear D、Removeitem 13、在程序中可以通过复选框和单选按钮的属性值来判断它们的当 前状态。 A、Caption B、Checked C、Value D、Selected 14、单选按钮用于一组互斥的选项中，若一个应用程序包含多组互斥的条件。 可在不同的中

28、安排适当的单选按钮，即可以实现。 A、框架控件或图像控件 B、组合框或图像控件 C、组合框或图片框D、框架控件或图片框 15、下列使用方法的语句中，正确的是。 A、B、 C、D、 16、在VB中可以作为容器的是o A、Form、TextBox、PictureBox B、Form、PictureBox、Frame C、Form Text Box LabelD、PictureBox、Text Box x ListBox 17、以下所列的6个控件中，CheckBox （复选框）、ComboBox （组合框）、 HscrollBar （水平滚动条）、Image （图像框）、Frame （框架）、Lab

29、el （标 签）、具有Caption属性的有个。 A、5B、4C、3D、2 18、下面语句，可以将列表框Listl中的当前选定的列表项的值替换成” ABC” o A、“ABC 蔦B、=,ABCn C、= ABC11D、前三项均可 19、以下控件对象中，不具有text属性的是o A、标签 B、文本框 C、列表框 D、组合框 20、不可以作为容器对象使用的是o A、框架B、图片框C、窗体D、图像框 21、Visual Basic中，任何控件都具有属性。 A TextB、CaptionC、(名称)D、Font 22、引用列表框的最后一项应使用o A、 B、 C、(ListCount) D、(List

30、Countl) 23、在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程: Private Sub Textl_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是。 A.单击鼠标B、双击文本框 C、鼠标滑过文本框D、按下键盘上的某个键 24、要使两个单选按钮属于同一个框架，正确的操作是o A、先画一个框架，再在框架中画两个单选按钮 B、先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 C、先画两个单选按钮，再画框架将单选按钮框起来 D、以上三种方法都正确 25、要设置某文本框的文字

31、具有粗体效果，正确的语句是o A、= TrueB、= False C、= TrueD、= False 26、要选择列表框Listl的第6项，可以使用语句。 A、=5B、=5 C、= 6D、= 6 27、引用列表框Listl的最后一项应使川o A、-1) B、 C、(ListCount)D、(ListCountl) 28、语句 Listl Removeitem Listl、Listindex 的作用是。 A、删除列表框的最后一项B、删除列表框的第一项 C、删除列表框中当前选中的项 D、删除列表框中最后添加的一项 29、要清除组合框Combol中的所有内容，可以使用语句。 A、 B、 C、 D、

32、30、Timer控件的属性决定该控件是否对时间的推移做出响应。将 该属性设置为False会关闭Timer控件，设置为True则打开它。 A、Enabled B、Visible C、Time D、Capable 31、要使滚动条表示最大值100,应设置其属性。 A、MinB、Max C、SmallChange D、LargeChange 32、要设置某文本框的文字具有斜体效果，正确的语句是 。 Ax = TrueB、= False C、= TrueD、= False 33、要选择列表框Listl的第4项，可以使用语句o Ax=4B、(4)= True C、=3D、(3)= True 34、引用列

33、表框Listl的第一项应使丿I：。 A、(1)B、 C、(0)D、(ListCount-1) 35、语句 Listl Removeitem Listl、ListCount-1 的作用是。 A、删除列表框的最后一项B、删除列表框的 C、删除列表框中当前选中的项D、删除列表框中所有的项 36、要清除列表框Listl中的所有内容，可以使用语句。 A、 B、 C、 D、 37、定时器的Interval属性以为单位指定Timer事件之间的时间间 隔。 Ax分B、秒C、毫秒D、微秒 38、要使每次单击滚动条两端箭头时变化值为20,应设置其属 性。 Ax Min B、Max C、SmallChange D.

34、 LargeChange 39、通过设置Shape控件的属性可以绘制多种形状的图形。 Ax ShapeB、BorderStyle C Fillstyle D、Style 40、窗体上有两个名称分别为Textl、Text2的文本框。Text 1的KeyUp的事件 过程如下： Private Sub Textl_KeyUp(KeyCode As Integer, shift As Integer) Dim C As string c=Textlx Text Text2、Text=Chr(Asc(c) +2) End Sub 当向文本框Textl中输入小写字母a时，文本框Text2中显示的是 A、A

35、B、a C、C D、c 41、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中输入 A、- B、+ C、 If J Mod= 0 Then Print Next J End Sub 9、下面的程序功能是：生成100个-10到10之间的随机整数并显示到文本框 中，统计这100个数中-10、-5、5、10的个数并显示在图片框中。请完善程 序。 Dim A(1 To 100) As Integer Private Sub Commandl_Click() Dim numl As Integer, num2 As Integer, num3 As Integer, num4 As Integer

36、 numl = 0: num2 = 0: num3 = 0: num4 = 0 For I = 1 To 100 Select Case Case -10 n uml = numl + 1 Case -5 n um2 = num2 + 1 Case 5 n um3 = num3 + 1 Case 10 n um4 = num4 + 1 End Select Next I -10 的个数 J; numl; Tab(15); -5 的个数num2 5 的个数num3;Tab(15); 10 的个数num4 End Sub Private Sub Form_Load() -mi For I = 1

37、To 100 = lnt(Rnd() * 21 -10) = sum End Sub 13、下列程序的功能是：在窗体上生成包含有10之间随机整数的6行6列 的矩阵，并对该矩阵进行转置。要求完善程序。 Option Base 1 Private Sub form_Click() Dim a(6, 6) As Integer, b(6, 6) As Integer For i = 1 To 6 Forj = lTo6 a(U) = Print a(i,j); Next j Next i Print For i = 1 To 6 Forj = lTo6 b(U)= Print b(i,j); Nex

38、t j Print Next i End Sub 14、下面程序的功能是：在窗体上输出一个N行、N列、主对角线和次对角线 元素为1、其余元素均为0的矩阵。N由用户指定。请完善程序。 Option Base 1 Dim A() As Integer Private Sub Form_Click() Dim N As Integer, I As Integer, J As Integer N = Val(lnputBox(请输入 N 值生成矩阵“,4) ReDim For I = 1 To N For J = 1 To N A(U) = O IfThen A(U) = 1 End If If l

39、+ J = N + lThen A(U) = 1 End If Next J, I For I = 1 To N For J = 1 To N Print; Next J Print Next I End Sub 15、下列程序的功能是：计算裴波那契数列第n项的值(n由用户输入)。要 求完善程序。 Private Sub form_Click() Dim n As Integer n = lnputBox(输入整数 n) Print f End Sub Private Function f(ByVal a As Integer) As Integer IfThen f = 0 Elself a

40、 = 2 Then Else End If End Function 16、下面程序的功能是：在窗体的文本框Textl中输入一个正整数，当单击命 令按钮后，在窗体的文本框Text2中输出这个正整数的阶乘。请完善程序。 Option Explicit Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = For I = 1 To F = F* I Next I End Function Private Sub Commandl_Click() Dim X As Integer X = Vai =Str End Su

41、b 17、下面是求两个正整数m和n的最大公约数的函数，请完善代码。 Function gcd(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r0 r = m Mod n Loop gcd = n End Function 18、在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和 Textl,然后编写如下事件过程： Private Sub Commandl_Click() Dim St As String =mi Open diV For input As #1 Do Wh

42、ile Input #1, St 二 n Print I End Sub 6、下面程序段执行一次后，窗体上有行输出，其中第一行上显示 的是，第四行上显示的是o Option Explicit Option Base 1 Private Sub Commandl_Click() Dim a(5) As Integer Dim i As Integer For i = 1 To 5 If i Mod 2 = OThen a(i) = i + l Else a(i) = 5-i End If Print a(i) Next i End Sub 7、已知程序段内容如下，在文本框Textl中输入3,在文

43、本框Text2中输入5, 当单击命令按钮Commandl后，文本框Textl中显示的是,文本框 Text2中显示的是o Option Explicit Private Sub Commandl_Click() Dim a As Integer, b As Integer, c As Integer a = Vai b = Vai c = a + b a = c - a b = c - a =CStr(a) =CStr(b) End Sub 8、运行下面的程序，单击窗体后在窗体显示的内容是o Private Sub Form_Click() Dim a As Integer a = 2 Call

44、 subl(a) End Sub Private Sub subl(x As Integer) x=x*2+l If x 10 Then Call subl(x) End If x=x*2+l Print x; End Sub 9、已知某程序内容如下，当在窗体上单击时窗体上显示的内容有 行，第一行上显示的是，最后一行上显示的是o Function SumOrMulti(Operate As Boolean, ParamArray var() As Long Dim sum As Long, multi As Long If Operate Then sum = 0 For Each x In

45、var sum = sum + x Next x SumOrMulti = sum Else multi = 1 For i = LBound(var) To UBound(var) multi = multi * var(i) Next i SumOrMulti = multi End If End Function Private Sub Form_Click() Print SumOrMultifTrue, 1, 3, 5, 7) Print SumOrMultifFalse, 2, 4) End Sub 10、已知某程序内容如下，当在窗体上单击命令按钮Commandl后，窗体上显 示的

46、A的值是，B的值是, C的值是o Sub SS(ByVal X, By Vai Y, By Vai Z) X = X + 1:Y = Y+1:Z = Z+1 End Sub Private Sub Commandl_Click() A=1:B = 2:C = 3 Call SS(A, B, C) Print A, B, C End Sub 综合应用题 1、编写程序，求圆柱体的底面积、侧面积和体积。运行界面如图所示。 Private Sub Commandl_Click() Const pi = Dim r As Single Dim h As Single r = Vai h = Vai =p

47、i * r A 2 =2 * pi * r * h =Vai * Vai End Sub 2、用条件语句实现：从文本框(Textl)输入一个数，单击“判断”按钮 (Commandl)判断它能否同时被3、5、7整除，若能整除，则用消息框 (Msgbox函数)显示“能同时被3、5、7整除”,否则显示“不能整除”。 Private Sub Commandl_Click() a = Vai If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then MsgBox 能同时被3、5、7整除” Else MsgBox ”不能整除 End If End Sub 3、

48、使用循环控制结构在窗体上打印岀下三角形式的九九乘法表。（界面如图所 矗打印九九乗法表 =25 二 30 5 X B 二 36 =35 1 X 6 = 42 =40 8 X 6 = 48 =45 9 X 6 = 54 X 7 = 49 X 7 = 56 8 X 8 = 64 X 7 = 63 9 X 8 二 72 9 X 9 = 81 开始打印 5 5 555 X X X X X 5 5 789 163324333235 = 1= = 4 4 4 4 4 4 X X X X X X 2. 5 6 78 9 1518212427 二二=z 3 3 3 3 3 X X X X X 5 6 7 8 9

49、 0 2 4 6 8 4J J 1J u 4J 22222222 XXKXXXXX 23456T89 123456789 xxxxxxxxx 123456789 Commands 示) Private Sub Commandl_Click() Dim a(9, 9) As Integer, i As Integer, j As Integer For i = 1 To 9 Forj = IToi a(i,j)十 j Print i Next j Print Next i End Sub 4、编写程序，对输入的学生成绩给出五级评分。要求：学生成绩山文本框 (Textl)输入，结果显示在标签(La

50、bell)中。评分标准如下： 优90W成绩W200 良80W成绩90 中70 W成绩80 及格60W成绩70 不及格0W成绩 100,1s = 90 =”优” Case Is = 80 =”良“ Case Is = 70 =中,， Case Is = 60 =”及格” Case Is = 0 =”不及格” End Select =0 =Len End Sub 10050 5、编写程序求乞k + k?的值，要求结果显示在窗体上。 Private Sub Commandl_Click() Dim i As Integer, sum As Long For i = 1 To 100 sum = su

51、m + i Next i For i = 1 To 50 sum = sum + i A 2 Next i Print sum End Sub 6、随机生成15个100以内的正整数并显示在一个文本框(Textl)中，再将所 有对称位置的两个数据对调后显示在另一个文本框(Text2)中(第1个数与第 15个数对调，第2个数与第14个数对调，,第7个数与第9个数对 调)。 Option Base 1 Private Sub Commandl_Click() Dim a(15) As Integer For i = 1 To 15 a(i) = lnt(Rnd * 100 + 1) = Format

52、(b(i, j), ,!,1) Next j Next i For i = 1 To 5 Forj = lTo5 c(i,j) = a(i,j) + b(i,j) Format(c(i, j), Next j Next i End Sub 13、编写程序，在窗体上打印出如图所示的杨辉三角形。要求：行数山用户指 定。 Option Base 1 Dim a() As Double Private Sub Form_Click() n = Val(lnputBox(输入打印行数”) ReDim a(n, n) a(l, 1) = 1 a(2z 1) = 1 a 2) = 1 Print Print

53、 Print For i = 1 To n Forj = lToi If j = 1 Or j = i Then a(iJ) = l Else a(i/j) = a(i-lj-l) + a(i-l/j) End If Print a(i? j); Next j Print Next i End Sub 14、随机生成一个由两位正整数构成的5行5列矩阵显示在窗体上，并求出该 矩阵中两条对角线元素之和。 Option Base 1 Private Sub Commandl_Click() Dim a(5, 5) As Integer For i = 1 To 5 Forj = 1To5 a(izj

54、) = lnt(Rnd * 90 + 10) If j = 1 Or i + j = 6 Then s = s + a(i, j) Print a(ij); Next j Print Next i Print Print Print s End Sub 15、随机生成一个由两位正整数构成的6行6列矩阵显示在窗体上，并求出该 矩阵中所有元素之和。 Option Base 1 Private Sub Commandl_Click() Dim a(6, 6) As Integer For i = 1 To 6 Forj = IT06 a(iJ) = lnt(Rnd * 90 + 10) s = s + a(i,j) Print a(ij); Next j Print Next i Print Print Print s End Sub 16、编写一个求1 + 2 + 3 + n的函数，单击命令按钮(Commandl)时调用 该函数求1+ 2 + 3+4+5的值，结果显示在一个文本框(Textl)中。 Opti