郑州大学VB选择

1、郑州大学VB选择、填空题(带答案、保你vb过90)一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单_C_的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是_B_。（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是_A_。（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是_C_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、

2、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是_B_。（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是_A_。（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是_C_。（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_C

3、lick()中能完成这个功能的命令为_D_。（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是_A_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下_B_是正确的For Next结构。（1分）A、For x=1 To Step 10 Next xB、For x=3 To -3 Step -3 Next xC、For x=1 To x=10 N

4、ext xD、For x=3 To 10 Step 3 Next y11、能产生10，32之间随机整数的函数表达式为_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1112、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是_C_。（1分）A、9B、10C、11D、无数次13、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_C_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle14、

5、Print Format(1234.234, "#.#"); Format(1234.234, "#.#")的显示结果是_A_。（1分）A、1234.234 1234.23B、123.23400 1234.234C、123.23400 1234.2315、运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_B_。（1分）不会A、26B、27C、38D、5716、Cls方法可以清除窗体或图片框中的_C_。（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段

6、产生的图形和文字D、以上全部内容17、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是_C_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable18、窗体文件的扩展名_D_。（1分）A、.basB、.vbpC、.exeD、.frm19、以下关于MsgBox的叙述中，错误的是_D_。（1分）A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型C、MsgBox过程语句没有返回值D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数20、能够通过标准工具栏打开的窗口是

7、_C_。（1分）A、代码窗口B、设计器窗口C、属性窗口D、立即窗口21、在下列逻辑表达式中，逻辑值为"真"的是_A_。（1分）A、Not (1 > 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 222、下面关系运算中，输出结果为“True”的是_C_。（1分）A、"1" + 2 = "12"B、"1" + "2" = "3"C、"1" & 2 = &

8、quot;12"D、"1" & "2" = "3"23、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_B_。（1分）A、232 232032B、232 232C、232.32 232.32D、显示出错信息24、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是_D_。（1分）A、2B、3C、5D、2325、假设变量iV

9、ar是一个整型变量，则执行赋值语句iVar = "2" + 3之后，变量iVar 的值是_C_。（1分）A、2B、3C、5D、2326、用户自定义数据类型时，其成员不能是_B_。（1分）A、定长字符串和数组B、变长字符串和数组C、货币型和日期型D、变长字符串和货币型27、执行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 11)，变量c$的值为_D_。（1分）A、Visual BA

10、SIC ProgramingB、Quick Basic programingC、QUICK Basic ProgramingD、Quick BASIC Programing28、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是_C_。（1分）A、T >= 1.7 And W <= 52.5B、T <= 1.7 Or W >= 52.5C、T > 1.7 And W < 52.5D、T > 1.7 Or W < 62529、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个mn之间（含m ,n

11、）的任意整数，即满足mxn的是_B_。（1分）<此题目有错误，理论上B正确>A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m30、执行语句Print Format(32548.5, "#,#0.00")，输出结果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5031、下列选项中，_D_不是字符串常量。（1分）A、"你好"B、""

12、C、"True"D、#False#32、下列不合法的常量形式是_C_。（1分）A、"1O0"B、100.0C、1OE+0.5D、Const G = 23 + 1233、表达式Val(".123E2CD")的值是_B_。（1分）A、.123B、12.3C、OD、.123E2CD34、下列符号中，属于Visual Basic合法变量名的是_A_。（1分）A、x23B、8xyC、ENDD、X8B35、下列符号常量的声明中，_C_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As String =

13、"ab"C、Const a As Double = Sin(1)D、Const a = "OK"36、表达式"Turbo" + "C" > "True" + "Basic"的值是_A_。（1分）A、TrueB、FalseC、NullD、出错信息37、执行MsgBox 123 + 123，信息框中可以出现_C_。（1分）A、123 + 123B、123123C、246D、显示出错信息38、执行程序段：m$ = "ABC": n$ = "abc

14、": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_D_。（1分）A、abcabcB、ABCABCC、65D、9739、Single（单精度）型数据占_B_个字节。（1分）A、2B、4C、8D、1040、变量未赋值时，数值型变量的值为_A_。（1分）A、OB、空串""C、NullD、没任何值41、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是_C_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按De

15、l键C、执行语句 Picture1.Picture = LoadPicture("")D、执行语句 Picture1.Picture = ""42、Visual Basic的编程机制是_C_。（1分）A、面向过程B、面向对象C、事件驱动D、可视化43、设n=10，执行n=IIF(n=3,n,-n)后，n 的值为_B_。（1分）A、10B、-10C、3D、-344、除了系统默认的工具箱之外，还可以通过_B_方法来增加控件。（1分）A、执行“文件”菜单中的“添加工程”命令B、执行“工程”菜单中的“部件”命令C、在工具箱处执行其快捷菜单中的“添加选项卡”命令D

