VB期中复习资料
- 格式:docx
- 大小:147.19 KB
- 文档页数:8
一、选择题1滚动条的( A )属性用于返回或设置滚动条的当前值。
A. ValueB. MaxC. MinD. Data2MouseMove事件的发生是( A )。
A. 伴随鼠标指针移动而连续不断发生的B. 当鼠标移动时将无限次的被激发C.每秒激发一次D.与鼠标灵敏度相关的3设a=3,b=5,则以下表达式值为真的是( B)A. a>=b And b>10B. (a>b) Or (b>0)C. (a<0) Eqv (b>0)D. (-3+5>a) And (b>0)4在窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:Private Sub Command1_Click()Dim x, y, z As Integerx = 10y = 5z = 23Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End Sub--------Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序运行后,如果单击命令按钮,则文本框中显示的内容是( B )A.0 B.15 C.Str(z) D.235当VB执行下面语句后,A的值为( A )A=1If A>0 Then A=A+1If A>1 Then A=0A.0 B.1 C.2 D.36若要暂时关闭时钟,可通过设置属性( B )为False来实现。
A.VisibleB. EnabledC. IntervalD. Timer7以下叙述中错误的是(A )A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件8下列语句中循环体的执行次数是( A)a=3 : b=1For I=a to b step 1Print INext IA.0 B.1 C.2 D.39有语句 abc=Inputbox(“str1”,“str2”,“str3”,2) 执行后,将显示一个信息框,此时如单击“确定”按钮,则 abc 的值是 ( D )A.str1B.str2C.str3D.310以下程序段执行的结果是 ( B )j=0Do While j<30j=(j+1)*(j+2)k=k+1LoopPrint k;jA.0 1B.3 182C.30 30D.4 3011以下叙述中错误的是( C )A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic应用程序不具有明显的开始和结束语句C.Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic中控件的某些属性只能在运行时设置12关于KeyPress事件的Keyascii参数,下列说法正确的是( A )。
VB填空题基础知识大全1.习惯上,我们把摆放控件对象的过程叫做设计界面。
2.放在窗体中的各个控件的实例,一般称为控件对象,简称对象。
3.文本框和标签都是用来处理文字的控件,两者不同的是,文本框除了可以用来显示文字,还可以用来输入文字。
4.利用属性面板,可以查看和修改窗体、按钮、文本框等对象的属性。
5.形如“对象.属性=值”的语句,被称为赋值语句,通过它可以改变对象的属性,值可以是数字、字符串、或其他语句的运行结果。
6.在VB程序中,指挥计算机完成一定操作任务的一段程序代码叫作一个过程。
7.程序开始执行时,会先等待某个事件的发生,然后再去处理此事件对应的过程。
这种等待事件触发后,再执行事件过程的程序设计方式,称为事件驱动程序设计。
8.在事件驱动式的应用程序中,程序靠响应不同的事件来执行不同的代码段,完成不同的任务。
9.计算机开始执行时,过程中的语句会被从上至下逐条执行,最后得到处理结果,这样的程序结构通常称为顺序结构。
10.常常用变量来存放数值、字符串等信息,需要时再从中取出来。
11.存储的数据在运行过程中不会发生改变,这样的量称为常量。
12.定义变量用Dim语句,定义常量用Const语句。
13.VB中,vbp表示的是工程文件,frm表示的是窗体文件,exe表示的是可执行文件。
14. 窗体布局面板用于调整程序运行时,程序窗口默认的显示位置,如在屏幕中心显示,在左上角显示等。
16.编写VB程序一般包括创建工程、设计窗体、设置属性、编写代码、测试与运行等步骤。
17. 窗体主要用于展示程序的界面,按钮、文本框、标签、图像框等控件对象都可以摆放在其中。
20.图像框和图片框控件都可以用来显示图像,但两者在使用时存在很多不同。
比如,如果把图像框控件的Stretch属性设为True,图像框就可以根据自身的大小自动缩放图像;图片框不具备这样的功能,但它运行时需要的资源较小。
21.在VB中,利用RGB(r,g,b)函数来确定颜色,其中r表示红色的值,g表示绿色的值,b表示蓝色的值。
Visual Basic 复习第一部分选择题选择题关键:掌握知识点、考点;注意关注点。
第一章Visual Basic概述一、知识点及考点分析1、对象、属性、方法、事件的概念;2、VB各个窗口的功能;3、创建应用程序的一般步骤;4、VB各种文件的扩展名及其功能;(.frm、.vbp、.bas等)第二章创建用户界面一、知识点及考点分析1、窗体的常用属性、方法、事件;(Name、Caption、AutoRedraw、Hide、Show、Print、Cls、Load、UnLoad、Click、Activate等)2、VB对象的公共属性;(Name、Top、Left、Width、Height、Enabled、Visible等)3、文本框控件;(PasswordChar、Text、MultiLine、SetFocus、LostFocus、Change、KeyPress等)3、标签控件(Caption;AutoSize等);4、命令按钮;(Default、Cancel、Style、Click等)5、单选按钮;(Value、Style、Click等)true false6、复选框;(Value、Style、Click等)0 1 27、列表框;(List、ListCount、ListIndex、Text、AddItem、RemoveItem、Clear、Click、DblClick等)8、组合框;(List、ListCount、ListIndex、Text、Style、AddItem、RemoveItem、Clear、Click、Change 等)9、图片框;(AutoSize、Picture、AutoRedraw、Print、Cls、LoadPicture等)Pic1.LoadPicture(“d:\myfile\a.bmp”)10、图像控件(Picture、Stretch、LoadPicture等);11、计时器(Interval、Timer);12、滚动条;(Value、Max、Min、LargeChange、SmallChange、Change、Scroll等)13、菜单(下拉式、弹出式、PopupMenu)二、关注点1、对象名称与事件过程名要对应;2、容器对象;Form PictureBoxc Frame3、有些属性值只能在设计时设置,还有些属性只能在运行时设置;4、属性窗口中并没有列出对象的全部属性;ListCount5、结果输出在不同对象上的方法不同,窗体和图片框中用Print方法;文本框中用text属性连接;列表框中AddIrem添加方法。
一、填空1、VB集成环境的工作状态主要有三种不同的模式_ ____,___ ___和__ ____。
2 创建一个新的工程可以用"文件"菜单中的__ ____命令或_ _____命令。
3 在面向对象程序设计中,__ ____是基本构成单元,并从相同类型的对象中抽出分类,对象只是类的实例。
4 面向对象程序设计中的__ ___是对一类对象进行分析.概括,得到一类对象的公共性质,并加以描述的过程。
5 __ ____是把相关的数据和代码结合成一个有机的整体,形成数据和操作代码的封装体,对外只提供一个可以控制的接口,内容大部分的实现细节对外隐蔽。
6 __ __描述了类之间的关系,这种关系使得一类可以继续另一类的属性和行为,从而,提供了通过现有的类创建新类的方法,也提高了软件复用的程度。
7函数Str$(256.36)的值是8逻辑型(布尔型)数据其值只有和两种。
9Mid(“什么是ASCII编码”,5,6)的结果。
10在VB中123456&,,1.2346E+5,1.2346D+5这3个常数分别表示,,类型。
11 VB的数组常见有三种类型:定长数组、变长数组和___。
12 根据是否有返回值可将VB中的过程分为两类和。
13 处理窗体事件的过程是。
14 操作控件时会产生相应的控件事件,处理该事件的过程是。
15 可以用提前结束过程,并返回到调用该过程语句的下一条语句。
16 参数定义时若有限定词ByV al,则参数传递。
17 定义时没有修饰词或带关键字ByRef,则参数传递。
18 形参数组只能按地址传递参数,对应的实参也必须是。
19 过程的是指在一个函数中直接或间接地调用自己。
20 在vb中设置大部分属性的方法有两种,这两种方法是和。
21 caption属性用来设置控件对象的。
22 菜单分为和菜单,设计菜单需要在中设计。
23 数据项由若干个组成,用来表示一项数据,即一个对象的某个属性。
24 记录是文件中存取的,由一组相关的数据项组成,用来描述一个对象,相当于登记表表格中的一行。
VB复习题允许上机调试一、选择题1 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是: BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A)分支1 B)分支2 C)Else分支D) 程序出错4 以下关于MsgBox的叙述中,错误的是 D (见书P88-92)A)MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是 DA)Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时,它的V alue属性的值是 CA) 3 B) 2 C) 1(复选框被选中显示1,不选中显示0)D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7,以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A)VVV B) Vis C) sic D) 1113设有如下程序段:x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后,x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句,窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮,并编写如下程序:DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后,单击命令按钮,则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输入结果为 CA)13 B)14 C)27 D)1520 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的内容是A)1 2 B) 1 2 3 C) 3 4 5 D)4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。
《程序设计基础VB》期中考试卷一、选择题〖每小题1分, 共计40分〗;1.以下变量名中合法的是【1】。
A.x2-.......B.prin.......C.str_....D.2x分析:书P105, 标识符命名规则答案:C在Visual Basic中, 所有的窗体和控件都必定具有的一个属性是【2】。
A. NameB. Font C)Caption D)FillColor分析:名称属性是每个对象必须具备的, VB为每一个对象设置了一个默认的名称, 用户可以不更改, 对象的默认名称是由对象的类名+序号构成的。
答案:A以下所列的7个控件中, 具有Caption属性的有【3】个。
CheckBox(复选框)、ComboBox(组合框)、HscrollBar(水平滚动条)、Image(图像框)、Frame(框架)、Label(标签)、Line(线条)A. 5B. 4C. 3D. 2分析:常用控件中, TextBox、PictureBox、Image、ListBox、ComboBox、Timer、Line、Shape、HScrollBar、VScrollBar没有Caption属性;Label、CommandButton、OptionButton、CheckBox、Frame具有Caption属性;另外, 窗体也有Caption属性。
答案:C2.用来设置文字字体是否斜体的属性是【4】。
A. FontUnderlineB. FontBoldC. FontSlopeD. FontItalic分析: 也可以写成Font.Italic答案:D若需要在同一窗口内安排两组相互独立的单选按钮( OptionButton ), 可使用【5】控件将它们分隔开。
① TextBox ② Picture ③ Image ④ FrameA. ①②B. ②③C. ②④D. ③④分析:将单选按钮分组的方法是放置在不同的容器中, VB中可以做容器的控件有:PictureBox、Frame答案:CTimer控件的【6】属性决定该控件是否对时间的推移做出响应。
VB复习题(带答案)(1) LtD程序填空1、'功能:要求输入假设干学生的成绩,计算平均分和高于平均分的人数,并将这两个数据放入数组的最后。
Private Sub Form_Click()Dim mark() As Integer, i%, n%, avern = InputBox("输入学生的人数")ReDim mark(1 To n)aver = 0For i = 1 To nmark(i) = Int(Rnd * 101)aver = aver + mark(i)Next i'**********SPACE********** preserveReDim 【?】mark(1 To n + 2) '增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保存mark(n + 1) = aver / nmark(n + 2) = 0For i = 1 To n'**********SPACE**********If mark(i) > mark(【?】) Then mark(n + 2) = mark(n + 2) + 1 n+1Next iFor i = 1 To nPrint "mark("; i; ")="; mark(i)Next iPrint "平均分="; mark(n + 1), "高于平均分人数="; mark(n + 2)End Sub2、功能:以下程序的功能如(图1)。
Private Sub Form_Click()Dim a%, b%, c%, d!, x1, x2, p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【?】Then d>0r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】end ifPrint "x1="; x1, "x2="; x2'**********SPACE**********【?】elseq = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3、功能:以下程序用于判断一个正整数〔≥3〕是否为素数。
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向___对象_______的可视化程序设计语言,采取了____事件驱动______的编程机制。
2、在VB中工程文件的扩展名是___vbp_________,窗体文件的扩展名是_____frm_______,标准模块文件的扩展名是_____bas_______。
3、执行“工程”菜单下的____部件______命令,可选择并添加ActiveX控件。
控件。
4、Visual Basic 6.0用于开发___windows______环境下的应用程序。
环境下的应用程序。
二、选择题1、下面不是VB工作模式的是(C )A.设计模式.汇编模式 D.中断模式.中断模式.运行模式 C.汇编模式.设计模式 B.运行模式2、可视化编程的最大优点是(C )A.具有标准工具箱.具有标准工具箱B.一个工程文件由若干个窗体文件组成.一个工程文件由若干个窗体文件组成C.不需要编写大量代码来描述图形对象.不需要编写大量代码来描述图形对象D.所见即所得.所见即所得3、下列不能打开属性窗口的操作是(C )A.执行“视图”菜单中的“属性窗口”命令.执行“视图”菜单中的“属性窗口”命令B.按F4键C.按Ctrl+T D.单击工具栏上的“属性窗口”按钮.单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是(D )A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G 5、Visual Basic的编程机制是(D )A.可视化.面向图形 D.事件驱动.事件驱动.面向对象 C.面向图形.可视化 B.面向对象三、简答题1、代码窗口主要包括哪几部分?2、在工程资源管理器窗口中,主要列出了哪三类文件?3、窗体布局窗口的主要用途是什么?4、VB的基本特点是什么?5、怎样理解可视化设计?6、怎要理解事件驱动编程?、怎要理解事件驱动编程?第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮,应该用___tabstop___________属性。
vb第一学期期中考试题库及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明变量?A. DimB. LetC. ConstD. Function答案:A2. VB中的Print方法用于做什么?A. 打印文档B. 显示消息框C. 在窗体上显示文本D. 打开一个新的窗体答案:C3. 以下哪个是VB中的循环结构?A. IfB. ForC. SubD. Function答案:B4. 在VB中,如何使用数组?A. 使用Dim关键字声明B. 使用ReDim关键字声明C. 使用Array函数D. 以上都是答案:D5. VB中的哪个控件用于输入文本?A. LabelB. TextBoxC. ButtonD. ComboBox答案:B6. 在VB中,如何实现条件判断?A. 使用If...Then...Else语句B. 使用Switch语句C. 使用Case语句D. 使用While循环答案:A7. VB中的哪个函数用于计算两个数的和?A. SumB. AddC. PlusD. None of the above答案:D8. 在VB中,如何声明一个过程?A. 使用Sub关键字B. 使用Function关键字C. 使用Dim关键字D. 使用Let关键字答案:A9. VB中的哪个控件用于显示下拉列表?A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案:B10. 在VB中,如何退出一个循环?A. 使用Exit For语句B. 使用Break语句C. 使用Continue语句D. 使用Return语句答案:A二、填空题(每题2分,共20分)1. 在VB中,声明一个整型变量i,应使用关键字_______。
答案:Dim2. VB中的_______方法用于在窗体上显示文本。
答案:Print3. VB中的_______循环结构用于在固定次数内重复执行代码块。
答案:For4. VB中的数组可以存储_______个元素。
一、填空题1、在程序中使用日期型数据时,必须用符号“ # “将日期型数据括起来。
2、VB集成发环境窗口,它包括了数个独立的窗口。
除必须的"主窗口"外,常用的还有窗体窗口、属性窗口、代码窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。
3、在计算机上建立一个VB应用程序的完整过程,一般分:建立用户界面的对象、对象属性的设置、对象事件过程及编程、运行调试程序和保存文件五个步骤。
4、VB中每个对象都有自己的属性,visible 属性决定控件是否允许可见。
5、在VB对象的三要素中,可以把属性看作一个对象的性质,把事件看作对象的响应,把方法看作对象的动作。
6、VB有三种工作模式,它们分别是运行模式、设计模式和中断模式。
7、如果希望每0.6秒钟产生一个计时事件,那么应将InterVal属性值应设置为600。
8、在VB中,为了使一个控件在运行时不可操作,应将控件的Enabled属性设置为False 。
9、为了防止用户编辑文本框内的内容,应将控件的Lockde 属性设置为True。
10、当要使标签框的大小随着Caption属性的值进行扩展或缩小时,应将该控件的Autosize 属性设置为Ture。
11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim声明语句是Dim Ch5 As string *8 。
12、VB中拥有多个窗体的程序可用Load 语句窗体装入内存,用Unload语句从内存中删除指定窗体.13、在多窗体工程中,可用SHow 方法显示一个窗体,用HIDE 方法将一个窗体隐藏起来。
14、结构化程序设计方法,把程序的结构规定为三种基本结构,它们是:顺序结构、分支选择结构、和循环结构___________三种基本结构。
15、VB逻辑数据类型只有True与False两个值。
当逻辑数据转换成整型数据时,True 转换为1,False转换为0 。
16、VB中依据变量的作用范围将VB变量的作用范围分为三类,它们是:局部变量、窗体模板变量和全局变量。
上机2基础1、建立一个登陆窗口,用户在文本框中输入密码(不可见,出现*),单击“确定”按钮后,输入的密码在标签中出现,单击“退出”按 钮结束运行。
如图:(字体:黑体小四)Private Sub Command 1 _Click () Label2 = "输入的口令是“ & Textl End SubPrivate Sub Command2_Click () End End Sub(注:更改 textl 的 PasswordChar 属性)2、建立应用程序对两个文本框中输入的内容进行交换(如a 、b 两变量交换通过下面三条语句完成t=a :a=b:b=t ),单击“交换”按钮实现交换,单击“清空”按钮,清空文本框的内容, 单击“结束”按钮结束运行。
Private Sub Command l_Click() Dim t%t = Val(Textl): Textl = Text2 : Text2 = t End SubPrivate Sub Command2_Click() Textl 二 ”“:Text2 二”” End SubPrivate Sub Command3_Click() End End Sub3、窗体中有3个按钮Commandl 、Command2和Command3,该程序的功能是当单击按钮 Command1时,按钮2可用,按钮3不可见,正确的程序怎么样书写?Private Sub Command 1 _Click () Command3. Visible = False End Sub4、自动选择第3个字符起的6个字符。
Private Sub Form_Click() Textl.SelStart = 2 Textl.SelLength = 6 Text2 = Textl.SelText End Sub 5、实现两数相乘Private Sub Text 1 _LostFocus() If Not IsNumeric (Textl) Then Textl=" Textl.SetFocus End if国登陆(3回区)输入口令:*****愉人的口令是:abcde ;确定退出End SubPrivate Sub Text2_KeyPress (KeyAscπ As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text2) Then Text2 ='''' End ifEnd SubPrivate Sub Text3_GotFcous()Text3 = Val(Tex ⑴ + Val(Text2)End Sub6、设计程序完成下.列操作(1)剪切、复制和粘贴的编辑操作(2)字体、大小的格式设置Dim st As StringPrivate Sub CommondI_Click()st = Textl.SelText Textl.SelText = 9' End Sub '将选中的内容存放在st变量中,,将选中的内容清除,实现剪切’Private Sub Commond2_Click()st = Textl.SelTextEnd SubPrivate Sub Commond3_Click() Textl .SelTxet = st,将选中的内容存放在st变量中‘,将st变量中的内容插入到光标所在的位置,实现粘贴,End SubPrivate Sub Commond4_Click() Textl.FontName = "黑体”End SubPrivate Sub Commond5_Click() Text 1.FontSize = 20 ・我匕寰字号:姓名: S1A1A三脑11¾⅛<m一⅛mtit号名级子 CQΠ∙End SubPrivate Sub Commond6_Click() EndEnd Sub7、建立一个学生情况登记表(要求:在文本框输入相应的内容,点击“确定”按钮,在窗体右边的标签输出四个文本框的内容,程序运行界面如图) Private Sub Command 1 _Click() 电子能∙β,清科退出(第7题)Label2 = Textl & vbCrLf & Text2 & vbCrLf & Text3 & vbCrLf & Text4 & vbCrLf End SubPrivate Sub Command2_Click()Text1 = ,n,:Text2 = ,,n:Text3 = π,∖Text4 = πuιLabel2 = ,rπEnd SubPrivate Sub Command3_Click()EndEnd Sub上机3顺序结构1、动态显示Shape形状;Private Sub Command 1 _Click()Timer 1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timerl.Enabled = FalseEnd SubPrivate Sub Timer 1-Timer()Shape 1.Shape = Int(Rnd *6 + 0)End Sub2、根据用户输入的半径,求对应的直径、圆周长、圆面积、球表面积、球体积,要求保留3位小数显示结果;Private Sub Command 1 _Click()Const pi = 3.1415Dim r!, d!, s!r = Val(Textl): d = 2*r:s = pi*r A 2:Text2 = d: Text3 = sEnd SubPrivate Sub Command2_Click()Textl =π": Text2 = π": Text3 = π"End SubPrivate Sub Command3_Click()Text2 = Val(Textl) * 2Text3 = 3.1415 * Val(Textl) λ 2End Sub3、实现对于用户输入数字进行加密显示,加密方法:数字循环左移二位(提示:类似循环问题,常借助于Mod运算符来解决:密文数字二(明文数字n+循环偏移量Ad+10) Mod 10;Private Sub Command 1 _Click()Text2 = (Val(Textl) + (-2) + 10) Mod 1()End Sub4、请根据插入点位置和待插入字符串,单击“插入”按钮实现字符串的插入。
(提示:将字符串插入点左边和右边的字符串使用Left和Right函数分离,使用字符串连接符按照左边字符串、插入字符串和右边字符串的顺序连接起来,即可完成插入操-l□l ×l*箍入字符串字符串∣We studying VB. 插入 |在位置F 后插入字符串际Private Sub ____________________________________________________Command l_Click()Textl = Left(Textl, Val(Text2)) & Text3 & Right(Textl, Len(Textl) - Val(Text2))End Sub5、将输入的字符串前半部分和后半部分对称交换位置。
(提示:首先根据字符串的长度将字符串分为前、中、后三个部分,使用字符串函数进行截取三个部分字符串,并将其进行重新排放,最后将结果显示在新文本框中)Private Sub Command 1 _C1 ick()Dim sl$, s2$, s3$, s$, n%s = Textln = Len(s) ∖ 2If Len(s) Mod 2 = 0 Thens2 = πns3 = Right(s, Len(s) - n)Elses2 = Mid(s, n ÷ 1, 1)s3 = Right(s, Len(s) - 1 - n)End Ifsi = Left(s, n)Text2 = s3 & s2 & siEnd Sub6、编一个华氏温度与摄氏温度之间转换的程序,转换公式如下:9 5F = -C + 32 C = -(F-32)5 9Private Sub Commond 1 _Click()Dim f! , c!f = Vai (Textl)c = 5∕9*(f-32)Text2 = Format( c, “0.00”),保留两位小数,End SubPrivate Sub Commond2_Click()Textl = Format( 9/5 * Val(Text2) + 32 , “0.00”)End Sub7、输入半径,计算圆周长和圆面积,如图所示。
求:检查输入娄Msebox显示'宫息,定位出错匡.计算结8、输入一字符串,分别调用UCase 、Len 函数将其转换成大写字母并显示其字符串长度。
Private Sub Command 1 _Click() Text2 = UCase(Textl) Text3 = Len(Textl) End Sub9、随机产生一个3位正整数,然后逆序输出,产生的随机数与逆序数同时显示。
Private Sub Command 1 _Click() x = Int(Rnd * 900 + 100) a = x Mod 1() b = x ∖ 100 c = x ∖ 10- 10*bPrint x & vbCrLf & a & c & b End Sub10、Print 方法练习,显示字符图形。
要求窗体不可改变大小,当单击“清屏”按钮后,清除窗体所显示的图形。
① Private Sub Command l_Click()Dim i%For i = 1 To 5For i = 1 To 5Print Tab(2 * (5 - i) + 4); String(2 * i ∙ 1, *); String(2 * (5 ・ i) + 1, String(2 * i ∙ 1, *)Next ι End SubPrivate Sub Command2_Click() Cls End Sub(注:使窗体不可改变大小,设置窗体属性:首先 BoaderStyle = 1 - Fixed Single,然后 MinButton = False )Print Tab(2 * (5 - i) + 4); String(2 * i Next i End SubPrivate Sub Command2_Click() Cis End Sub②Private Sub Command l_Click() Dim i%-1, *); Spc(4 * (5 - i) + 2); String(2 * i ・ 1, ”★") O Forml★★★★★★ ★★★★★★★★★ ★★★★ ★★★ ★★ ★★★★ ★★★ ★★★★ ★★★★★ ★★★★★★★ ★★★显示耳 Forml★★★★★★★★★★★★★★★☆★★★★☆☆☆☆☆★★★★★★★★★★★★ ★★★8、输入一字符串,分别调用UCase 、Len 函数将其转换成大写字母并显示其字符串长度。