VB交大练习习题

1、Vb考试复习题一、 填空题1.设 a=2,b=3，表达式 a>b 的值是_。 FALSE 2.在VB中声明符号常量的关键字是_。const3. 表达式10 MOD 164的值是_。24. 设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_。False|0| 5. 设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_。True6. 设a=1,b=2,c=3,则表达式：a<b or b<c and c<a 的值是_。True 7. 在VB

2、中，用 Dim X As Integer 语句定义的变量X，系统默认其值为_。08. 表示x是5的倍数逻辑表达式为_。X MOD 5=09. 已知 a=,b=,c=,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是_。False|0|零|假|假值|零值10. 用 dim abc as integer 定义的变量abc,其类型是_。整型11. 表达式"12345"<>"12345" & "ABC"的值是_。True12. 在VB中，字符型常量应使_将其括起来，日期/时间型

3、常量应使用_将其括起来。 双引号 井号13在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为_。”321456”14. InputBox（）函数返回值的数据类型是_。字符型15. 执行语句 B = MsgBox("XXX","YYY")后,在消息框中的

4、标题信息是_。YYY16. For-Next循环的<step>子句缺省时，循环变量每次改变的值是_。117.循环结构中与While语句匹配出现的循环结束语句是_。Wend18. VB程序的三种基本结构是：顺序、选择和_。循环19. 语句 x=inputbox("请输入数据"),输入12345，则x的值是_，其类型为_。”12345” 字符型20. 表达式 sgn(-25) 的值是_。-121. 设a=6，则执行x=IIf(a>5,-1,0)后，x的值为_。-122. 设 a=2,b=9，表达式 a2 > sqr (b)的值是_。True|23. In

5、t的函数值是_。-924. 表达式 Int*100+/100 的结果是_。25. 表示X是5或7的倍数的VB表达式是_。X Mod 5 = 0 OR X Mod 7 = 026. 执行A="123" +123 语句后，变量A的值是_。24627. 函数int(rnd*11)+10的值的范围是_10_至_20。28若使命令按钮不起作用，应将按钮的_属性设置为False。Enabled29. 扩展名为.frm的文件表示_窗体_文件。30. 标准模块文件的扩展名为_。.bas31. 扩展名为.vbp的文件是_文件。工程32. Visual Basic采用_事件_驱动的编程机制。3

6、3. VB有3种工作模式,即设计模式、运行模式和中断模式。34. 在Visual Basic中，对象的大多数属性既可以在_窗口设置，也可以通过程序代码设置。属性35. 在 Visual Basic 中，对象的_是用来描述一个对象外部特征的。 属性36. VB有三个调试窗口，它们是_窗口、本地窗口和监视窗口。 立即37. 对象的属性、事件和_被称为Visual Basic对象的三要素。 方法38. Visual Basic 的对象主要分为窗体对象和_两大类。 控件39. 执行下面的程序段后，变量s的值为_7_。s5For i3 to 5 i=i+1 s=s+1Next i40. .以下程序段的输

7、出结果是_3_。 num=0 While num<=2 num=num+1 Wend Print num41. 执行下面的程序段后，X的值为_8_。 X=5 For I=1 to 10 Step 2 X=X+I5 Next I42. 下列程序的执行结果为_-9_。A="1"B="2"A=Val(A)+Val(B)B=Val("12")If A<>B Then Print A-B Else Print B-AEnd if43下列程序的执行结果为_2_。A=75If A>60 Then I=1If A>70

8、Then I=2Print I44. 下列程序的执行结果为_3_。A=75If A>90 then I=1ElseIf A>80 Then I=2ElseIf A>70 Then I=3ElseIf A>60 Then I=4End IfPrint I45. 执行下面的程序段后，b的值为_100_。 a = 100 b = 20 a = a + b b = a - b a = a - b46. 执行下列程序段后,变量X的值是_130_。 X = 100 Y = 30If X<Y Then X=X-Y Else X=Y+X End if47. 下列程序的执行结果是_

9、1_。 Private Sub Form_Click() Dim i If i ThenPrint i Else Print i+1 End Sub48. 以下程序段的输出结果是_true _。 A = Sqr(3) B = Sqr(2) C = A > B Print C49. 以下循环的执行次数是_11_。K = 0Do While K<=10 K = K + 1Loop50. 在窗体的MouseUp事件中有下列程序代码：Select Case Button Case 1 Print "Ok!" Case 2 Print "Hello!"

