VB和VBA理论期末考试复习要点2013-06.doc

VB和VBA理论考试复习期末试卷题型 1）单选题30%，含程序排序题一题（10分） 2）程序匹配题16%或20% 3）程序阅读题20%或24% 4）程序设计题30%其中VBA部分占30%基本编程准备1从键盘输入一行字符，分别统计出其中字母、数字和其他字符的个数；从键盘输入100个学生的成绩，统计优秀、良好、及格和不及格的为数； For/next+if/elseif/end if2设计一个程序，求下式s的值，其中n的值用inputbox函数输入。 For/next s=s+x t=-t p=p*i3设sum=12232n2，求sum不大于100000时最大的n。 Do while/loop4编制过程Commandl_Click，从键盘输入10个数，放入数组中，要求找出离这批数的平均值最近的数及在数组中的位置。其中求平均值用函数实现。6编制函数dtob，将一个十进制正整数转换成为一个二进制数。（VBA）7编制函数age，从身份证号中计算出年龄。（VBA）VB和VBA的基本环境面向对象程序设计的思想（对象(控件)、方法、属性、事件、事件触发驱动）VB和VBA的编程操作环境VB文件类型(.vbp .frm .bas .exe .xls)VB语言基础常用数据类型(byte integer long single double string Boolean date *VBA中的变体类型Variant、对象类型object) dim x常量及表示整型常量(12 &o12 &h12)单精度和双精度常量a1=12.34 1.234E1 1.2234E-12a2=12.34字符串常量“lhjklhjklhlhfhjljk” “姓名”“v=” chr(34)符号常量const ABC=2000 dim a(abc) 这里的abc为符号常量for i=1 to ABC变量和定义dim ss as string*16变量作用范围局部变量(动态变量和静态变量) dim static模块级变量 在窗体通用处定义dim全局变量 在添加模块的通用处定义public例.写出运行时四次单击窗体时各次的显示结果 Dim a As Integer Private Sub Form_Click() Static b as integer b = a + b + 1 a = a + b Print a=; a, b=; b End Sub*对象变量的定义、说明和使用 主要对象类型(纯对象) object Application Workbooks和WorkbookWorksheets和WorksheetRange Dim rr as rangeSet rr=application.Workbooks(“book1”).Worksheets(“sheet1”).range(“A1:D19”)Set rr=activesheet.range(“A1:D10”) rr.value with rr.value.cells(i,j)=End with标准函数VB中(int() sqr() log() rnd str()/val() chr()(asc() len() mid(x,m,n) right(x,n) left(x,n) trim() tab() spc() rgb() 时间和日期的函数 replace(x,x1,x2)VBA(Excel)中max()/min() sum() average() count/countif() rand() int() mode(x,n)=0表达式算术 mod字符串合并 & VBA中经常使用s=s & x 顺序合并s=x & s 反序合并关系 5 or x-5程序设计基础可以按下面提供的解决问题的思路进行程序设计的复习和准备：从键盘输入三个数，求它们的平均值；从键盘输入20个数，求它们的平均值；for/next s=s+x用随机函数产生N个数，求它们的平均值；for/next rnd s=s+x从键盘输入任意一批数求它们的平均值；do while/loop s=s+x n=n+1用随机函数产生N个数，放入数组中，然后求它们的平均值；一维数组 for/next a(i) s=s+a(i)用随机函数产生N个数，放入数组中，分别设计过程SUB和函数FUNCTION求它们的平均值；程序的三种基本结构顺序结构、选择结构、循环结构特殊的语句形式计数器 i=i+1 i=0数组计数器a(i)=a(i)+1单元格计数器cells(6,j)= cells(6,j)+1(VBA)累加器 s=s+x s=0 s=” ” s=”累积器 p=p*x p=1累除器 x=x/10标记器 f=1/f=0 f=true/f=false正负号变换器 t=-t t=-1/1跟踪器 p=i p=1变量交换 t=a:a=b:b=t变量转移 x1=x2:x2=x3：x3=x1+x2终止标记 x=-1111/9999/”Q”选择结构(重点复习)行if结构If 条件 then 语句If 条件 then 语句1 else 语句2块if结构两个分支的：If 条件 then语句1Else语句2End ifIf 条件 then语句1End if多个分支的：If 条件then语句1Elseif 条件 then语句2Elseif 条件 then语句3Else 语句n+1End if情况选择语句(多个分支的) select case 测试表达式 lcase 常数表达式1 语句case 常数表达式2 语句case else 语句end select 循环结构(重点复习)For i=a to b step 3 step -1.next ido While 条件.loopDoX=inputbox(“x=”)loop while x=10 一维和二维数组VBA的cells(r,c) 数组的概念和定义静态数组option base 1dim x(100) as singledim x(1 to 100) as stringdim y(10,10，10) as integer 动态数组的概念dim a() as integern=inputbox(“n=”)n=100redim pres a(n) a(1)=456 n=1000redim pres a(n)一维数组和二维数组一般使用数组初始化数组处理(求最大值、排序、插入等)数组输出 for i=1 to 1000 print a(i); if i mod 20=0 then print next Ifor i=1 to 10 for j=1 to 10 print a(i); next jprint next I选择排序法 for i=1 to n-1 for j=i+1 to n if a(i)a(j) then t=a(i):a(i)=a(j):a(j)=t end ifnext jnext I冒泡排序法for i=1 to n-1 for j=1 to n-1 if a(j)a(j+1) then t=a(j):a(j)=a(j+1):a(j+1)=t end ifnext jnext I平面图案的输出（二重循环的应用）与VBA编程的区别打印一个数字金字塔 1 1 1 * 222 121 234 * 33333 12321 56789 *4444444 1234321 1234567 *. . .自定义过程sub与函数function(重点复习)过程（按地址byref和按值byval传递）函数（返回值fn=要返回的值）（重点准备）数组作参数必须按地址传递利用全局变量返回过程sub与函数function的编程应用示例编写函数判断一个数是否为素数，在form_click()事件中完成数据的输入和结果的输出；编制函数fsum，计算Single类型一维数组所有元素的和。编制过程mn，求integer类型一维数组中的最大值和最小值。VB控件复习控件和控件名称控件的的通用属性Name Caption Eanbled VisibleLeft , Top , Width , Height Backcolor, forecolorFontName , FontSize , FontBold , FontItatic , 窗体form/userform主要属性：me.Picture=loadpicture(“e:jpga11.jpg”) me.Windowstate主要方法：form1.Print /debug.printtab(23);spc(23);”abc” print “abc”;”cba”print 12,23 cls move form1.show /userform1.show 主要事件：Click() Load()/work_open()/auto_open() Unload() 主要语句：end 控件与窗体位置关系 form1.scaleheight form1. scalewidth label1.left=(me.width-label1.width)/2命令按钮command/commandbutton主要属性：Caption主要事件：Click()标签框label/labelbox主要属性：Caption AutoSize=true 文本框text/textboxx=val(text2.text) text2.text= x & ”kg”主要属性：textMultiLine(chr(13)+chr(10) Scrollbar PasswordCharlocked编辑属性Selstart=0Sellenght=len(text1.text)seltext主要事件: text1_Change() text1_KeyPress(KeyAscii As Integer) if keyascii57 then keyascii=0 if keyascii=13 then . End if例：写出运行时在文本框Text1依次按下 1、2、3、4后，Text2上各次的显示结果 Private Sub Form_Load()Text1.Text = Text2.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Text2.Text = Chr(KeyAscii) + Text2.TextEnd Sub主要方法: Text1.SetFocusVBA基本知识点：1.基本对象 纯对象: Application、 Workboows、*Worksheets、 *Range 属性和对象: Worksheetfunction y=WorksheetFunction.Sum(1,2,3) y =WorksheetFunction.Max(60,72,51,88,34)Cells(i,j)、ActiveCell Selection、ActiveSheet、ActivecellTarget.row、Target.columnrows.count、columns.count.FormulaRange(“B6”).Formula = “=SUM(A1:B5)“Worksheets(Sheet1).Range(A1:B3).Formula = =RAND()Cells(1, 2).Formula=“=Countif(A1:A10,”0”)”Sub aa()Dim rng As Range Set rng = ActiveSheet.Range(C1:H20) With rng For i = 1 To .Columns.Count For j = 1 To .Rows.Count .Cells(j, i).Value =”*” Next j Next i End With End sub.Clearcontents.Value .CurrentRegion2.常用方法选中select、激活activeActiveCell.CurrentRegion.SelectSub bb()Ra