VB交大练习题

Vb考试复习题

一、 填空题

1.设 a=2,b=3，表达式 a>b 的值是_______。 FALSE

2.在VB中声明符号常量的关键字是_______。const

3. 表达式10 MOD 164的值是_______。2

4. 设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 的值为_______。True

6. 设a=1,b=2,c=3,则表达式：a

7. 在VB中，用 Dim X As Integer 语句定义的变量X，系统默认其值为_______。0

8. 表示x是5的倍数逻辑表达式为_______。X MOD 5=0

9. 已知 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"的值是_______。True

12. 在VB中，字符型常量应使_______将其括起来，日期/时间型常量应使用______将其括起来。 双引号 井号

13．在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a = InputBox("请输入一个整数")

b = InputBox("请输入一个整数")

Print a + b

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为___。”321456”

14. InputBox（）函数返回值的数据类型是__。字符型

15. 执行语句 B = MsgBox("XXX","YYY")后,在消息框中的标题信息是___。YYY

16. For-Next循环的子句缺省时，循环变量每次改变的值是_______。1

17.循环结构中与While语句匹配出现的循环结束语句是_______。Wend

18. VB程序的三种基本结构是：顺序、选择和_______。循环

19. 语句 x=inputbox("请输入数据"),输入12345，则x的值是_____，其类型为_______。”12345” 字符型

20. 表达式 sgn(-25) 的值是_______。-1

21. 设a=6，则执行x=IIf(a>5,-1,0)后，x的值为_______。-1

22. 设 a=2,b=9，表达式 a^2 > sqr (b)的值是_______。True|

23. Int的函数值是_______。-9

24. 表达式 Int*100+/100 的结果是_______。

25. 表示X是5或7的倍数的VB表达式是_______。X Mod 5 = 0 OR X Mod 7 = 0

26. 执行A="123" +123 语句后，变量A的值是_______。246

27. 函数int(rnd*11)+10的值的范围是___10___至__20。

28．若使命令按钮不起作用，应将按钮的_______属性设置为False。Enabled

29. 扩展名为.frm的文件表示__窗体__文件。

30. 标准模块文件的扩展名为____。.bas

31. 扩展名为.vbp的文件是___文件。工程

32. Visual Basic采用__事件__驱动的编程机制。

33. VB有3种工作模式,即设计模式、运行模式和中断模式。

34. 在Visual Basic中，对象的大多数属性既可以在______窗口设置，也可以通过程序代码设置。属性

35. 在 Visual Basic 中，对象的_______是用来描述一个对象外部特征的。 属性

36. VB有三个调试窗口，它们是_______窗口、本地窗口和监视窗口。 立即

37. 对象的属性、事件和_______被称为Visual Basic对象的三要素。 方法

38. Visual Basic 的对象主要分为窗体对象和_______两大类。 控件

39. 执行下面的程序段后，变量s的值为___7____。

s＝5

For i＝3 to 5

i=i+1

s=s+1

Next i

40. .以下程序段的输出结果是___3____。

num=0

While num<=2

num=num+1

Wend

Print num

41. 执行下面的程序段后，X的值为___8____。

X=5

For I=1 to 10 Step 2

X=X+I5

Next I

42. 下列程序的执行结果为___-9___。

A="1"

B="2"

A=Val(A)+Val(B)

B=Val("12")

If A<>B Then Print A-B

Else

Print B-A

End if

43下列程序的执行结果为___2___。

A=75

If A>60 Then I=1

If A>70 Then I=2

Print I

44. 下列程序的执行结果为___3____。

A=75

If A>90 then

I=1

ElseIf A>80 Then

I=2

ElseIf A>70 Then

I=3

ElseIf A>60 Then

I=4

End If

Print I

45. 执行下面的程序段后，b的值为__100_。

a = 100

b = 20

a = a + b

b = a - b

a = a - b

46. 执行下列程序段后,变量X的值是_130_。

X = 100

Y = 30

If X

Else

X=Y+X

End if

47. 下列程序的执行结果是___1____。

Private Sub Form_Click()

Dim i

