vb试卷答案.docx

界面设计1、以下有关对象属性的说法中正确的是 D 。 A、对象所有的属性都罗列在属性窗口列表中 B、不同对象不可能有同名属性C、不同对象的同名属性取值一定相同D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变2、有程序代码：Text1.Text=”Visual Basic”其中的Text1、Text和”Visual Basic”分别代表C 。A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值3、一个对象可以执行的动作与可被对象识别的动作分别称为 B 。 A、 事件，方法 B、 方法，事件 C、 属性，方法 D、 过程，事件 4、Visual Basic是一种面向 D 的程序设计语言。A、过程 B、 用户 C、 方法 D、 对象 5、一只白色的足球踢进球门，则白色、足球、踢、进球门是 B 。 A、属性、对象、方法、事件 B、 属性、对象、事件、方法 C、对象、属性、方法、事件 D、 对象、属性、事件、方法 6、Visual Basic是用于开发 B 环境下的应用程序的工具。 A、DOS B、Windows C、DOS和Windows D、UNIX7、一个可执行的Visual Basic中应用程序至少要包括一个 C 。 A、标准模块 B、类模块 C、窗体模块 D、辅助模块 8、在Visual Basic最基本的对象是 B ，它是应用程序的基石。 A、标签 B、窗体 C、文本框 D、命令按钮9、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入 A 。 A、- B、+ C、& D、#10、在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入 B 符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。A、下划线 B、& C、$ D、11、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”visual basic”若本语句执行前，标签控件的名称属性和Caption属性取缺省值，则标签控件的名称属性和Caption 属性在执行本语句前的取值分别为 C 。 A、 Label, Label B 、 Label, Caption C、 Label1, Label1 D、 Caption, Label 12、同上题，该语句执行后，标签控件的名称属性和caption属性取值分别为 B 。A、Label, visual basic B、Label1, visual basic C、Label1, caption D、 Label1, label113、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按钮控件的名称属性和Caption属性分别为 C 。A、OK、Cmd B、 Cmd、OK C、 CmdOK、OK D、 OK、CmdOK 14、窗体Form1的名称属性是frm，它的Load事件过程名是 A 。A、Form_Load B、 Form1_Load C、 frm_Load D、 Me_Load 15、用窗体的 C_属性来设置窗体的标题。第1页A、Style B、Text C、Caption D、Name16、多窗体程序有多个窗体组成。在缺省情况下，VB在执行程序时，总是把 B 指定为启动窗体。A、不包含任何控件的窗体 B、设计时的第一个窗体 C、命名为Frm1的窗体 D、包含控件最多的窗体 17、Visual Basic程序设计时常用的Print、Cls属于 C 。 A、属性 B、打印字库 C、方法 D、事件18、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的 D 中安排适当的单选按钮，即可实现。 A、框架控件（Frame）或图象控件(Image) B、组合框（ComboBox）或图象控件(Image)C、组合框（ComboBox）或图片框（PictureBox） D、框架控件（Frame）或图片框（PictureBox）19、在程序中可以通过复选框和单选按钮的 B 属性值来判断它们的当前状态它。 A、Caption B、Value C、Checked D、Selected 20、使用 B 方法可将新的列表项添加到一个列表框中。A、Print B、AddItem C、Clear D、RemoveItem 21、在以下有关对象属性的叙述中，不正确的是 C 。 A、一个对象的属性可分为外观、行为等若干类。 B、不同属性可能具有不同的数据类型。C、一个对象的所有属性都可在属性窗口的列表中进行设置。 D、属性窗口中的属性列表既可按字母序也可按类别排列。 22、下列语句中，不能正确执行的是 D 。 A、If Option1.Value ThenB、If Option1.Value = True Then C、Check1.Value = 0 D、Check1.Value = True23、在以下有关对象属性的叙述中错误的是 D 。 A、所有对象都具有Name 属性。B、只能在执行时设置或改变的属性为执行时属性。C、对象的某些属性只能在设计时设定，不能使用代码改变。 D、Enabled属性值设为False的控件对象在窗体上将不可见。 24、以下使用方法的语句中，正确的是 A 。A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 25、以下所列的7个控件中，具有Caption属性的有 A 个。PictureBox Frame OptionButton ListBox TextBox Form DriveListBox A、 3 B、 4 C、 2 D、 5 26、以下使用方法的代码中，正确的是 C 。 A、 Label1.SetFocus B、Form1.Clear C、 Text1.SetFocus D、Combo1.Cls27、放置控件到窗体中的最迅速的方法是_A_ A、双击工具箱中的控件 B、单击工具箱中的控件C、拖动鼠标 D、单击工具箱中的控件并拖动鼠标 28、Image 控件加载图片后的尺寸_D_A、 比图片大 B、比图片小 C、与图片大小不同 D、与图片大小相同 29、设有一个命令按钮，若要实现按回车键等同按此键，应设置其_C_A、Cancel属性设为True B、Cancel属性设为False C、Default属性设为True D、Default属性设为False 30、下列 _C_ 不是列表框的方法A、AddItem B、Clear C、Print D、RemoveItem31、要想在一个文本框中显示多行内容,应在界面设计时对下列哪一个属性进行设置 C 。 A、 Text B、Font C、Multiline D、Alignment 32、不论何种控件都具有的属性是 AA、 Name B、Caption C、Text D、Forecolor 33、程序运行时，系统自动执行启动的是窗体的 A 事件。A、 Load B、Unload C、Click D、Gotfocus 34、在VB集成环境中创建VB应用程序时，除了工具箱窗口、属性窗口、窗体中的窗口外，还有是必不可少的。A、 窗体布局窗口 B、立即窗口 C、代码窗口 D、监视窗口 35、当移动控件，重新设定其尺寸时， C 属性会自动改变。A、Click Change B、Name Caption C、Top Left D、Cancel Default36、当用户单击命令按钮时， B 属性可以使得命令按钮对激发事件无效。A、 Name B、Enable C、Default D、Cancel37、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于 D 状态。A、 不选中 B、不显示 C、禁止 D、选中 38、计时器控件每次经历一个固定的时间间隔就会 B 。A、 修改属性 B、触发事件 C、建立窗体 D、显示图片 39、菜单编辑器通过 A 来确定某个菜单栏选项的子菜单。A、 缩进 B、编号 C、复选框 D、下箭头 40、在菜单过程中使用的事件是利用鼠标 C 菜单条来实现的。A、 拖动 B、双击 C、单击 D、移动41、当一个PictureBox控件的AutoSize属性为True时，在该控件中载入一个比控件的高度与宽度都大的图片时，图片的大小与控件的大小相比是 C 。 A、 大 B、小 C、相等 D、未知 42、以下四个说法中不正确的是 B 。A、 可以通过双击工具箱中的控件，将控件加入窗体上 B、 VB的所有基本控件都可以改变大小 C、 控件的工具箱中可以添加新的控件D、 在窗体上选中控件，按DEL键可以删除该控件43、若要将水平滚动条的最小值设为0，最大值设为255，应对其 D 属性进行设置。 A、 Left 和Top B、Width 和 Height C、SmallChange 和 LargeChange D、Min 和 Max44、当某一按钮的 B 属性设置为False时，该按钮为灰白显示。 A、 Visible B、Enable C、BackColor D、Default 45、在下列控件中， D 控件不能改变大小。A、 TextBox B、Label C、Frame D、Timer 二、 填空题：第2页1、 复选框为灰色，代表不可用，其Value值为 22、 窗体Form1的名称属性是frm,它的Load事件过程名是 Form_Load 3、 要改变一个窗体的标题，应设置其 Caption 属性为相应的值4、 计时器控件可以设置时间间隔，具体应设置 Inteval 属性值，其计数单位为 毫秒 。 5、 计时器控件 没有 （有或没有）方法，可以响应的事件仅有 Timer事件 。6、 列表框的ListIndex属性值为最后选中的列表项序号，第一个列表项的序号为 0 ，如果未选任何项目，则其值为 1 。7、 List1.Text代表的是名称为List1的列表框的列表项正文，其值为当前选项中的文本，它与List1.List(List1.ListIndex) 相同。8、 在对列表框进行列表项的添加时，使用 AddItem 方法，其中可以指定要插入的位置序号，若不指定插入位置，则插入到列表 最后 。9、 Cls方法适用于 窗体 和 图片框 的清除，若是对列表框和组合框进行清空则使用Clear 方法。10、 若在程序运行时想直接按回车键或者按ESC键等同于单击命令按钮，则应该设置命令按钮的 Default 或 Cancel 属性为 TRUE 。11、 在程序代码中，使用方法 Hide 和 Show 可以隐藏或显示窗体。程序设计基础一、选择题1、 表达式2*32+2*8/4+32的值为 B 。 A、35 B、31 C、49 D、412、 如果x是一个正实数，对x的第3位小数四舍五入的表达式是 B A、 0.01*Int(x+0.005) B、 0.01*Int(100*(x+0.005) C、 0.01*Int(100*(x+0.05) D、 0.01*Int(x+0.05) 3、 数学式子sin30写成VB表达式是 DA、 Sin30 B、 Sin(30) C、 SIN(30) D、 Sin(30*3.14/180) 4、 下列哪个符号不能作为VB中的变量名？ CA、 ABCabc B、b1234 C、 28wed D、 Cmd5、 要强制显示声明变量，可在窗模块或标准模块的声明段中加入语句 B A、 Option Base0 B、 Option Explicit C、 Option Base1 D、 Option Compare 6、 下面 D 不是字符串常量 A、“你好” B、“ ” C、“True” D、#False# 7、 表达式Int(8*Sqr(48)*10(-2)*10+0.5)/10的值是 B A、 .48 B、 .6 C、 .5 D、 .05 8、 表达式Val(“.123E2CD”)的值是 BA、 .123 B、 12.3 C、0 D、 .123E2CD9、 Visual Basic逻辑运算符Xor ,Or,Eqv,And中，级别最高的运算符是 D A、 Xor B、 Or C、 Eqv D、 And 10、 表达试X+1X是 DA、 算术表达式 B、 非法表达式 C、 字符串表达式 D、 关系表达11、 下列符号常量的声明中， C 是不合法的。A、Const a As single =1.1 B、Const a As Integer =12 C、 Const a As Double =Sin(1) D、Const a =OK 12、 下列叙述中不正确的是 C A、变量名的第一个字符必须是字母 B、变量名的长度不超过255个字符C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 13、 不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是25、 函数UCase(MID(“visual basic”,8,8)的值为 D A、Visual B、basic C、VISUAL D、BASIC 26、 表达式25.28 Mod 6.99的值是 C C、1 B、5 C、4 D、出错 27、 下面表达式中， A 的运算结果与其他三个不同。A、Exp（-3.5） B、Int（-3.5）+0.5 C、- Abs(-3.5) D、Sgn(-3.5)-2.5 28、 Int(100*Rnd(1)产生的随机整数的闭区间是 A A、0，99 B 1，100 C0，100 D1 ，99 29、 将任意一个正的两位数N的个位数与十位数对换的表达式为 A D A、A*B=0 And AB B、(A=0 Or B=0) And ABC、A=0 And b0 Or A0 And B=0 D、(A=0 Or B=0) Or (A0 Or B0) 14、 在一个语句行内写多条语句时，语句之间应该用 D 分隔。 A、逗号 B、分号 C、顿号 D、冒号 15、 表达式Str(Len(“123”)+Str(77.7)的值为 B （表示空格） A、377.7 B、377.7 C、80.7 D、12377.7 16、 表达式(-1)*Sgn(-100+Int(Rnd*100)的值是 BA、0 B、1 C、-1 D、随机数 17、 、/、Mod、*四个算术运算符号中，优先级最低的是_ A、 B、/ C、Mod D、* 18、 下列 C 是日期型常量。 A、“2/1/01” B、2/1/02 C、#2/1/02# D、2/1/02 19、代数式a对应的Visual Basic表达式是 Dc+bdA、a/b+c/d B、a/(b+c)/dc、(a/b+c)/d D、a/(b+c/d)220、 代数式t)3-psin(B对应的Visual Basic表达式是 C AA、(Sin(3.14159-t)(2/3)/(A*B) B、Sin(pi-t)(2/3)/A*B C、Sin(3.14159-t)(2/3)/(A*B) D、(Sin(-t)(2/3)/(A*B)21、 代数式exSin(300)2x/(x+y)lnx对应的Visual Basic的表达式是 C A、EX*Sin(30*3.14/180)*2*X/X+Y*Log(X) B、Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C、Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Log(X) D、Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X) 22、 函数Len(Str(Val(“123.4”)的值为 C A、11 B、5 C、6 D、8 23、 设A=“12345678”，则表达式Val(Left(A,4)+Mid(A,4,2)的值为 B A、123456 B、123445 C、8 D、6 24、 函数InStr(“VB程序设计教程”，”程序”)的值为 C A、1 B、2 C、3 D、4A、（N-Int(N/10)*10）*10+Int(n/10) B、N-Int(N)/10*10+Int(N)/10 C、Int(N/10)+(N-Int(N/10)D、(N-Int(N/10)*10+Int(N/10+Int(N/10) 30、 产生10,37之间的随机整数Visual Basic表达是 B A、Int(27*Rnd(1)+10 B、 Int(28*Rnd(1)+10 C、Int(27*Rnd(1)+11 D、 Int(28*Rnd(1)+1117、设C=“A”,写出下列布尔表达式的值。（1）C=”0”And C=”A”And C=”Z” TRUE （2）C=”9”Or C=”A”And C=”0”And C=”9”And C=”A”AndC=”0”Or C=”A” Or CB And CC FALSE（2）32*B Or A=C And BC Or CD FALSE （3）Not A=C Or 4*C=B2 And BA+C FALSE19、若A=20,B=80,C=70,D=30,则表达式A+B160 Or(B*C200 And Not D60)的值是 TRUE 20、设A=2,B=-2,则表达式A/2+1B+5 Or B*(-2)+6的值是 10 21、写出下面Format函数的值：（1）Format(5459.4,”# #,# # 0.00”)值为：”5,459.40” （2）Format（334.9，“#“）值为： “335” （3）Format（0.6725，“0.00”）值为： “0.67” （4）Format（0.6725，“#.00”）值为： “.67”分支结构习题一、 选择题1、 有如下程序：Private Sub Command1_Click() x = -5s = InputBox(input value) Select Case xCase Is 0 y = x + 1Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub假设运行时从键盘上输入-5，输出结果是 AA、-5 -2 B、-5 -4 C、-5 -3 D、-5 -5 2、 下列程序段的执行结果是 B X = 2 Y = 1If X * Y 0A、True B、False C、-1 D、13、 关于语句If x=1 Then y=1，下列说法正确的是 CA、x=1和y=1均为赋值语句 B、x=1和y=1均为关系表达式 C、x=1为关系表达式，y=1为赋值语句 D、x=1为赋值语句，y=1为关系表达式4、 Select case x 语句结构中，测试项可以有三种形式，以下使用正确的是： A A、Case 20is B、Case x9 and isx 二、 填空题1、 读程序，单击窗体后，在窗体上显示的内容为 Private Sub Form_Click() x = 1 t = 1Select Case t Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; yEnd Sub2、 下面的程序输入X的值，按以下公式求Y的值。-100X00X100 400 100X200x = Val(text1.Text) Select Case xCase Is200 Print x200 Case Is0 y = 100 - xCase Is=100 y = 100 + x Case Else y = 400 End Select text2.Text = y End Sub3、 有如下程序段，写出运行后的输出结果为 16 Private Sub command1_click() a = 1: b = 2: c = 3a= a + b: b = b + a: c = b + a If a 3 Or b 3 Thena = b - a: b = c - a: c = b + a End IfPrint a + b + c End Sub4、 判断某一年是否是闰年，闰年的条件是年份可以被4整除，却不可被100整除或可以被400整除。要求用户从键盘上任意输入一个年份，判断后用消息框显示结果，如输入1996，应在消息框中显示“1996是闰年”的提示。程序如下： Private Sub Form_Click() Dim n As Integern = Val(InputBox(“请输入一个年份”)If n Mod 4=0 And n Mod 1000 Or n Mod 400=0 Then MsgBox n & 是闰年 ElseMsgBox n & 不是闰年 End If End Sub5、 任意输入三个数，将其按从小到大的顺序输出。提示：这一题的思路是对输入的三个数两两比较，比如将三个数分别保存在变量a,b,c中，将a和b、c分别进行比较，如果a比b或c大，则交换a和b或c的值，这样在a中就保存三个数中的最小数，再将b和c进行比较，如果bc，则交换b与c的值，让c中保存最大数， b中保存较大数，a中保存最小数，最后，a、b和c的顺序就是从小到大的顺序。所以这一题实际上是变量交换算法的应用。程序如下： Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer Dim temp As Integer 定义中间变量 a = InputBox(输入第一个数)b = InputBox(输入第二个数) c = InputBox(输入第三个数)Print “初始值：”;a; b; c If a b ThenEnd IfIf Then temp = a: a = c: c = temp End IfIf Then temp = b: b = c: c = temp End IfPrint “排序后：”;a; b; c End Sub6、 要产生如图1所示输入函数对话框的界面图1 图2 请填空： x= InputBox(“输入检测的数据”,”数据检测”) 若希望在录入时自动显示初始值为1，则该语句应写成：x= InputBox(“输入检测的数据”,”数据检测”,”1”) 7、 填空，使程序运行时显示如图2所示的信息提示框：Msgbox “恭喜你，登录成功！”,vbOkOnly+ vbExclamation,”登录信息” 8、 运行下列程序后，单击窗体后在窗体上显示的结果是 -3 3 。 Private Sub Form_Click()Dim x As Integer ,y As Integerx=5 y=-20If Not x0 Then x=y-3 Elsey=x+3 End IfPrint x-y , y-x End sub循环结构1、 以下 B 是正确的ForNext结构。A、For x=1 To Step l0 B、For x=3 To -3 Step -3 Next x Next xC、For 1 To 10 D、For x=3 To 10 Step 3 Next Next y2、 下列循环能正常结束循环的是 C 。 A、i=5 B、i=1 Do Do第5页i=i+1 i=i+2Loop Until i0 Loop Until i=1 3、 下面程序段的运行结果为 C 。 For i=3 To 1 Step -1 Print Spc(5-i)； For j=1 To 2*i-1 Print *； Next j Print Next iA、 * B、 * C、 * D、 * * * * * * * * * 4、 下面_B_程序段不能分别正确显示1!、2!、3!、4!的值 A、For i=1 To 4 B、For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print n Next i Next i C、n=1 D、n=l For j=1 To 4 j=1 n=n*j Do While j=4 Print n n=n*j Next j Print n j=j+1 Loop 5、 执行以下语句后，a的值为_C_ Dim a As Integer a = 1Do Until a = 100 a = a + 2 LoopA、 99 B、100 C、溢出 D、101 6、 代码 For v=20 To 10 Step -2 print v Next v的循环体将执行_B_次、A、5次 B、 6次 C、10次 D、0次7、 有程序段如下：For i=1 to 3For j=5 to 1 step 1 Print i*j Next j Next i其中 “Print i*j”语句执行的次数为：_A_ A、15 B、16 C、 17 D、188、 下面程序运行后，单击command1后屏幕显示是_A_。i = 1Do While i = 100If i Mod 10 0 Then s = s + i i = i + 1 Elsei = i + 1 End If Loop Private sub command1_click() For I=1 to 4If I3 then exit for Next IFor j= 1 to 6 Next j Print I,j End subA、4 7 B、5 6 C、 4 6 9、 下列程序段的执行结果为：_B_ a = ABBACDDCBA For i = 6 To 2 Step -2 x = Mid(a, i, i) y = Left(a, i) z = Right(a, i) z = x & y & z Next i Print zA、ABA B、BBABBA C、AABAAB 10、 下列程序段的执行结果为_D_ x = 6For k = 1 To 10 Step -2 x = x + k Next kPrint k; xA、 -1 6 B、-1 16 C、11 31 D、1 6 11、 运行如下程序后，输出结果为_B_ a = 0For j = 1 To 20 Step 2 a = a + j 5 Next j Print aA、 12 B、16 C、40 D、100 12、 运行如下程序后，输出结果为_D_ s = 0D、5 7 D、ABBABA Print sA、4050 B、5050 C、5000 D、450013、 如果依次输入75,55,45,80,30,25,40,15,20,5,下列程序段的执行结果为_A_ Dim c As Integer, k As Integer, d As Integer c = 70For k = 11 To 20x = InputBox(输入X的数值:) If x c Thend = d + x: c = x Elsed = d + c End If Next k Print dA、330 B、335 C、390 D、485 14、 下列程序段的执行结果为_C_ For m = 1 To 4 a = 0For j = 1 To 5 a = 1For k = 1 To 6 a = a + 3 Next k Next j Next m Print aA、18 B、91 C、19 D、432 15、 下列程序段的执行结果为_B_ Dim a(3, 3) As Integer For j = 1 To 3 For k = 1 To 3a(j, k) = (j - 1) * 3 + k Next k Next jFor j = 2 To 3For k = 2 To 3 Print a(k, j); Next k Print Next jA、 2 5 B、5 8 C、4 7 D、5 93 6 6 9 5 8 6 8 16、 下列程序段的执行结果为_D_ j = 0: n = 0 Do While n 3j = (j + 1) * (j + 2) n = n + 1 LoopPrint j; nA、 0 1 B、3 3 C、30 4 D、182 3 17、 下列程序段的执行结果为_B_ n = 0For i = 1 To 3For j = 5 To 1 Step -1 n = n + 1 Next j Next iPrint n; j; iA、12 0 4 B、15 0 4 C、15 3 1 D、12 3 1 18、 下列程序段的执行结果为_A_ Dim a(-5 To 6)For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next iPrint a(LBound(a, 1); a(UBound(a, 1)A、-5 6 B、0 0 C、-5 0 D、0 6 19、 有如下程序 s = 0 i = 1Do While i 120 Print a运行后的输出结果为_D_A、100 B、120 C、121 D、101 21、 下列程序段的执行结果为_B_ a = 3 b = 50Do Until a * b 500 b = b + 25 LoopPrint b=; bA、b= 45 B、b= 50 C、b= 55 D、b= 6022、 下述程序段中_C_与其他三个程序段的作用不同。 A、S = 0 i = 0 B、S = 0 Do While i =100 S = S + iDo While i 100 i = i + 1i = i + 1 LoopS = S + i C、S = 0Loop i = 1D、S = 0Do While i = 100 S = S + i Loopi = i + 1S = S + iLoop 23、 单击命令按钮，下列程序段的执行结果是：_D_ Private Sub command1_click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4a(i, j) = (i - 1) * 3 + j Next j Next iFor i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End SubA、 6 9 B、7 10 C、8 11 D、9 127 10 8 11 9 12 10 13 24、 下列程序段的执行结果是_A_ A = 0: B = 1 DoA = A + B B = B + 1Loop While A 10 Print A; BA、10 5 B、0 1 C、10 30 D、10 10 二、填空题1、执行下面的程序段，文本框Text1中显示的是 9 Dim i As Integer, j As Integer i = 1 j = 0Do While i 20 j = i + ji = i * (i + 1) LoopText1.Text = j2、设窗体上有一个文本框Text1和命令按钮Command1，单击命令按钮后，文本框中最终显示的是 19Private Sub command1_click()Dim a(2, 5) As Integer, b(5) As Integer Dim i As Integer Do While i = 5a(1, i) = a(1, i) + 2 * i - 1 a(2, i) = a(2, i) + 12 - 2 * i i = i + 1 Loop i = 1Do While i = 7第8页Print i=; i; a=; a4、下列程序段的执行结果是： 33 Dim a(10) As Integer, p(3) As Integer k = 5For i = 1 To 10 a(i) = i Next iFor i = 1 To 3 p(i) = a(i * i) Next iFor i = 1 To 3k = k + p(i) * 2 Next i Print k5、下面的事件过程从文本框TxtInput中读入一个正整数，计算从1到该数之间（包括1与该数）所有正整数之和，结果在文本框TxtOutput中显示，完善程序填空。 Private Sub Command1_Click() Dim i As Integer, x As Integer Dim s As Integer Dox = Val(TxtInput.Text) If x 0 i = 1 s = 0 Dos = s + i i = i + 1Loop Until i x TxtOutput、Text = Str(s) End Sub6、下面程序段中，k循环共执行 3 次，在窗体上显示的结果为 5 15 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1For k = 1 To 5 b = b * kIf b = 15 Then Exit ForElsek = k + 1 End If Next k Print k, b End Sub7、阅读下面程序，当单击窗体后，窗体上输出的是 4 Private Sub Form_Click()Dim i As Integer, j As Integer Dim k As IntegerFor i = 1 To 10 Step 3 For j = 1 To 10If j = 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next jIf i 8 Then Exit For Next i Print k End Sub8、本程序用于验证一个自然数N的立方等于N个连续的奇数之和。其中最大的奇数P=N*（N+1）3-1。例如：4=19+17+15+13，最大奇数等于19。要求用户任意输入一个自然数，比如4，如满足定理，则在窗体上按如下格式输出：4的立方64=19+17+15+13，否则提示“定理不成立！”。 Private Sub Form_Click()Dim n As Integer, num As Long, p As Integer Dim s As Long, i As Integer, j As Integern = Val(InputBox(请输入一个自然数) num = n * n * n p = n * (n + 1) - 1 For i = 1 To n s = s + pp = p - 2 Next ip = n * (n + 1) - 1 If s = num ThenPrint n; 的立方; num; =; For j = 1 To n - 1 Print p; +; p = p - 2 Next j Print p ElseMsgBox 定理不成立！ End If第9页End Sub9、随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。 Private Sub Form_Click()Dim s As Integer, i As IntegerDim k As Integer, max As Integer, min As Integer Randomizek = Int(Rnd * 100) + 1 max = k: min = k s = kFor i = 1 To 19k = Int(Rnd * 100) + 1 s = s + kIf k max Then max = k If k min Then min = k Next is = s - max - min Print average=; s / 18 End Sub10、输入正整数N，求最大的K，使1*1+2*2+K*KN成立。比如：输入5000，在窗体上输出1*1+2*2+K*K5000的最大K值为24。 Private Sub Form_Click()Dim k As Integer, n As Integer Dim sum As Integern = InputBox(输入正整数：)If n nPrint 1*1+2*2+K*K; n; 的最大K值为; k - 1 End Sub