高中信息技术-VB程序的创建-浏览题阅览题-会考复习题上课讲义

高中信息技术VB程序的创建会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。

A、a<=1 或a>=5B、a<=1,a>=5C、a<=1 or a>=5D、a<=1 and a>=5【答案】C【解析】2．在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（）A、属性值B、属性名C、对象名D、方法【答案】D【解析】3．以下属于操作系统的是（）Windows B．JAVA C．C++ D．Visual Basic【答案】A【解析】4．VB中窗体文件的扩展名为( )A．.vbp B．.frm C．.bas D．.ds【答案】B【解析】5．在VB中，下列正确的变量名是（）A、forB、aa_1C、2aD、a*b【答案】B【解析】6．如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到的这个数据的语句，可以采用（）。

A、将这个数据声明为字符串型常量，用一个常量标识符代表它B、将这个数据声明为字符串型变量，用一个变量标识符代表它C、将这个数据声明为单精度型常量，用一个常量标识符代表它D、将这个数据声明为单精度型变量，用一个变量标识符代表它【答案】C【解析】7．在Visual Basic代码中，将多个语句合并在一行上的并行符是( )A．撇号（'）B．冒号（:）C．感叹号（!）D．问号（?）【答案】B【解析】8．下列表达式值最大的是（）A．10 Mod 5 B．5 Mod 10 C．10 / 5 D．5 / 10【答案】B【解析】9．ual Basic中窗体文件的扩展名为（）A．exe B．frm C．vbp D．vbw【答案】B【解析】10．在Visual Basic中，下列能产生一个[1，100]之间随机正整数的表达式是（）A．Rnd*100 B．1+Rnd*99C．Int(Rnd*100) D．1+Int(Rnd*100)【答案】D【解析】11．VB中窗体文件的扩展名是( )A．VBP B．FRM C．VBW D．PDM【答案】B【解析】12．下列多媒体创作工具中，属于以程序设计语言为基础的是（）A．Authorware IconAuthor B．Director FlashC．PowerPoint Action D．Visual C++ Visual Basic【答案】D【解析】13．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )A．在Text属性值中输入“确定”B．在Caption属性值中输入“确定”C．在Font属性值中输入“确定”D．在Name属性值中输入“确定”【答案】B【解析】14．在Visual Basic中，语句command1.caption="高一"中的caption是( )A．属性名B．属性值C．对象名D．窗体名【答案】A【解析】15．在Visual Basic中，执行语句x=Asc(Chr(Abs(-70)))，则变量x的数据类型是（）A．实数型B．字符型C．整数型D．逻辑型【答案】C【解析】16．在日常生活中，我们常常会碰到各种各样的问题，以下描述中最适合我们用计算机编程方法来处理的是（）。

A．去新华书店买书B．计算某个同学期中考试各科成绩总分C．计算10000以内的奇数平方和D．在因特网上查找自己喜欢的歌曲【答案】C【解析】17．关于计算机的指令、程序和软件，以下表述错误的是( )A．为解决某问题组织起来的有序的指令集合称为程序B．计算机软件包括程序和与该程序相关的文档资料C．给计算机发出一条指令就是运行一个程序D．计算机指令由操作码和操作数两部分组成【答案】C【解析】18．Visual Basic 6.0中编程时，当双击窗体上的某个控件时，所打开的窗口是( ) A．工程资源管理器窗口B．代码窗口C．工具箱窗口D．属性窗口【答案】B【解析】19．以下哪个是函数_____。

A．END B．SQR C．AND D．MOD【答案】B【解析】20．赋值语句y = x的功能是________。

A. x的值赋给y，x的值变为0B. y的值赋给x，y的值变为0C. y的值赋给x，y保留原来的值D. x的值赋给y，x保留原来的值【答案】D【解析】21．在Visual Basic中，下列能作为变量名的是（）A 5aB a5C ifD dim【答案】B【解析】22．在VB中，要定义一个存储整型数值的变量，其适合的数据类型是（）。

A．Boolean B．String C．Date D．Integer【答案】D【解析】23．在VB集成环境下编制了含一个窗体的VB应用程序并保存在磁盘上，运行测试后编译成可执行程序，整个过程中肯定会产生的文件类型是（）A．．vbp、．frm、．exeB．．vbp、．exe、．txtC．．txt、．exe、．frmD．．frm、．txt、．vbp【答案】A【解析】24．若a=2,b=8,c=1，表达式a mod 10\3>=b+c or b>a and not a<c的计算结果是（）4 B．3 C．false D．true【答案】D【解析】25．在Visual Basic中，下列属于正确变量名的是( )A．a1 B．3y C．x-y D．then【答案】A【解析】26．VB中工程文件的扩展名为( )A．.vbp B．.frm C．.bas D．.ds【答案】A【解析】27．在Visual Basic中，下列属于字符串的是（）。

