VB第六章自测题及答案
vb6.0第六章 习题解答
习题六一、选择题答案Aadcc dc二、填空题答案1、a(I,j)+b(I,j)2、下标越界3、64、1 2 2 4 3 6第六章选择题部分解析3、sum表示a数组各元素的和X表示a数组元素和的平均值最后打印出a数组中大于平均值的元素Sum=1+2+3+4+5=15，x=3大于3的有4，55、倒着看文本框中显示什么？答：显示的是array1（1，3）+array2（2，3）的和接着往前看程序发现array1（i，j）=i+j所以array1（1，3）=1+3=4Array2(2,3)=2+3=5所以4+5=9二、填空题解析2、x数组最大元素是x（6）退出for循环时，i=7然后print x（i）相当于print x（7）但是没有x（7）这个元素，超出最大下标了。
若把print x（i）改为print x（a）则值是36第六章编程题1、Private Sub Form_Click()Dim a(1 To 20) As Integer, i As IntegerDim j As Integerj = 0 '用来表示小于60的个数Picture1.Print "产生的数组为:"Picture1.PrintPicture2.Print "其中小于60的元素有:"Picture2.PrintFor i = 1 To 20a(i) = Int(Rnd * 100 + 1)Picture1.Print a(i);If i Mod 10 = 0 Then Picture1.PrintIf a(i) < 60 Thenj = j + 1Picture2.Print a(i); " ";If j Mod 10 = 0 Then Picture2.PrintEnd IfNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub2、Private Sub Form_Click()Dim a(1 To 10) As IntegerDim max As Integer, min As Integer, i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90 + 10)Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.PrintNext imax = a(1)min = a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iLabel1.Caption = "最大数为：" & maxLabel2.Caption = "最小数为：" & minEnd SubPrivate Sub Form_Load()RandomizeEnd Sub3、Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()Dim x As Integer, flag As Integer, i As Integerflag = 0 '标志，表示数组中是否存在xx = InputBox("请输入x的值，为整数", "输入", 1) For i = 1 To 20If x = a(i) Thenflag = 1 'flag改变，说明存在Exit ForEnd IfNext iIf flag = 1 ThenPrint "数组中存在" & xPrint "位置：" & iElsePrint "数组中不存在" & xEnd IfEnd SubPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 20 '生成数组a(i) = Int(Rnd * 100) '题目没要求，随便的范围Next iFor i = 1 To 19 '冒泡排序For j = 20 To i + 1 Step -1If a(j) > a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNext jNext iFor i = 1 To 20 '打印数组Print a(i);If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub4、Private Sub Form_Click()Dim a(1 To 15) As SingleDim i As Integer, c1 As Integer, c2 As Integer, c3 As Integer, avg As SingleFor i = 1 To 15a(i) = InputBox("请输入第" & i & "个学生的成绩", "输入成绩", 60)avg = avg + a(i)Next iavg = avg / 15For i = 1 To 15If a(i) > avg Then c1 = c1 + 1If a(i) < 60 Then c2 = c2 + 1If a(i) >= 90 Then c3 = c3 + 1Next iPrint "高于平均分的人数"; c1Print "<60的人数"; c2Print ">=90的人数"; c3End Sub5、Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer, c(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click()‘（2）题For i = 1 To 4For j = 1 To it = a(i, j)a(i, j) = a(j, i)a(j, i) = tNext jNext iPicture2.ClsPicture2.Print "a转置后："Picture2.PrintFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j); " ";Next jPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()‘（3）题Picture2.ClsMax = c(1, 1)t1 = 1t2 = 1For i = 1 To 4For j = 1 To 4If c(i, j) > Max ThenMax = c(i, j)t1 = it2 = jEnd IfNext jNext iPicture2.Print "max=", MaxPicture2.Print "c("; i; ","; j; ")"End SubPrivate Sub Command3_Click()‘（4）题Picture1.ClsPicture2.ClsFor i = 1 To 4For j = 1 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iFor i = 1 To 4For j = i To 4Picture2.Print Tab(j * 5); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()‘（5）题Picture1.ClsFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext iFor i = 1 To 4For j = 1 To 4Picture1.Print a(i, j); " ";Next jPicture1.PrintNext i End SubPrivate Sub Command5_Click()‘（1）题Picture3.Print "c矩阵："Picture3.PrintFor i = 1 To 4For j = 1 To 4c(i, j) = a(i, j) + b(i, j)Picture3.Print c(i, j); " ";Next jPicture3.PrintNext iEnd SubPrivate Sub Form_Load()ShowPicture1.Print "a矩阵："Picture1.PrintPicture2.Print "b矩阵："Picture2.PrintFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 40 + 30)b(i, j) = Int(Rnd * 35 + 101)Picture1.Print a(i, j); " ";Picture2.Print b(i, j); " ";Next jPicture1.PrintPicture2.PrintNext iEnd Sub。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。
框架Fr1包含单选按钮Op1和Op2。
2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。
⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。
Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click() Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
vb教程答案第六章
1．阅读程序，写出程序结果答： 6 7 92 5 81 3 42．提示：在交换首尾对称位置的数组元素时注意，循环的终值只能到数组的一半，而不能到数组的最大下标，否则会将数组元素值又还原成原来的数值。
程序界面如下图5-2所示：图5-2参考程序如下：Private Sub Command1_Click()Dim a(15) As Integer, i As Integer, j As Integer, t As Integer'给数组赋值，并输出在文本框1中For i = 1 To 15a(i) = Int(Rnd * 100) + 1Text1.Text = Text1.Text & Str(a(i))Next i'交换数组对称位置的数据For i = 1 To 7t = a(i)a(i) = a(16 - i)a(16 - i) = tNext i'输出交换后的数组内容For i = 1 To 15Text2.Text = Text2.Text & Str(a(i))Next iEnd Sub3．提示：可以对数组的每个元素与其后面的所有元素逐个进行比较，如果有相同的数，将后面出现的数值清为0，最后统计所有不为0的数据个数。
参考程序如下：Private Sub Command1_Click()Dim a(20) As Integer, i As Integer, j As Integer, k As Integer'给数组赋值，并输出在窗体上RandomizeFor i = 1 To 20a(i) = Int(Rnd * 100) + 1Print a(i);Next iPrint'统计有多少个不相同的数For i = 1 To 19For j = i + 1 To 20If a(j) = a(i) Then a(j) = 0Next jNext i'统计不相同的数，并输出在窗体上For i = 1 To 20If a(i) <> 0 Then k = k + 1Next iPrint "一共有" & k & "个不相同的数"End Sub4．本题的主要思路是：先给数组的20个数赋值并输出，然后按照求最大值的算法思想，先将前4个数之和赋给存放最大值的变量max，同时记录4个数中第一个数的下标，然后对剩下的每4个数求和，判断是否大于max，如果是，将新的最大值送给max，同时记录其首数据的下标，最后，只要输出四个相邻数之和的最大值，并输出这四个数即可。
VB习题参考答案(第6章)
第6章图形控件和图形方法一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．√10．√二、选择题1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C三、填空题1．Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性5．形状、矩形6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7．图片框、其他控件8．缇、SclaeMode 9．颜色10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线，其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制100个空心的圆。
程序3. 在图片框内绘制多个蓝色边框矩形，填充样式在“实心〞、“透明〞间交替变换。
程序4. 在图片框内绘制1个红色边框的蓝色实心椭圆。
五、程序填空题1．〔1〕List2.AddItem Str(i) 〔2〕Shape1.shape 〔3〕List2.ListIndex2．〔1〕1 〔2〕B 〔3〕-(50,60) 或-Step(80,0) 〔4〕P1.drawstyle3.〔1〕0 〔2〕ScaleWidth/2 〔3〕ScaleHeight / ScaleWidth注意：此题Form_load事件第1句代码有误，应为FillColor=vbGreen4.〔1〕Long 〔2〕P1.Point(a, b) 〔3〕P2.ScaleLeft + P2.ScaleWidth - a六、程序设计题程序1．界面如图6-32所示，过程设计如下：Private Sub Form_Load()Dim i As ByteList1.ClearFor i = 1 To 7List1.AddItem iNext iEnd SubPrivate Sub Form_MouseMove(Button As Integer, _Shift As Integer, X As Single, Y As Single)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub List1_Click()Form1.ScaleMode = List1.TextEnd Sub程序2．界面设计略，过程设计如下：Dim x1 As Single, y1 As SinglePrivate Sub Form_Load()Form1.ScaleMode = 3Form1.ForeColor = RGB(255, 0, 0)Form1.FillColor = RGB(0, 0, 255)Form1.FillStyle = 0End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)x1 = X: y1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Line (x1, y1)-(X, Y), , BEnd Sub程序3．界面设计略，过程设计如下：Private Sub Form_Click()Form1.ClsDim r As SingleForm1.ScaleMode = 3Form1.DrawWidth = 2Form1.FillStyle = 0Form1.FillColor = vbBlueIf Form1.ScaleHeight <= Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End IfForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _Form1.ScaleTop + Form1.ScaleHeight / 2), r, vbYellowEnd SubPrivate Sub Form_Resize()Call Form_ClickEnd Sub程序4. 界面如图6-33和6-34所示，过程设计如下：Dim x As Single, y As Single, c As LongDim r As Byte, g As Byte, b As BytePicture1.ScaleMode = 3For x =Picture1.ScaleLeft To Picture1.ScaleLeft + Picture1.ScaleWidth For y = Picture1.ScaleTop To Picture1.ScaleTop + Picture1.ScaleHeightc = Picture1.Point(x, y)If c >= 0 Thenr = c Mod 256g = (c \ 256) Mod 256b = (c \ 256 \ 256) Mod 256Picture1.PSet (x, y), RGB(r / 2, g / 3, b / 4)End IfNext yNext xEnd Sub程序5. 界面如图6-35所示，过程设计如下：Dim x As IntegerPrivate Sub Form_Load()P1.Width = P1.HeightP1.ScaleMode = 3P1.Scale (-10, 10)-(10, -10)P1.DrawWidth = 2x = 90Timer1.Enabled = FalseEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()P1.PSet (8*Cos(x*3.141593 / 180), 8 * Sin(x * 3.141593 / 180)), vbRed x = x + 1If x > 450 Then Timer1.Enabled = FalseEnd Sub。
VB第六章测试题
Visual Basic 6.0第六章测试题一、填空题1、菜单控件只能使用_______________来创建，其属性可以利用_____________和_____________两种方法来设置。
2、为了显示当前日期，大写锁定键，插入键状态可以向窗体中添加__________控件。
3、打开菜单编辑器的方法有三种：1、____________________,2、_________________________，3、______________________。
4、菜单编辑器中的标题可以设置菜单项的___________属性；名称设置_________属性；快捷键设置_________属性；复选设置___________属性；有效设置___________属性；可见设置____________属性；右箭头按钮使当前菜单项级别下降一级，最低级别为______级，最高级别为_____级。
5、菜单控件只有一个事件，即_______事件。
6、如果要为菜单项创建分隔栏，则应在标题框中输入______字符。
7、如果要为菜单项创建访问键，可以标题后面添加______字样。
8、决定菜单控件是否维护当前MDI子窗口的列表的属性是__________。
9、RichTex tBox控件不仅允许______和______编辑文本，同时还提供了标准文本框控件所没有的、更高级的指定格式的许多功能。
10、RichTextBox控件能以_______和_____________两种形式打开和保存文件。
使用控件的_____________和_____________方法可以直接读写文件。
11、RichTex tBox中指出可容内字符最大数量的属性是________。
12、RichTex tBox中是否接受和显示多行正文的属性是________。
13、RichTex tBox中是否有滚动条的属性是 __________。
14、RichTex tBo x中返回或设置所选文本起始点的属性是________；返回或设置所选择字符数的属性是_________；返回或设置包含当前所选择文本的字符串的属性是__________。
vb习题答案(1-9章)最全的
第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。
VB6.0程序设计实践教程 习题及答案
Vb6.0
第一章 一、判断题 1．属性是 Visual Basic 对象性质的描述，对象的数据就保存在属性中。 2．控件的属性值不可以在程序运行时动态地修改。 3．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。 4．所谓保存工程，是指保存正在编辑的工程的窗体。 5．面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。 6．为了使一个控件在运行时不可见，应该将该控件的 Enabled 属性设置为 False。 7． 保存 Visual Basic 文件时， 若一个工程包含多个窗体或模块， 则系统先保存工程文件， 再分别保存各窗体或模块文件。 8．事件是由 Visual Basic 预先定义的对象能够识别的动作。 9．方法是 Visual Basic 对象可以相应的用户操作。 10．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。 11．由 Visual Basic 语言编写的应用程序有解释和编译两种执行方式。 12．在打开一个 Visual Basic 工程进行修改后，要另存为一个版本，只需单击“工程另 存为…”就行，因为系统将同时保存其他文件。 13．当用 Load 命令将窗体装入内存时，一定触发窗体的 load 事件和 Activate 事件. 二、选择题 1．要使某个控件不可操作，要对 属性进行设置。 A、Enabled B、Visibale C、Caption D、Name 2．下列不属于对象的基本特征的是 。 A、属性 B、方法 C、事件 D、函数 3．当运行程序时，系统自动执行启动窗体的 事件过程。 A、Click B、Load C、DblClick D、Unload 4．Visual Basic 中“程序运行”允许使用的快捷键是 。 A、F2 B、F5 C、Alt+F3 D、F8 5．改变控件在窗体中的左右位置应修改该控件的 属性。 A、Top B、Left C、Width D、Right 6．工程文件的扩展名为 。 A、.vbp B、.bas C、.frx D、.frm 7．在 Visual Basic 中，称对象的数据为 。 A、属性 B、方法 C、事件 D、封装 8．下列选项中不属于属性的是 。 A、Name B、Caption C、Show D、Text 9．将 Visual Basic 编制的程序保存在磁盘上，至少会产生何种文件 。 A、.doc 与.txt B、.com 与.exe C、.bat 与.frm D、.vbp 与.frm 10．下列关于属性设置的叙述错误的是 。 A．一个控件具有什么属性是 VB 预先设计好的，用户不能改变它 B．一个控件具有什么属性值是 VB 预先设计好的，用户不能改变它 C．一个控件的大多数属性既可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第6章常用控件6．1 标签和文本框自测题一．单项选择题（共50分，每小题5分）1．在标签框上显示的内容由（）属性来实现。
a) Name b)Caption c)Text d)ForeColor2．要使标题在标签框内居中显示，Alignment属性的取值应为（）。
a)0 b)1 c)2 d)33．若使标签框根据所显示内容自动调整其大小，则可以通过设置（）属性值为True 来实现。
a)AutoSize b)Alignment c)Enabled d)Visible4．要设置标签框是否有边框，应设置（）属性来实现。
a)BackColor b)ForeColor c)BordeStyle d)Visible5．文本框没有（）属性。
a) BackColor b) Enabled c) Visible d) Caption6．若设置或返回文本框中的文本，则可以通过（）属性来实现。
a) Caption b)Text c)Name d)Visible7．若设置文本框最多可以接受的字符数，则可以使用（）属性。
a)Length b)Multiline c)Max d)MaxLength8．在文本框中设置垂直滚动条，要使ScrollBars的值为（）。
a)0 b)1 c)2 d)39．要获得用户在文本框中所选择的文本内容，可以访问（）属性。
a)Text b)SetFocus c)GetFocus d)SelText10．在运行程序时，要使文本框获得焦点，则需使用（）方法。
a)Change b)SetFocus c)GetFocus d)Move二．填空题（共35分，每空5分）１．标签框的作用是（），文本框的作用是（）。
２．要使标签框有边框，需设置BorderStyle属性的值为（）。
３．要使标签框不能响应事件，应设置Enabled属性的值为( )。
４．在程序运行期间，用户可以向文本框输入内容，输入的内容自动存入文本框的（）属性中。
５．若使文本框内能够接受多行文本，则要设置Multiline属性的值为（）。
６．只有Multiline设置为（）时，ScrollBars属性才生效。
三．设Text1为某一文本框名，写出下列程序段的执行结果。
（15分）Text1.Text=”abcdefghijk”Text1.selstart=3Text1.sellength=5Print Text1.SelText参考答案一．单项选择题1. b2.c3.a4.c5.d6.b7.d8.c9.d 10.b二．填空题1.显示静态的不可修改的文本信息、建立文本输入区或编辑区，以便实现数据的输入、编辑和修改等2. 13.False4.Text5.True6.True三．defgh6．2 图片框与图像框自测题一．选择题（共30分,每小题10分）1．下列控件中，没有AutoSize属性的是（）。
a)标签b)文本框c)图片框d)图像框2．可以使用（）属性在图片框或图像框中显示图形。
a)Picture b)Image c)Icon d)DownPicture3．若把图片框Picture1中的图形清除，可以使用的办法是（）。
a) 使用语句Picture1.Delb) 使用语句Picture1. Picture=Load Picture(“”)c) 使用语句Picture1. Picture= LoadPicture( )d) 使用语句Picture1. Picture=Nothing二．填空题（共70分，每空10分）1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片的（）对象。
2．要把图形文件“c:\sample\diannt.jpg”装载到图片框上使用的语句为（）。
3．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（）。
4．除了可以使用Picture属性装载图形外，还有两种方法：（）和（）。
5．要在图片框上显示一些文本内容使用（）方法。
参考答案一．选择题1. b、d2. a3. b、c、d二．填空题1.子、父2.Picture1. Picture=LoadPicture(“c:\sample\diannt.jpg”)3.True4.从属性表中装载、使用粘贴板5.Print6．3 命令按钮、复选框和单选按钮自测题一．单项选择题（共50分，每小题10分）1．命令按钮上的文本内容由（）属性来设置。
a)Text b)Caption c)Name d)Show2．若将命令按钮设置为默认命令按钮，可以通过（）属性来实现。
a)Value b)Cancel c)Default d)Enabled3．若使命令按钮失效，则可以设置（）属性的值为False来实现。
a)Value b)Enabled c)Visible d)Cancel4．若使命令按钮消失，则可以通过（）属性来实现。
a)Value b)Enabled c)Visible d)Cancel5．Value属性值为（）表示该复选框被选中。
a) 0 b) 1 c) 2 d) 3二．填空题（共50分，每小题10分）1．当一个命令按钮的Cancel属性值设置为True 时，单击该命令按钮与按（）键的作用相同。
2．在一个窗体中，只允许（）个命令按钮的Defaul属性设置为True。
3．当单选按钮的Value属性为（）时表示该单选按钮处于未选中状态。
4．若使命令按钮Command1重新生效，则使用的赋值语句为（）。
5．若使命令按钮不能接收和响应任何事件，则可以设置Visible属性的值为（）。
参考答案一．单项选择题1. b2. c3. b4. c5. b二．填空题1.Esc2. 13.Falsemand1.Enabled=True5.False6．4 框架自测题填空题（共100分，每小题25分）1．设置框架上的文本内容需要使用（）属性。
2．在框架上可以设置一组控件，这些控件作为框架的（）控件对象。
3．若屏蔽框架上的控件对象，则需设置（）属性的值为False。
4．若使框架不可见，则需要设置Visible属性的值为（）。
参考答案填空题1．Caption2．子3．Enabled4．False6．5 列表框和组合框自测题一．单项选择题（共60分，每小题10分）1．要使列表框中的项目垂直滚动，应设置Columns属性值为（）。
a) 0 b) 1 c) 2 d) 32．若要得到列表框中项目的数目，可以访问（）属性。
a)List b)ListIndex c)ListCount d)Text3．要设置列表框的选择方式，应使用（）属性。
a)Columns b)MultiSelect c)Style d)List4．若要清除列表框的所有项目内容，可以使用（）方法。
a)AddItem b)ReMove c)Clear d)Print5．要删除列表框中的某一个项目，需要使用（）方法。
a)Clear b)ReMove c)Move d)ReMoveItem6．在组合框中选择的项目内容，可以通过（）属性获得。
a)List b)ListIndex c)ListCount d)Text二．填空题（共40分，每小题10分）1．列表框中项目的序号从（）开始到（）结束。
2．要显示列表框List1中序号为3项目内容的语句为（）。
3．向组合框Combo2添加序号为5内容为“网络学院”的项目使用语句为（）。
4．要删除组合框Combo1序号为3的项目使用的语句为（）。
参考答案一．单项选择题1. a2. c3. b4. c5. d6. d二．填空题1.0、Listcount-12.Print List1.List(3)bo2.AddItem “网络学院”,5bo1.ReMoveItem 36．6 滚动条自测题一．单项选择题（共50分，每小题25分）1．若要获得滚动条的当前位置，可以通过访问（）属性来实现。
a)Value b)Max c)Min d)LargeChange2．当用鼠标拖动滚动块时触发（）事件。
a)Move b)Change c)Scroll d)GotFocus二．填空题（共50分，每小题25分）1．若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需使用（）属性。
2．若要设置水平或垂直滚动条的最小值，需使用（）属性。
参考答案一．单项选择题1．a 2. c二．填空题rgeChange2.Min6．7 计时器自测题一．单项选择题（共50分，每小题25分）1．要设置计时器的时间间隔可以通过（）属性来实现。
a)Value b)Text c)Max d)InterVal2．要暂时关闭计时器，需设置（）属性。
a)Visible b)Enabled c)Lock d)Cancel二．填空题（共50分，每小题25分）1．计时器每经过一个由InterVal属性指定的时间间隔就会触发一次（）事件。
2．要使计时器每半钞钟触发一次Timer事件，则要把InterVal属性值设置为（）。
参考答案一．单项选择题1. d2. b二．填空题1.Timer2.5006．8 焦点和Tab顺序自测题一．单项选择题（共60分，每小题20分）1．下列选择项中（）不能获得焦点。
a)使用Tab键b)用鼠标选择对象c)设置GetFocus的值为True d)使用SetFocus方法2．要改变控件的Tab顺序可以修改（）属性值。
a)Visible b)Enabled c)TabStop d)TabIndex3．下列控件中（）不能接受GetFocus和LostFocus事件。
a)命令按钮b)组合框c)复选按钮d)计时器二．填充题（共40分，每小题20分）1．只有控件对象的Enabled和Visible属性值都为（）时，该控件对象才能接受焦点。
2．Tab顺序是由建立控件时的（）来确定。
参考答案一．单项选择题1. c2. d3. d二．填充题1.True2.先后顺序。