VisualBasic程序设计复习题

1、Visual Basic复习题 一、选择题 1. Visual Basic的三种工作模式是【 C 】。 （A）编辑、运行、中断 （B）编译、中断、设计 （C）运行、设计、中断 （D）编辑、编译、运行2. 如果要使窗体的最大化按钮变成暗灰色（不起作用），应设置窗体的【 C 】属性。（A）Caption （B）Icon （C）MaxButton （D）MinButton3. 在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示【 B 】事件过程模板。 （A）Form_Click （B）Form_Load （C）Form1_Click （D）Form1_Load4. 设在窗体上有两个命令按扭，

2、其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是【 C 】。 （A）cmdc （B）cmdb （C）cmdA （D）Command15.以下可以作为Visual Basic变量名的是【 C 】。 （A）F1.1 （B） （C）F2A （D）2FA6假设某一工程文件的工程资源管理器窗口如图2-3所示，则该工程文件的磁盘文件名为【 B 】。图2-3 某工程的工程资源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm7假设某一工程文件的工程资源管理器窗口如图2-3所示，则窗体文件的磁盘文件名为【 D 】。图2-3 某工程的

3、工程资源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm8假设某一工程文件的工程资源管理器窗口如图2-3所示，则标准模块文件的磁盘文件名为【 D 】。图2-3 某工程的工程资源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.bas 9 Visual Basic程序设计语言属于【 C 】。 （A）面向过程的语言 （B）面向问题的语言 （C）面向对象的语言 （D）面向机器的语言10当将窗体的【 C 】属性值设置为False时，将不显示窗体的控制菜单、最大化/最小化及关闭按钮

4、。 （A）MaxButton （B）MinButton （C）ControlBox （D）WindowState11要在窗体上显示图片，需设置窗体的【 C 】属性。 （A）Caption （B）Icon （C）Picture （D）ControlBox12如果设计时在属性窗口将命令按钮的【 B 】属性设置为False，则运行时按钮不起作用。 （A）Visible （B）Enabled （C）DisabledPicture （D）Default13语句X=X+1的正确含义是【 C 】。 （A）变量X的值与X+1的值相等 （B）将变量X的值存到X+1中去 （C）将变量X的值加1后赋给变量X （D）

5、变量X的值为114变量未赋值时，数值型变量的值为【 A 】。 （A）0 （B）空串"" （C）Null （D）没任何值15显示如图4-1所示的输入框的语句是【 A 】。 （A）A = InputBox("请输入一个正整数", "示例", "1") （B）A = InputBox("示例", "请输入一个正整数", "1") （C）A = InputBox("1", "示例", "请输入一个正整数"

6、) （D）A = InputBox("请输入一个正整数", "1", "示例")图4-1 输入框（一）16将文本框的【 A 】属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。 （A）MultiLine （B）ScrollBars （C）Text （D）Enabled17如果将文本框的【 A 】属性设置为True，则运行时不能对文本框中的内容进行编辑。 （A）Locked （B）MultiLine （C）TabStop （D）Visible18在设计阶段，当双击窗体上的某一个文本框控件时，

7、系统将在代码窗口中显示该文本框控件的【 C 】事件过程模板。 （A）Click （B）DblClick （C）Change （D）GotFocus19下面程序段的功能是【 D 】。 A = 10.5 B = Int(A + 0.5) Debug.Print B （A）求平均值 （B）将一实数四舍五入取整 （C）求绝对值 （D）舍去一实数的小数部分20以下【 C 】程序段可以实现X，Y变量值的交换。 （A）Y = X: X = Y （B）Z = X: Y = Z: X = Y （C）Z = X: X = Y: Y = Z （D）Z = X: W = Y: Y = Z: X = Y21语句Prin

8、t "Sgn(-26)=" Sgn(-26)的输出结果为【 C 】。 （A）Sgn(-26)=26 （B）Sgn(-26)=-26 （C）Sgn(-26)=-1 （D）Sgn(-26)=122下列程序段的执行结果为【 B 】。 X = 2.4 : Z = 3 : K=5 Print "A("X + Z * K;")" （A）A( 17 ) （B）A( 17.4 ) （C）A( 18 ) （D）A( 2.4 + 3*5 )23下列程序段的执行结果为【 A 】。 X=0 Print X-1 X=3 （A）-1 （B）3 （C）2 （D）0