If i Then Print i

Else

Print i+1

End Sub

48. 以下程序段的输出结果是__true __。

A = Sqr(3)

B = Sqr(2)

C = A > B

Print C

49. 以下循环的执行次数是___11____。

K = 0

Do While K<=10

K = K + 1

Loop

50. 在窗体的MouseUp事件中有下列程序代码：

Select Case Button

Case 1

Print "Ok!"

Case 2

Print "Hello!"

Case 4

Print "Welcome!"

End Select

运行此程序，当单击鼠标右键时，窗体显示_______。"Hello!"

51. 执行下面的程序段后，s的值为_______。9

s = 5

For i = To Step

s = s+1

Next i

52. 表达式Fix+Int的值为_______ 。 56

53.随机产生[3,200]范围内的随机整数的VB表达式是________。

Int(rnd*(200-3+1))+3

54. 设 a=2,b=3，表达式 a>b 的值是______。FALSE

55. 数学表达式ab的VB表达式是 。(a-b)/(a+b)

ab56. 表示x是5的倍数或是9的倍数的逻辑表达式为______。X MOD 5=0 Or X MOD

9=0

57. 已知a=,b=,c=,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d的值是______。False

58. “a”，“T”，“Z”，“9”，这四个字符中， ______的ASCII码值最大。"a"

59. 在VB中，1234，123456&，+5，+5四个常数分别表示______ 、______ 、______ 、______ 类型。 整型 长整型 单精度 双精度

60. 函数Len(Lcase("abcDEF"))的值是______。6

二、 选择题

1.下面合法的常量是（D）。

A. 1/2 B. 'abcd' C. *5 D. False

Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是（C）。

A. % B. # C. @ D. $

3.表达式16/4-2^5*8/4 MOD 52的值为（B）。

A. 14 B. 4 C. 20 D. 2

4.用十六进制表示Visual Basic的整型常数时，前面要加上的符号是（A）。

A. &H B. &O C. H D. O

5.数学关系式3≤x<10表示成正确的VB表达式为（B）。

A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D.

3<=x AND <10

6.下面正确的赋值语句是___C____。

A. x+y=30 B. pi*r*r=y C. y=x+30 D.

x=3y

7. ，/，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、3

10.如果变量 a=2、b="abc"、c="acd"、d=5，则表达式 ac AND b<>c 的值为（A）。

A. True B. False C. Yes D. No

11.下面不正确的赋值语句是（B）。

A. x=30-y B. y= C. y=x+30 D. y=x3

12.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（A）。

A. x=1∶y=1∶z=1 B. x=1,y=1,z=1 C. x=y=z=1 D.

xyz=1

13.以下4类运算符，优先级最低的是（D）。

A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符

14.已知a=""，则表达式Left(a, 4) + Mid(a, 4, 2)的值是___B____。

A. 123456 B. "123445" C. 123445 D. 1279

15.下列表达式的值为真的是___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 AND NOT d<>c的值是___B____。

A. True B. False C. 1 D. 0

18.表达式A%+B&+C!-D#的结果为____D___。

A. 整型 B. 长整型 C. 单精度型 D. 双精度型

19.下列符号中，可以用作VB变量名的是___C____。

A. c%ab B. 3sum C. sum3 D. Len

20.条件:1

A. X>1 AND X<=2 OR X>=10 AND X<15 B. X>1 OR X<=2 OR X>=10 OR X<15

C. X>1 OR X<=2 AND X>=10 OR X<15 D. X>1 AND X<=2 AND X>=10 AND

X<15

21.表达式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.下列数据类型不可能占8个字节的是___ D ____。

A. Date B. Currency C. String D. Integer

25.下列关于变体类型的描述，其中正确的是___ C ____。

A. 变体是一种没有类型的数据

B. 变体的空值就表示该变体的值为0

C. 一个变量没有定义就赋值，该变量即为变体类型

D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值

26.执行 PRINT 18/2*3,-3^2 命令后，输出结果为___C___。

A. 3 9 B. 3 -9 C. 27 -9 D. -9

27

