2019浙江选考信息技术Vb基础专题(共20页).docx

精选优质文档-倾情为你奉上Vb基础专题一、 知识要点Visual Basic基本概念1、工程与窗体一个应用程序的总称。工程文件名的后缀是vbp。应用程序最终面向用户的窗口。窗体文件名的后缀是frm。窗体是VB设计时的名称，当它在Windows下运行后就称为窗口。2、对象及对象的三要素 （1）常见的控件 （2）常用控件简介序号控件名控件简介1Label(静态标签)显示用户不能直接改变的文本，一般与其他控件配合使用，或者作为提示内容出现。2TextBox(文本框)供用户输入数据，主要应用其“Text”属性，例如：Text1.Text”欢迎使用”。3Commandbutton(按钮控件)用户可以直接更改按钮显示文本，主要事件为Click(鼠标单击)。4Image(图像框)用户可以在属性窗口中自定义大小与默认加载图像位置。也可以在程序运行阶段使用函数LoadPicture()来实现。Stretch属性值为True时，图像会自动调整大小以适应图像控件的尺寸。5ListBox(列表框)用户可以从列表框中的一系列的选项中选择一个或多个选项。如果选项的数量超过可显示的区域，列表框会自动增加滚动条。列表框可以是单列或多列的。主要事件为：DblClick(鼠标双击)。6Timer(计时器)作用是定时产生一个时钟(Timer)事件，利用这个事件可以定期地做一些程序处理。用户可以自行设置每个计时器的时间间隔(Interal)。一般设置计时器控件的Enabled属性为True或False来打开或关闭Timer事件的产生。（3）对象的属性对象的属性是标识一个对象的所有特征，它实际上就是对象所属类的成员变量。 常用的公共属性 序号属性名1Name(名称)用于设置控件的名称，这个名称是用来标识该控件。2Font(字体)用于设置控件中文字的所用的字体样式，字号和特殊显示方式等。3Text(文本)用于设置可接受输入的控件中输入或显示的字符串。4Caption(标题)用于设置控件的显示标题。 5BackColor(背景色)背景颜色。6Width(宽度)用于设置控件的宽度。7Height(高度)用于设置控件的高度。8interval(左边距)用于设置计时器的时间间隔，单位为毫秒9enabled(顶边距)用于设置是否可用10Visible(可视)设置控件是否可见，如果设置为False则控件会消失。属性的调用：对象名.属性名属性值（4）对象的方法对象的方法是指对象可以进行的操作，也就是对象的动作常见方法：print、clear、additem（5）对象响应的事件(事件驱动)事件是在某种特定状态下由系统触发的方法。事件驱动是指用VB开发的应用程序的运行，是通过事件来驱动的。事件过程的一般格式如下：PrivateSub 对象名称事件名称（）事件响应程序代码，我们写的EndSub3、VB常量、变量、数组及定义 常用函数（1） 常用的数据类型数据是信息的一种记录形式。在VB中，数据可以按照本身的特性分为若干种不同的类型，常见类型见下表：（2）常量 数据总是以常量或变量的形式出现在程序中。常量是在程序运行过程中值不变的存储单元或数据。在VB中，常量有整数常量、实数常量、字符串常量和逻辑常量等类型。 常量的定义方法：Const 常量名数值 假如：“Const pi 3.14”，就是定义了一个常量pi，在这个程序中出现的所有pi都会被VB自动转换成3.14。（3）变量 变量是用来表示数据的存储区，也就是存放数据的容器。VB变量定义的方法：Dim 变量名 As 数据类型例如：Dim a As Integer，即将a 定义为整数型变量。如果定义两个或 两个以上的同类型变量，可以用语句：Dim a, b As Integer，就是定义了a，b两个整数型变量。 变量定义时，变量的取名有一定的限制，变量的名称跟对象名取名规则相同，都是由字母、数字和下划线组成，必须是字母开头，VB系统中已使用的字符不能作为变量名，比如：Dim String As Integer，该语句错误，因为String是数据类型名，不能再作为变量名了（4）数组变量 数据是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，也称为下标变量，下标是一个整数，用来指出某个元素在数组中的位置。 一维数组变量定义的常用形式为：Dim 数组变量名(a1 To a2) As 元素的类型 二维数组变量定义的常用形式为：Dim 数组变量名(a1 To a2， b1 To b2) As 元素的类型一般情况下，数组变量都采用循环语句进行赋初值。 注意：注释是以英文单引号(')开头的一串文字，可以出现在程序中需要说明的位置上，通过这一串文字，对附近的程序段进行简要的说明，增加程序的可读性。注释对程序的执行效果没有任何影响，程序运行时自动跳过注释。（5）常用的标准函数6、VB表达式及基本运算 一个表达式中可能包括算术运算、关系运算和逻辑运算等多种基本运算，以及运算所涉及的数据(变量和常量)、常用标准函数等。各种基本运算的符号及优先级别见下表：注意：关系运算和逻辑运算的结果只有True或False，其中逻辑运算中“非”运算就是取反，比如Not True的结果就是False。“与”运算只有运算符的两边都是True，结果才是True。就是说表达式a And b，只有a和b都是True的情况下结果才是True，否则结果为False。“或”运算只要运算符的两边有一边的值是True，则结果就是True。比如表达式a Or b，只要a、b中有一个是True，则结果就是True，只有a和b都是False，结果才是False。7、顺序语句、选择语句、循环语句 （1）顺序语句 顺序结构的执行顺序是自上而下，依次执行。大多数情况下顺序结构都是作为程序的一部分，与其他结构一起构成一个复杂的程序。 赋值语句 赋值语句的作用是把赋值号(等号)右边表达式的计算结果存储到赋值号左边的变量或某个特定的对象属性中，其格式如下： 变量名表达式 或 对象名.属性名表达式例如有语句：A12*3，执行完该语句就将等号右边表达式结果赋值给变量A。注意：VB程序中，可以在一行上写一个语句，也可以在一行上写多个语句，一行上相邻两个语句之间用冒号(：)分隔。 （2）选择语句a、行If语句行If语句必须在一行内写完。行If语句格式如下： If 条件表达式 Then 语句1 Else 语句2 或 If 条件表达式 Then 语句b、块If语句If 条件表达式1 Then语句块1Else语句块0End If多条件：If 条件表达式1 Then语句块1ElseIf 条件表达式2 Then语句块2ElseIf 条件表达式n Then语句块nElse语句块0End If （3）循环语句a、For循环语句 通过次数控制循环的计算过程。For语句主要用于循环次数已知的情况，因次，也被称为计数循环。For语句的一般格式如下：For 循环变量初值 To 终值 Step 步长循环体语句块Next 循环变量 For语句中步长可以是正数，也可以是负数，但不可为0。默认的步长为1，即“Step 1”。Next后面的循环变量与For语句中的循环变量必须一致，执行该语句时循环变量的值增加一个步长值。注意：一般不要在循环体内修改循环变量的值，否则会造成循环次数的不准确，而且程序调试也非常困难。如果在循环体内强行退出循环，可用“Exit For”语句。b、Do循环语句通过条件控制循环的计算过程。一般情况下，For语句都可以用Do语句来代替，而且在某些情况下，如果事先不知道循环应该执行的次数，但知道在什么条件下需要循环，则不能用For语句而必须用Do语句。因此，Do语句的适用面比For语句要广。Do语句的常用格式如下：Do While 条件表达式循环体语句块Loop注意：如果想在Do循环语句中强行退出循环，可用“Exit Do”语句。8、解析算法 解析算法是指用解析的方法找出问题的前提条件与所求结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。例如：计算以速度作匀速直线运动的一个物体，在t秒内经过的距离s，可通过公式svt得到。9、枚举算法 枚举算法也称穷举算法，就是按照问题本身的性质，一一列举该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否问题真正的解。若是，就采纳这个解，否则就抛弃它。在列举的过程中，既不能遗漏，也不能重复。比如，要求一个二元一次不定方程的所有正整数解，就可以采用枚举算法。 专心-专注-专业1、（2015年10月）.编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第14题-1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。 第1题-1图第1题-2图（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（第14题-2图) 中将 属性的属性值 修改为“转换”。（2）为实现上述功能，请在划线处填入合适代码或选项。Private Sub Command1_Click()Dim t1 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As SingleList1.Cleart1 = Val(Text1.Text)t2 = Val(Text2.Text)If Then '(选填字母,从下列A、B、C、D四个选项中选取一项） t = t1: t1 = t2: t2 = tEnd Ifi = t1Do While '(选填字母,从下列A、B、C、D四个选项中选取一项）f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度List1.AddItem Str(i) + " " + Str(f) '（填程序代码）LoopEnd Sub划线、处的选项:A.i <= t2B.f <= t2C.t1 > t2D. i < f2、（2016年4月）编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。（1）代码“Private Sub Command1_Click()”中的Click是 。（单选，填字母：A.对象名/B.属性名/C.事件名）（2）为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()Dim a As Integer, b As IntegerDim i As Integer, n As IntegerDim c1 As String, s1 As StringDim c2 As String, s2 As StringDim c3 As String, s3 As StringList1.Clears1 = "甲乙丙丁戊己庚辛壬癸"s2 = "子丑寅卯辰巳午未申酉戌亥"s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"n = Val(Text1.Text)For i = n To a = (i + 6) Mod 10 b = (i + 8) Mod 12 c1 = Mid(s1, a + 1, 1) c2 = Mid(s2, b + 1, 1) c3 = Mid(s3, b + 1, 1) List1.AddItem + "年" + c1 + c2 + " " + c3Next iEnd Sub（3）由上述算法可知，2024年对应的“天干地支”为 。3、（2016年10月）编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。图a 图b（1）在设计程序界面时，应使用图b所示“控制工具箱”中的 （填写相应编码）添加“生成”按钮。（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, b As IntegerRandomizen = Val(Text1.Text)i = Do While i <= na = Int(Rnd * 100)b = Int(Rnd * 100)If ThenList1.AddItem "(" + Str(i) + " )" + Str(a) + "+" + Str(b) + "="i = i + 1End IfLoopEnd Sub4、（2017年4月）奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click() Dim a As Integer, s As String Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = "" Do While n > 0 a = n Mod 2 n = n 2 t = s = Str(a) + s Loop v = t Mod 2 Text2.Text = s Label3.Caption = "校验位值：" + End Sub5、（2017年11月）编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1,程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。(1)要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程屮添加语句 (单选，填字母:A.Form1 = "字符串生成" / B.Forml.Text="字符串生成"/ C. Form1.Caption="字符串生成"）。（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String, t As String, c As StringDim i As Integer, p As Integers = "": t = ""For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c = "," Then p = Val(t) s = s + Mid(Text2.Text, p, 1) t = "" Else t = End IfNext iLabel1.Caption = End Sub（3）若文本框Text1中输人内容的结束符缺失（即输人内容为1,18,9,9)，单击“生成”按钮后，标签Label1中显示的内容是 。6、（2018年4月）某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。 程序运行界面如右图所示。（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句 （单选，填字母：A. Width=2018 / B.Textl. Width = 2018 / C. Width. Textl=2018）。（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String, c As String, d As StringDim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integers = Textl.Text: n = Len(s): i = 1Do While i <= n c = Mid(s, i, 2) If c = "00" Then d = "东" ElseIf c = "01" Then d = "南" ElseIf c = "10" Then d = "西" Else d = "北" End If b1 = Val(Mid(s, i + 2, 1) b2 = Val(Mid(s, i + 3, 1) v= List1.AddItem d + " " + Str(v) LoopEnd Sub1、运行下列VB程序，在文本框Text1中输入15，,界面如图所示。单击“开始”按钮Command1后，标签Label1中显示的内容是 ，文本框Text2中显示的内容是 。Private Sub Command1_Click()Const x = "转换成八进制数为"Dim y As Integer '用于存储输入的十进制自然数Dim s As String '用于存储转换后的结果Dim r As Integery = Val(Text1.Text)s = ""Do While y <> 0 '采用除八取余法 r = y Mod 8 s = Str(r) + s y = y 8LoopLabel1.Caption = Text1.Text + xText2.Text = sEnd Sub2、某地出租车计价方式如下：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 = 10ElseIf (1) Then y=10+(x-3)*2Elsey = (2) _(3)_ Label1.Caption = Str(y)End Sub 请把上面程序补充完整。3、体质指数（BMI）是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个参考标准，其计算公式是：体质指数（BMI）= 体重 ÷ 身高2体质指数18.518.5-2626结果偏瘦正常肥胖现要求编写VB程序(运行界面如图所示），实现如下功能：在文本框Text1中输入体重（kg），文本框Text2中输入身高（m），单击“判定”按钮Command1，在标签Label1中输出判断结果。相应的Visual Basic程序如下，请在画线处填入适当的语句或表达式，把程序补充完整：Private Sub Command1_Click()Dim w As Single,h As Single,b As Singlew=Val(Text1.Text)h= _ b= _ If b<18.5 Then Label1.Caption=“偏瘦”If _ Then Label1.Caption=“正常”If b>=26 Then Label1.Caption=“肥胖”End Sub4、有如下 VB 程序: Private Sub Command1_Click()Dim s1 As String, s2 As String, i As Integer,ch As String s1 = Text1.TextFor i = 1 To Len(s1)ch = Mid(s1, i, 1)If Asc(ch) >=65 And Asc(ch)<90 Then ch = Chr(Asc(ch) + 3)End Ifs2 =ch+s2 Next i Label1.Caption = s2End Sub已知大写字母 A 的 ASCII 码为 65。运行上述程序，若文本框 Text1 中的内容为 “A1b2C3”，单击命令按钮 Command1，标签 Label1 中显示的是（ ）AA1b2C3B3C2b1ACD1b2F3D3F2b1D第5题图5、有一个函数f，这个函数的参数是两个字符串s1、s2，这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s，字符串s的第i个字符为字符串s1、s2的第i个字符中小的那个，比如：f("ab", "ba") = "aa"， f("nzwzl", "zizez") = "niwel"。编写VB程序，模拟上述函数的功能：在文本框Text1中输入字符串参数x，在文本框Text2中输入字符串参数y，单击“计算”按钮Command1，在文本框Text3中输出函数f(x,y)的值。运行界面如第5题图所示。（1）在设计程序界面时，要使窗体的标题显示为：有趣的函数，则应修改窗体的 属性。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click() Dim f As String, x As String, y As String x = Text1.Text y = Text2.Text f = "" If Len(x) <> Len(y) Then Text1.Text = "请输入符合要求的字符串！" Text2.Text = "请输入符合要求的字符串！" Else For i = 1 To Len(x) If Then f = f + Mid(y, i, 1) Else f = f + Mid(x, i, 1) End If Next i Text3.Text = fEnd Sub（3）运行该程序，在文本框Text1中输入flash，在文本框Text2中输入excel，单击“计算”按钮Command1，则文本框Text3中显示 。6、第一代二十世纪出生的由15位阿拉伯数字组成：1-2位省、自治区、直辖市代码；3-4位地级市、盟、自治州代码；5-6位县、县级市、区代码；7-12位出生年月日, 例如代表1967年4月1日；其中第15位单数为男，双数为女。 现编写VB程序，实现如下功能：在文本框Text1中输入15位身份证号码，单击“判断”按钮Command1，在列表框Text2和Text3中分别输出该身份证号码对应的出生日期、性别，运行界面如图所示第6题（1）在设计程序界面时，要使按钮Command1显示“判断”，应修改按钮的_ 属性。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click() Dim sf As String, c As Integer, sex As String Dim t1 As Integer, t2 As Integer, t3 As Integer, t4 As Integer sf = Text1.Text c = Len(sf) If c = 15 Then t1 = Val(Mid(sf, c, 1) t2 = t3 = Val(Mid(sf, 9, 2) t4 = Val(Mid(sf, 11, 2) If Then sex = "男" Else sex = "女" End If End If Text2.Text = Str(t2) + "年" + Str(t3) + "月" + Str(t4) + "日" Text3.Text = Val(sex) End Sub（3）运行该程序，出现错误提示“类型不匹配”，则处应修改为 。7、“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于四位数本身。如自然数1634就是一个“四叶玫瑰数”，因为14+64+34+44=1634。编写一个程序，实现如下功能：单击“找寻”按钮Command1后，在列表框List1中显示找到的所有“四叶玫瑰数”，并在标签Label3中显示玫瑰数的个数。（1）在设计程序界面时，应使用图b中的_（填写相应编号）添加按钮。图a 图b（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()Dim I As Integer, count As IntegerDim a As Integer, b As Integer, c As Integer, d As Integercount = 0for i= 1000 to 9999a= i 1000b=_c= Int(i - a * 1000 - b * 100) / 10)d= i - a * 1000 - b * 100 - c * 10If_ThenList1.AddItem Str(i)count = count + 1End IfNext iLabel3.Caption="共有四叶玫瑰数："+_End Sub8、编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击命令按钮Command1，在文本框Text2中显示对应的二进制编码，运行界面如下图所示，程序代码如下。（1）为实现上述功能，请在划线处填入合适代码。Private Sub Command1_Click() Dim x As Integer, s As Integer Dim y As String x = If x = 0 Then Text2.Text = Else Do While x > 0 s = x Mod 2 x = Int(x / 2) y = Loop Text2.Text = y End IfEnd Sub（2）“Command1_Click()”中的“Click”是 （选填：对象名/属性名/事件名）。9、编写VB程序，实现如下功能：在文本框Text1中输入一个不大于10000的正整数n，单击“分解”按钮Cmd1，在标签Label2中显示n的质因数分解结果。运行界面如图a所示，程序代码如下。图a（1）代码“Private Sub Cmd1_Click()”的事件过程名是_。（2）为实现上述功能，请在划线处填入合适的代码。Private Sub Cmd1_Click()Dim n As Long, m As LongDim st1 As Stringn = Val(Text1.Text) st1 = "" m = 2Do While n > 1If n Mod m = 0 Then n = If st1 = "" Then st1 = Str(m) Else st1 = st1 + "×" + Str(m) End If Else End If Loop Label2.Caption = st1End Sub（3）若将程序中虚线框处代码改为“st1 = Str(m) + "×" + st1”，在文本框Text1中输入“70”，单击“分解”按钮，则在标签Label2中显示的内容为_。10、编写VB程序,实现如下功能：在文本框Text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如下图所示。（1）观察运行界面，选项中没有用到的控件是 ( 选项A B C D)。（2）设计该窗体界面时，需要将窗体form1的 属性设置为“最大随机数”。 （3）请完善下列程序代码：Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim s As IntegerDim max As Integern = Val(Text1.Text) i = 1Do While i <= n a(i) = Int(Rnd * 100) List1.AddItem Str(a(i) s = s + a(i) _ Loopmax = a(1)For i = 2 To n If a(i) > max Then _Next iList1.AddItem "和为：" + _List1.AddItem "最大值为：" + Str(max)巩固练习1. 15转换成八进制数为 172. x<=1024+（x-10）*3 End If3. Val(Text2.Text) w/h2 b>=18.5 and b<26 4.D5.（1）Caption （2）Mid(x,i,1)> Mid(y,i,1) End If（3）elaeh6.（1）Caption （2）Val(“19”+Mid(sf, 7, 2) t1 mod 2=1（3）Text3.Text = Str(sex)7.（1） （2） i 100 mod 10 i=a4+b4+c4+d4 Str(count）8.（1） Val（Text1.Text） 0 s+y（2）事件名9.（1）Cmd1_Click（2） nm m=m+1（3）7x5x210、（1）C（2）Caption（3） i=i+1 max=a(i) Str(s)