10、 Case 4 Print "Welcome!"End Select运行此程序，当单击鼠标右键时，窗体显示_。"Hello!"51. 执行下面的程序段后，s的值为_。9s = 5 For i = To Step s = s+1 Next i 52. 表达式Fix+Int的值为_ 。 5653.随机产生3,200范围内的随机整数的VB表达式是_。 Int(rnd*(200-3+1)+354. 设 a=2,b=3，表达式 a>b 的值是_。FALSE55. 数学表达式的VB表达式是 。(a-b)/(a+b)56. 表示x是5的倍数或是9的倍数的逻辑表达

11、式为_。X MOD 5=0 Or X MOD 9=057. 已知a=,b=,c=,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_。False58. “a”，“T”，“Z”，“9”，这四个字符中， _的ASCII码值最大。"a"59. 在VB中，1234，123456&，+5，+5四个常数分别表示_ 、_ 、_ 、_ 类型。 整型 长整型 单精度 双精度60. 函数Len(Lcase("abcDEF")的值是_。6二、 选择题1.下面合法的常量是（D）。A. 1/2 B. 'abcd'

12、 C. *5 D. False Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是（C）。A. % B. # C. D. $3.表达式16/4-25*8/4 MOD 52的值为（B）。A. 14 B. 4 C. 20 D. 24.用十六进制表示Visual Basic的整型常数时，前面要加上的符号是（A）。A. &H B. &O C. H D. O5.数学关系式3x<10表示成正确的VB表达式为（B）。A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND &l

13、t;106.下面正确的赋值语句是_C_。A. x+y=30 B. pi*r*r=y C. y=x+30 D. x=3y7. ，/，Mod，*四个算术运算符中，优先级别最低的是_C_。A. B. / C. Mod D. * 8.表达式ASC("F")的类型是（C）。A. 字符表达式 B. 关系表达式 C. 算术表达式 D. 逻辑表达式9.表达式23/、23、23 Mod 的运算结果分别是（B）。A. 3、3 B. 、3、5 C. 4、4、5 D. 、4、310.如果变量 a=2、b="abc"、c="acd"、d=5，则表达式 a<

14、;d OR b>c AND b<>c 的值为（A）。A. True B. False C. Yes D. No11.下面不正确的赋值语句是（B）。A. x=30-y B. y= C. y=x+30 D. y=x312.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（A）。A. x=1y=1z=1 B. x=1,y=1,z=1 C. x=y=z=1 D. xyz=113.以下4类运算符，优先级最低的是（D）。A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符14.已知a=""，则表达式Left(a, 4) + Mid(a, 4,

15、2)的值是_B_。A. 123456 B. "123445" C. 123445 D. 127915.下列表达式的值为真的是_C_。A. "A">"a" B. "9">"a" C. "That">"Thank" D. 12>16.在下列算术运算符中，运算等级最高的是_A_。A. 取负（-） B. 乘、除（*，/） C. 取模（MOD） D. 加、减（+，-）17.如果变量a=2,b=3,c=4,d=5，表达式NOT a>b A

16、ND NOT d<>c的值是_B_。A. True B. False C. 1 D. 018.表达式A%+B&+C!-D#的结果为_D_。A. 整型 B. 长整型 C. 单精度型 D. 双精度型19.下列符号中，可以用作VB变量名的是_C_。A. c%ab B. 3sum C. sum3 D. Len20.条件:1<X<=2或10<=X<15，在Visual Basic语言中应写成条件表达式_A_。A. X>1 AND X<=2 OR X>=10 AND X<15 B. X>1 OR X<=2 OR X>=1

17、0 OR X<15C. X>1 OR X<=2 AND X>=10 OR X<15 D. X>1 AND X<=2 AND X>=10 AND X<1521.表达式Not（a+b=c-d）是_A_。A. 逻辑表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式22."-32768"的数据类型是_D_。A. 整型常量 B. 浮点型常量 C. 符号常量 D. 字符串型常量23.设 x=5，表达式 x>=10 or x<=20 的值是_A_。A. True B. False C. 0 D. 表达式非法24.

18、下列数据类型不可能占8个字节的是_ D _。A. Date B. Currency C. String D. Integer25.下列关于变体类型的描述，其中正确的是_ C _。A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值，该变量即为变体类型D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值26.执行 PRINT 18/2*3,-32 命令后，输出结果为_C_。A. 3 9 B. 3 -9 C. 27 -9 D. -9 2727.窗体里有两个对象，分别是图片框Picture1和标签Label1，下面关于Print方法的使用中，错

19、误的一条是_ D _。A. 147 B. Print 147 C. 147 D. 14728.下面的_ B _语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。A. Print "A"Tab(9);"b" B. Print "A"Tab(10);"b" C. Print "A"Space(10);"b" D. Print "A"Tab(8);"b"29.用MsgBox函数显示的对话框，以下叙述正确的是_ D

20、_。A. 该对话框有一个“确定”按钮B. 该对话框有“是”，“否”两个按钮C. 该对话框有“是”，“否”，“取消”三个按钮 D. 该对话框通过选择参数可以得到以上不同的的按钮组合 30.与语句Dim abc%作用相同的语句是_ A _。A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date31.设a=1,b=2,c=3,d=4，则表达式IIf(a<b,c,d)的结果为_ B _。A. 4 B. 3 C. 2 D. 1函数不可能为下列_ B_值。A. 0 B. 1 C. D. 33.表

21、达式Int*100+/100的值为_ C_。A. 198 B. 199.6 C. D. 20034.若Y="welcome!"，则表达式 Left(Y,Len(Y)-1)的值是_ C _。A. "welcome!" B. "w" C. "welcome" D. ""35.要使变量x赋值为1100间（含1，不含100）的一个随机整数，正确的语句是_ D_。A. x=Int(100*Rnd) B. x=Int(101*Rnd) C. x=1+Int(100*Rnd) D. x=1+Int(99*Rn

22、d) 36.可实现从字符串任意位置截取字符的函数是_B_。A. Instr( ) B. Mid( ) C. Left( ) D. Right( )37.实现将小写字母转换成大写字母的函数是_C_。A. Str( ) B. Upper( ) C. Ucase( ) D. Lcase( )38.可以同时删除字符串前导和尾部空格的函数是_C_。A. Ltrim B. Rtrim C. Trim D. Mid39.函数Int(Rnd*5)+1产生的随机整数的范围是_D_。A. 0,6 B. 1,6 C. 0,5 D. 1,540.在VB中，InputBox函数的默认返回值类型为字符串，用InputBo

23、x函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是_A_。A. 在函数InputBox前面使用Val函数进行类型转换B. 在函数InputBox前面使用Str函数进行类型转换C. 在函数InputBox前面使用Value函数进行类型转换D. 在函数InputBox前面使用String函数进行类型转换41.表达式Len("123程序设计ABC")的值是_A_。A. 10 B. 14 C. 20 D. 17函数的返回值的类型是_A_。A. 整型B. 字符串C. 逻辑值 D. 日期型=5，B=8，则(B-A)*Rnd+A的结果是介于_A_之间的数。A. 58 B. 0

24、5 C. 35 D. 0344.循环结构 For i = 1 To 10 Step 的执行次数是_A_。A. 7 B. 8 C. 9 D. 1045.下列结构中不属于循环结构的是_C_。A. For/Next B. While/Wend C. With/End With D. Do/Loop46.下列结构中不属于分支结构的是_ C_。A. If/End If B. Select Case/End Select C. With/End With D. If/Else/End If47.窗体的标题栏显示内容由窗体对象的_D_属性决定。A. BackColor B. BackStyle C. Tex

25、t D. Caption48.以下关于窗体的描述中，错误的是_A_。A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B. 窗体的load事件在加载窗体时发生 C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的Height、Width属性用于设置窗体的高和宽49.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的_C_属性来实现。A. FontName B. Font C. FontSize D. FontBold50.在代码编辑窗口内将窗体Form1的Caption属性设置为"时钟"，

26、正确的书写形式是_B_。A. "时钟" B. ="时钟"C. Caption=时钟 D. ("时钟")51.若要设置文本框中文字的显示颜色，则可用_B_属性来实现。A. BackColor B. ForeColor C .FillColor D. BackStyle52.若要将窗体隐藏起来，则实现的方法为_A_。A. Hide B. UnLoad C. Show D. WindowState53.若要求在文本框中输入密码时，文本框中只显示#号，则应在此文本框的属性窗口中设置_C_。A. Caption属性值为# B. Text属性值为

27、# C. Passwordchar属性值为# D. Passwordchar属性值为真54.若要使标签的大小自动与所显示的文本相适应，则可通过设置_A_属性的值为True来实现。A. AutoSize B. Alignment C. Appearance D. Visible55. 刚建立一个新的标准EXE工程时，不在工具箱中出现的控件是_C_。A. 单选按钮B. 图片框 C. 通用对话框 D. 文本框56.将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句_B_。A. Text1= Command1 B. = C. = D. = CStr(Command1)57.对于

28、窗体Form1，执行了=语句后，该窗体将_A_。A. 上移 B. 下移 C. 左移 D. 右移58.在窗体上添加一命令按钮Command1，并将其Caption属性设置为cmdAA、名称属性设置为cmdBB，则关于该控件的语句_C_是正确的。A. =100 B. =100C. =100 D. 以上语句都不对59.保存文件时，窗体的所有数据以_B_存储。A. *.PRG B. *.FRM C. *.VBP D. *.EXE60.下列哪组语句可以将变量a，b的值互换_B_。A. a=b : b=a B. a=a+b : b=a-b : a=a-bC. a=c : c=b : b=a D. a=(a

29、+b)/2 : b=(a-b)/261.以下程序段执行后，整型变量n的值为_A_。 year1 = 2004n = year1 4 + year1 400 - year1 100A. 486 B. 496 C. 506 D. 46662.下列哪种操作不可以打开属性窗口_A_。A. 双击代码窗口B. 双击任何一个对象C. 单击鼠标右键D. 执行“视图”菜单中的“属性窗口”命令63、下列可以打开立即窗口的操作是（D）。 A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 64、InputBox函数返回值的类型为（B）。 A、数值 B、字符串 C、变体 D、数值或字符串（视输入的

30、数据而定） 65、可以同时删除字符串前导和尾部空白的函数是（C）。 A）Ltrim B）Rtrim C）Trim D）Mid 66、以下语句的输出结果是（C）。 Print Format $,“000,000.00”) A） B）32, C）032, D）32, 67、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。（A) 工程资源管理器窗口 B) 工具箱窗口（C) 代码窗口 D) 属性窗口68、 以下叙述中正确的是（A）。（A) 窗体的Name属性指定窗体的名称，用来标识一个窗体（B) 窗体的Name属性的值是显示在窗体标题栏中的文本（C) 可以在运行期间改变对象的Name属性的

