VB_阶段性练习[推荐]

1、2015学年第一学期信息技术VB阶段性练习一，选择题(共30题，每小题2分，共60分。选出各题中的一个符合题意的选项，不选、多选、选错均不给分)。1.在VB中，下列属于字符串常量的是（ ） A.”2014” B.ABC C.True D.9.82.已知字符型变量x=”我的英文名字叫Rosi”，则Mid(x,8,4)的值为（ ） A.英文 B.名字 C.Ro D.Rosi3.在VB中下列能作为变量名的是（ ） A.caption B.cx_1 C.cx 1 D.2tex4.计算机无法解决“输出所有自然数的问题”，其原因是解决该问题的算法违背了算法特征中的（ ） A.唯一性 B.有穷性 C.有0个

2、或者多个输入 D.有输出5.将整数型变量n的值显示在文本框Text1中，下面正确的语句是( )A. Text = n B. Val(Text1) = nC . Text1.Text = Str(n) D . Str(Text1.Text) = n6.下列VB表达式中：1. Sin(x) 2.Text1.Text 3.Label1.Caption 4.Chr(x) 5.Asc(x)值为字符串型的是（ ）A.1 3 5 B.1 2 3 C.2 4 5 D.2 3 4 7.在Visual Basic中，语句Lbx.Caption=”新年好”中的”新年好”是（ ） A.对象名 B.属性名 C.属性值

