2020年浙江选考信息技术Vb基础专题_第1页
2020年浙江选考信息技术Vb基础专题_第2页
2020年浙江选考信息技术Vb基础专题_第3页
2020年浙江选考信息技术Vb基础专题_第4页
2020年浙江选考信息技术Vb基础专题_第5页
已阅读5页,还剩16页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、2022浙江选考信息技术Vb根底专题知识点Vb根底专题一、 知识要点Visual Basic 根本概念1、工程与窗体一个应用程序的总称.工程文件名的后缀是.vbp0应用程序最终面向用户的窗口.窗体文件名的后缀是.frm.窗体是VB设计时的名称,当它在Windows下运行后就称为富且2、对象及对象的三要素图形框 文本框命令按钮 单项选择按钮 列表框 着汽浪动暴 驶动器列表框 文件列衣框 直线 数据限制1常见的控件网针不是控件标签框架检查偃 组合框 水平滚动条时钟 目录列表形状图像财象进接与联入2常用控件简介序 号控件名控件简介1Label静态标 签显示用户不能直接改变的文本,一般与其他控件配合

2、使用,或者作为提示内容出现.2TextBox文本 框供用户输入数据,主要应用其“ Text属性,例如:Text1.Text =" 欢送使用.3Commandbutton按钮控件用户可以直接更改按钮显示文本,主要事件为 Click鼠标单击.4Image图像框用户可以在属性窗口中自定义大小与默认加载图像位 置.也可以在程序运行阶段使用函数LoadPicture来实现.Stretch属性值为True时,图像会自动调整 大小以适应图像控件的尺寸.5ListBox列表 框用户可以从列表框中的一系列的选项中选择一个或多 个选项.如果选项的数量超过可显示的区域,列表框 会自动增加滚动条.列表框可以

3、是单列或多列的.主 要事件为:DblClick鼠标双击.知识点6Timer计时器作用是定时产生一个时钟Timer事件,利用这个事件 可以定期地做一些程序处理.用户可以自行设置每个 计时器的时间问隔Interal.一般设置计时器控件的 Enabled腐性为True或False来翻开或关闭Timer事 件的产生.3对象的属性对象的属性是标识一个对象的所有特征,它实际上就是对象所属类的成员变量常用的公共属性厅P属性名1Name名称用于设置控件的名称,这个名称是用来标 识该控件.2Font字体用于设置控件中文字的所用的字体样式, 字号和特殊显示方式等.3Text文本用于设置可接受输入的控件中输入或显示

4、 的字符串.4Caption标题用于设置控件的显示标题.5BackColor背景 色背景颜色.6Width宽度用于设置控件的宽度.7Height高度用于设置控件的高度.8interval 左边距用于设置计时器的时间间隔,单位为毫秒9enabled顶边距用于设置是否可用10Visible可视设置控件是含可见,如果设置为 False那么 控件会消失.属性的调用:对象名.属性名=属性值4对象的方法对象的方法是指对象可以进行的操作、也就是对象的动作常见方法: print、clear、additem5对象响应的事件事件驱动事件是在某种特定状态下由系统触发的方法.事件驱动是指用VB开发的应用程序的运行,是

5、通过事件来驱动的.事件过程的一般格式如下:PrivateSub对象名称事件名称事件响应程序代码,我们写的知识点EndSub3、VB常量、变量、数组及定义 常用函数(1)常用的数据类型数据是信息的一种记录形式.在VB中,数据可以根据本身的特 性分为假设干种不同的类型,常见类型见下表:数据类型名说明性质Integer整数型一 3276832768内的整数Long长整数型一2147483648 2147483647内的整数Single单精度实数 型绝对值在L401298E-45 7.402823E38内 的任何实数.有效数字约67位Double双精度实数 型绝对值在10E-324L79E308内的任

6、何实 数,有效数字约1415位String字符串型一段文字与符号Boolean逻辑型判断的结果:其值为True或FakeDate日期型H期和时间(2)常量数据总是以常量或变量的形式出现在程序中.常量是在程序运行过程中值_ 不变的存储单元或数据.在 VB中,常量有整数常量、实数常量、字符串常量 和逻辑常量等类型.常量的定义方法:Const常量名=数值假设:"Const pi = 3.14",就是定义了一个常量 pi,在这个程序中出 现的所有pi都会被VB自动转换成3.14.(3)变量变量是用来表示数据的存储区,也就是存放数据的容器.VB变量定义的方法:Dim变量名As数据类型