31、值（D) 对象的Name属性值可以为空69.如下声明：（ Dim X As Integer（ 如果Sgn(X) 的值为-1，则X的值是（D）。（A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数70. 设a=“Visual Basic”，下面使b=“Basic”的语句是（B）。（A) b=Left(a,8,12) B) b=Mid(a,8,5)（C) b=Rigth(a,5,5) D) b=Left(a,8,5)71、 以下能够触发文本框Change事件的操作是（D）。（A) 文本框失去焦点 B) 文本框获得焦点（C) 设置文本框的焦点 D) 改变文本框的内容72、下列可作为

32、V2sualBasic变量名的是（D）。A)A#A B)4A C)xY D)constA73、函数String(n，"str")的功能是（B）。A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串73、以下不属于Visual Basic系统的文件类型是（B）。（A）.frm B）.bat C）.vbg D）.vbp74、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（C）。（A）MouseDown B）MouseUp C）Load D）Click75、设a=10，b=5，c=1，执行语句P

33、rint a > b > c后，窗体上显示的是（B）。（A）True B）False C）1 D）出错信息76、如果要改变窗体的标题，则需要设置的属性是 （A）。（A）Caption B）Name C）BackColor D）BorderStyle77、设有以下循环结构（Do（循环体（Loop While <条件>（则以下叙述中错误的是（A）。（A）若"条件"是一个为0的常数，则一次也不执行循环体（B）"条件"可以是关系表达式、逻辑表达式或常数（C）循环体中可以使用Exit Do语句 （D）如果"条件"总是为T