16、、执行“工程”菜单中的“添加窗体”命令45、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是_D_。（1分）A、窗体布局窗口B、窗体设计窗口C、属性窗口D、代码窗口46、有一个命令：Text1= "欢迎您！"，表达方式中省略了对象的_B_。（1分）A、方法B、属性名C、对象名D、标题47、窗体设计器是用于设计_D_。（1分）A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面48、以下关于MsgBox的叙述中，错误的是_D_。（1分）A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型C、MsgBox过程语句没有返回值

17、D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数49、在程序运行模式能够_A_。（1分）A、中断程序B、添加程序C、输入程序D、编辑程序50、下面四个语句中，正确的赋值语句是_A_。（1分）A、a = a + cB、a + c = aC、c + a = aD、a c = a51、Select Case 语句中的“表达式列表”不能是_A_。（1分）A、变量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case "a ","b","c"C、To 表达式，例如 Case 1 to 10D、Is关系

18、表达式，例如 Case Is <852、比较两个数中较大的数的程序段，错误的是_C_。（1分）A、IF x >y Then max=x Else max=yB、max=IIF(x>y , x, y)C、IF x >y Then max=x : max=yD、max=x: If x< y Then max=y 53、要把一个Image控件对象设置成隐藏，应设置的属性是_A_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel54、保存一个Visual Basic应用程序，正确的是_D_。（1分）A、只保存工程文件(.vbp)B、只保存窗体

19、文件（.frm）C、只保存标准模块文件（.bas）D、分别保存窗体文件和工程文件55、表达式4 + 5 6 * 7 / 8 Mod 9的值是_B_。（1分）A、4B、5C、6D、756、语句Print "int(-23.4)= " ; Int(-23.4)的输出结果为（1分）DA、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2457、下列叙述中，正确的是_B_。（1分）A、工程文件（.vbp）应用程序可以在任何计算机上运行B、打开一个工程文件，系统自动装入与该工程有关的窗体文件C、VB工程文件中可以

20、没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可58、下列各组中，两个函数功能完全相反的是_B_。（1分）A、Str(x)和Val(x)B、Asc(x)和Chr(x)C、LTrim(x)和RTrim(x)D、Timer(x)和Time(x)59、设a=3，b=5，则以下表达式值为假的是_A_。（1分）A、a>=b And b> l0B、(a>b) Or (b>2)C、(a<0) or (b>0)D、(5>a) And (b>2)60、执行MsgBox 123 + 123，信息框中可以出现_A_。（1分）A、1

21、23 + 123B、123123C、246D、显示出错信息61、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)62、下列符号常量的声明中，_C_是不合法的。（1分）A、Const a

22、As Single = 1.1B、Const a As Integer = "12"C、Const a As Double = Sin(1)D、Const a = "OK"63、以下声明语句中，错误的是_C_。（1分）A、Const varl=123B、Const var2="ABC"C、Public const="计算机等级考试"D、Static var3 as Integer64、下面表达式中，_D_的运算结果与其他3个不同。（1分）A、Log(Exp(-3.5)B、Int(-3.5) + 0.5C、-Abs(

23、-3.5)D、Sin(30 * 3.14 / 180)65、Print Format(32556, "#"); Format(32556, "#")的输出结果是_A_。（1分）A、3255632556B、3255632556C、32556-325D、-3255632566、下列数据中，_C_是日期型数据。（1分）A、"01/30/2004"B、Date("01/30/2004")C、#01/30/2004#D、01/30/200467、执行语句Print Format(32548.5, "#,#0.00&

24、quot;)，输出结果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5068、InputBox函数返回值的类型为_B_。（1分）A、数值B、字符串C、变体D、数值或字符串69、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m70、在下列逻辑表达式中，逻辑值为"真

25、"的是_A_。（1分）A、Not (1 > 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 271、表达式Str(Len("123") + Str(77.7) 的值是_B_。（1分）A、377.7B、3 77.7C、80.7D、12377.772、表达式"Turbo" + "C" > "True" + "Basic"的值是_A_。（1分）A、TrueB、FalseC、NullD、出错

26、信息73、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_B_。（1分）A、232 232032B、232 232C、232.32 232.32D、显示出错信息74、执行x = -6 2: Print Sgn(x) + Abs(x) + Int(x)的结果是_C_。（1分）A、-36B、1C、-1D、-3275、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + "3" 之后，变量 iVar 的值是_D_。（1分）A、2B、3C、5D