3、D.窗体名8.将数学表达式写成VB表达式，正确的是（ ） A.(y-Int(x)/x*x B.(y-Abs(x)/x2 C.(y-Int(x)/x2 D.(y-Abs(x)/x*x9.下列属于正确的 Visual Basic 赋值语句的是（ ）A .x+y=10 B. x+y-10=0 C. x,y=10 D. x=10-y 10.下列关于VB基本控件的叙述中，正确的是（ ） A.文本框和标签都可以用于程序的输入和输出 B.命令按钮和标签都有Caption属性 C.每个控件都具有相同的属性 D.语句list1.Clear中，list1属于ListBox控件类，Clear是该对象的属性11.解决

4、下面问题，适合采用循环结构算法的是（ ）A.判断一个整数是否为偶数 B.输入一个圆的半径，计算面积和周长C.输入10000个数值，计算平均值 D.输入一个正方形面积，求边长12.在VB中，要定义一个一维数组，用于存储高一（1）班40位同学的学号（形如20150101），则正确的数组定义语句是（ ） A.Dim a40 As Integer B.Dim a(1 to 40) As Integer C.Dim a(1 to 40) As String D.Dim a(1,40) As String13.一个VB 程序的运行界面如图所示。下面说法不正确的是（ ） A.标签Label1的Caption

5、属性值为”头” B.文本框Text1的Caption属性值为” ” C.命令按钮Command1的Caption属性值为”求解” D.窗体的Caption属性值为”鸡兔同笼”14.已知x=”-9”,则VB 表达式Len(x)+Sqr(Abs(-9)的值是（ ） A.2 B.4 C.5 D.8315.下列VB表达式的值等于数值78的是（ ） A.Mid(“12345678”,7,2) B.”50”+”28” C.Len(“78”) D.Abs(22-100)16.已知a =2,b =0 ,c =3,下列表达式中值为True的是（） A.Not(a>b) B.a>b And b>

6、c C.a<b Or a<c D.a*b > b*c17.已知x=-78，则VB表达式Abs(x)+Int(x Mod 10)的值为（ ） A .59 B .70 C.74 D.8618.在VB集成环境下编制了含一个窗体的VB应用程序并保存在磁盘上，运行测 试后编译成可执行程序，整个过程中肯定会产生的文件类型是（ ） A. .vbp、.frm、.exe B.vbp、.exe、.txt C. .txt、.exe、.frm D.frm、.txt、.vbp19.某Visual Basic工程的代码窗口如下如图所示： 从图中可以看出，当前正在编辑的是（ ） A.Command1的Cl

7、ick事件 B.Text1的Change事件 C.Text1的Click事件 D.Form的load事件20.在Visual Basic中，若a=-25，则下列说法正确的是（ ） A.表达式a/10和表达式a10值相等 B.表达式Int(a/10)和表达式Int（a10）值相等 C.表达式Abs(Int(a10)和表达式Int(Abs(a10)值相等 D.表达式Abs(Int(a/10)和表达式Int(Abs(a/10)值相等21.计算S=1+1/3+1/5+.+1/99的值，最合适用到的程序结构是（ ） A.顺序结构 B.选择结构 C.循环结构D.分支结构22.有如下VB程序段： x =10

8、0 If x>=0 And x<=100 Then y =2*x+1 Else y =-x End If 该程序段运行后，y的值为（ ） A.-100 B.100 C.200 D.20123.有如下Visual Bisic程序段： For x =10 To 1 Step -2 a (x)=x-1 Next x 该程序段运行后，数组元素a(4)的值为（ ） A.9 B.8 C.4 D.324.某同学编写了如下的VB程序段，运行后弹出下面的错误信息。则错误时所执行的语句是（ ）Private Sub Command1_Click( )Dim x As String, k As Stri

9、ng, j As Integerx = "XiaoWei" k = "语文" j = 90 Text1.Text = x + k +j End Sub A. B. C. D.25.某VB程序如下： Private Sub Command1_Click() Dim k As Integer,p As Integer p =1 k =1 Do While p<15 k =k*2 p =p*k Loop Text1.Text=Str(p) End Sub 运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（ ） A.8 B.15

10、C.1 6 D.6426.有如下VB程序段： Dim a(1 To 10) As Integer a(1)=1 a(2)=1 a(3)=1 For i =4 To 10 a(i)=a(i-3)+a(i-1) Next i 该程序段运行后，数组元素a(5)的值为（ ） A.1 B.2 C.3 D.427. 下图是判断两个不相等的数中较大数的部分流程图，则图中虚线部分的内容是（ ）输入变量a,b的值输出较大数a输出较大数bMaxßaYNMax>bMax>bMax>bMax>b A. B. C. D.28. 有如下的VB程序段： s =0 i =0 Do While

11、 i<=11 i=i+3 s=s+i Loop 程序执行结束时，变量s的值为（ ） A.30 B.18 C.13 D.929.执行如下VB语句后，循环变量i的值为（ ）s=10For i=1 to 5 s =s+2Next i A.-1 B.4 C.6 D.830.在窗体中画两个名称分别为Text1、Text2的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过： Private Sub Command1_Click( ) Dim x As Integer, n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Te

12、xt1.Text=Str(x) Text2.Text=Str(n) End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是（ ）A.20和2 B.25和4 C.27和3 D.30和5二，填空题（共30分，将正确答案填入指定的位置，填错或者不填均不得分）。 第1题（每空1分，共5分）小明用VB创建了一个“留言板程序”，用户登陆成功后可以显示人物的头像，点击“添加留言”后，可以将留言添加到列表框中。类：A.标签类 B.窗体类C.文本框类D.命令按钮类 E.列表框类 F.图像类属性：G.Caption H.Text I.Stretch J.Picture K. Font L. Visi

13、ble(1)对象Image1所属的类是_，如果使头像在未登陆成功时隐藏，可以将其属性_的值设置为_。(2)对象Label1所属的类是_，要修改“用户”两个字设置为粗体，需要修改的属性为_。第2题（每空3分，共6分）请根据下面的任务描述将流程图中空缺的部分填写完整：任务描述 流程图在该VB程序界面中输入一个实数x，如果x>=0，则y=x2-1，否则y=2x-1。最后，输出y的值。则该流程图中，空白处理框和处分别应该填入的VB语句是_；_。Private Sub Command1_Click()Dim x,y As Singlex =Val(Text1.Text)If_Then If x&g

14、t;=7 Then y=Sqr(x) Else y=x2Else If x<-10 Then y=Abs(x) Else_ End IfText2.Text=Str(y)End Sub第3题（每空3分，共6分）根据下列表达式完成填空。第4题（第4题的每空3分，空2分，共8分）将正确的代码填入画线处。下列VB程序（如右图）的功能是：将二进制转换成十进制，在文本框Text1中输入二进制数x，单击“转换”按钮，在文本框Text2中显示十进制数。按照上述要求，小刚同学编写了下面的程序，但加方框处的代码编写有错误，请帮他改正后填写在相应的画线处。Private Sub Command1_Click

15、( ) Dim i As Integer , n As Integer ,s As Long Dim x As String x =Text1.Text x=Len(n) For i=1 To n s =s+Val(Mid(x,i,1)*2i Text2.Text=Str(s) End Sub正确的代码是_;_.本程序用的算法是_（A.冒泡算法B.枚举算法C.排序算法D.解析算法） 第5题（第空1分，空2分，共5分）补充如下VB程序段，使其实现”求1100内能被3整除的自然数个数”的功能。 Private Sub Command1_Click()Dim i As Integer, n As I

16、ntegern=0 For i=1 To If Then Next i Text1.Text=”100内能被3整除的数有”+Str(n)+个”End Sub三，程序设计分析题(每空2分，共10分，不填或填写错误均不得分)。 根据算法流程图，将代码补充完整，使程序实现如下功能：在Text1中输入任意字符串，点击“统计”按钮后，list1中按倒序方式逐个显示Text1中输入的字符，Label1中显示字符的个数。流程图和程序界面如下图所示：'分别定义字符串变量s和a'分别定义整数型变量i和k'文本框text1中输入的字符串存放在变量s中'计算字符串s的长度，并将结果存放在变量k中'给循环变量i赋初值'如果存在第i个字符P