34、rue，则不停地执行循环体78、以下叙述中错误的是（C）。（A) 一个工程可以包括多种类型的文件（B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C) 程序运行后，在内存中只能驻留一个窗体（D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样79、 确定一个控件在窗体上的位置的属性是（C）。（A) Width和Height B) Width或Height（C) Top和Left D) Top或Left 80、 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（C）。A) ="VisualBasic窗体"

35、;B) ="VisualBasic窗体"C) ="VisualBasic窗体"D) ="VisualBasic窗体”三、 判断题1在Visual Basic中，用来描述一个对象特征的量称之为对象的属性。2.若要使命令按钮不可见，则可设置Enabled属性为False来实现。 ×3.窗体中的任何控件都允许获得焦点。×4.在VB中访问任何一个文件之前，都必须先打开该文件，然后才能对文件进行处理.5.任何VB工程编译结果都是可执行文件.EXE。× #语句与Print方法的区别在于，Print #语句写的对象是文件，而Pr

36、int方法写的对象是窗体、控件或打印机。程序中的菜单可以在“菜单编辑器”的窗口中进行设计，也可以利用应用程序向导来生成。8.用菜单编辑器设计菜单时, 顶层菜单不能加快捷键,但可以在该菜单标题中的字母前插入&符号来设置热键。9.由于VB只能以解释方式运行,所以运行速度慢。×中打开工程文件时，在资源管理器窗口可以看到工程中所有的文件，所以可以认为工程文件包括了工程中所有的文件，只要保留工程文件即可，其他文件可以不必保留。×11.在VB程序中,如果存在语法错误,则无法通过编译,所以如果通过编译生成了EXE文件,就说明程序中已不存在任何错误。×12、程序循环结构中

