VB基础知识要点

1、VisualBasicVisualBasic 程序设计基础知识要点(概念分析篇)知识点1：(1)在工程资源管理器窗口中可以包含：工程文件、窗体模块文件、标准模块文件和类_模块文件(其中可以包含许多各种文件类丽:一(2)VisualBasic应用程序可以以解释方式执行和编译方式执行。(3)以下叙述中错误的是AA.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件。B.以.bas为扩展名的文件是标准模块文件。C.窗体文件包含该窗体及其控件的属性。D.一个工程中可以有多个标准模块文件。(2)以下叙述中错误的是CA.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件。B.

2、保存VisualBasic程序时，应分别保存窗体文件及工程文件。C.VisualBasic应用程序只能以解释方式执行。D.事件可以由用户引发，也可以由系统引发。知识点2:(1)窗体和各种控件的名称(Name)是唯一的,用来标识一个窗体或控件的。而窗体和控件的标题是用来说明的,是可有可无的。(2)各种控件之间有部分相同的属性，并不是拥有所有属性。控件有些属性只能在属性窗口中设置,但也有少数属性只能在代码状态设置。(3)Form1.Hide方法和UnloadForm1方法的区别：第一个方法窗体消失并不存在于内存中；第二个方法窗体消失但仍存在于内存中。例题：(1)以下叙述中正确的是AA.窗体的Nam

3、e属性指定窗体的名称，用来标识一个窗体。B.窗体的Name属性的值是显示在窗体标题栏中的文本。C.可以在运行期间改变对象的Name属性的值。D.对象的Name属性值可以为空。(2)以下叙述中错误的是CA.VisualBasic是事件驱动型可视化编辑工具。B.VisualBasic应用程序不具有明显的开始和结束语句。C.VisualBasic工具箱中的所有控件都具有Width和Height属性。D.VisualBasic中控件的某些属性只能在运行时设置。知识点3:(1)标签(Label1):Autosize的True属性可以自动调整标签的大小，而False属性不能。(2)文本框(Text1)：1

4、、Maxlength属性表示文本框所能容纳的字符数。2、Password属性表示口令输入，可以是“*”或”等。设置文本框输入字符为“*:Text1.Password=*，还原文本框字符：Text1.Password=；3、ScroHBars属性是表示文本框有垂直或水平滚动条，但是需要和多行属性Multiline结合一起使用。4、SelLength属性是表示选中文本本g中字符的个数：Textl.SelLength。SelStart属性是表示选中文本框中字符或光标之前的字符数：Text1.SelStrartoSelText属性是表示选中文本框中的字符：Text1.SelText。5、文本的主要事件

5、是Change事件：（标签内容随文本框内容变化而变化）PrivatesubText1_Change（）Label1.caption=Text1.textEndsub6、文本框的方法只有一个：Text1.SetFocus例题：（1）能够获得一个文本框中被选取文本的内容的属性是CA.TextB.SelLengthC.SelTextD.SelStrart（2）在窗体上画一个文本框（其名称为Text1）和标签（其名称为Label1）。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是A（4）单选按钮和复选框（Option1和Check1）:1、单选按

6、钮：Value属性的值是True（选中）和False（未选中），Option1.Value=True等同于Option1.Value用法。2、复选框：Value属性的值是0（未选中）、1（选中）和2（表示暂时不可用）。Check1.Value=False可以用，但Check1.Value=True不可用（因为True只能转化数值一1而不是1）。（5）列表框（List1）:1、List属性是一个数组型属性：List1.List（索引），索引可以是数字0、1，List1.listindex,变量i（List1.Text等同于List1.list（List1.listindex）。2、MultSel

7、ect属性：用来设置一次可以多选表项数。MultSelect属性彳1为0时，每次只能选择一项；MultSelect属性值为1时， 可以同时选择多个项目；MultSelect属性值为2时， 可以用辅助键Shift或Ctrl选择多个项目。3、常用方法：AddItem方法表示添加的是一个项目，而Removeitem方法表示通过删除索引的方式删除项目。RemoveItem索引索引可以是数字0、1,List1.listindex,变量i。（6）组合框（Combo。：1、Style属性：Style属性值为0时，表示下拉式组合框；Style属性彳1为1时,A.PrivateSubText1_Change()

8、Label1.caption=Text1.TextEndSubC.PrivateSubLabel1_Change()Label1.caption=Text1.TextEndSub(3)命令按钮(Command1):1、Default属性：当一个命令按钮的令按钮的效果相同。2、Cancel属性：当一个命令按钮的按钮的效果相同。B.PrivateSubText1_Click()Label1.caption=Text1.TextEndSubD.PrivateSubLabel1_Click()Label1.caption=Text1.TextDefault属性为True时，按回车键和单击该命Cance

9、l属性为True时，按ESC键和单击该命令表示下简单组合框；Style属性值为2时，表示下拉式列表框。其他功能类似列表框(Listl)(7)图片框和图像框(Picturel和Imagel):1、图片框(Picture1):Autosize属性值为True时，表示图片框大小随图片大小改变而改变；Autosize属性值为False时，表示图片框只能部分显示大图片。2、图像框(Image1):Stretch属性为True时，图片大小随图像框的大小改变而改变；Stretch属性为True时，图像框的大小随图片大小的改变而改变。3、两种图形类型都可以按照下面这个方法加载图片：Picture1.pictu

10、re=LoadPicture(App.Path&”图片名称.扩展名)Image1.picture=LoadPicture(App.Path&”图片名称.扩展名)如果要清除图片：Picture1.picture=LoadPicture()Image1.picture=LoadPicture()注意：如果使用App.Path方法需要先保存好窗体文件和工程文件到考生文件夹中。(8)滚动条(HScroll1):1、Max和Min属性是分别表示滚动条的最大和最小刻度，刻度值用Value属性值来表示：HScroll1.value。2、LargeChange和SmallChange属性是分别

11、表示移动滚动条上的左右箭头按钮的移动量和移动滚动条上滚动框的移动量。3、Scroll和Change事件分别表示拖动滚动条上滚动框的操作和单击滚动条上箭头按钮的操作。(9)计时器(Timer1):1、Enabled属性：Enabled属性值为True时，表示计时器可以走动；Enabled属性值为False时，表示计时器停止走动；4、Interval属性：是表示计时器运动的时间间隔，单位为毫秒。1秒时间：Timer1.Interval=1000。5、Enabled和Interval这两个属性一般情况下需要一起使用。知识点4:(1)VisualBasic常用函数的使用方法:1、数学函数：求平方根：S

12、qr(n)log78=loge8/loge7(注意非e为底的对数需要如此转换exExp(x),潸攀饕臀蓄E求自然对数Log(n)lnn求以e为底的哥值，ex 1n00n=0Rad()-X=Int(Rnd*(上界下界+1)+下界(产生随机整数)2、转换函数：Str(x)数彳tx转换成字符串str(12.75)=12.75”这样转换12.75之前会多出一位。如果使用Cstr(12.75)=12.75”这样转换12.75之前不会多出一位。Val(x)字符x转换成数值，但x要一定是数字字符才行，Val(12.75)=12.75,如果是含有其他字符Val(12.7ab)将无法转换。chr(x)返回以x为

13、Asccii代码值的字符chr(97)=a;Asc(x)给出字符x的Asccii代码值Asc(A)=65三种类型ASCII代码值转换：Asc(0)Asc(9)-4857Asc(A)Asc(Z)-6590Asc(a)Asc(Z)-97122特殊情况：Asc(ABC)=65只求第一个字符A”的Ascii代码值Fix(x)将数值型数据x的小数部分舍去Fix(12.8)=12Fix(-12.5)=-12;Int(x)取小于等于x的最大整数当x0时，用法和Fix一样；当x-(*/)Mod(+-)关系运算符=LikeIs运算符优先级相同逻辑运算符运算符的优先级：NotAndOrXorEqv例题：(1)表达

14、式4+56*7/8Mod9的值是BA.4B.5C.6D.7(2)a=3b=2c=1求Printabc的结果？首先ab的结果是true,然后再PrintTruec此时True需要转换成-1再比较，Print-11结果是False,所以整个输出结果是False。知识点6:1、交互函数的使用：InputBox函数：A=InputBox（提示信息,标题信息，默认值或输入框的值）例题：（1）执行下列语句后，将显示输入对话框，此时如果单击“确定”按钮,则变量strInput的内容是CstrInput=InputBox（请输入字符串,字符串对话框,字符串）A.请输入字符串B.字符串对话框C.字符串D.空字符

15、串MsgBox函数：MsgBox提示信息”，按钮类型值+图标类型值+默认焦点值，“标题信息”A=MsgBox提示信息”，按钮类型值+图标类型值+默认焦点值，“标题信息”；A的值根据单击什么按钮有关，A的值在1,7之间取值。比如：单击“确定”按钮,A=1。例题：学生基本信息查询知识点7:1、选择结构语句（If条件语句）：单分支条件语句：格式：If条件Then语句块EndIfIf条件Then只有一条语句双分支条件语句：（称If块语句）（称If条语句）（1）以上图形所表示的函数表达式为：MsgBox”请输入查询的学生学号：,3+32+256,”格式：If条件ThenElse语句块2EndIf多分支条

16、件语句If条件1Then语句块1Elseif条件2Then语句块2oOOOOOElse语句块nEndIf其中，条件可以是：关系表达式(a5)、逻辑表达式(a5Andc4)、变量(i)或常数(0)。例题：(1)下列程序段的执行结果为AX=5Y=-20IfNotx0Thenx=y-3ElseY=x+3EndIfPrintx-y;y-xA.-33B.5-8C.3-3D.25-25以上题中的“条件”主要是逻辑表达式。(2)下列程序段的执行结果为BX=2Y=1Ifx*y0A.TrueB.FalseC.-1D.1以上题中的“条件”主要是关系表达式。(3)下列程序段的执行结果为CDimxAsIntegerI

17、fxThenPrintxElsePrintx-1A.1B.0C.-1D.不确定以上题中的“条件”主要是变量。2、选择结构语句(SelectCase语句)：SelectCase测试表达式Case表达式列表1语句块1Case表达式列表2Next循环变量CaseElse语句块nEndSelect注意： 测试表达式的类型只能是数值数据或字符型， 表达式列表的值只要第一个符合测试表达式值的要求，就结束SelectCase语句；表达式列表可以是三种结构或三种混合结构：、1To10、1,3,5,6,7,8、Is10、1,2,5,7,Is10例题：(1)在窗体上画一个名称为Command1的命令按钮和两个名称

18、分别为Text1和Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Text1.textSelectCasenCase1T10X=10Case2,4,6X=20CaseIs5)、 逻辑表达式(a5Andc4)、 变量(i)或常数(0)。执行过程：条件成立，变量的值就是“参数1”，否则变量的值就是“参数2”。例题：(1)设a=6,则执行语句:x=IIF(a5,-1,0)后，x的值为DA.5B.6C.0D.-1知识点8:循环结构For循环变量=初值To终值Step步长循环体If条件Then语句ExitForEndIf循环如果正常退出时（没有执行Exi

19、tFor语句），那么循环变量必须要大于终值或等于终值+步长。DoWhile条件Do循环体循环体LoopLoopWhile条件DoUntil条件Do循环体循环体LoopLoopUntil条件左边上下两种循环是先判断条件后执行循环体，右边上下两种循环是不管条件成立与否都至少执行一次；While循环是条件成立执行循环体，Until循环是条件不成立执行循环体。当循环While条件循环体Wend当条件为True（非0值），执行循环体。这种情况适合需要由数据的某个条件是否出现来控制循环例题：（1）下列程序段的执行结果为Bs=0:t=0:u=0Forx=1To3t=Nextu=u+Nextx-Prints;

20、t;uA.3614B.1463C.1436D.1643分析：A组语句和B语句都在X循环内，并且是并列的，所以可以先计算B组语句，A组语句暂时不算，这样很容易求出u=u+1语句循环了三次，则u=3;C组语句和D语句都在丫循环内，并且是并列的，所以可以先计算D组语句，C组语句暂时不算，这样也比较容易求出t=t+1语句循环了六次，则t=6;然后再结合答案很快就能得出答案是选B。知识点9：1、数组：数组的概念等级考试主要考一维数组、二维数组和三维数组（三维的只需知道数组中可以存储多少数据即可）。数组的格式：a（2,3To7,-1To2）,那它的存储空间大小计算：ForyFc=1Toxrz=yTo3每一

21、维用上界-下界+1计算，例如(2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。数组的下标下界是根据语句OptionBasen来决定：当n=0时，数组下标下界是从0开始；当n=1时，数组下标下界是从1开始。数组分为：固定大小数组：Dima(10)AsInteger动态大小数组：Dima()AsIntegerRedima(10)Array函数用法：为一个变体型变量创建一个数组。DimaasVarianta=Array(1,2,3,4,5)因此：a(0)=1a(1)=2a(2)=3a(3)=4a(4)=5注意：如果数组被定义为一下三种类型，(1)数值型(2)字符型(3)逻辑型，

22、则它们初始化的数组元素数值分别为：0、空字符串和False。例题：(1)在窗体上画一个命令按钮(其Name属性为Command1,然后编写如下代码：PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4Forj=1To4Aaa(i,j)=(i-1)*3+jNextjNextiIFori=3To4Forj=3To4PrintNextiEndSub程序运行后，单击命令按钮，其输出结果为A.69B.710C.811D.912知识点10：、过程与函数:710811分析：9121013对循环和数组结合的问题，往往要先看后根据B组语句输出结果代入到A组语

23、句中求结果。B组语句输出结果是什么，然组语句输出结果:a(3,3)a(4,3)a(3,4)a(4,4)代入A组语句的结果:9121013 过程与函数的参数类型有：实参和形参；传递方式有：值传递和地址传递。 以下程序中，x,y为实参；a,b为形参注意：实参要与形参的类型、个数要相同。 在形参a,b之前如果加上关键字ByVal,那么就是值传递；如果加上关键字ByRef或不加关键字，那么就是地址传递。 过程调用方式有两种：CallSwap(x,y)或Swapx,y(Swap是过程名)实现两个数的交换功能Frivatiz：SubCoremandlJC1ick0Dim工AsInteger,yAsInte

24、gerK=10:v=_20或使用PrintyEndWub，一PrivateSubSwapfaAsInteger,AsInteger)DimtAsInteger地址传递方式注意：只有地址传递方式才能实现交换功能，值传递方式x,y的值不变。当有事件过程和通用过程一起运行时，先执行事件过程(Command_Click)。例题：(1)假定有如下的Sub过程:t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，其名称为Command1然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsSingle,bAsSinglea=5:b=4Sa,bPrinta,bE

25、ndSub程序运行后，单击命令按钮，输出结果为C。A.54B.11C.1.254D.1.251程序分析：首先形参x是地址传递方式，当a传递给x时，因此a与x拥有一个共第武同存储空间，图形表示：11;形参y是值传递方式，当b传递给y时，因此bb4.”I4JII与y是两个不同存储空间，图形表示：一;那么在过程S中:EndSubS(xAsSingle,ByValyasSingle)不影响b的值，则还是4,因此Printa,b的结果就是选择C答案。知识点11:1、菜单和鼠标事件菜单编辑器的使用:注意：菜单中的标题可以为空，但不论是第几级菜单名称必须唯一，且不能为空。鼠标事件(按下鼠标键事件过程)主要事

26、件有：Form_MouseDown、Form_MouseUp和Form_MouseMova现在以某个为例说明：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub上述事件过程不仅使用在窗体上(Form_MouseDown),还可以使用于大多数控件上，包括命令按钮(Command1_MouseDown)；文本框(Text1_MouseDown)等。以上鼠标事件过程的参数，含义如下：(1)Button有值1、2和4,分别表示按下左键、右键和中建；(2)Shift表示Shift、Ctrl和

27、Alt键的状态，其值分别是1、2和4;(3)X,Y表示鼠标光标的坐标位置弹出式菜单(菜单和鼠标事件的结合使用)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,运算x=t/y后，x=1.25,图形表示;因此a的值就是1.25;运算y=tMody后，y=1,图形表示b和y存储空间不同，则2、公共对话框（又称通用对话框）通用对话框是我们考试中唯一一个控件箱中没有的控件，需要我们自己添加的，添加的方法是在“工程菜单的部件项中选择MicrosoftCommonDialogControl6.0”后，才会在控件箱中出现通用对话框图标通用对话框图

28、形XAsSingle,YAsSingle)IfButton=1ThenPopUpmenuEndIfEndSub运行效果：File按下鼠标左键通过PopUpmenu法弹出菜单File是一级菜单的名称打开通用对话睚21区直为冠圉（L）.我的文档g g11111111111口D D盘._j._jMacronetiaMacronetiaProgramProgramFiFig gf f_jr_jrav20070525av20070525a a等线考试 n 电制二连绫剧SNSN臬函我的电脑注动器-InitDirInitDir文件美型【过造黑）一Filter默认文件名一反14的电我最近的文档打开取消I|J

29、本场磁盘Q Q二7p|p|J J国咽，网上都居根据以上图形，相应的程序代码如下:PrivateSubPrivateSubCcmn)aiidl_?.Ccmn)aiidl_=0AndcIDSKThenmax-a(i)EndIfIfa(i)(minThenirin=a(i)EndIf.smn-sum+a(i)MeatiEndSubVisualBasicVisualBasic 程序设计基础知识要点（程序设计篇）全国计算机等级考试中常用的程序编程部分：一、求最大数、最小数、求和以及求平均数二、求阶层三、求最大公约数四、求素数五、求水仙花数（拆数法）六、排序（选择排序、直接插入排序和冒泡排序）七、字符操作

30、1、字符串取反（反向输出字符串）2、判断字符串中的某个字符是否为字母3、统计每类字符的个数八、矩阵求法（二维数组）九、文件读写操作1、字符型读写操作2、数值型读写操作九大问题具体例子分析：一、求最大数、最小数、求和以及求平均数例题：随机产生10个两位整数，并存入数据a中，然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。Fori=1To10Sum=Sum*iNextiPrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,MaxAsInteger,MinAsIntegerDimSumasInteger,AvgAsSi

31、ngleSum=0Fori=1To10a(i)=Int(Rnd*90)+10NextiMax=a:Min=a(1)Fori=1To10IfMaxa(i)ThenMin=a(i)EndifSum=Sum+a(i)NextiAvg=Sum/10Print“最大数：”；Max;“最小数:EndSub二、求阶层例题：求10!.PrivateSubCommand1_Click()DimSumAsLong,iAsIntegerSum=1产生1099之间的随机整数假设最大数和最小数求最大数求最小数求和求平均数”;Min;和：；Sum;平均数：；Avg10!=;SumPrintEndSub三、求最大公约数例题

32、：求M和N两个数的最大公约数。PrivateSubCommand1_Click()DimMAsInteger,NAsInteger,RAsIntegerM=36:N=24DoR=MModNM=NN=RLoopWhileR0或LoopUntilR=0Print“M和N的最大公约数为：”；MEndSub四、求素数例题：求100200之间的所有素数，并按每行5个元素格式输入所有素数。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerjAsIntegerForn=100To200Fori=2Ton-1n-1可以是n/2,也可以是Sqr(n)形式IfnM

33、odi=0ThenExitForNextiIfin-1Thenj=j+1统计素数个数Printn;IfjMod5=0ThenPrint输出5个数换行EndIfNextnEndSub五、求水仙花数(拆数法)例题：求100999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1A3+5A3+3A3条件成立。方法1:(数值型：使用运算符Mod和)PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=100To999a=i100取百位数b=i10Mod10取十位数c=iMod

34、10取个位数Ifi=aA3+bA3+cA3ThenText1.Text=Text1.Text&i&Space(2)EndIfNextiEndSub方法2：(字符型：使用函数Mid、Val和CStr)PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=100To999a=Val(Mid(Cstr(i),1,1)取百位数b=Val(Mid(Cstr(i),2,1)取十位数c=Val(Mid(Cstr(i),3,1)取个位数Ifi=aA3+bA3+cA3ThenText1.Text=

35、Text1.Text&i&Space(2)EndIfNextiEndSub六、排序问题例题：随机产生10个两位整数，并存入数据a中，然后将这10个元素从小到大排序(或从大到小)，并将排序号的数组显示在文本框中。方法1：选择排序PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,tempAsIntegerFori=1To10a(i)=Int(Rnd*90)+10产生1099之间的随机整数NextiFori=1To9比较n-1轮Forj=i+1To10每一轮比较几次Ifa(i)a(j)Then从大到小：

36、a(i)a(j)ThenPointer=jNextjIfiPointerThentemp=a(i)a(i)=a(j)a(j)=tempEndIfDimPointerAsIntegerFori=1To10a(i)=Int(Rnd*90)+10NextiFori=1To9Pointer=iForj=i+1To10产生1099之间的随机整数比较n-1轮每一轮比较几次NextiFori=1To10Text1.Text=Text1.Text&a(i)&space(2)NextiEndSub方法1:冒泡排序PrivateSubCommand1_Click()Dima(10)AsIntege

37、r,iAsInteger,jAsInteger,tempAsIntegerFori=1To10a(i)=Int(Rnd*90)+10产生1099之间的随机整数NextiFori=1To9比较n-1轮Forj=1To10-i每一轮比较几次Ifa(j)a(j+1)Then从大到小：a(i)=AAndc=aAndc=s=s+cEndIfNextiPrintsEndSub3、统计每类字符的个数例题：在文本框中输入一个字符串，比如：A$m4Ch&*F13iy%p41H请分别统计出大写字母、小写字母、数字字符和其他字符的个数。PrivateSubCommand1_Click()DimnAsInte

38、ger,iAsInteger,cAsStringDimn1AsInteger,n2AsInteger,n3AsInteger,n4AsIntegern=Len(Text1.Text)Fori=1Tonc=Mid(Text1.Text,i,1)SelectCasecCaseAToZn1=n1+1CaseaTozn2=n2+1Case0To9n3=n3+1CaseElsen4=n4+1EndSelectNexti八、矩阵（二维数组）45四种矩阵的算法：（图形表示）zThenPrint大写字母个数:”;n1;小写字母个数：；n2;数字字符个数:”;n3;其他字符个数:EndSub;n4778010对

39、比图始,3)49495534组中，现根据以上四种图形分别求主对角线、副对角线、外圈数据以及内圈数据之和。第一种矩阵算法：(主对角线)PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10NextjNextiFori=1To4Forj=1To4Ifi=jThen行下标和列下标相同sum=sum+a(i,j)EndIfNextjNextiPrint主对角线数据之和；sumEndSub第二种矩阵算法：(副对角线)Pr

40、ivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10NextjNextiFori=1To4Forj=1To4Ifi+j=5Then行下标和列下标之和是一个定数sum=sum+a(i,j)EndIfNextjNextiPrint副对角线数据之和；sumEndSub1245的乃56一岬1057/dgg16285534内圈数据例题：有一个4行4列二维数组，现随机生成16个两位整数，并将它们存入到二维数第三种矩阵算法：(外圈数据)PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10NextjNextiFori=1To4Forj=1To4Ifi=1Ori=4