1、计算机二级(VB)60 及答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：60，分数：4200.00)1.下面程序段的运行结果是（ ）。 a=1 b=1 Do a=a+1 b=b + 1 Loop Until b5 Print“k=“；a；Spc(4)；“b=“；b+a （分数：70.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=6 b=122.关于 Visual Basic“方法“的概念错误的是（ ）。（分数：70.00）A.AbstractTableModelB.TableModelC.JTableD
2、.TableModelable3.有如下事件过程，单击命令按钮扣，输出结果是( )。 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function （分数：70.00）A.t=18B.t=24C.t=30D.t=324
3、.与 List1Text 属性值相同的是（ ）。（分数：70.00）A.List1ListCountB.List1List(ListCount-1)C.List1ListIndexD.List1List(ListListIndex)5.在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) (S + 2) Number=Number+1 Loop Until S=6 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：70.00）A.Function CT(ByVal
4、a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB.Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC.Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD.Function CT(ByVal a As Integer) If a Mod 2=0 Then Re
5、turn 1 Else Return 0 End if End Function6.以下属于 Visual Basic 合法的数组元素是（ ）。（分数：70.00）A.x8B.x8C.s(0)D.v87.下列表达式中不能判断 x 是否为偶数的是【 】（分数：70.00）A.x2= Int (x2)B.x Mod 2=0C.Fix(x2)=x2D.x2=08.下列说明中，不属于随机文件特点的是（ ）。（分数：70.00）A.可移植性和跨平台的特点B.多线程的并发机制C.编译器将 Java 源程序转换成机器码D.Applet 是 Java 的特殊应用程序，它嵌入到 HTML 中，随主页发布到互连网
6、上9.执行语句 s=Len(Mid(“VisualBasic“,1,6)后，s 的值是（ ）。 （分数：70.00）A.VisualB.BasicC.6D.1110.以下可以作为 Visual Basic 变量名的是_。 （分数：70.00）A.A#AB.counstAC.3AD.?AA11.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i =
7、1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 （分数：70.00）A.15B.14C.13D.1212.通常情况下，垂直滚动条的值是（ ）。（分数：70.00）A.由下往上递增B.由上往下递增C.由左到右递增D.由右到左递增13.以下为 Visual Basic 学习版的控件的是（ ）。（分数：70.00）A./B./ *C.* /D.|14.设有如下过程： Sub ff(x
8、，y，z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是（ ）。 （分数：70.00）A.12B.13C.14D.1515.下列程序段的执行结果为( )。 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I （分数：70.00）A.22B.10C.34D.3016.下列程序段的执行结果为（ ）。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I=7 Print“I=“；I Print“X=“；x （分数：70.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=1
9、117.下列说法不正确的是（ ）。（分数：70.00）A.对象的操作由对象的属性、事件和方法来描述B.Visual Basic 是面向对象的程序设计，Visual Basic 中只有窗体和控件两种对象C.属性是对象的特征，不同的对象有不同的属性D.对象事件在代码窗口中体现过程18.有如下的程序： Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print P End Sub Private Function
10、Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2 End Function 单击命令按钮后，输出结果为（ ）。 （分数：70.00）A.标准模块也称程序模块文件，扩展名是.basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体19.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Clic
11、k() Dim intNum As Integer intNum=InputBox(“请输入：“) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If XA.0B.5C.15D.无任何输出20.下列程序的执行结果为( )。 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal
12、m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub （分数：70.00）A.20 12 20 15B.12 20 12 25C.24 15 12 20D.24 12 12 1521.在窗体上画一个命令按钮（其 NAME 属性为 Command1），然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4)；j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j
13、= j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（ ）。 （分数：70.00）A.4321B.1234C.34D.1222.窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件 out.txt 中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【 】（分数：70.00）A.Private Sub Command1_Click() Open“out.txt“For Input As#1 Print#1,Text1.Te
14、xt Print#1, Close #1 End SubB.Private Sub Command1_Click() Open“out.txt“For Output As#1 Text1l.Text Close#1 End SubC.Private Sub Command1_Click() Open“out.txt“For Append As#1 Print#1,Text1.Text Close #1 End SubD.Private Sub Command1_Click() Open“out.txt“For Random As#1 Print#1,Text1.Text Close#1 End
15、 Sub23.下列程序段，在运行时最后输出的内容是（ ）。 a=2 c=1 AAA: c=c + a If c10 Then Print c GoTo AAA Else Print “10 以内的奇数显示完毕“ End If （分数：70.00）A.3B.7C.9D.10 以内的奇数显示完毕24.要想在过程调用中返回两个结果，下面的过程定义语句合法的是（ ）。（分数：70.00）A.20B.21C.56D.3225.在窗体上画 2 个命令按钮,名称分别为 Command1、Command2,并编写如下程序: Const n=5,m=4 Dim a(m,n) Private Sub Comman
16、d1-Click() k=1 For i=1 To m For i=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 To m For i=1 To n If i=1 or i=m Then summ=summ+a(i,j) Else If j=1 or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程 Command1_Click()的作用是在二维数组 a 中存放 1
17、 个 m 行 n 列的矩阵；过程Command2-Click()的作用是【 】 （分数：70.00）A.计算矩阵外围一圈元素的累加和B.计算矩阵除外围一圈以外的所有元素的累加和C.计算矩阵第 1 列和最后一列元素的累加和D.计算矩阵第 1 行和最后一行元素的累加和26.以下各项，可以作为 Visual Basic 变量名的是（ ）。（分数：70.00）A.BookB.2_SeekC.123.58D.Book-127.下面程序段执行结果为（ ）。 x=Iht(Rnd()+4) Select Case x Case 5 Print“excellent“ Case 4 Print“good“ Cas
18、e 3 Print“paSS“ Case Else Print “fail“ End Select （分数：70.00）A.excellentB.goodC.passD.fail28.下面循环语句中在任何情况下都至少执行一次循环体的是【 】（分数：70.00）A.Do While 循环体 LoopB.While 循环体 WendC.Do 循环体 LoopD.Do Until 循环体 Until Loop29.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（ ）。（分数：70.00）A.MenuOneVisible=TreeB.MenuOneVisible=FalseC.MenuOn
19、eEnabled=TrueD.MenuOneEnabled=False30.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：70.00）A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量31.在 Visual Basic 中，被称为对象的是 （ ）。（分数：70.00）A.在需要自定义 Swing 构件的时候，首先要确定使用哪种构件类作为所定制构件的父类B.paintComponent( )方法位于 JComponent 类内，该方法与 paint( )方法类似，也要求一个 Graphics类的实例为
20、参数C.无论在系统开始执行还是窗口被覆盖后需要重新绘制时，paintComponent( )方法都会被系统自动调用，所以在程序中不要调用它，否则会与自动化过程相冲突D.如果需要重新绘制 Applet，就调用方法 paintComponent( )32.下列说法错误的是（ ）。（分数：70.00）A.11B.13C.23D.3333.以下叙述错误的是_。 （分数：70.00）A.用 Shell 函数可以执行扩展名为.exe 的应用程序B.若用 Static 定义通用过程，则该过程中的局部变量都被默认为 Static 类型C.Static 类型的变量可以在标准模块的声明部分定义D.全局变量必须在标
21、准模块中用 Public 或 Global 声明34.以下叙述中错误的是_。 （分数：70.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C.Visual Basic 中允许不同对象使用相同名称的方法D.Visual Basic 中的对象具有自己的属性与方法35.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox(“op=“) If op$=“+“ Then a=a+2 If op$=“-“ Then a=a-2 Print a （分数：70.00）A.报表的主体区
22、域B.页面页眉或页面页脚区域C.报表页眉或报表页脚区域D.组页眉或组页脚区域36.标签控件能够显示文本信息，决定其文本内容的属性是（ ）。（分数：70.00）A.AlignmentB.CaptionC.VisibleD.BorderStyle37.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。 （分数：70.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then MsgBox “请输入大写字母“ KeyAscii = 0 End If E
23、nd SubB.Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 90 Then MsgBox “请输入大写字母“ KeyCode = 0 End If End SubC.Private Sub Text1_MouseDown(Button As Integer,_ Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) 90 Then MsgBox “请输入大写字母“ End If End SubD.Private Sub
24、Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) 91 Then MsgBox “请输入大写字母“ End If End Sub38.假定有如下的窗体事件过程： Private Sub Form_Click() a$ = “Microsoft Visual Basic“ b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_。 （分数：70.00）A.Microsoft VisualB
25、.MicrosoftC.BasicD.539.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：70.00）A.0 8B.40 72C.4 50D.78 5040.以下属于 Visual Basic 合
26、法的数组元素是（ ）。（分数：70.00）A.J2DEB.J2SEC.J2MED.J2EE41.已知使用 Show 方法的格式为:窗体名称Show模式，如果要使窗体是“模态型”宙体，则“模式”值为（ ）。（分数：70.00）A.t.f；B.this.n；C.Test.m；D.Test.f;42.在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（ ）。（分数：70.00）A.设置 Enabled 的值为 TrueB.设置 TabIndex 的值为 1C.设置 TabIndex 的值为 0D.设置 Index 的值为 043.下列说法错误的是（ ）。（分数：70.00）A
27、.Caption 不是只读属性，运行时对象的名称可以通过代码改变B.设置 Height 或 Width 的数值单位为 twip，1twip=1/10pointC.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键44.以下叙述中错误的是（ ）。 （分数：70.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”
28、被视作不同的字符45.下列程序运行结果是( )。 a=25：b=-45 i=Not a=b Print i （分数：70.00）A.-45B.TrueC.0D.不能输出46.以下程序段的输出结果为（ ）。 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k （分数：70.00）A.20B.21C.56D.3247.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：70.00）A.在活动窗体中只能通
29、过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4 个黑色的小方块，表明该控件是活动的C.窗体中活动控件只能有一个D.非活动控件在窗体是隐藏的48.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox(“op=“) If op$=“+“ Then a=a+2 If op$=“-“ Then a=a-2 Print a （分数：70.00）A.2B.-2C.0D.+249.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：70.00）A.n/102B.(n-n10)/100C.n10D.n100/1050.在窗体上添加标签
30、控件 Label1 之后，标签控件的默认的名称 Name 是（ ）。（分数：70.00）A.LabelB.Label1C.TextD.Text151.表达式 x=Sqr(a2-5)+sqr(b2-5)的类型是（ ）。（分数：70.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数52.下列程序段的执行结果为( )。 I=4 x=5 Do I=I + 1 X=K2 Loop Until I=7 Print“I=“；I Pri
31、nt“x=“；x （分数：70.00）A.I=4 x=258694B.I=7 x=256987C.I=6 x=365840D.I=7 x=39062553.设 a=5,b=6,c=7,d=8,执行下列语句后,X 的值为【 】 X=IIF(ab)And(Cd),10,20) （分数：70.00）A.10B.20C.TrueD.False54.窗体上有名称分别为 Text1、Text2 的 2 个文本框，要求文本框 Text1 中输入的数据小于 500，文本框Text2 中输入的数据小于 1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是_。 Private Sub
32、 Text1_LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ?,x As Integer) If Val(t.Text)x Then MsgBox “请重新输入！“ End If End Sub （分数：70.00）A.TextB.SelTextC.ControlD.Form55.运行下列程序段后，显示的结果为（ ）。 J1=23 J2=32 If J1J2 Then Prin
33、t J2 Else Print J1 （分数：70.00）A.23B.32C.55D.233256.单击窗体上的关闭按钮时，触发的事件是（ ）。（分数：70.00）A.Form_Initialize ( )B.Form_Load ( )C.Form_Unload ( )D.Form_Click ( )57.如果一个变量未经定义就直接使用，则该变量的默认类型为（ ）。（分数：70.00）A.VariantB.ByteC.BooleanD.Integer58.设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组 b 中全部元素的个数是（ ）。 （分数：70.
34、00）A.2310B.2016C.1500D.165859.当把框架的何属性设置为 False 时，其标题会变灰，框架中所有的对象均被屏蔽?（分数：70.00）A.NameB.EnabledC.CaptionD.Visible60.在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End Sub 程序运行后，输出的结果
35、为( )。 （分数：70.00）A.如果选项组结合到某个字段，则只有组框架本身结合到该字段，而不是组框架的复选框、选项按钮或切换按钮B.选项组可以设置为表达式或非结合选项组，也可以在自定义对话框中使用非结合选项组来接受用户的输入，但不能根 据输入的内容来执行相应的操作C.选项组是由一个组框、一个复选框、选项按钮或切换按钮和关闭按钮组成的D.以上说法均错二、填空题（每空 2 分，共 30 分）(总题数：20，分数：30.00)61.描述“x 是小于 100 的非负整数“的 Visual Basic 表达式是 1。（分数：1.50）填空项 1:_62.为了选择多个控件，可以按住 1 键，然后单击每
36、个控件。（分数：1.50）填空项 1:_63.下面是用冒泡法将 5 个整数按升序排列，请将程序补充完整。 Sub GASR1 Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j= 2 If m(i) =m(j) Then 3 m(i) =m(j) m(j) =t End If Next j 4 For i=0 To 4 Print m(i) Next i End Sub （分数：1.50）填空项 1:_64.在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景
37、色变为红色 如此循环。单击“结束”按钮，程序运行结束。请填空。 Private Sub cmdChange_Click1 If Mark=0 Then 2 Mark=1 ElseIf 3Then FormlBackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1BackColor；vbBlue 4 End If End Sub Private Sub cmdExit_Click5 End End Sub （分数：1.50）填空项 1:_填空项 1:_填空项 1:_65.在面向对象方法中，类的实例称为 1。（分数：1.50）填空项 1:_66.以下过程的
38、作用是将 26 个小写字母逆序打印出来，请补充完整。 Sub Inverse1 For i=122 To 2 Print 3 ； Next i End Sub （分数：1.50）填空项 1:_67.建立随机文件 Workersdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open“e:/Workersdat“For Random As #1 Len=Len(Workerl) Workerlname=“zn“：Worker1number=10
39、0# 1 Close #1 Open“Workersdat“For Random As #1 Len=Len(Worker1) 2 Print“Worker1：“，Worker1name Print “Worker1：“，Worker1number Close #1 （分数：1.50）填空项 1:_68.改变驱动器列表框的 Drive 属性值将引发 1 事件。（分数：1.50）填空项 1:_69.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click1 Dim arr(1 To 100) As Integer For
40、 i = 1 To 100 arr(i) = Int(Rnd * 1000) Next i Max = arr(1) Min = arr(1) For i = 1 To 100 If 2 Then Max = arr(i) End If If 3 Then Min = arr(i) End If Next i Print “Max=“; Max, “Min=“; Min End Sub 程序运行后，单击命令按钮，将产生100 个 1000 以内的随机整数，加入数组 arr 中，然后 查找并输出这 100 个数中的最大值 Max 和最小值Min，请填空。 （分数：1.50）填空项 1:_70.在
41、名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click1 5 Open “d:/test/smtext1.txt“ For Input As #1 Do While Not 2 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open “d:/test/smtext2.txt“ For O
42、utput As #1 Print #1, 3 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：1.50）填空项 1:_71.如果存在如下过程： Private Function FMax(a1As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last
43、 If a(i) Max Then Max=a(i) Next i FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click2 ReDim m(1 To 4) As Integer m(1)=20：m(2)=30：m(3)=50：m(4)=100 c=FMax(m) Print c End Sub 单击命令按钮，其输出结果为 3。 （分数：1.50）填空项 1:_72.Visual Basic 应用程序中标准模块文件的扩展名是 1。（分数：1.50）填空项 1:_73.在深度为 7 的满二叉树中,度为 2
44、 的结点个数为 1。（分数：1.50）填空项 1:_74.在 Visual Basic 的立即窗口内输入以下语句 X=97 ? Chr (X) 在窗门中显示的结果是 1。 （分数：1.50）填空项 1:_75.Visual Basic 对象可以分为两类，分别为 1 和 2。（分数：1.50）填空项 1:_76.下面程序的功能是从键盘输入 1 个大于 100 的整数 m,计算并输出满足不等式 1+2 的 2 次方+3 的 2 次方+4 的 2 次方+.+n 的 2 次方 1 Dim S,m,n As Integer m=Val(Input Box(“请输入一个大于 100 的整数“) n= 2
45、S=0 Do While s3 End Sub （分数：1.50）填空项 1:_填空项 1:_77.数据结构分为线性结构和非线性结构,带链的队列属于 1。（分数：1.50）填空项 1:_78.下列事件过程的功能是：通过 Form _ Load 事件给数组赋初值为 35、48、15、22、67，Form_ Click事件找出可以被 3 整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。 Dim Arr 1 Private Sub Form _ Load2 3 End Sub Private Sub Form _ Click4 5 If Int(x/3)=x/3 Then Pri
46、nt x End If Next x End Sub （分数：1.50）填空项 1:_79.请填写下列空白，以实现运行后形成一个主对角线上元素值为 1，其他元素为 0 的 66 阶矩阵。 Private Sub Command1 Click1 Dim s(6，6) For i=1 To 6 For j=1 To 6 If i=j Then 2 Else 3 End If Print 4 Next j Print Next i End Sub （分数：1.50）填空项 1:_80.以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来,要求把A(1)到 A(10)依次赋给 B(1,1)到 B(1,10),把 A(11)到 A(20)依次赋给 B(2,1)到 B(2,10),把 A(91)到A (100)依次赋给 B(10,1)到 B(10,10)。请填空。 Option Base 1 Private Sub Form_Click1 Dim i As Integer,J As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*10
