VB程序设计语言期末复习
135．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() b = 0
Do Until b< 0
a = Val(InputBox(\输入a的值\b = Val(InputBox(\输入b的值\a = a+b Loop Print a End Sub
程序运行后，依次输入5、4、3、2、1、0、?1、?2，则输出结果是A．15 B．12 C．1 D．?3 【解答】D
136．在窗体中添加命令按钮，编写如下程序： Private Sub Command1_Click() a=0
For m=1 To 10 a=a+1 b=0
For j=1 To 10 a=a+1 b=b+2 Next j Next m Print a,b End Sub
单击命令按钮，程序的执行结果为 。 A．10, 20 B．20, 110 C．110, 20 D．200, 110 【解答】C
137．阅读下面程序段：
Dim Ln As Single, m As Single Dim k As Integer, t As Single
k = 0.0 : Ln = 0.0 : m = 1.0 : t = 1.0 x! = Val (InputBox(\输入x的值\Do
k = k + 1 : t = t *x
s = m * t / k : Ln =Ln + s m = ?m
Loop While k<10 Print Ln
程序段所计算的表达式是 。 A．x+x^2/2+x^3/3+x^4/4+ ? +x^10/10 B．x?x^2/2+x^3/3?x^4/4+ ? ?x^10/10 C．x+x^2+x/3+x/4+ ? +x/10
13 / 21
。 VB程序设计语言期末复习
D．x?x^2+x/3?x/4+ ? ?x/10 【解答】B
138．有如下程序
Private Sub Form_Click()
c=4: d=Val(InputBox(\请输入一个数\Do While d>0
If d>c Then c=c+1
d=Val(InputBox(\请输入一个数\Loop
Print c+d End Sub
运行时输入9,8,7,6,5,4,3,2,1,0,输出的结果是 。 A．5 B．6 C．7 D．8 【解答】C
139．阅读下面的程序段： For i=1 To 2 For j=i To 3 For k=j To 4 Print i*j*k Next k Next j Next i
执行上面的程序段后，输出的数的个数是 个。 A．24 B．14 C．12 D．8 【解答】B
140．阅读下面的程序： Private Sub Form_Click() Dim m,n As Integer
m=InputBox(\请输入m的值\m=Val(m) m1=m
n=InputBox(\请输入n的值\n=Val(n) n1=n
Do While n<>0 remin=m Mod n m=n
n=remin Loop
Print m1,n1,m End Sub
程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为 。
A．16 24 4 B．16 24 8 C．24 16 6 D．24 16 8
14 / 21
VB程序设计语言期末复习
【解答】B
142．阅读下面的程序段： k = 5
Do While k t = t *k k = k ? l Loop
执行上面的程序段后，t的值为 。 【解答】120
143．有一个Select Case结构，其头语句是Select Case x，要表示x的值小于10的Case语句的正确写法是 。 【解答】Case IS<10
16．计算s=1+2+3+?+100的程序段如下： S = 0 : k = 0 Do Until k = k + 1 S = S + k Loop
表示Do循环条件的表达式中是 。 【解答】K>=100
144．执行下面程序段后，s的值为 。 s = 0 : k = 10 Do While k s = s + 10 k = k ? 2 Loop
【解答】50
145．下面程序段的输出结果是 。 Dim x As Integer , num As Integer Num=12345: x=12345 Do While x>1 x=num Mod 10 num=num\\10 Print x Loop
【解答】54321
146．在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Form_Click() Dim i
For i=1 To 13 Step 2 i=i+1 Print i; Next i End Sub
15 / 21
VB程序设计语言期末复习
单击命令按钮，程序的执行结果为 。 A．2 4 6 8 10 12 B．1 3 5 7 9 11 13 C．2 5 8 D．2 5 8 11 14 【解答】D
147．在窗体中添加一命令按钮，并在命令按钮中编写如下代码： Private Sub Command1_Click() Dim a As Single a=-1.234567
b=Int(a):c=Sgn(a):d=Abs(a):e=Fix(a) If a
运行后输出结果是 。 A．?2?1 1.234567 ?1 B．?2 1.234567 C．?1 1.234567 ?1 D．?1 ?1.234567 ?1 【解答】C
三 、判断题
1、在多窗体应用程序中，若不设置启动窗体，则默认将第一个窗体作为启动窗体。（×）
（√） 2、Visible属性用来设置对象的可见性。
（√） 3、事件驱动编程是非常适用于图形用户界面的编程形式。
（×） 4、文本框获得焦点的方法是GotFocus。
（×） 5、VB 程序中所有用到的控件都可以在标准工具箱中找到。
6、标签和文本框都用于显示文本，它们的区别是文本框中是只读文本，标签中的文本是可编辑文本。（×）
7、VB中的ActiveX控件，使用时必须从“部件”中添加到”工具箱”后才能使用。（√）
（×） 8、文本框控件中显示文本内容用Caption属性。
（√） 10、控件的Top属性和Left属性共同决定了控件在窗体上的位置。
（×） 11、ＶＢ中规定，字符串常量必须用一对西文单引号将字符序列括起来。
（×） 13、表达式8 mod 9的值是0 。
（×） 14、VB表达式中的乘号不能省略，用符号·代替。（×） 15、InputBox函数的返回值是一个整数类型。
16、在多窗体应用程序中，Hide方法和Unload语句的功能是相同的，都是卸载窗体。（×）
（×） 17、命令按钮只能显示文字不能加载图片。
18、文本框所显示的内容用Caption属性设置，在程序设计和运行期间，可以对它的内容进行编辑。（×）
（√） 15、选择结构的程序内部可以嵌套另一选择结构。
（×） 17、用Dim a（－1 to 5 ）定义一个一维数组，该数组中元素个数是6。
16 / 21