.
Loop Until i >20
判断循环结构的类型和循环体的执行次数，正确的选项是（ ） A．当型循环，20次 C．当型循环，10次
B．直到型循环，10次 D．直到型循环，20次
26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ）
A．Val
B．Len
C．Str D．Log
27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（ ）
A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义 B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界 C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容 D．当对动态数组使用Erase语句进行释放操作时，将释放其内存
28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（ ）
A．控件
B．可插入对象
D．ActiveX控件
C．ADO控件
29、表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是（ ）
A．4
B．5
C．6
D．7
30、可以同时删除字符串前导和尾部空白的函数是（ ）
A．Ltrim
B．Rtrim
C．Trim
D．Mid
三、简答题
1、全局变量声明有哪些限制？
2、字符串是否可以自动转换为数字类型？
3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？ 4、在InputBox函数中，哪一个参数是必需的？ 5、在MsgBox函数中哪一个参数是必须的？ 6、在什么情况下使用过程？ 7、为什么要进行程序调试？ 8、调试程序有哪些手段？
11 / 52
.
9、用语句Dim A(-3 To 5) As Integer定义的数组的元素个数是多少？
10、设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？ 11、数学式(2x?a)(3y?b)对应的VB表达式是什么？ 12、表达式2>3 And 4<=5 Or 4>4的值是什么？ 13、怎样在程序中设置断点？ 14、在什么情况下可以设置断点？ 15、程序出错的类型有哪几种？
16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？ 17、什么情况下会出现“数组下标越界错误”？ 18、逐语句和逐过程有什么区别？ 19、表达式2.75 * 2 \\ 3.45的值是什么？ 20、在程序设计中为什么尽量不用GoTo语句？
四、读程序题
1、分析以下程序，写出运行结果。
Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is < 60 A$ = \ Case 60 To 69 A$ = \ Case 70 To 79 A$ = \ Case 80 To 89 A$ = \ Case Else A$ = \ End Select Print A$
12 / 52
.
End Sub
2、读下面的程序，分析其功能，写出运行结果。
在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？ 3、阅读下面的程序，分析并写出其功能。
Sub insert(a() As Single,ByVal x As Single) Dim m as integer,n as integer n=1
Do While n<20 And x>a(n) n=n+1
Loop
For m=20-1 To n Step –1
a(m+1)=a(m)
Next m a(n)=x End Sub
4、分析以下程序，写出运行结果。
Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub
13 / 52
.
Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i =1 To 4 Print a(i) Next i End Sub
运行上面的程序，单击命令按钮，输出结果是什么？ 5、分析以下程序，写出运行结果。
Sub sele()
Dim n as Integer i=21:n=3 Do While i>n i=i－n Loop Print i End Sub
6、分析以下程序，写出运行结果。
Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2
If(a>=b)and(a>=c) or (b>c) Then
Print a
14 / 52
.
a=a+2 Else
Print b EndIf Print a;b;c End Sub
7、分析以下程序，写出运行结果。
Sub swap() Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z End Sub
8、分析以下程序，写出运行结果。
Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a Print a,b,c End Sub
五、编程题
1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。
15 / 52
VisualBasic程序设计教程第三版课后习题答案 - 图文