37、的循环体语句将根据实际情况（条件）确定执行次数。 13、程序通过编译可以有效发现程序的语法错误。 14、在VB中，Int(100 * Rnd + 1)的取值范围是1100之间的所有整数（包括1和100）15、VB的所有控件在程序运行以后都是可见的。 ×16、在VB程序设计中，方法表示了对象的行为，即对象所能完成的某种操作。 17、控件是应用程序的图形界面中显示可供用户操纵，并可控制应用程序的图形界面元素，是VB可视化编程的基本操作对象。 18、如果知道一个三角形的两个角和一条边的值，可以用解析法设计程序求解该三角形的面积。 19、在一个循环语句的循环体中含有另一个循环语句，肯定出现死

38、循环。 ×20、用计算机解决某个问题的算法只有一种。 ×21、VB中的算术运算符*(乘)、/(除)、(整除)、Mod(取余数)的运算优先级相同。 ×22、在VB程序设计中，对象的行为称为方法。 23、如果程序经过编译未发现错误，那么程序的调试就完成了。 ×24、算法是程序设计的核心，是程序设计的灵魂。 25、窗体是VB程序设计的基础，各种控件对象必须建立在窗体上，一个窗体对应一个窗体模块。 26、程序循环结构中的循环体语句至少会执行一次。 ×27、VB中的事件只能由用户引发。 ×28、在一个循环语句的循环体中含有另一个循环语句，就形成

39、了嵌套循环。 29面向对象的程序设计是一种以对象为基础，由事件驱动对象执行程序的设计方法。30所谓属性是指对象的名字、大小、位置和颜色等特性。31方法是对象调用的、用来完成特定操作的特殊子程序。32一个工程必须有一个启动对象，默认的启动对象是第一个被创建的窗体。33可以在程序设计阶段通过属性窗口,也可以通过程序代码设置对象的属性。34如果对象的Enabled属性为False，则对象不对事件做出响应。35语句 1000,1200把窗体Form1移动到水平坐标为1000单位，把窗体宽度改成为1200单位。×36在程序代码中设置对象属性时，若对象名缺省，则隐含指当前窗体对象的属性。37Pr

40、int方法的缺省对象是当前窗体。38在程序代码中，可以用赋值语句给对象的属性赋值。39与控件有关的赋值语句一定要放在该控件的事件过程中。×40Cls方法能清除窗体或图片框上的绘制图形和文本。四、 程序补充完整 1、单击窗体求任意输入数的平方根的源程序：Private Sub Form_Load() = True 允许load事件使用print方法 Print "求任意数的平方根" _ ”单击窗体开始"End SubPrivate Sub Form_Click() x = Val(InputBox$("输入数据") "输入数据

