《2022年高中信息技术VB练习 .pdf》由会员分享，可在线阅读，更多相关《2022年高中信息技术VB练习 .pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、信息技术期末复习（二）班级 _学号 _姓名 _、选择题1、用计算机解决问题时，首先应该确定“做什么”，然后再确定“如何做”，“如何做”是属于用计算机解决问题的步骤中的()A.分析问题 B.设计算法 C.编写程序D.调试程序2、不能用算法描述“输出所有的偶数”，是因为不符合算法特征中的()A.有穷性 B.有输出 C.确定性 D.唯一性3、能通俗易懂地描述算法，但容易出现“歧义性”的表示方法的是()A.流程图B.自然语言C.伪代码 D.VB语言4、下面是用于实现S=1+3+5+7+,+99 的算法的流程图，则横线处应填写()A.I I+1 B.II+2 C.K K+1D.K K+2 5、在 Vis
2、ual Basic中，某对象的属性窗口如下图所示：该对象名是（）（A）Manual（B）Image1（C）Image_1（D）Image 6、len(“vb 程序设计”)=()A、5 B、2 C、6D、10 7、表达式 15 Mod 4+13 5*2 的值是（）A、7B、0C、2D、4 8、下面正确的赋值语句是（）开始K8-3 OR 10+2=10 Then Value=5*x Else Value=4*x End If A、100 B、80 C、90 D、70 11、代数表达式dcba改成 VB表达式是()A、a/b+c/d B、a/(b+c)/d C、(a/b+c)/d D、a/(b+c/
3、d)12、在 VB程序中，以下程序段执行后，x 的值为 ()x=1 y=4 Do While y4 x=x*y y=y+1 Loop Print x A、1 B、4 C、8 D、20 13、执行下列程序后，变量a 的值为()Dim i as integer Dim a as integer a=0 For i=1 to 10 a=a+i Next i A、1 B、10 C、55 D、50 14、小明在VB编程中想用sum来表示安吉县总人口，现在的sum定义正确的是（）A、Dim sum as Long B、Dim sum as Integer C、Const sum as Long D、Con
4、st sum as Integer 15、下面程序执行的结果是()名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 8 页 -Private Sub Form_Click()A=123:B=456 C=Val(A)+Val(B)val 是把字符转化为数值的函数Print C 100 End Sub A.123 B.3 C.5 D.579 16、有如下VB程序段;S=1 For i=To 11 S=S*(i+1)Next i 该程序运行后，要使循环体S=S*(i+1)被执行 10 次，则循环变量i 的初值应当为（）A、1 B、2 C、6 D、10 17、下列变量定义正确的是（）A、D
5、im True as Boolean B、Dim xyz as integer C、Dim 2n as long D、Dim s-y as single 18、有如下VB程序段：二、程序填空(每空 2 分，共 20 分)19、编写计算1011.7151311的程序，请填空补充完善程序。Private Sub Command1_click()Dim a As Double,b As Double,i As Integer a=0 For i=1 To 101 （1）名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 8 页 -b=（2）a=a+b（3）Print 运算结果=;a End
6、 Sub 20、某地出租车计价方式如下：3 公里内（包括3 公里）起步价10 元；超过3 公里，但10 公里内，则3 公里内收费10 元，超出部分每公里2 元；如果超过10 公里，则10 公里内收费24 元，超出部分每公里3 元。其程序实现如下：Private Sub Command1_Click()x=Val(Text1.Text)If x=3 Then y=10 ElseIf (1)Then y=10+(x-3)*2 Else y=(2)_(3)_ Label1.Caption=Str(y)End Sub 请把上面程序补充完整。21、有如下Visual Basic程序段：s=0 i=1:a
7、=5 Do While i=100 s=s+a*i i=i*5 Loop 问：该程序段运行后，（1）变量 i 的值是 _ （2）变量 s 的值是 _ 4、有如下 Visual Basic程序段：s=0:a=5 For i=1 To 10 Step 2 a=a+i s=a*i Next i 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 8 页 -问：该程序段运行后，（1）变量 i 的值是 _ （2）变量 s 的值是 _ 22 题名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 8 页 -23.运行下列VB程序，在文本框Text1 中输入 15，,界面如第 23 题图所
8、示。单击“开始”按钮Command1 后，标签Label1 中显示的内容是，文本框Text2 中显示的内容是。Private Sub Command1_Click()Const x=转换成八进制数为 Dim y As Integer 用于存储输入的十进制自然数Dim s As String 用于存储转换后的结果Dim r As Integer y=Val(Text1.Text)s=第 23 题图名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 8 页 -Do While y 0 采用除八取余法 r=y Mod 8 s=Str(r)+s y=y 8 Loop Label1.Capti
9、on=Text1.Text+x Text2.Text=s End Sub 24.为了安排寝室，将学生按性别分类，小陈设计了一个VB程序，运行该程序，单机“数据导入”按钮Command1 后，左边列表框List1中显示 40 位学生的编号和性别；然后单机“数据处理”按钮Command2，中间列表框List2中显示所有女生的信息，右边列表框List3中显示所有男生的信息，并在相应的列表框下方显示人数。运行结果如第23 题图所示。实现上述功能的VB程序如下，加框处代码有错，请改正。Dim a(1 To 40)As String 数组 a 用于存储学生编号Dim b(1 To 40)As String
10、 数组 b 用于存储学生性别Private Sub Form_Load()将学生的编号和性别分别存放在数组a 和数组 b中 代码略第 24 题图名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 8 页 -,End Sub Private Sub Command1_Click()Dim i As Integer List1.Clear List2.Clear List3.Clear 在列表框List1中显示 40 位学生的编号和性别For i=1 To 40.AddItem a(i)+b(i)(1)Next i End Sub Private Sub Command2_Click()
11、Dim n As Integer 用于存储女生人数Dim m As Integer 用于存储男生人数Dim i As Integer List2.Clear List3.Clear n=0:m=0 For i=1 To 40 If a(i)=女 Then (2)List2.AddItem a(i)在列表框List2中显示女生信息 n=n+1 Else List3.AddItem a(i)在列表框List3中显示男生信息 n=n+1(3)End If Next i Label1.Caption=女生人数：+Str(n)Label2.Caption=男生人数：+Str(m)End Sub Text名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 8 页 -