A．Val("100") B．"int(100)" C．sqr(100) D．1/2^3【答案】B【解析】28．在VB中，下列选项属于字符串型数据的是A．2356 B．"BX277" C．BX277 D．2014-5-28【答案】B【解析】二、填空题29．（1）所谓算法是。

（2）VB界面设计一般包括、、。

（3）描述算法的方法有3种，分别是 、 、 。

（4）VB 是一种 程序设计语言。

（5）abs （－3.8）＝ sqr （49）＝ int （－7.8）＝（6）int （10*Rnd ）表示【答案】（1）解决问题的方法和步骤；（2）设计程序界面 编写程序代码 调试、运行程序 （3）自然语言主 伪代码 流程图 （4）可视化（面向对象或高级语言都算对）（5）3.8；7；－8；（6）0－9这十个整数【解析】30．将数学表达式22xx -写成VB 表达式，正确的是____________。

【答案】(2-sqr(x))/x^2【解析】31．Visual Basic 表达式x^2+k/(1+a*x-b))对应的数学式子为__ ____。

【答案】bax k x -++12 【解析】32．声明一个长度为10个字符的字符串变量mstr ，应使用_____________语句。

【答案】Dim mstr as string=10【解析】33．某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。

假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data 表中，选课查询程序运行时界面如图所示。

程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。

如果没有找到，在列表框中显示“该课程当前无人报名”。

按此要求将程序补充完整。

Private Sub command1_click()Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组Dim i,num as integerDim conn As New ADODB．Connection, rs As New ADODB．RecordsetDim strSQL As Stringconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB．12.0;Data Source=" + App.Path + "\student.accdb" '打开到数据库的链接conn.OpenstrSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中List1.Clearnum=0Do while not rs.EOF①xh(num)=rs.Fields("xh")xm(num)=rs.Fields("xm")rs.MoveNextlooprs.Closeconn.closeset rs=nothingset conn=nothingFor i=1 to num②Next iif num=0 then list1.additem("该课程当前无人报名")End Sub（1）程序中①划线处应填入___________________。

（2）程序中②划线处应填入___________________。

【答案】（1）num=num+1 （2）List1.additem xh(i)+ ""+ xm(i)【解析】本题主要考核考生应用VB访问数据库的相关知识，考核学生是否理解通过ADO 对象连接数据库，通过Recordset对象获取表中的数据。

34．【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB 程序。

功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。

点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。

程序界面如图所示：实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。

'定义全局数组变量Dim a(1 To 10) As LongDim b(1 To 10) As String'自动加载条形码信息以及对应的商品信息Private Sub Form_Load()Dim i As Integera(1) = 503741For i = 2 To 10a(i) = a(i - 1) + 1Next ib(1) = "可乐5.00"b(2) = "薯片7.50"b(3) = "牛奶5.60"b(4) = "橙汁7.50"b(5) = "面包4.00"b(6) = "蜂蜜28.00"b(7) = "蛋糕12.00"b(8) = "绿箭3.50"b(9) = "饼干6.00"b(10) = "雪碧5.00"End Sub'输入条形码，查找条形码，并显示条形码及其对应的商品信息Private Sub Text1_KeyPress(KeyAscii As Integer)Dim txm As Long:Dim i As Integer:Dim j As Integertxm = Val(Text1.Text)If KeyAscii = 13 ThenIf txm >= 503741 And txm <= 503750 ThenList1.AddItem txmText1.Text = ""i = 1: j = 10Do While i <= j①If txm = a(m) ThenList2.AddItem b(m)Exit DoElseIf txm > a(m) Theni = m + 1Else②End IfLoopElseMsgBox "条形码输入错误，无此商品"Text1.Text = ""End IfEnd IfEnd Sub'计算所购商品的总额Private Sub Command1_Click()Dim i As Integer, mx As String, jg As String, sum As SingleFor i = 0 To 9If List2.List(i) <> "" Thenmx = List2.List(i)sum = sum + Mid(mx, 4)End IfNext iText2.Text = ③End Sub【答案】（1）m = (i + j) \ 2 （2）j = m - 1 （3）Str(sum)【解析】（1）首先判断这是一个属于对分查找的程序，m是中间数，所以m=(i+j)\2。