7、例如:Dima As Integer ,即将a定义为整数型变量.如果定义两个或两个以上的同类型变量,可以用语句: Dim a, b As Integer ,就是定义了 a, b 两个整数型变量.变量定义时,变量的取名有一定的限制,变量的名称跟对象名取名规那么相同,都是由空生 数字和下划线组成、必须是字母开头, VB系统中已使用的字 符不能作为变量名,比方:Dim String As Integer,该语句错误,由于String 是数据类型名,不能再作为变量名了(4)数组变量数据是由一批同类型的变量构成的一个序列、组成数组的每一个变量被称 为数组的元素,也称为下标变量,下标是一个整数.用来指出某

8、个元素在数组 中的位置.一维数组变量定义的常用形式为:Dim数组变量名(a1 To a2) As 元素的类型二维数组变量定义的常用形式为:Dim数组变量名(a1 To a2, b1 To b2)As元素的类型一般情况下,数组变量都采用循环语句进行赋初伯.注意:注释是以英文单引号(L开头的一串文字,可以出现在程序中需要说明知识点的位置上,通过这一串文字,对附近的程序段进行简要的说明,增加程序的可 读性.注释对程序的执行效果没有任何影响,程序运行时自动跳过注释.5常用的标准函数函数名函数功能应用举例函数返回值Abs(x)求绝对值Abs?(3.5)3.5Int(x)求不大于X的最大整数Int(4.1

9、)4Sqr(x)求X的算术平方根Sqr(100)10Aisc(x)字符转换为ASCII编码Asc(''AF/)65Chr(x)ASCII编码转换为字符Chr(65)AVal(x)将数字字符中转换为数值Val( " 170 )-17()Str(x)将数值转换为字符串Str(-170)“ 170Len(x)计算字符串的长度Lenrabc")3Mid(xr n, k)去字符串x中第n个字符起 长度为k的子串MidC、abcde",3,2)cdRnd()求0,1之间的一个随机数, 使用之前需用Randomize语 句初始化RandomizeA=RndO*1

10、00 + 1产生一个 100 以内的随机 数6、VB表达式及根本运算一个表达式中可能包括算术运算、关系运算和逻辑运算等多种根本运算,以及运算所涉及的数据变量和常量、常用标准函数等. 各种根本运算的符号及优先级别见下表:根本运算运算符号优先级表达式举例例如表达式的值算术运齐乘事A12A3g取负2-a口的相反值乘法*33*2.57.5实数除法/35/22.5整除4522取余数Mod55 Mod 21加法+6a+ba+b的值减法6a-ba-b的值知识点关系运算相等71=2False不相等O7102True小于<7<2True大于>71>2False小于等于< =710

11、Mod 2 <=20True大于等于> =7107>=7False注意:关系运算和逻辑运算的结果只有 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、顺序语句、

12、选择语句、循环语句(1)顺序语句顺序结构的执行顺序是自上而下,依次执行.大多数情况下顺序结构都是 作为程序的一局部,与其他结构一起构成一个复杂的程序.赋值语句赋值语句的作用是把赋值号(等号)右边表达式的计算结果存储到赋值号左 边的变量或某个特定的对象属性中,其格式如下:变量名=表达式 或 对象名.属性名=表达式例如有语句:A= 1 + 2*3,执行完该语句就将等号右边表达式结果赋值给变量Ao注意:VB程序中,可以在一行上写一个语句,也可以在一行上 写多个语句,一行上相邻两个语句之间用冒号(:)分隔.(2)选择语句a、行If 语句行If语句必须在一行内写完.行If语句格式如下:If条件表达式Th

13、en语句1日se语句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&q

14、uot; . Next后面的循环变量与 For语句中的循环变量必须一致,执行该语句时循环变量的值增加一个步长值.注意:一般不要在循环体内修改循环变量的值,否那么会造成循环次数的不准确, 而且程序调试也非常困难.如果在循环体内强行退出循环,可用“ Exit For 语句.b、Do循环语句通过条件限制循环的计算过程.一般情况下,For语句都可以用Do语句来代替, 而且在某些情况下,如果事先不知道循环应该执行的次数,但知道在什么条件 下需要循环,那么不能用 For语句而必须用 Do语句.因此,Do语句的适用面比 For语句要广.Do语句的常用格式如下:Do While条件表达式循环体语句块Loop注

15、意:如果想在Do循环语句中强行退出循环,可用“Exit Do 语句.8、解析算法解析算法是指用解析的方法找出问题的前提条件与所求结果之间关系的数学表达式,并通过表达式的计算来实现问题求解.例如:计算以速度作匀速 直线运动的一个物体,在t秒内经过的距离s,可通过公式s=vt得到.9、枚举算法枚举算法也称穷举算法,就是根据问题本身的性质,一一列举该问题所有可能的解,并在逐一列举的过程中,检验每个可能解是否问题真正的解. 假设是, 就采纳这个解,否那么就抛弃它.在列举的过程中,既不能遗漏.也不能重复.比方,要求一个二元一次不定方程的所有正整数解,就可以采用枚举算法.真题再现1、2022年10月.编写

16、VB程序,实现如下功能:在又本框Textl和Text2中 分别输入一个整数,单击命令按钮Command作列表框Listl中显示结果,运行 效果如第14题-1图所示.结果包含两列数据,第1列为两数之间的摄氏温度值间隔1度、升序,第2列为对应的华氏温度值.揭壬温度华氏温老0 12 358 B 4 2口 L *5,9-55555-5|C«rnaajLkdl Cuiiih Lii4£ u'l Lyn二1按字坦序1技分类序11咯称吏_|1 - 3DBackColor ftHBoaooaoFfeJCancelJalseCaptionCoiBmmdlC.口生 csVol i da

17、ti o:TfXLQDefa-ultJalse.属性-Cornmandl回Width返回/设置对象的宽度口第1题-1图第1题-2图1要使命令按钮Command1显示的文本改为“转换,可在其属性窗口第14题-2图中将 属性的属性值 修改为“转换.2为实现上述功能,请在划线处填入适宜代码或选项.Private Sub Command1_ClickDim t1 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As SingleList1.Cleart1 = Val(Text1.Text)t2 = Val(Text2.Text)

18、选填字母,从以下A、B、C、D四个选项中选取一If Then '(项)t = t1: t1 = t2: t2 = t End Ifi = t1DoWhile 选填字母,从以下A、B、C、D四个选项中选取一项 f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度List1.AddItem Str(i) + "" + Str(f)(填程序代码)LoopEnd Sub划线、处的选项:A.i <= t2 B.f <= t2 C.t1 > t2 D. i < f 2、2022年4月编写VB程序,实现如下功能:在文本框 Text1中输入

19、某一年 份,单击“天干地支与生肖按钮 Command1在列表框List1中输出该年份开 始的12个年份及对应的“天干地支与“生肖,运行界面如下图,程序代 码如下.真题再现口| = | E kW年份天干地由生肖子普印辰二_一二一二-二-二,二一二 耳鼻向a4角身分耳鼻耳耳 969T9S羽 301羽0304£0607 999900060000 111122 2-22222输入年份(1)代码 "Private Sub Command1_Click() 中的 Click 是.(单项选择,填字母:A.对象名/B.属性名/C.事件又)(2)为实现上述功能,请在划线处填入适宜的代码.Pr

20、ivate 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

21、a = (i + 6) Mod 10b = (i + 8) Mod 12c1 = 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、(2022年10月)编写“加法练习题生成器程序,实现如下功能:在文本框 Text1中输入题数n,单击“生成按钮Command1在列表框List1中显示n个 两数之和小于100的加法练习题.程序运行界面如图a所

22、示.真题再现总加法恚习题生成器图a成生=3 = = 1 = 2 8 4 2-2 覆鬻期1. - J J- 12 3 4s(填写相(1)在设计程序界面时,应使用图 b所示“限制工具箱中的 应编码)添加“生成按钮.(2)实现上述功能的VB程序如下,请在划线处填写适宜的代码.Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, b As Integer Randomizen = Val(Text1.Text)i =Do While i <= na = Int(Rnd * 100)b = Int(Rnd

23、 * 100)If ThenList1.AddItem "(" + Str(i) + " )" + Str(a) + "+" + Str(b) + "=" i = i + 1End IfLoop End Sub 4、(2022年4月)奇偶校验是一种校验数据传输正确性的方法.其中奇校验方 法:统计二进制数据的数位中“ 1的个数,假设个数为奇数,那么校验位值为0,否那么校验位值为1.小李编写了一个计算奇校验位值得 VB程序,功能如下:在 文本框Text1中输入1255十进制待校验数,单击“计算按钮 Command后,

24、在文本框Text2中显示该数对应的二进制值,并在标签 Label3中显示该数的校 验位值.程序运行界面如下图.(1)在设计程序界面时,要清空文本框中的显示内容,应修改该文本框中的 属性.(2)实现上述功能的VB程序如下,请在划线处填入适宜代码.Private Sub Command1_Click()Dim a As Integer, s As String奇校篡 -ax二进制值;1 1 0 0 1 0 1校蛉位值;1Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s =""Do W

25、hile n > 0a = n Mod 2n = n 2t =s = Str(a) + s真题再现Loop v = t Mod 2Text2.Text = sLabel3.Caption ="校验位值:"+End Sub5、2022年11月编字符串生成程序,实现如下功能:在文本框Text1中字符位置输入多个正整数 以“,为分割符和结束符,单击“生成"按钮 Command1程序以这些整数为位置信息,依次从文本框Text2中字典内容 提取字符并连接成字符串,最后将字符串显示在标签Label1中生成内容.程序运行界面如以下图所示.白 Forml回字符位置;1,工团

26、当为生成内容:pa能字典内答:python Is a px?grajiuniag language.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

27、As StringDim i As Integer, p As Integers = "": t =""For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = "," Thenp = Val(t)s = s + Mid(Text2.Text, p, 1) t =""Elset =End IfNext iLabel1.Caption =End Sub(3)假设文本框Text1中输人内容的结束符缺失(即输人内容为1,18,9,9),单击“生成按钮后,标签

28、Label1中显示的内容是 .真题再现6、2022年4月某种编码以4位二进制码为一组,每组前两位表示方向,后 两位表示距离.编写一个程序,将编码译成方向和距离,距离值为每组编码后 两位二进制码转换为十进制数的值.具体功能如下:在 文本框Textl中输入连 续多组编码,单击“译按钮 Command,l结果显示在列表框Listl中.程序运行界面如右图所示.*编吸译 一 x00000101方向距离(1)要使程序运行时,文本框 Textl的Width属性值为2022,可在Form_Load 事件过程中添加语句 (单项选择,填字母:A. Width=2022 / B.Textl. Width =2022

29、 / C. Width. Textl=2022 ).(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 Integer s = Textl.Text: n = Len(s): i = 1 Do While i <= nc = Mid(s, i, 2)If c = "00" Thend =&qu

30、ot; 东"ElseIf c = "01" Then d ="南"ElseIf c = "10" Then d ="西"Elsed ="北"End Ifb1 = Val(Mid(s, i + 2, 1)b2 = Val(Mid(s, i + 3, 1)v= List1.AddItem d + " " + Str(v) LoopEnd Sub稳固练习1、运行以下VB程序,在文本框Textl中输入15, 界面如下图.单击“开始按钮Commandl,标签Labell中显

31、示的内容是,文本框 Text2中显示的内容是 .Private Sub Command1_Click()Const x ="转换成八进制数为"用于存储输入的十进制自然数用于存储转换后的结果Do While y <> 0采用除八取余法Dim y As Integer Dim s As String Dim r As Integer y = Val(Textl.Text) c 一 r = y Mod 8s = Str(r) + sy = y 8LoopLabell.Caption = Textl.Text + xText2.Text = sEnd Sub2、某地出租

32、车计价方式如下:3公里内(包括3公里)起步价10元;超过3 公里,但10公里内,那么3公里内收费10元,超出局部每公里2元;如果超过 10公里,那么10公里内收费24元,超出局部每公里3元.其程序实现如下:Private Sub Command1_Click()x=Val(Text1.Text)If x<=3 Theny = 10Elself Then稳固练习y=10+(x-3)*2Elsey = _J2)(31 Labell.Caption = Str(y)End Sub请把上面程序补充完整.3、体质指数BMI是目前国际上常用的衡量人体胖瘦程度以及是否健康的 一个参考标准,其计算公式是

33、:体质指数BMI=体重+身高2体质指数<18.518.5-26>26结果偏瘦正常肥胖现要求编写VB程序运行界面如图所示,实现如下功能:在文本框 Textl中 输入体重kg,文本框Text2中输入身 高初,单击“判定按钮 Command, 1 在标签Labell中输出判断结果.相应的Visual Basic 程序如下,请在画线处填 入适当的语句或表达式,把程序补充完 整:Private Sub Command1_Click() Dim w As Single,h As Single,b As Single w=Val(Text1.Text) h=b=®If b<18.

34、5 Then Label1.Caption="偏瘦If Then Label1.Caption=“正常If b>=26 Then Label1.Caption= "肥胖 End Sub 4、有如下VB程序:Private Sub Command1_Click()Dim s1 As String, s2 As String, i As Integer,ch As String s1 = Text1.Text For i = 1 To Len(s1) ch = Mid(s1, i, 1) If Asc(ch) >=65 And Asc(ch)< = 90 Th

35、en ch = Chr(Asc(ch) + 3) End If s2 =ch+s2 Next iLabel1.Caption = s2稳固练习End Sub大写字母 A的ASCII码为65.运行上述程序,假设文本框 Textl中的内容为 “A1b2CZ单击命令按钮Command 1标签Labell中显示的是()A. A1b2C3B. 3C2b1A C. D1b2F3D. 3F2b1D5、有一个函数f ,这个函数的参数是两个字符串 s1、s2,这两个字符串必须长度相同并且由小写 字母组成.函数的输出是一个与 s1、s2长度相 同的字符串s,字符串s的第i个字符为字符串 s1、s2的第i个字符中小

36、的那个,比方:f("ab", "ba") = "aa" , f("nzwzl", "zizez") = "niwel". 编写VB程序,模拟上述函数的功能:在文本框 Text1中输入字符串参数x,在文本框Text2中 输入字符串参数y,单击“计算按钮Command 1在文本框Text3中输出函数f(x,y)的值.运行界面如第5题图所示I 5题图(1)在设计程序界面时,要使窗体的标题显示为:有趣的函数,那么应修改窗体 的 属性.(2)实现上述功能的VB程序如下,请在划线处填入适

37、宜代码.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) ThenText1.Text ="请输入符合要求的字符串!Text2.Text ="请输入符合要求的字符串!ElseFor i = 1 To Len(x)If Thenf = f + Mid(y, i, 1)Elsef = f + Mid(x, i, 1) End IfNext iText

38、3.Text = fEnd Sub(3)运行该程序,在文本框Text1中输入flash,在文本框Text2中输入excel , 单击“计算按钮 Command 1那么文本框Text3中显示.6、第一代二十世纪出生的公民身份证号由 15位阿拉伯数字组成:1-2位省、 自治区、直辖市代码;3-4位地级市、盟、自治州代码;5-6位县、县级市、区 代码;7-12位出生年月日,例如670401代表1967年4月1日;其中第15位单 数为男,双数为女.现编写VB程序,实现如下功能:在文本框 Text1中输入15位身份证号,稳固练习单击“判断按钮 Command, 1在列表框Text2和Text3中分别输出

39、该身份证号 码对应的出生日期、性别,运行界面如下图第6题(1)在设计程序界面时,要使按钮Command显示“判断,应修改按钮的 属性.(2)实现上述功能的VB程序如下,请在划线处填入适宜代码.Private Sub Command1_Click()Dim sf As String, c As Integer, sex As StringDim t1 As Integer, t2 As Integer, t3 As Integer, t4 As Integersf = Text1.Textc = Len(sf)If c = 15 Thent1 = Val(Mid(sf, c, 1)t2 =t3

40、= Val(Mid(sf, 9, 2)t4 = Val(Mid(sf, 11,2)If Thensex =" 男"Elsesex =" 女"End IfEnd IfText2.Text = Str(t2) + "年"+ Str(t3) + " 月"+ Str(t4) + " 日"Text3.Text = Val(sex)End Sub(3 )运行该程序,出现错误提示“类型不匹配,那么处应修改为 O7、“四叶玫瑰数是指一个四位自然数各位上数字的四次方之和等于四位数本身.如自然数1634就是一个“四

41、叶玫瑰数,由于14+64+34+44=1634.编写一个 程序,实现如下功能:单击“找寻按钮 Command后,在列表框List1中显 示找到的所有“四叶玫瑰数,并在标签Label3中显示玫瑰数的个数.(1)在设计程序界面时,应使用图b中的(填写相应编号)添加按钮.稳固练习四叶块瑰数16349474找寻图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 Inte

42、ger count = 0 for i= 1000 to 9999a= i 1000b=®c= Int(i - a * 1000 - b * 100) / 10)d= i - a * 1000 - b* 100 - c* 10IfThenList1.AddItem Str(i) count = count + 1End IfNext iLabel3.Caption=" 共有四叶玫瑰数:"+End Sub8、编写VB程序,实现如下功能:在文本框 Text1中输入一个整数,单击命令 按钮Command在文本框Text2中显示对应的二进制编码,运行界面如以下图所 示,程

43、序代码如下.(1)为实现上述功能,请在划线处填入适宜代码.G十迸国师愧成二迸事j-axAs语输入十迸制敕:&转携为二速制以;I 1 00 0Private Sub Command1_Click()Dim x As Integer, s IntegerDim y As Stringx =If x = 0 ThenText2.Text =ElseDo While x > 0s = x Mod 2x = Int(x / 2)稳固练习LoopText2.Text = yEnd IfEnd Sub(2) “Command1_Click() 中的 “ Click 是 (选填:对象名 /属 性名/事件名).9、编写VB程序,实现如下功能:在文本框 Text1中输入一个不大于10000的 正整数n,单击“分解按钮Cmd1在标签Label2中显示n的

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论