9、24若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的【 D 】属性。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle25下列叙述不正确的是【 B 】。 （A）注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 （B）注释语句可以放在代码中的任何位置 （C）注释语句不能放在续行符的后面 （D）代码中加入注释语句的目的是提高程序的可读性26下列语句正确的是【 D 】。 （A）If AB Then T=A A=B B=T （B）If AB Then T=A;A=B;B=T （C）If A>=B Then T=

10、A A=B B=T （D）If A>=B Then T=A:A=B:B=T27. 下列语句正确的是【 A 】。 （A）If X<3*Y And X>Y Then Y=X3 （B）If X<3*Y And X>Y Then Y=X3 （C）If X<3*Y:X>Y Then Y=X3 （D）If X<3*Y And X>Y Then Y=X*328关于语句If x = l Then y = 1，下列说法正确的是【 C 】。 （A）x=1和y=1均为赋值语句 （B）x=1和y=1均为关系表达式 （C）x=1为关系表达式，y=1为赋值语句 （D）

11、x=1为赋值语句，y=1为关系表达式29下列程序段【 D 】能够正确实现条件：如果X<Y则A=15，否则A=-15。 （A）If X<Y Then A=15 （B）If X<Y Then A=15:Print A A=-15 A=-15: Print A Print A （C）If X<Y Then （D）If X<Y Then A=15 A=15:Print A Else A=-150 x01 0x12 1x23 x230计算分段函数：y= 下面程序段中正确的是【 C 】。（A）Select Case x Case x < 0 y = 0 Case x&g

12、t;=0 And x<1 y = 1 Case x>=1 And x<2 y = 2 Case Else y = 3 End Select（B）Select Case x Case x < 0 y = 0 Case x < 1 y = 1 Case x < 2 y = 2 Case Else y = 3 End Select（D）Select Case x Case Is < 0 y = 0 Case Is >= 0, Is < 1 y = 1 Case Is >= 1, Is < 2 y = 2 Case Is >= 2

13、 y = 3 End Select（C）Select Case x Case Is < 0 y = 0 Case Is < 1 y = 1 Case Is < 2 y = 2 Case Else y = 3 End Select31下列程序段的执行结果为【 C 】。 X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K; X （A）-1 6 （B）-1 16 （C） 1 6 （D） 11 3132下列程序段的执行结果为【 D 】。 X = 1 Y = 1 For I = 1 To 3 F = X + Y X = Y Y

14、= F Print F; Next I （A） 2 3 6 （B） 2 2 2 （C） 2 3 4 （D） 2 3 533下列程序段的执行结果为【 C 】。 K = 0 For J = 1 To 2 For I = 1 To 3 K = I + 1 Next I For I = 1 To 7 K = K + 1 Next I Next J Print K （A） 10 （B） 6 （C） 11 （D） 16 34下列程序段的执行结果为【 C 】。 For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); "*"

15、Next Y Print Next X （A）* （B）* （C）* （D）* * * * * * * * * * * * * * * * *35用于设置粗体字的属性是【 C 】。 （A）FontName （B）FontSize （C）FontBold （D）FontItalic36用于设置斜体字的属性是【 D 】。 （A）FontName （B）FontSize （C）FontBold （D）FontItalic37用于设置删除线的属性是【 A 】。 （A）FontStrikethru （B）FontSize （C）FontBold （D）FontItalic38用于设置下划线的属性是【 B

16、 】。 （A）FontName （B）FontUnderline （C）FontBold （D）FontItalic39运行时，要清除图片框P1中的图像，应使用语句【 B 】。 （A）Picture1.Picture ="" （B）P1.Picture = LoadPicture() （C）Picture1.Picture = LoadPicture （D）Picture = LoadPicture("C:WINDOWSClouds.bmp")40默认情况下，运行时窗体最小化图标为，如果要改变为其他图标，需设置窗体的【 B 】属性。 （A）Caption

