下载文档原格式
第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。
文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。
2. 可以自行定义。
标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。
四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。
2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。
3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。
4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。
5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。
V i s u a l B a s i c程序设计教程第实验答案修订版IBMT standardization office【IBMT5AB-IBMT08-IBMT2C-ZZT18】※声明：1.实验所属课本原件为《Visual Basic程序设计教程（第4版）（□主编龚沛曾□编者杨志强陆慰民谢步瀛）》；2.实验答案代码采用红色字体突出；3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作；4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；5.本文为作者原创，复制转载请注明出处；6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信；7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。
实验1-1编制简单的欢迎界面程序。
要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。
“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。
以后每个实验项目的命名Private Sub Command1_Click() Label3.Caption = Text1.Text End Sub实验1-2Command2Caption=""；Style=1；Picture="key04.ico"；ToolTipText＝"手动"Timer1Interval=0注：因为印刷错误，例题1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。
提示：自定义事件过程MyMove代码应调整为，可实现文字移动方向的改变Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left < 0 Then Label1.Left = Form1.WidthEnd SubSub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left < 0 Then Label1.Left = Form1.WidthEnd SubPrivate Sub Command1_Click()Timer1.Interval = 200End SubPrivate Sub Command2_Click() Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()Call MyMoveEnd Sub实验1-3“学号-1-3”为项目名保存。
visual_Basic程序设计教程_课后习题答案及练习第⼀章Visual Basic程序设计概述⼀、填空题1、Visual Basic是⼀种⾯向__________的可视化程序设计语⾔，采取了__________的编程机制。
2、在VB中⼯程⽂件的扩展名是____________，窗体⽂件的扩展名是____________，标准模块⽂件的扩展名是____________。
3、执⾏“⼯程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0⽤于开发__________环境下的应⽤程序。
⼆、选择题1、下⾯不是VB⼯作模式的是（）A．设计模式B．运⾏模式C．汇编模式D．中断模式2、可视化编程的最⼤优点是（）A．具有标准⼯具箱B．⼀个⼯程⽂件由若⼲个窗体⽂件组成C．不需要编写⼤量代码来描述图形对象D．所见即所得3、下列不能打开属性窗⼝的操作是（）A．执⾏“视图”菜单中的“属性窗⼝”命令B．按F4键C．按Ctrl+TD．单击⼯具栏上的“属性窗⼝”按钮4、下列可以打开⽴即窗⼝的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．⾯向对象C．⾯向图形D．事件驱动三、简答题1、代码窗⼝主要包括哪⼏部分？2、在⼯程资源管理器窗⼝中，主要列出了哪三类⽂件？3、窗体布局窗⼝的主要⽤途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第⼆章简单的VB程序设计⼀、填空题1、设置是否可以⽤Tab键来选取命令按钮，应该⽤______________属性。
2、⼀个控件在窗体的位置由_______和________属性决定，其⼤⼩由__________和_________属性决定。
3、利⽤对象的属性setfocus可获得焦点，对于⼀个对象，只有其visible属性和____________属性为true，才能接受焦点。
《V i s u a l B a s i c程序设计》试题及其答案Tomorrow Will Be Better, February 3, 2021一、填空题每题1分,共10分1.把数学式子： 25sin 21π+写成VB 的数值表达式为Sqr1+3.14159/2Sin253.14159/180 ;2．设A=5,B=6,C=7,D=8,表达式3>2B OR A=C AND B<>C OR C>D 的值是 True ;3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>,则它的含义是：当测试表达式的值等于 指定范围内的值 时,执行该Case 子句相应的语句块;4．执行下面的程序段后,x 的值为 12 ;x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的 子 对象,而窗体是图片框的 父 对象;6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为 Text1.Text=Command1.Caption7．复选框的Value 属性为 1 时,表示复选框被选中;8. 使用滚动条可以获取某一范围内的数值输入;为使垂直滚动条的Value 属性值从下往上递增变化,应设置滚动条Min 属性值大于 Max 属性值;9．语句：Dim A-3 to 4 as Integer 定义的一维数组A 的元素个数是 8 ;10．给定如下子过程：Function funByVal num As Long As LongDim k As Long,i As Integerk=1For i=1 To numk=kiNext iEnd Function执行语句Print fun5 后在窗体上显示的结果为 0 ;二、单项选择题每题1.5分,共30分1.装载窗体是窗体的 C ;A 对象B 属性C 事件D 方法2.设a="Visual Basic",下面使b 的值为"Basic"的赋值语句正确的是 B ;A b=Lefta,8,12B b=Mida,8,5C b=Righta,5,5D b=Lefta,8,53．设X 为整型变量,不能正确表达1< X < 5的逻辑表达式是 A ;A 1< X <5B X=2 or X=3 or X=4C 1<X And X <5D Not X<=1 And Not X>=54．InputBox 函数返回值的类型为 B ;A 数值型B 字符串型C 逻辑型D 货币型5．执行语句：Print 4+5\68/8 Mod 9 输出的值是 A ;A 4B 5C 6D 76.下列循环语句能正常结束循环的是 C ;Ai=5 B i=1Do Doi=i+1 i=i+2Loop Until i< 0 Loop Until i=10Ci=10 D i=6Do Doi=i+1 i=i-2Loop Until i> 0 Loop Until i=17．以下叙述中正确的是 A ;A 窗体的Name属性指定窗体的名称 ,用来标识一个窗体B 窗体的Name属性的值是显示在窗体标题栏中的文本C 可以在运行期间改变窗体的Name属性的值D 窗体的Name属性值可以为空8．VB为命令按钮提供的Cancel属性 A ;A 用来指定命令按钮是否为窗体的“取消”按钮B 用来指定命令按钮的功能是停止一个程序的运行C 用来指定命令按钮的功能是关闭一个运行程序D 用来指定命令按钮的功能是中断一个程序的运行9．若使命令按钮失效,要对 A 属性设置为False;A EnabledB VisibleC BackColor DCaption10．在窗体中添加两个文本框其Name属性分别为Text1和Text2和一个命令按钮Name属性为Command1,然后编写如下两个事件过程：Private Sub Command1_Clicka = UCaseText1.Text + LeftText2.Text, 3Print aEnd SubPrivate Sub Form_LoadText1.Text = "abcDEF"Text2.Text = "123456"End Sub程序启动后,单击命令按钮,输出结果为CAabcDEF123456 BabcDEF123CABCDEF123 Dab12345611．在运行程序时,要使文本框获得焦点,则需使用B方法;A ChangeB SetFocusC GotFocusD Move12．下列语句中不能把图片框Picture1中的图形清除的是 A ;A Picture1.DelB Picture1.Picture=LoadPicture""C Picture1. Picture= LoadPictureD Picture1. Picture=Nothing13．要删除列表框中的某一个项目,需要使用 D 方法;A ClearB ReMoveC MoveD ReMoveItem14．在组合框中选择某一项目内容,在程序中可以通过D属性获得;A ListB ListIndexC ListCountD Text15．若有数组说明语句：Dim aAS Integer,则a被定义为B ;A 定长数组B 可调数组C 静态数组D 可变类型数组16．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李强".Age = 21.Sex = "男"End With执行语句Print Stu.Age后在窗体上显示的结果是 B ;A李强 B21 C“男” DAge17.要使子过程f1调用后能用形式参数返回两个结果,下面子过程定义正确的是C ;ASub f1ByVal n%,ByVal m% BSub f1n%,ByVal m%<子过程体> <子过程体>End Sub End SubCSub f1n%,m% DSub f1ByVal n%,m%<子过程体> <子过程体>End Sub End Sub18.以下叙述中错误的是 D ;A 一个工程中可以包含多个窗体文件B 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C 在设计VB程序时,窗体模块和标准模块需要分别保存为不同类型的文件D 全局变量必须在标准模块中定义19．从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备,如下语句A是正确的;A F="c:\t1.txt" BF="c:\t1.txt"Open F For Input As 1 Open "F" For Input As 2 COpen "c:\t1.txt" For Output As 1 DOpen c:\t1.txt For Input As 220.以下叙述中正确的是 B ;A 一个记录中所包含的各个元素的数据类型必须相同B 随机文件中每个记录的长度是固定的C Open命令的作用是打开一个已经存在的文件D 使用Input语句可以从随机文件中读取数据三、程序阅读题第1题3分,第2题5分,其余题各4分,共24分1．当x的输入值分别为4、8和12时,写出执行下列事件过程的输出结果;Private Sub Command1_ClickDim x%, y%x = InputBox"请输入x的值："Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 xCase Is > 10y = x x + 1End SelectPrint "x="; x, "y="; yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果;Private Sub Command1_ClickConst n = 3Dim i As Integer, k As Integer For i = 1 To nPrint Tabn - i 2 + 1;For k = 1 To iPrint Strk;Next kFor k = i - 1 To 1 Step -1 Print Strk;Next kPrintNext iEnd Sub11 2 11 2 3 2 13.设在一个窗体如图所示中已设置了一个组合框Combo1和文本框Text 1,且有下列程序,试写出事件过程Combo1_Click的功能;Dim str As StringPrivate Sub Form_Loadstr = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武汉"Combo1.AddItem "广州"Combo1.AddItem "海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Clickstr = str & Combo1.Text & ","Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容,而且以后来添加的方式在文本框中显示所有选择项目的内容;4. 写出执行下列事件过程的输出结果;Private Sub Form_ClickDim a1 To 2, 1 To 2 As IntegerDim i As Integer, j As IntegerFor i = 1 To 2For j = 1 To 2ai, j = 2 i - 1 4 + jNext jNext iFor i = 1 To 2Print ai, 3 - i, a3 - i, iNext iEnd Sub6 1313 65．写出执行下列事件过程的输出结果;Private Sub Command1_ClickDim a As Integer, b As Integera = 3:b = 2Call f8, aPrint "a="; a, "b="; bCall fa, bPrint "a="; a, "b="; bEnd SubPrivate Sub fByVal x As Integer, y As Integerx = x + 1y = y - 1End Suba=2 b=2a=2 b=16．若有如下窗体模块：Dim a As IntegerPrivate Sub testDim b As Integera = a + 1:b = b + 1Print "Sub: "; a, bEnd SubPrivate Sub Command1_Clicka = 2:b = 3Call testCall testEnd Sub写出当程序启动并单击命令按钮后,在窗体中显示的结果;Sub： 3 1Sub： 4 1四、程序填空题每空2分,共22分1. 下面事件过程的功能是：输入某个学生某门课程的百分制成绩,并根据成绩输出评语,若0≤成绩＜60 时,评语为“差”；若60≤成绩＜70时,评语为“通过”；若70≤成绩＜80时,评语为“中等”；若80≤成绩＜90时,评语为“良好”；若90≤成绩≤100时,评语为“优秀”,在横线上填上适当内容;Private Sub Command1_ClickDim ss = InputBox"请输入学生的成绩："If 0<=s And s<=100 ThenSelect Case 1 sCase Is >= 90Print "优秀"Case Is >= 80Print "良好"Case Is >= 70Print "中等"Case Is >= 60Print "通过"2 Case Else或Is >=0Print "差"End SelectEnd IfEnd Sub2.下面程序的功能是：计算 f=1 -1/2×3+1/3×4-1/4×5+ … +1/19×20的值,在横线上填上适当内容;Private Sub Form_ClickDim f As Single,i As Integer,sign As Integer3 sign=-1f = 14 for i=2 to 19f = f + sign/ii + 15 sign=sign-1Next iPrint " f= "; fEnd Sub3.下面窗体模块的功能是：从键盘上输入x,y和z的值,按如下公式求f x,y,z的值的程序,在横线上填上适当内容;fx,y,z=sinx/sinx-ysinx-z+siny/siny-zsiny-x+sinz/sinz-xsinz-y其中x、y和z互不相等;Function fByVal a As Single,ByVal b As Single,ByVal c As Single 6 As Single7 f=Sina/Sinb SincEnd FunctionPrivate Sub Command1_ClickDim x, y, z, sx = InputBox"x="y = InputBox"y="z = InputBox"z="If x <> y And y <> z And z <> x Thens=fx,x-y,x-z+fy,y-z,y-x+ 8 fz,z-x,z-yPrint "s="; sElsePrint "数据输入错误"End IfEnd Sub4.下面事件过程的功能是从学生分数顺序文件D: \file1.dat中读取各个学生的分数,并求该班的平均成绩,在横线上填上适当内容;Private Sub command1_ClickDim n%, score, sOpen "D:\file1.dat" 9 As 3 For Inputn = 0: s = 0While 10 Not EOF3Input 3,scores = s + scoren = 11 n+1WendPrint "平均成绩为："; s / nClose 3End Sub五、程序设计题每题7分,共14分1. 假设体操比赛有10个评委和评分规定为：①采用10分制；②去掉一个最高分和去掉一个最低分,然后计算平均分,该平均分作为最后得分;试编写一个事件过程,输入10个评委对某个运动员的评分存放在一维数组s中,计算该运动员的最后得分;Private Sub Command1_ClickDim s1 To 10, max, min, i%, summax = 0: min = 11: sum = 0For i = 1 To 10si = InputBox"请输入第" & Stri & "个评委的分数"Next iFor i = 1 To 10If si > max Then max = siIf si < min Then min = sisum = sum + siNext iPrint "最后得分："; sum - max - min / 8End Sub2. 勾股定理中的三个数a 、b 和c 的关系为：222c b a =+;试编写一个事件过程,求出30以内满足上述关系的整数组合并输出;例如,3、4和5就是这样一个整数组合;Private Sub Command1_ClickPrint "a","b","c"For a = 1 To 30For b = 1 To 30For c = 1 To 30If aa+bb=cc Then Print a,b,cNext cNext bNext aEnd Sub。
第1章1. 按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章1～3题：按要求完成操作练习。
4． Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
Vb课后题答案参考答案第1章概述第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A 13.C 14.B 15.D16.D 17.C 18.A 19.D 20.A 21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A 15.A16.C 17.D 18.A 19.B 20.D21.C 22.A 23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = Val(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case 10 To 20y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = Val(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoopPrint sEnd Sub第6章数组二．单选题：1.A2.A.3.A4.C5.D6.D7.A8.D9.B 10.B四.编程及上机调试:1.Option Base 1Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, t As IntegerPrint "数组的原始数据为：";For i = 1 To 10a(i) = Int(11 * Rnd) + 10Print a(i);Next iPrintPrint "变化后数组数据为：";For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer RandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(90 * Rnd + 10)Print a(i, j);Next jPrintNext iMax = a(1, 1): k = 1: p = 1For i = 1 To 3For j = 1 To 4If a(i, j) > Max ThenMax = a(i, j)k = ip = jEnd IfNext jNext iPrint "最大的数为第" & k & "行，第" & p & "列的数：" & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() '"生成数组"按钮RandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10) '一位的随机数Picture1.Print a(i, j); '输出元素Next jPicture1.PrintNext iEnd SubPrivate Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integertxtcol.Text = ""For j = 1 To 5 '列变量先循环colsum = 0For i = 1 To 4colsum = colsum + a(i, j)Next itxtcol.Text = txtcol.Text & Str(colsum)Next jEnd SubPrivate Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integertxtrow.Text = ""For i = 1 To 4 '行变量先循环rowsum = 0For j = 1 To 5rowsum = rowsum + a(i, j)Next jtxtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLfNext iEnd SubPrivate Sub cmdclear_Click() '"清除"按钮Picture1.Clstxtcol.Text = ""txtrow.Text = ""End SubPrivate Sub cmdexit_Click() '"结束"按钮EndEnd Sub4. Option Base 1Private Sub Form_Click()Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")Do While Not IsNumeric(x)x = Int(InputBox("第一维上界"))Loopy = InputBox("第二维上界")Do While Not IsNumeric(x)y = Int(InputBox("第二维上界"))LoopReDim a(x, y)Print "原数组元素为："For i = 1 To xFor j = 1 To ya(i, j) = Int(90 * Rnd) + 10Print a(i, j);Next jPrintNext iPrint "转置后数组元素为："For i = 1 To yFor j = 1 To xPrint a(j, i);Next jPrintNext iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Thena(i, j) = 0Elsea(i, j) = 1End IfPrint a(i, j);Next jPrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integerj = 1For i = 3 To 21 Step 2a(j) = iPrint a(j);j = j + 1Next iPrintn = InputBox("请输入一个数")For i = 1 To 10If n = a(i) ThenFor j = i To 10a(j) = a(j + 1)k = k + 1Next jEnd IfNext iFor i = 1 To 9Print a(i);Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As Variant, k As Integer, i As Integer, j As IntegerDim b As Variantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 '对数组a的元素排序k = iFor j = i + 1 To 10If a(k) > a(j) Then k = jNext jIf k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)a(i) = a(k)a(k) = tt = b(i)b(i) = b(k)b(k) = tEnd IfNext iPrint "按名字的排列顺序为："For i = 1 To 10If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为２的编号前的"0"Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)Next iEnd Sub。
第1章1.按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption="你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption="你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex=Val(Text1.Text)Text2.Text=15*xEnd Sub第2章1～3题：按要求完成操作练习。
4．Private Sub Command1_Click()'"最大化"按钮Form1.WindowState=2'最大化End SubPrivate Sub Command2_Click()'"还原"按钮Form1.WindowState=0'还原End SubPrivate Sub Command3_Click()'"最小化"按钮Form1.WindowState=1'最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEnd Sub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
