VB基础知识强化练习

VB基础知识强化练习
1求一元二次方程实数根的算法中，在方程不存在实数根的情况下，要求输出“方程无实数根。

这一要求主要体现了算法特征中的( )
A、有穷性B．确定性c．有输出D．可没有输入
2在VB中，某对象的属性窗口如图3-8-1所示，该对象的名称是( )
A. CommandButton
mandlC．Command_l D．Caption
3在VB中，某对象的属性窗口如图3-8-1所示，其中BackColor是( )
A．对象名B．属性名C．属性值D．事件名
4在VB中，在文本框Text3中显示“密码错误！”，应改变的属性是( )
A. Font
B.Text
C.Width
D.BackColor
5!对于窗体对象Forml，执行语句Forml．Caption=”Height”后可能引起的变化是( )
A．Forml对象的名称改变B．Forml对象的高度改变
C．Forml对象标题栏中的文字改变D．Forml对象的背景色改变
6在VB中，要在标签对象Lab上显示文字“请输入验证码：”，应改变的属性是( )
A. Font
B.Caption
C.Width
D.Height
7在VB中，下列方法能获得Textl文本框中内容的是( )
A. a=Textl.text
B.Textl.text=a
C. b=TextI.Font
D.Textl.Fontb
8．在VB中，下列函数的值属于字符串常量的是( )
A. Val("10")
B.Len("10")
C.Str(10)
D.Sqr(10)
9．产生[1，6]范围内某一随机整数的表达式是( )
A．Rnd:g6 B．Rnd~6+1 C.Int(Rnd*6) D.Int(Rnd*6+1)
10．在VB中，若x=2.185，则表达式Int( x*10+0.5 )/10的值是( )
A．2 B．2.1 C．2.2 D．23
11．下列VB运算符中，属于算术运算符的是( )
A．> B．= C．Mod D．Or
12．下列属于正确VB表达式的是( )
A.a+2*|b-c|
B.b2+1
C.2x-l
D.vO+a.t
13．在VB中，表达式”20”+”15”的值是( )
A-”35” B. 35 C.”20+15” D."2015”
14．在VB中，与表达式Len(”-100”)+100的值相等的是( )
A.Str(100)+”4”
B.Abs(-100)+4
C. Val(”-100”)+100
D.Sqr(100)+100
1 5．在VB中，设x=5132，能得到其百位上数字“1”的表达式是( )
A．x Mod 100 B．x\10 Mod 10 C. x\100 Mod 10 D. x\100 Mod 100
16．在VB中，若x表示能被7整除的正整数，则下列表达式的值一定为真的是( )
A．x\7=0 B．xMod 7=0 C.Int(x/7)=0 D.7 Mod x=0
1 7．已知a=10，b=20，c=30，下列表达式中值为True的是( )
A. a<c Or b>c
B. a<b And b>c
C．Not(a<c) D．a+b>c
18．在VB中，若使用变量t存储表达式x>y的值，则变量t的数据类型应定义为( )
A. String
B.Integer
C.Single
D.Boolean
19．下列VB程序运行时，在文本框Textl中输人数据5，在文本框Text2中输人数据8，单击命令按钮Commandl后，文本框Textl中显示的内容是____，文本框Text2中显示的内容是。

Private Sub Commandl_Click()
Dim a As Integer,b As Integer
a=Val(TextI.Text)
b=Val( Text2.Text)
a=a*b
b=a/b
a=a/b
TextI.Text=Str(a)
Text2.Text=Str(b)
End Sub
20。

某VB程序的事件过程如下：
Private Sub CommandI_Click()
Dim a As Integer
a=Val(TextI.Text)
a=28a+l
TextI.Text= Str(a)
End Sub
程序运行时，在文本框Textl中输入1，连续两次单击命令按钮Commandl后，文本框Textl中显示的内容是
21．下列VB程序段用来判断某整数的正负情况：
x=Val(TextI.Text)
If_ ___Then
Label1.Caption=”负整数”
Else
Label1.Caption=”非负整数”
End If
则程序划线处应填入( )
A．x<0 B．X<>0C．x>=0 D．x<=0
22．已知a、b、c为某三条线段的长度，判断这三条线段能否构成一个三角形的VB程序代码如下：
Private Sub Commandl_click()
a=10 :b=4 : c=5
If a+b>c Andb+c>a And c+a>b Then
TextI.Text="YES
Else
Text2.Text="NO"
End Sub
运行程序，单击命令按钮Commandl后，结果是( )
A．文本框Textl中显示“YES”B．文本框Text2中显示“NO”
C．出现“块If没有Endlf”的错误信息D．出现“False”的错误信息
23．下列VB程序段：
Dim a As Integer,b As Integer
a=Val( Text1.Text)
If a<=10 Then
b=a^2
Else
b=a*2
End If
Text1.Text=Str(b)
若要测试所有分支程序代码是否正确．下列测试数据中最恰当的一组是( )
A. 9,10
B.10,11
C.11,12
D.-10,10
24．有如下VB程序段：
s=0
For i=l T0 5
s=s+l
该程序段执行后，i和s的值分别为( )
A．1 2 B．5 5 C．65 D．6 6
25．有如下VB程序段：
k=l：s=0
Do While k<=3
s=s+k
k=k+l
Loop
该程序段执行后，变量k和s的值分别是( )
A．3 3 B．63 C．4 6 D．10 4
26．有如下VB程序：
Private Sub CommandlClick()
Dimx As Integer,i As Integer
Listl.Clear
For i=l T0 5
x=i*(i+2)
ListI.AddltemStr（x）
Next i
End Sub
该程序运行后，单击命令按钮Commandl，在列表框Listl中显示的数据个数是( )
A.1 B．2 C．5 D．10
27．有如下VB程序段：
s=l
For i=10 ToStep -l
S=s+i
若要使语句执行5次，则循环变量i终值应为（）
A 5
B 6
C 7
D 8
28．有如下VB程序段：
S=0：i=l
Do While
S=s+i
i=i+2
Loop
该程序段运行后，变量s的值等于9，则程序中划线处的语句是( )
A. i<5
B.i<=5 c. i<=7 D.i=9
29．某算法的部分程序代码与其相对应的流程图分别表示如下：则代码中①和②处应填人的是( )
A．①i=l T0 10 B．①i=l T0 10
②s=s*i②s=s+i
C.①i1 T0 10 Step 2 D．①i=l To IO Step2
②s=s+I②s=s*i
30.有如下VB程序段：
s=0
For i=1 T0 10
s=s+i Mod2
Nexti
Label1.Caption=Str(s)
该程序段运行后，在标签Labell上显示的是。

31．有如下VB程序：
Private Sub Command1_Click()
Dim a(1 T0 5)As Integer,i As Integer
a(1)=1
a(2)=l
For i=3 T0 5
a(i)=2*a(i-l)+a(i-2)
Next i
Textl.Text=Str(a(5))
End Sub
该程序运行后，单击命令按钮Commandl后，文本框Textl中显示的内容是32．小明用如下VB程序来计算S=1^2+3^2+5^2+. .+9^2。

Private Sub CommandlClick()
Dim i As Integer,S As Integer
i=1：s=0
Do Whilei<>10
s=s+i^2
i=i+2
Loop
Text1.Text= Str(s)
End Sub
该程序运行后，单击命令按钮Commandl后，出现“溢出”的错误信息，为实现计算要求，程序中划线处语句应修改为。