41、为" x "平方根为"_(x)End Sub2、已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值:Private Sub Form_Click() x = 5: y = 6 t = x: x = _: y = _ "x="x;"y=" yEnd Sub3、在文本框text1中输入任意数， 判断其是奇数还是偶数，在文本框text2中输出判断结果：Private Sub Command1_Click() Dim x As Single x = Val If x Mod 2 = 0 Then = "_数&qu

42、ot; Else = "_数" End IfEnd Sub4、输入圆的半径，求圆的面积：Private Sub Form_ClickDim r,s,xConst Pi=r=_(“请输入圆的面积，按回车完成”,”求圆的面积”)s=pi*r*rx=_(“圆的面积为:” & s,48.”面积”)5、使用For循环语句计算并输出n！(n的阶乘n*(n-1)*2*1)：Private Sub Form_Click（）n=Val(InputBox(”输入n”)s=1For i=1 to nS=s*_Next iPrint _End Sub6、三个数中寻找最大数的代码：Max =

43、 aIf b > Max Then Max = _If c > Max Then Max = _Print "最大数是" Max7、三个命令按钮功能分别是：单击command1在文本框text1中显示字符串“同学，你好”、单击command2清空text1内容、单击command3退出程序，请补充完整程序：Private Sub Command1_Click()=_End Sub Private Sub Command2_Click()=_End Sub Private Sub Command3_Click()_End Sub 8、此程序是将输入的长度（厘米）转

44、换为Twip输出显示，1厘米=567Twip：Private Sub Command1_Click()Dim _L=Val(InputBox(“长度（厘米）”，“输入”)Print “长度(厘米)”,LPrint “长度(Twip)”,_End Sub 9、求S=10+20+30+.+100,将程序缺失部分补充完整Private Sub Command1_Click() Dim i%, s! s = _ For i = 10 To 100 Step _ s = s + i Next i Print sEnd Sub10、试编程序，单击窗体打印出自然数1到20的立方数：Private Sub F

45、orm_() " x", " x2" For x = 1 To _ x, _ Next xEnd Sub11、编写程序，计算下面表达式的值1!+3!+5!+(2N+1)!Private Sub Command1_Click() n = Val(InputBox("请输入N值") Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step _ term = term * (k - 1) * k Sum = Sum + _ Next k "1!+3!+5!+(2N+1)!=" _End S

46、ub12、编一程序根据上网时间计算上网费用，同时为了鼓励多上网，每月收费最多不超过 150 元。资费为：1、<10小时30元；2、1050小时，每小时3元；3、>=50小时，每小时元。Private Sub Form_click()Dim a,r r为最终计费a = Val(InputBox("请输入上网所用的时间！")Select aCase is<_printt "上网所用费用：30元！"Case 10 to 50 r = _ Print "上网所用费用：" rCase _ r = _ If r > 150

47、 Then Print "上网所用费用：150" Else Print "上网所用费用：" r End IfEnd SelectEnd Sub13、用Do WhileLoop计算S=1+2+3+100S=_I=1Do While I<100 S=_I=_LoopPrint S14、我国有13亿人口，按人口年增长%计算，多少年后我国人口超过26亿。单击按钮，在窗口上打印出年数。（简单）（第五章）Private Sub Command1_Click() x = 13 n = 0 Do While _ x = x * n = _ Loop Print n

48、, xEnd Sub15、用For语句打印乘法“九九表”。 Private Sub Form_Click() Dim s_,i As Integer, j As Integer Print Tab(35),”九九乘法表”Print Tab(35),”-” For i=_For j=i to 9S=i & “X” & j & “=” & _Print Tab(j*12);sNext j_ Next iEnd Sub16、使用IfElseIf结构判断输入在三个文本框的三边构成何种三角形（提示：1、任意两边平方之和小于第三边平方时，是钝角；2、任意两边平方之和等于第三边平方时，是直角；3、任意两边平方之和大于第三边平方时，是锐角）：Dim a!,b!,c!a=:b=:If c>a+b Or b>a+c Or a>b+c ThenMsgbox(“无法