27.窗体里有两个对象，分别是图片框Picture1和标签Label1，下面关于Print方法的使用中，错误的一条是___ D ____。

A. 147 B. Print 147 C. 147 D. 147

28.下面的___ 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 ____。

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 Date

31.设a=1,b=2,c=3,d=4，则表达式IIf(a

A. 4 B. 3 C. 2 D. 1

函数不可能为下列____ B___值。

A. 0 B. 1 C. D.

33.表达式Int*100+/100的值为___ C____。

A. 198 B. 199.6 C. D. 200

34.若Y="welcome!"，则表达式 Left(Y,Len(Y)-1)的值是__ C _____。

A. "welcome!" B. "w" C. "welcome" D. ""

35.要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是___ D___。

A. x=Int(100*Rnd) B. x=Int(101*Rnd)

C. x=1+Int(100*Rnd) D. x=1+Int(99*Rnd)

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. Mid

39.函数Int(Rnd*5)+1产生的随机整数的范围是___D____。

A. [0,6] B. [1,6] C. [0,5] D. [1,5]

40.在VB中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是___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. 5～8 B. 0～5 C. 3～5 D. 0～3

44.循环结构 For i = 1 To 10 Step 的执行次数是___A____。

A. 7 B. 8 C. 9 D. 10

45.下列结构中不属于循环结构的是___C____。

A. For/Next B. While/Wend C. With/End With

D. Do/Loop

46.下列结构中不属于分支结构的是___ C____。

A. If/End If B. Select Case/End Select C. With/End With D.

If/Else/End If

47.窗体的标题栏显示内容由窗体对象的___D____属性决定。

A. BackColor B. BackStyle C. Text D. Caption

48.以下关于窗体的描述中，错误的是___A___。

A. 执行Unload Form1语句后，窗体Form1消失，但仍在内存中

B. 窗体的load事件在加载窗体时发生

C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

D. 窗体的Height、Width属性用于设置窗体的高和宽

49.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的__C__属性来实现。

A. FontName B. Font C. FontSize D. FontBold

50.在代码编辑窗口内将窗体Form1的Caption属性设置为"时钟"，正确的书写形式是___B____。

A. "时钟" B. ="时钟"C. Caption=时钟 D. ("时钟")

51.若要设置文本框中文字的显示颜色，则可用___B___属性来实现。

A. BackColor B. ForeColor C .FillColor D. BackStyle

52.若要将窗体隐藏起来，则实现的方法为___A____。

A. Hide B. UnLoad C. Show D. WindowState

53.若要求在文本框中输入密码时，文本框中只显示#号，则应在此文本框的属性窗口中设置___C___。

A. Caption属性值为# B. Text属性值为#

C. Passwordchar属性值为# D. Passwordchar属性值为真

54.若要使标签的大小自动与所显示的文本相适应，则可通过设置__A__属性的值为True来实现。

A. AutoSize B. Alignment C. Appearance D. Visible

55. 刚建立一个新的标准EXE工程时，不在工具箱中出现的控件是___C____。

A. 单选按钮 B. 图片框 C. 通用对话框 D. 文本框

56.将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句___B___。

A. Text1= Command1 B. =

C. = D. = CStr(Command1)

57.对于窗体Form1，执行了=语句后，该窗体将___A___。

A. 上移 B. 下移 C. 左移 D. 右移

58.在窗体上添加一命令按钮Command1，并将其Caption属性设置为cmdAA、名称属性设置为cmdBB，则关于该控件的语句____C___是正确的。

A. =100 B. =100

C. =100 D. 以上语句都不对

59.保存文件时，窗体的所有数据以___B___存储。

A. *.PRG B. *.FRM C. *.VBP D. *.EXE

60.下列哪组语句可以将变量a，b的值互换___B___。

A. a=b : b=a B. a=a+b : b=a-b : a=a-b

C. a=c : c=b : b=a D. a=(a+b)/2 : b=(a-b)/2

61.以下程序段执行后，整型变量n的值为___A____。

year1 = 2004

n = year1 4 + year1 400 - year1 100

A. 486 B. 496 C. 506 D. 466

62.下列哪种操作不可以打开属性窗口___A____。

A. 双击代码窗口

C. 单击鼠标右键

B. 双击任何一个对象

D. 执行“视图”菜单中的“属性窗口”命令

63、下列可以打开立即窗口的操作是（D）。

A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G

64、InputBox函数返回值的类型为（B）。

A、数值 B、字符串 C、变体 D、数值或字符串（视输入的数据而定）

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属性的值

（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、下列可作为V2sualBasic变量名的是（D）。

A)A#A