17、 （B）Icon （C）MaxButton （D）MinButton41.下列【 B 】程序段能删除列表框List1中的所有项。（B）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 0 Next I End Sub（A）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem I Next I End Sub（D）Private Sub Command3_Click() For I=0 To List1

18、.ListCount List1.RemoveItem 0 Next I End Sub（C）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub42定时器的Interval属性以【 C 】为单位指定Timer事件之间的时间间隔。 （A）分 （B）秒 （C）毫秒 （D）微秒43下面的数组声明语句中【 B 】是正确的。 （A）Dim A3, 4 As Integer （B）Dim A(3, 4) As Integer （C）Dim A3; 4 As Integer （

19、D）Dim A(3:4) As Integer44设有数组声明语句： Option Base 0 Dim B(-1 To 10,2 To 9,20) As Integer 则数组B中共有【 C 】个元素。 （A）1800 （B）1848 （C）2016 （D）231045为了添加ComboBox控件中的项目，需要使用【 C 】方法。 （A）Add （B）Remove （C）AddItem （D）RemoveItem46为了删除ComboBox控件中的项目，需要使用【 D 】方法。 （A）Add （B）Remove （C）AddItem （D）RemoveItem47要想在过程调用后返回两个结果

20、，下面的过程定义语句合法的是【 C 】。 （A）Sub Proc1(ByVal n, ByVal m) （B）Sub Proc1(n, ByVal m) （C）Sub Proc1(n, m) （D）Sub Proc1(ByVal n, m)48Sub过程与Function过程最根本的区别是【 D 】。 （A）Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 （B）Function过程可以有参数，Sub过程不可以 （C）两种过程参数的传递方式不同 （D）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值49在参数传递过程中，使用关键字【 A 】

21、来修饰参数，可以使之按值传递。 （A）ByVal （B）ByRef （C）Value （D）Reference50通用过程可以通过执行“工具”菜单中的【 A 】命令来建立。 （A）添加过程 （B）通用过程 （C）添加窗体 （D）添加模块51执行“工程”菜单中的【 D 】命令，可以添加一个标准模块。 （A）添加过程 （B）通用过程 （C）添加窗体 （D）添加模块52在窗体模块的通用声明段中声明变量时，不能使用【 D 】关键字。 （A）Dim （B）Public （C）Private （D）Static53使用Public Const语句声明一个全局的符号常量时，该语句应放在【 C 】。 （A）过

22、程中 （B）窗体模块的通用声明段 （C）标准模块的通用声明段 （D）窗体模块或标准模块的通用声明段54可以在窗体模块的通用声明段中声明【 A 】。 （A）全局变量 （B）全局常量 （C）全局数组 （D）全局用户自定义类型55在用菜单编辑器设计菜单时，必须输入的项是【 D 】。 （A）快捷键 （B）标题 （C）索引 （D）名称56执行语句Form1.ScaleLeft = 100：Form1.ScaleTop = 200之后，窗体Form1的左上角坐标为【 C 】。 （A）(0,0) （B）(200,100) （C）(100,200) （D）视ScaleMode属性的当前值而定57Cls方法可以

23、清除窗体或图片框中的【 C 】内容。 （A）在设计阶段使用Picture属性设置的背景位图 （B）在设计阶段放置的控件 （C）在运行阶段产生的图形和文字 （D）以上全部内容58通过设置Shape控件的【 A 】属性可以绘制多种形状的图形。 （A）Shape （B）BorderStyle （C）FillStyle （D）Style59以下不合法的常量是【 A 】。 （A）102 （B）100 （C）100.0 （D）10E+0160Visual Basic中的数据也可以以十六进制或八进制表示，十六进制数据以【 D 】符号开头。 （A）$E （B）$H （C）&O （D）&H61表