27、、2376、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是_B_。（1分）A、0B、1C、随机数D、显示出错信息77、语句Print "int(-23.4)= " ; Int(-23.4)的输出结果为（1分） DA、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2478、设a=3，b=5，则以下表达式值为假的是_A_。（1分）A、a>=b And b> l0B、(a>b) Or (b>2)C、(a&l

28、t;0) or (b>0)D、(5>a) And (b>2)79、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是_A_。（1分）A、LoadB、ClickC、DblClickD、MouseDown80、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是_A_。（1分）A、2B、26C、27D、3881、启动Visual Basic后，VB为用户新建立的第一个工程的名字是_D_。（1分）A、窗体1B、工程C、窗体D、工程182、决定窗体标题栏显示内容的属性是_C_。（1分）A、TextB、N

29、ameC、CaptionD、BackStyle83、Select Case 语句中的“表达式列表”不能是_A_。（1分）A、变量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case "a ","b","c"C、To 表达式，例如 Case 1 to 10D、Is关系表达式，例如 Case Is <884、若要选择Text对象的Text1_KeyPress事件，可以_C_。（1分）A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择 D、在窗体设计窗口中双击Text1

30、对象85、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是_B_。（1分）A、1个“$”B、4个“$”C、不显示内容D、“*”86、以下关于InputBox函数的叙述中，错误的是_C_。（1分）A、InputBox函数的“提示信息参数”不能缺省B、每执行一次InputBox函数，只能输入一个值C、InputBox 函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量87、假设变量iVar是一个整型变量，则执行赋值语句iVar = "2" + 3之后，变量iVar 的值是_C_。（

31、1分）A、2B、3C、5D、2388、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_D_。（1分）A、abcabcB、ABCABCC、65D、9789、下列不合法的常量形式是_C_。（1分）A、"1O0"B、100.0C、1OE+0.5D、Const G = 23 + 1290、执行语句age = InputBox("请输入数值", "年龄输入框", "

32、38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_A_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是"年龄输入框"C、对话框的默认值是38D、对话框的提示文字为"请输入数值"91、执行语句Print Format(32548.5, "#,#0.00")，输出结果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5092、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_

33、B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m93、下列声明语句中，错误的是_B_。（1分）A、Const varl=123B、Dim var2='ABC'C、Const y="计算机等级考试"D、Static var3 as Integer94、下面关系运算中，输出结果为“True”的是_C_。（1分）A、"1" + 2 = "12"B、"1&qu

34、ot; + "2" = "3"C、"1" & 2 = "12"D、"1" & "2" = "3"95、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出96、执行程序 For n = 1 To 3: Cls: Print "n=" n;: Next n 后, 输出结果是_C_。

35、（1分）A、123B、3C、n= 3D、n= 1 n= 2 n= 397、方法Print "等级""考试"，输出的结果是_A_。（1分）A、等级考试B、等级;考试C、"等级考试"D、"等级""考试"98、Single（单精度）型数据占_B_个字节。（1分）A、2B、4C、8D、1099、表达式Val(".123E2CD")的值是_B_。（1分）A、.123B、12.3C、OD、.123E2CD100、表达式4 + 5 6 * 7 / 8 Mod 9的值是_B_。（1分）A、4

36、B、5C、6D、7101、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为_C_。（1分）A、Private Sub Command1_Click(): Command1.Caption = "计算机考试": End Sub B、Private Sub Command1_Click(): Text1 = "计算机考试": End SubC、Private Sub Text1_Change(): Command1.Caption = "计算机考试": End SubD

37、、Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub102、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是_B_。（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，执行后s的值是_C_（1分）A、10B、11C、12D、

38、15104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是_B_。（1分）A、0B、1C、随机数D、显示出错信息105、如果VB环境中缺少某个窗口，一般应从主菜单_C_的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C、视图D、调试106、以下关于InputBox函数的叙述中，错误的是_C_。（1分）A、InputBox函数的“提示信息参数”不能缺省B、每执行一次InputBox函数，只能输入一个值C、InputBox 函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量107、能产生

39、10，32之间随机整数的函数表达式为_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+11108、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是_A_。（1分）A、TestDate = #1/1/2002#B、TestDate = #"1/1/2002"#C、TestDate = Date("1/1/2002")D、TestDate = Format("m/d/yy", "1/l/20

40、02")109、已知下列程序段：a = 3: b = 4: Print b > a ，输出的结果是_A_。（1分）A、TrueB、FalseC、4>3D、显示出错信息110、表达式"Turbo" + "C" > "True" + "Basic"的值是_A_。（1分）A、TrueB、FalseC、NullD、出错信息111、语句T = MsgBox("程序执行了非法操作", vbAbortRetryIgnore, "提示信息")的执行后，可以在对话框

41、中显示_C_个按钮。（1分）A、1B、2C、3D、4112、如果将布尔常量值True赋给一个整型变量，则整型变量的值为_B_。（1分）A、OB、-1C、TrueD、False113、执行语句age = InputBox("请输入数值", "年龄输入框", "38")，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_A_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是"年龄输入框"C、对话框的默认值是38D、对话框的提示文字为"请输入数值"114、执行程序段：Co

42、nst c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$，输出的结果是_D_。（1分）A、HenanB、ZhengzhouC、DaxueD、显示出错信息115、执行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 11)，变量c$的值为_D_。（1分）A、Visual BASIC Pr