B)4A

C)xY

D)constA

73、函数String(n，"str")的功能是（B）。

A)把数值型数据转换为字符串

B)返回由n个字符组成的字符串

C)从字符串中取出n个字符

D)从字符串中第n个字符的位置开始取子字符串

73、以下不属于Visual Basic系统的文件类型是（B）。

（A）.frm B）.bat C）.vbg D）.vbp

74、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（C）。

（A）MouseDown B）MouseUp C）Load D）Click

75、设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（B）。

（A）True B）False C）1 D）出错信息

76、如果要改变窗体的标题，则需要设置的属性是 （A）。

（A）Caption B）Name C）BackColor D）BorderStyle

77、设有以下循环结构

（Do

（循环体

（Loop While <条件>

（则以下叙述中错误的是（A）。

（A）若"条件"是一个为0的常数，则一次也不执行循环体

（B）"条件"可以是关系表达式、逻辑表达式或常数

（C）循环体中可以使用Exit Do语句

（D）如果"条件"总是为True，则不停地执行循环体

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窗体"

B) ="VisualBasic窗体"

C) ="VisualBasic窗体"

D) ="VisualBasic窗体”

三、 判断题

1．在Visual Basic中，用来描述一个对象特征的量称之为对象的属性。√

2.若要使命令按钮不可见，则可设置Enabled属性为False来实现。 ×

3.窗体中的任何控件都允许获得焦点。×

4.在VB中访问任何一个文件之前，都必须先打开该文件，然后才能对文件进行处理.√

5.任何VB工程编译结果都是可执行文件.EXE。×

#语句与Print方法的区别在于，Print #语句写的对象是文件，而Print方法写的对象是窗体、控件或打印机。√

程序中的菜单可以在“菜单编辑器”的窗口中进行设计，也可以利用应用程序向导来生成。√

8.用菜单编辑器设计菜单时, 顶层菜单不能加快捷键,但可以在该菜单标题中的字母前插入&符号来设置热键。√

9.由于VB只能以解释方式运行,所以运行速度慢。×

中打开工程文件时，在资源管理器窗口可以看到工程中所有的文件，所以可以认为工程文件包括了工程中所有的文件，只要保留工程文件即可，其他文件可以不必保留。×

11.在VB程序中,如果存在语法错误,则无法通过编译,所以如果通过编译生成了EXE文件,就说明程序中已不存在任何错误。×

12、程序循环结构中的循环体语句将根据实际情况（条件）确定执行次数。 √

13、程序通过编译可以有效发现程序的语法错误。 √

14、在VB中，Int(100 * Rnd + 1)的取值范围是1～100之间的所有整数（包括1和100）√

15、VB的所有控件在程序运行以后都是可见的。 ×

16、在VB程序设计中，方法表示了对象的行为，即对象所能完成的某种操作。

√

17、控件是应用程序的图形界面中显示可供用户操纵，并可控制应用程序的图形界面元素，是VB可视化编程的基本操作对象。 √

18、如果知道一个三角形的两个角和一条边的值，可以用解析法设计程序求解该三角形的面积。 √

19、在一个循环语句的循环体中含有另一个循环语句，肯定出现死循环。 ×

20、用计算机解决某个问题的算法只有一种。 ×

21、VB中的算术运算符*(乘)、/(除)、(整除)、Mod(取余数)的运算优先级相同。

×

22、在VB程序设计中，对象的行为称为方法。 √

23、如果程序经过编译未发现错误，那么程序的调试就完成了。 ×

24、算法是程序设计的核心，是程序设计的灵魂。 √

