VB程序设计语言期末复习
Ａ、Ltrim( ) Ｂ、Trim( ) Ｃ、Left( ) Ｄ、Instr( ) 108、下列符号中哪个是VB程序中合法的变量名（A ） A、ab7 B、7ab C、If D、a*bc
109、要改变控件的宽度，应改变控件的哪个属性： (A ) A、Width B、Height C、Top D、Left 110、用于显示窗体的方法是：（B）
A、Hide B、Show C、Unload C、Load
111、产生［10，37］之间的随机整数的Visual Basic表达式是 （B ） A、Int（Rnd（）*27）+10 B、Int（Rnd（）*28）+10 C、Int（Rnd（）*27）+11 D、Int（Rnd（）*28）+11 112、下列可以将变量A和B互换的语句是：（ A） A、C=B B=A A＝Ｃ Ｂ、A=B B=A C、A=（A+B）/2 B=（A-B）/2 D、A=A+B B=A-B 113、在VB中，认为下面哪两个变量名是相同的：（B ）
A、English 和Engl_ish B、English和ENGLISH C、English 和 Engl D、English 和England 114、以下关于运算符的说法，错误的是：（A ） A、表达式中的乘号*不能省略，但可以用符号·代替
B、通常不允许两个运算符相连，两个运算符应当用括号隔开 C、括号可以改变运算符的运算顺序
D、在表达式中只能用圆括号，不能使用方括号。
115、设a=“Visual Basic”，下面使b=“Visual”的语句是 D
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5) C、b=Rigth(a,6) D、b=Left(a,6) 116、设置复选框或单选按钮标题对齐方式的属性是（ B） A．Align B．Alignment C．Sorted D．value
117、在VB.NET中，用（B )属性标识不同的对象。 A. Text B. Name C. Index D. Title
118、将文本框的Multiline属性设置为False ,则文本框中只能输入：（C ） CA、一个字符 B、两个字符 C、单行文本 D、多行文本 119、在VB中，Integer 类型数的表示范围是：（ A） A、-32768--32767 B、-32768--32768
C、-2147483648--2147483647 D、-2147483648--2147483648 120、根据变量的作用范围，可以将变量分为3 类，它们是：（A ）
A、过程变量、模块变量、全局变量 B、过程变量、模块变量、标准变量 C、过程变量、模块变量、窗体变量 D、过程变量、标准变量、全局变量 121、表达式Left（”This is a book”,3）的值是：（ C） A、 a B、is a book C、Thi D、ook 122、要使文本框中的内容写满一行后自动换行，，应将文本框的哪个属性设为TRUE （A ）
A、Multiline B、Text C 、Scrollbars D、 Caption 123、以下说法正确的是（ A） A、对象是又特殊属性和行为方法的实体
B、属性是对象的特性，所有的对象都有相同的属性 C、属性的一般格式为：对象名_属性名
11 / 21
VB程序设计语言期末复习
D、属性值的设置只可以在属性窗口中设置
124、一个新建的窗体，运行后发现屏幕上没有显示，任务栏上也无最小化图标，可能原因是：（ B）
A、该窗体的Enabled属性为False B、该窗体的Visible属性为False
C．该窗体的WindowsState属性为Minisized D、该窗体为多窗体的一个
125、要改变控件的高度，应改变控件的哪个属性： ( B) A、Width B、Height C、Top D、Left 126、用于隐藏窗体的方法是：（A ）
A、Hide B、Show C、Unload C、Load
127、对于一个含有计时器控件的窗体， 每经过一段由（D ）属性指定的时间间隔， 就会产生一个Timer事件：
A、Name B、Enabled C、Caption D、Interval 128、窗体能够响应的事件是（C ）。
A、ActiveForm B、Drive C、Load D、Change 129、以下各项中，不是字符串常量的是：（ D）
A、” Visual” B、”等级考试” C、” ” D、//Basic//
130、有变量定义语句：Dim max,min as Single，可知变量max的类型是：（B ） A、可变类型 B、单精度型 C、双精度型 D、字符串型 136、Int（100*Rnd）产生随机数的闭区间是：（C ）
A、[1，100] B、[0，100] C、[0，99] D、[1，99] 131．下面程序执行后，x的值为 。 a = 10 : b = 0 Do While a-b a=a?1 b=b+1 x=x+a+b loop
A．30 B．40 C．50 D．60 【解答】C
134．假定有下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3
Print\Next k Next j Next i
这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是 。
A．3、6和14 B．3、8和16 C．3、4和12 D．3、9和18 【解答】A
12 / 21
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