43、ogramingB、Quick Basic programingC、QUICK Basic ProgramingD、Quick BASIC Programing116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出117、执行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_D_。（

44、1分）A、abcabcB、ABCABCC、65D、97118、下列表达式中，表示"X和Y之中有一个是奇数"的表达式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)119、下列符号中，属于Visual Basic合法变量名的是_A_。（1分

45、）A、x23B、8xyC、END二，填空题1、* 求正整数M和N（M>N）的最大公约数。 * 程序段如下： R = M Mod N Do While R <> 0 M = N N = R R = M Mod N Loop Print "最大公约数为: " N2、* 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox ("请输入一个数字") b = InputBox("请输入一个数字&quo

46、t;) Print "s" a; b; "ok" End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：s321 456 ok。3、* 计算s = (1-1/2)*(1-1/3)*.(1-1/10) s = 1 For x = 2 To 10 s = s * (1 - 1 / x) Next x Print s4、* 求菲波那契数列（1、1、2、3、5、8.）的第3到10项的值。 * 程序段如下： A(1) = 1 A(2) = 1 I = 3 Do While I <= 10 A(I) = A(I - 1)

47、+ A(I - 2) Print "第" & I & "项为: " A(I) I = I + 1 Loop5、* 求S=1！+2！+10! * 程序段如下： s = 0 t = 1 For i = 1 To 10 t= t * i s = s + t Next i Print s6、* 下面的程序在运行结束时一共执行循环体5 次，最后打印结果为16 。 For i = 1 To 10 Step 1 i = i + 1 j = j + 1 Next Print i + j7、* 求SUM=1×2×3+4×5&#

48、215;6+7×8×9+28×29×30 * 程序段如下： sum=0 I = 2 Do While I <= 30 Sum = Sum + (I - 1) * I * (I + 1) I =I + 3 Loop Print "总和为：" Sum8、* 设在窗体上面有两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程，则程序运行结果为：123321。 Private Sub Command1_Click() a = Text1.Text + Text2

49、.Text Print a End Sub Private Sub Form_Load() Text1.Text = "123" Text2.Text = "321" Print a End Sub9、* 判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。 * 程序段如下： I = 1 N=InputBox("请输入N的值：") Do While I <= N - 1 If N Mod I = 0 Then S = S + I I = I + 1 Loop If N = S Then Print &

50、quot;是完全数" else Print "不是完全数" End If10、* 计算 E=1+1/1!+1/2!+.1/N!，精确到1E-6。 n = 0: t = 1 Term = 1 Do n = n + 1 t = t / n Term = Term + t Loop While t >= 0.000001 Print Term11、* 下面程序用于求小于和等于50的自然数的平方和，请填空。 * 程序段如下： private sub form_click()dim sum as long sum=0 for i=1 to 50 sum=sum +i2

51、 next i print sum end sum12、* 下面程序的功能是随机产生一个三位数正整数，将该数和该数的逆序同时输出。Private Sub Form_Click() Dim a%, s As String, c As String Randomize a = Int(Rnd * (999 - 100 + 1) + 100) s = Format(a) c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1) Print "三位数是" & a Print a & "的逆序是" &a

52、mp; cEnd Sub13、* 使用Select Case结构将一年中的12个月份，分成四个季节输出。 Private Sub Form_Click() Dim m% m = InputBox("请输入月份") Select case m Case 1, 2, 3 Print m & "月是第一季度" Case 4, 5, 6 Print m & "月是第二季度" Case 7, 8, 9 Print m & "月是第三季度" Case 10, 11, 12 Print m & "月是第四季度" End Select End Sub14、* 根据/4=1-1/3+1/5-1/7+.+(-1)n-1/(2n-1)，分别求n=1000、1500、2000、2500时的近似值。 * 程序代码如下： Private Sub Form_Click() For i = 1000 To 2500 step 500 s = 0 f = 1 For j = 1 To i t = 1 / (2 * j - 1) s = s + f * t f = -f Next j Print "i=" i, "pi