25、窗体是VB程序设计的基础，各种控件对象必须建立在窗体上，一个窗体对应一个窗体模块。 √

26、程序循环结构中的循环体语句至少会执行一次。 ×

27、VB中的事件只能由用户引发。 ×

28、在一个循环语句的循环体中含有另一个循环语句，就形成了嵌套循环。 √

29．面向对象的程序设计是一种以对象为基础，由事件驱动对象执行程序的设计

方法。√

30．

31．

32．

√

33．

性。√

34．

35．

如果对象的Enabled属性为False，则对象不对事件做出响应。√

语句 1000,1200把窗体Form1移动到水平坐标为1000单位，把窗体宽可以在程序设计阶段通过属性窗口,也可以通过程序代码设置对象的属所谓属性是指对象的名字、大小、位置和颜色等特性。√

方法是对象调用的、用来完成特定操作的特殊子程序。√

一个工程必须有一个启动对象，默认的启动对象是第一个被创建的窗体。度改成为1200单位。×

36． 在程序代码中设置对象属性时，若对象名缺省，则隐含指当前窗体对象的属性。√

37．

38．

39．

40．

四、 程序补充完整

Print方法的缺省对象是当前窗体。√

在程序代码中，可以用赋值语句给对象的属性赋值。√

与控件有关的赋值语句一定要放在该控件的事件过程中。×

Cls方法能清除窗体或图片框上的绘制图形和文本。√

1、单击窗体求任意输入数的平方根的源程序：

Private Sub Form_Load()

= True ’允许load事件使用print方法

Print "求任意数的平方根"

_____ ”单击窗体开始"

End Sub

Private Sub Form_Click()

x = Val(InputBox$("输入数据"))

"输入数据为"; x

"平方根为";______(x)

End Sub

2、已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值:

Private Sub Form_Click()

x = 5: y = 6

t = x: x = ___: y = ___

"x=";x;"y="; y

End Sub

3、在文本框text1中输入任意数， 判断其是奇数还是偶数，在文本框text2中输出判断结果：

Private Sub Command1_Click()

Dim x As Single

x = Val

If x Mod 2 = 0 Then

= "___数"

Else

= "___数"

End If

End Sub

4、输入圆的半径，求圆的面积：

Private Sub Form_Click

Dim r,s,x

Const Pi=

r=___(“请输入圆的面积，按回车完成”,”求圆的面积”)

s=pi*r*r

x=__(“圆的面积为:” & s,48.”面积”)

5、使用For循环语句计算并输出n！(n的阶乘n*(n-1)*……*2*1)：

Private Sub Form_Click（）

n=Val(InputBox(”输入n”))

s=1

For i=1 to n

S=s*___

Next i

Print ___

End Sub

6、三个数中寻找最大数的代码：

Max = a

If b > Max Then Max = ___

If c > Max Then Max = ___

Print "最大数是"; Max

7、三个命令按钮功能分别是：单击command1在文本框text1中显示字符串“同学，你好”、单击command2清空text1内容、单击command3退出程序，请补充完整程序：

Private Sub Command1_Click()

=___

End Sub

Private Sub Command2_Click()

=___

End Sub

Private Sub Command3_Click()

___

End Sub

8、此程序是将输入的长度（厘米）转换为Twip输出显示，1厘米=567Twip：

Private Sub Command1_Click()

Dim ___

L=Val(InputBox(“长度（厘米）”，“输入”))

Print “长度(厘米)”,L