24、达式Val(".123E2CD")的值是【 B 】。 （A）.123 （B）12.3 （C）0 （D）.123E2CD62下列叙述中不正确的是【 C 】。 （A）变量名的第一个字符必须是字母 （B）变量名的长度不超过255个字符 （C）变量名可以包含小数点或者内嵌的类型声明字符 （D）变量名不能使用关键字63表达式52 Mod 2522的值是【 A 】。 （A）1 （B）0 （C）6 （D）464表达式 25.28 Mod 6.99 的值是【 C 】。 （A）1 （B）5 （C）4 （D）出错65Int(100*Rnd(1)产生的随机整数的闭区间是【 A 】。 （A）0,9

25、9 （B）1,100 （C）0,100 （D）1,99 二、填空题1GUI是指图形用户界面。2传统的编程方法是面向 过程 的，Visual Basic是一种面向 对象 的程序设计开发工具。3Visual Basic 采用 事件 驱动的编程机制，程序员只需要编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤。4一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示 工程 文件；扩展名为.frm的文件表示 窗体 文件；扩展名为.bas的文件表示 标准模块 文件；包含ActiveX控件的文件扩展名为 .OCX 。5对象是代码和数据的集合，例如，Visual Basic中的窗体、控件

26、、菜单等都是对象。6属性用于描述对象的一些特征，设置对象的属性有两种方法，一种是在设计期在属性 窗口中设置；另一种是在运行期进行设置，设置格式为对象名.属性名=属性值。大部分属性可以用以上两种方法进行设置，而有些属性只能用一种方法设置。7事件就是在对象上所发生的事情，Visual Basic中的事件如单击、双击、装载等。8一个应用程序可以有多个窗体，使用工程菜单下的添加窗体命令，或使用工具栏的添加窗体 按钮可以添加一个新的窗体。9关系式X-5或X5所对应的布尔表达式是：X<=-5 Or X>=510闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除，表示

27、该条件的布尔表达式是：Y Mod 4 =0 And Y Mod 100<>0 Or Y Mod 400=0 11写出下面Format函数的值： （1）Format(5459.4, "#,#0.00") 值为：5,459.40 （2）Format(334.9, "#") 值为：335 （3）Format(0.6725, "0.00") 值为：0.67 （4）Format(0.6725, "#.00") 值为：.67 （5）Format("HELLO", "<"

28、) 值为：hello （6）Format("This is it", ">") 值为：THIS IS IT12以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除，或者年份能被400整除，则该年为闰年；否则不是闰年。 Private Sub Command1_Click() y = InputBox("请输入年份") If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Print y & "年为闰年" Els

29、e Print y & "年不是闰年" End If End Sub13下面的程序用于求三个数中的最大数。 Private Sub Command1_Click() a = Val(InputBox("请输入第一个数") b = Val(InputBox("请输入第二个数") c = Val(InputBox("请输入第三个数") Max = a Min = a If b > a Then Max = b If b < a Then Min = b If c > Max Then Max

30、= c If c < Min Then Min = c Print "最大数为" Max Print "最小数为" Min End Sub14下面的事件过程实现从键盘输入两个变量的值，交换这两个变量的值，并将交换后的结果显示在立即窗口中。 Private Sub Form_Load() Dim a As Double, b As Double, c As Double a = Val(InputBox("请输入a") b = A A Debug.Print a A End Sub供选择的答案： （1）（A）Val(InputBo

31、x("请输入b") （B）(InputBox("请输入b")（C）Val(InputBox("请输入a") （D）(InputBox("请输入a") （2）（A）c = a : a = b : b = c （B）a = b : b = a（C）c = a : b = c : a = b （D）b = a : a = b （3）（A）Debug.Print b （B）Form1.Print b（C）Picture1.Print b （D）Print b15以下程序用来产生20个(0,99)之间的随机整数，并将其中的偶

32、数打印出来。 Private Sub Command1_Click() Randomize For I = 1 To 20 X = Int(Rnd * 98 + 1) If X / 2 = Int(X / 2) 或 X 2 Then Print X Next I End Sub16设某个程序中要用到一个二维数组,要求： 数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为： Dim A(1 To 5, -2 To 6) As String 17设有数组声明语句：Dim A(-1 To 2,2) As Integer，则数组A中包括的所有元素有： A(-

33、1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2) 18设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A中包括的所有元素有：A(-1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2)19定义动态数组需要分两步进行，首先在模块级或过程级定义一个没有下标的数组，然后再 使用ReDim语句定义数组的实际元素个数。20菜单分为下拉式菜单

34、和 弹出式 菜单，菜单总与 窗体 相关联，设计菜单需要在菜单编辑器中设计。21不可以给顶级菜单设置快捷键。22菜单控件只包含一个click 事件。23菜单编辑器的“标题”选项对应于菜单控件的Caption属性。 菜单编辑器的“名称”框对应于菜单控件的Name 属性。 菜单编辑器的“索引”选项对应于菜单控件的Index属性。 菜单编辑器的“复选”选项对应于菜单控件的Checked属性。 菜单编辑器的“有效”选项对应于菜单控件的Enabled属性。 菜单编辑器的“可见”选项对应于菜单控件的Visible属性。24要在菜单中建立分隔符条，应在菜单编辑器的 标题选项中键入一个 - 符号。25表示控件与

35、窗体顶部距离的属性是TOP。表示控件与窗体左侧距离的属性是Left。表示控件宽度的属性是Width。表示控件高度的属性是Height。26要同时选定多个控件，可以按住Ctrl或Shift键，再用鼠标依次单击各个控件。27要对选定的多个控件调整格式，如对齐、调整间距、统一尺寸等，可以使用格式菜单下的命令。28要运行当前工程，可以按键盘上的F5键。三、简答题1设窗体Form1上有两个命令按钮C1和C2，简单说明以下各段事件代码的作用（说明当发生什么事件时完成什么功能）。（1）Private Sub C1_KeyDown(KeyCode As Integer, Shift As Integer) F

36、orm1.BackColor = vbRed End Sub当焦点在命令按钮C1上时，按下键盘上的任一键时，将窗体Form1的背景颜色设置成红色。（2）Private Sub C1_KeyUp(KeyCode As Integer, Shift As Integer) Form1.BackColor = vbBlue End Sub当焦点在命令按钮C1上时，抬起键盘上的任一键时，将窗体Form1的背景颜色设置成蓝色。（3）Private Sub C1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Singl

37、e) Form1.Caption = "你好" End Sub在C1按钮上按下鼠标时，将窗体Form1的标题设置为“你好”。（4）Private Sub C1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Form1.Caption = "再见" End Sub在C1按钮上抬起鼠标时，将窗体Form1的标题设置为“再见”。（5）Private Sub C2_GotFocus() Form1.Caption = "使用第二个按钮" End

38、 Sub当C2按钮获得焦点时，将窗体Form1的标题设置为“使用第二个按钮”。（6）Private Sub C2_LostFocus() Form1.Caption = "不用第二个按钮" End Sub当C2按钮失去焦点时，将窗体Form1的标题设置为“不用第二个按钮”。2在图2-5中标出以下部分：代码区、对象下拉列表框、过程下拉列表框、过程查看按钮、全模块查看按钮、拆分栏。图2-5 代码编辑器窗口3设在数字显示区上显示内容如图2-6所示，请在图上标出各数字所对应的对象的属性。Left Top Width Height图2-6 数字显示区4将变量SUM1、SUM2定义为单

39、精度型；M、N定义为整型；S1、S2定义为字符串类型；YN定义成布尔型，写出相应的定义语句。Dim SUM1 As Single,SUM2 As Single Dim M As Integer,N As Integer Dim S1 As String,S2 As String Dim YN As Boolean5写出下列代数式对应的Visual Basic表达式。 （1）-a * a / (a + b) （2）2sin·cos(2-)2 * Sin(A) * Cos(2 * 3.14 - A) （3）Sqr(A * A + B * B - 2 * A * B * Cos(A) （4

40、）(X + Y) 3 * (T + U) 2 / (T * (X - Y) （5）(e3x+ln5x)y （注：e为自然对数的底）(Exp(3 * X) + Log(5 * X) * Y6设在窗体上有标签Label1，给以下程序的每一条语句（除第一条和最后一条语句之外）加上注解，说明语句的功能。 Private Sub Form_Load() Show ' 对窗体使用Show方法 Const pi = 3.14 ' 定义符号常量pi的值为3.14 Dim r As Single, s As Single ' 定义r,s为单精度类型变量r = Val(InputBox(&

41、quot;请输入半径", "计算圆的面积", 2) ' 从输入对话框输入r的值 s = pi * r 2 ' 计算s的值 Label1.Caption = s ' 将s的值显示在标签Label1上 End Sub7设窗体上有两个标签Label1和Label2，两个文本框Text1和Text2,简单说明以下各段事件代码的作用（说明当发生什么事件时完成什么功能）。（1）Private Sub Text1_Change() Label2.Caption = Text1.Text End Sub当文本框Text1的内容被改变时，设置标签Label2

42、的标题为文本框Text1中的内容。（2）Private Sub Text1_DblClick() Label1.Caption = Text1.Text End Sub双击文本框Text1时，设置标签Label1的标题为文本框Text1中的内容。（3）Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub当文本框Text1获得焦点时，选中其中的文本。（4）Private Sub Text1_LostFocus() Text2.SetFocus Text2.SelStart

43、 = 0 Text2.SelLength = Len(Text2.Text) End Sub当文本框Text1失去焦点时，将焦点定位在Text2中，并选中其中的文本。8要显示以下各消息对话框，请写出相应的实现语句。图4-3 消息对话框1 显示图4-3的语句为：MsgBox "在这里书写消息内容", 3, "注意"图4-4 消息对话框2 显示图4-4的语句为：MsgBox "在这里书写" & Chr(13) & "消息内容", 4, "注意"图4-5 消息对话框3显示图4-5的语句

44、为：MsgBox "在这里书写" & Chr(13) & "消息内容", 256 + 16 + 1, "注意"四、判断程序段的执行结果1给出下面程序段的输出结果。 。 A = "1" B = "2" A = Val(A) + Val(B) B = Val("12") If A <> B Then Print A - B Else Print B A结果为：-9 2给出下面程序段的输出结果。 A = "abcd" B = &quo

45、t;bcde" E = Right(A, 3) F = Mid(B, 2, 3) If E < F Then Print E + F Else Print F + E结果为：bcdcde3. 给出下面程序段的输出结果。 x = Int(Rnd + 4) Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "通过" Case Else Print "不通过" End Select结果为：良好4.给出下面程序段的输出结果。 For

46、 X = 1.5 To 5 Step 1.5 Print X Next X结果为：1.534.55.给出下面程序段的输出结果。 For I = -5 To -10 Step -1 X = X + I Print X Next I结果为：-5-11-18-26-35-456给出下面程序段的输出结果。 Dim A(5, 5) For I = 1 To 3 For J = 1 To 4 A(I, J) = I * J Next J Next I For N = 1 To 2 For M = 1 To 3 Print A(M, N); Next M Next N 结果为：1 2 3 2 4 67给出下

47、面程序段的输出结果。 Dim A(3, 3) For M = 1 To 3 For N = 1 To 3 If N = M Or N = 3 - M + 1 Then A(M, N) = 1 Else A(M, N) = 0 Next N Next M For M = 1 To 3 For N = 1 To 3 Print A(M, N); Next N Print Next M结果为：1 0 10 1 01 0 18给出单击命令按钮Command1的输出结果。 Dim A() As Integer Private Sub Command1_Click() ReDim A(1 To 5) Fo

48、r I = 1 To 5 A(I) = I Next I ReDim A(1 To 10) For I = 6 To 10 A(I) = 2 * I Next I For I = 1 To 10 Print A(I); Next I End Sub结果为：0 0 0 0 0 12 14 16 18 209单击命令按钮时，下列程序代码的执行结果。 Private Sub Command1_Click() Print MyFunc(24, 18) End Sub Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n Do While m > n: m = m - n: Loop Do While m < n: n = n - m: Loop Loop MyFunc = m End Function结果为：610单击窗体时，下列程序代码的执行结果。