Print “长度(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 s

End Sub

10、试编程序，单击窗体打印出自然数1到20的立方数：

Private Sub Form____()

" x", " x^2"

For x = 1 To ___

x, ___

Next x

End Sub

11、编写程序，计算下面表达式的值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 Sub

12、编一程序根据上网时间计算上网费用，同时为了鼓励多上网，每月收费最多不超过 150 元。资费为：1、<10小时30元；2、10~50小时，每小时3元；3、>=50小时，每小时元。

Private Sub Form_click()

Dim a,r ‘r为最终计费

a = Val(InputBox("请输入上网所用的时间！"))

Select a

Case is<___

printt "上网所用费用：30元！"

Case 10 to 50

r = ___

Print "上网所用费用："; r

Case ___

r = ___

If r > 150 Then

Print "上网所用费用：150"

Else

Print "上网所用费用："; r

End If

End Select

End Sub

13、用Do While……Loop计算S=1+2+3+……+100

S=__

I=1

Do While I<100

S=___

I=___

Loop

Print S

14、我国有13亿人口，按人口年增长%计算，多少年后我国人口超过26亿。单击按钮，在窗口上打印出年数。（简单）（第五章）

Private Sub Command1_Click()

x = 13

n = 0

Do While ___

x = x *

n = ___

Loop

Print n, x

End Sub

15、用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 9

S=i & “X” & j & “=” & ___

Print Tab(j*12);s

Next j

___

Next i

End Sub

16、使用If……ElseIf结构判断输入在三个文本框的三边构成何种三角形（提示：1、任意两边平方之和小于第三边平方时，是钝角；2、任意两边平方之和等于第三边平方时，是直角；3、任意两边平方之和大于第三边平方时，是锐角）：

Dim a!,b!,c!

a=:b=:

If c>a+b Or b>a+c Or a>b+c Then

Msgbox(“无法构成三角形”)

Else

If b^2+C^2

Msgbox”__角三角形”

ElseIf ___ Then

Msgbox”直角三角形”

ElseIf b^2+C^2=a^2 Or c^2+a^2=b^2 Or a^2+b^2=c^2 Then

Msgbox”锐角三角形”

End If

___

17、输入2012年任意一个月份，判断该月有多少天

Private Sub Command1_Click()

a = InputBox("输入月份")

Select Case a

Case "1", "3", "5", "7", "8", "10", "12": MsgBox "31天"

Case ___: MsgBox "30天"

Case "2": MsgBox "28天"

Case Else: MsgBox "该月份不存在"

___

End Sub

18、丛键盘输入一个字符，判断其是否为字母：

Private Sub Command1_Click()

Dim S as ___

S=InputBox(“请输入一个字符”)

If S>=”A” And S<=”Z” Or ___ Then

MsgBox(“是字母”)

Else

Msgbox(“不是字母”)

End If

End Sub

19、假设你从今年开始，第一月为希望工程存入1元钱，第二个月存入2元钱，第三个月存入3元……依次类推，两年时间你将为希望工程存入多少钱

Private Sub Form_Click()

Dim n As Integer, sum As Integer

sum = 0

For n = ___

sum = ___

Next

Print sum

End Sub

五、 编写程序

1. 编写一个程序，从键盘输入一个年份，判断是否是闰年，将结果输出。

答案：private sub form_click

Y=val(inputbox(“输入年份”,”判断闰年”))

If (y mod 4=0 and y mod 100<>0) or (y mod 400=0) then

Msgbox “是闰年”

Else

Msgbox “不是闰年”

End if

End sub

2. 编写一个程序，求出1+2+3+………+100的和

答案：private sub form click

Dim i% , sum%

i =1

sum=0

for i=1 to 100

sum=sum+i

next i

print sum

End sub

3. 编写一个程序，输入球半径，求出球的体积。（体积公式：4/3**r^3）

答案： private sub command click

Dim r! , v!

r = val

v=4/3**r^3

=v

4. 某商店进行购物打折优惠活动，根据每位顾客一次性购物的消费额给予不用的折扣，具体方法如下：

（1） 购物1000元以上的九五折优惠

（2） 购物2000元以上的九折优惠

（3） 购物3000元以上的八五折优惠

（4） 购物5000元以上的八折优惠

请用Select case 语句编写程序，输入购物消费额，计算出优惠后应收款。

答案： 见书上95页

5. 编写一个程序，求100-999之间的水仙花数。（注：水仙花数是指其百位数、十位数、个位数的立方之和等于自身的数）

答案：Dim i,a,b,c as integer

For i=100 to 999

a=i100

b=i10 mod 10

c=i mod 10

if a^3+b^3+c^3=i then

print i

end if

next