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．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值
VB程序设计课后习题答案
VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Window子目录删除。
当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。
3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。
第6-10章 VB课后参考答案
第6章习题参考答案一、判断题题号 1 2 3 4 5 6答案√√×√√×二、选择题题号 1 2 3 4 5答案 D C A D B三、程序填空题1.（1）nsp=true(2) m mod i=0(3) p1 and p2(4) p1=nsp(i)2．（1）number(i,7)(2) (int n, int m)(3) number=number*10+m四、程序阅读1. a=9 b=42．(1) 362516941(2)1499413．64. 1 4 6五、编写程序1.Public Function fact(x As Integer) As Single '求x!Dim f As Single, i As Integerf = 1For i = 1 To xf = f * i '累积Next ifact = fEnd FunctionPrivate Sub Form_Click()Dim n%, m%, y!Dom% = Val(InputBox("m="))n% = Val(InputBox("n="))Loop Until m >= n And n >= 0y = fact(m) / (fact(n) * fact(m - n))Print yEnd Sub2 private sub Insertfun(a%(), y%)Dim i as integer,n as integern=ubound(a)Redim preserve a(n+1)For i=ubound(a)-1 to 0 step -1If y <a(i) thena(i+1)=a(i)If i=0 then a(i)=yElsea(i+1)=yexit forend ifnext i3. '判断是否为回文函数Private Function Judge(str As String) As BooleanDim i As IntegerJudge = True '假设为回文For i = 1 To Len(str) \ 2 '依次判断对应位置的两个字符，只要有一组不等即不是回文If Mid(str, i, 1) <> Mid(str, Len(str) + 1 - i, 1) ThenJudge = FalseExit FunctionEnd IfNext iEnd Function4.Private Sub Form_Click()Dim n%,x!n = Val(InputBox("n="))x = Val(InputBox("x="))Print fe(n, x) '调用求值函数过程End Sub'求值函数过程Public Function fe(n%, x!) As SingleDim i As Integer, t As Singlefe = 1: t = 1For i = 1 To nt = t * x / i 't为通项fe = fe + tNext iEnd Function5.。
vb各章练习题
第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。
（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。
(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。
（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A ）。
（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（D ）。
（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（B ）。
（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。
（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（C ）。
（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。
（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。
（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。
vb6.0练习题及答案
vb6.0练习题及答案第一篇：vb6.0练习题及答案一、选择题1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。
A．窗体设计．代码C．属性D．工程资源管理器窗口 >> 答案：d2．窗体的Load事件的触发时机是（）。
A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时 >> 答案：ｂ3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术答案：C4．VB6.0集成开发环境的主窗口不包括（）。
A．标题栏 B．菜单栏 C．状态栏 D．工具栏答案：c5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。
A．T ext.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text答案：b6．下列可以激活属性窗口的操作是（）。
A．用鼠标双击窗体的任何部位B．执行“工程”菜单中的“属性窗口”命令 C．按Ctrl+F4 D．按F4键答案： b d7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。
A．单击窗体上没有控件的地方 B．单击任一个控件 C．不执行任何操作 D．双击窗体的标题栏答案：a8．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。
A．Caption B．PasswordChar C．Text D．Char答案：b9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。
A．Locked B．MultiLine C．TabStop D．Visible答案：a10．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。
A．Index B．Tag C．Enabled D．Left答案：c11．要在窗体Form1内显示“myfrm”，使用的语句是（）。
VB课后习题答案汇总
课后习题参考答案第1章Visual Basic 6.0一、判断题1－－5：√×√×√ 6――10：××√×√ 11――13：√××二、选择题1――5：ADBBB 6――10：.CACDB三、填空题1、图片框和框架2、对象3、控件屏幕4、Load5、Load Activate四、程序设计题1、Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub2、Private Sub Command1_Click()Form1.FontSize = Form1.FontSize + 3Print "青春无悔"End SubPrivate Sub Command2_Click()FontSize = FontSize - 3Print "青春无悔"End SubPrivate Sub Command3_Click()Form1.FontBold = TruePrint "青春无悔"End SubPrivate Sub Command4_Click()FontBold = FalsePrint "青春无悔"End Sub3、Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.FontName = "楷体_gb2312"Text1.FontSize = 15Text1.Text = "我学会了创建一个应用程序了！"End Sub第二章判断题：1~5错错错错错第3章顺序结构程序设计一、思考题略二、程序阅读题1．A=2 B=1 C=22．123．BABCBACBC4． 1 2 False5．1-12-123-1234-三、选择题1.B2.D3.B4.B5.D6.C四、程序设计题１．Private sub form_click()Dim r!,s!R=val(inputbox(“r=”))S=3.14159*r*rPrint “s=”;sEnd sub2．Private sub form_click()Dim x as singleX=val(inputbox(“x=”))Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000End sub第4章选择结构程序设计一、判断题1.错2.错3.错4.错5.对二、选择题1．A 2. D 3.A 4.B 5.A 6.A三、程序阅读题1．X=3 y=72.w=4w=13w=135w=313.X_`a12 Uvw&4.12 9四、程序填空题1．(1) chr(keyascii) (2) chr(keyascii)=”)”(3)count1=count1-1 (4)count1=0 (5)count1>02．(1) max (2)min (3)c>max (4)c<min3.(1)x mod 3=2 and x mod 5=3 and x mod 7=4 then(2)text1.setfocus (3) text1.selstrat=0 (4)text1.sellength=len(text1.text)五、1.Private Sub Command1_Click()Dim y As Integery = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Print "是闰年"ElsePrint "不是闰年"End IfEnd SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"ElseY1= "不是闰年"End If? y,y1End SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))Y1= "不是闰年"If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"End If? y,y1End Sub2.Private Sub Command1_Click()Dim a%, b%, c%, x!,s!a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))Print "s="; sElsePrint "不是三角形,重输a,b,c"End IfEnd SubPrivate Sub Command1_Click()Dim a%, b%, c%, x!,s!,t%a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c=")) ‘a,b,c=3,4,5t=0If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))t=1End IfIf t=0 then? “不是“endifEnd Sub3.Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))y = x * x - x – xIf x < 0 And x <> -3 Theny = x * x + x - 6ElseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Then y = x * x - 5 * x + 6End IfPrint "x="; x, "y="; yEnd SubPrivate Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))If x < 0 And x <> -3 Theny = x * x + x – 6elseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Theny = x * x - 5 * x + 6elsey=x^2-x-1End IfPrint "x="; x, "y="; yEnd SubPrivate sub form_click()Dim y%,z%,dj%,p!,t!Y=val(inputbox(“月”))Z= val(inputbox(“订票数”))Dj= val(inputbox(“票价”))Select case ycase 7,8,9If z>=20 then p=0.15 else p=0.05case 1 to 5,10,11If z>20 then p=0.3 else p=0.2Case elseP=0.2End selectT=z*dj*p? tend sub5.private sub form_click()dim m1%,m2%,m3%,dj$m1=val(inputbox(“m1=”)): m2=val(inputbox(“m2=”)): m3=val(inputbox(“m3=”))if (m1+m2+m3)/3>=95 or ( a=100 and b=100 and c>=80) or ( a=100 and c=100 and b>=80) or ( c=100and b=100 and a>=80) thendj=”一等”elseif (m1+m2+m3)/3>=90 or ( a=100 and b>=75 and c>=75) or ( b=100 and a>=75 and c>=75) or ( c=100 and b>=75 and a>=75) thendj=”二等”elseif a>=75 and b>=75 and c>=75 thendj=”三等”elsedj=”没有”endif? “dj=”;djend sub第5章 循环结构程序设计1．判断题×√√√××√×2．选择题BBBBCC3.填空题（1）7（2）Do/Loop For/Next While/Wend（3）-364.程序阅读题（1） （2）（3）4 （4）5．程序填空题（1）①sign=1 ②For i=2 to 19（2）①Len(str1) ②length-1 ③Mid(str1,i,2) ④Sum=0（3）①I mod 7=5 and i Mod 5 = 3 And i Mod 3=2 ②i<1000（4）①last_one = last_two ②last_two = this_one ③i=i+1 ④i-2（5）①I>int(sqr(m)) ②Int(Sqr(n-m))6．编程题（1）Private Sub Form_Click()Dim i As Integer, j As IntegerDim s As Double, Sum As Doubles = 188 68861 2 3 4 Sum=10# # # # # ## # # # ## # # ## # ## ##For i = 1 To 11 Step 2For j = 1 To is = s * jNext jSum = Sum + sNext iPrint SumEnd Sub（2）Private Sub Form_Click()Dim m%, n%, mn%, r%, t%m = Val(InputBox("m="))n = Val(InputBox("n="))If n <= 0 Or m <= 0 ThenMsgBox "数据有误"EndEnd Ifmn = m * nIf m < n Thent = m: m = n: n = tEnd IfDo While (n <> 0)r = m Mod n: m = n: n = rLoopForm1.Print "最大公约数="; mForm1.Print "最小公倍数="; mn / m End Sub（3）Private Sub Form_Click()Dim i%, j%For i = 1 To 5Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(i));Next jPrintNext iFor i = 4 To 1 Step -1Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(10 - i));PrintNext iEnd Sub（4）Private Sub Form_Click()Dim x As IntegerDim y As IntegerDim z As IntegerFor x = 0 To 100For y = 0 To 100 - xz = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zNext yNext xEnd Sub（5）Private Sub Form_Click()Dim x As Single, y As Single, a As Single, i As Integerx = Val(InputBox("输入x:"))a = 1: y = a: i = 0While a >= 0.00001i = i + 1: a = a * x / i: y = y + aWendPrint "y="; yEnd Sub第六章答案一、判断题1．错2．错3．错4．错（可以为小数，不过仍然是当作整数来处理）5．错6．错二、选择题1．C2．C3．A4．D三、程序填空1．（1）N-1 （2）T = A(J): A(J) = A(J + 1): A(J + 1) = T（3）Print A(I)2．（1）a(i, j) = 1 （2）Print四、程序阅读1．52．1 2 3 41 2 3 41 2 3 41 2 3 41 1 1 12 2 2 23 3 3 34 4 4 43．（前面空4个空格）1 12 11 102 13 16 93 14 15 84 5 6 7第7章过程判断题：1、对2、错3、错4、错5、对6、对7、错选择题：1．B 2、D 3、D 4、C 5、A程序阅读题：1、y=5 a=52、n=1 z=4y=15 a=10 n=2 z=7y=30 a=15 n=3 z=103、32 644、2 2 216 648 644 645、A1=10 B1=20A2=20 B2=10程序填空题：1、（1）hwstring(str) （2）"" （3）As Boolean（4）n=len(strtxt) (5) True （6）False2．（1）Xsch(Nman,Nkcen) （2）n（3）sum=sum+x(i,j) （4）tt/n （5）x(i,m+1)<1.2*ver and x(i,m+1)>=1.1*ver 3．（1）number（i）（2）Byval n as Integer （3）number= number+7*10^ (i-1)4．（1）temp=1 （2）temp （3）nFactor( i ) （4）sum 程序设计题：1、具体程序为：Function Maxnum(ByRef a() As Integer, ByVal n As Integer) As IntegerDim i As IntegerMaxnum = a(1)For i = 2 To nIf a(i) > Maxnum Then Maxnum = a(i)Next iEnd FunctionFunction Avenu(ByRef a() As Integer, ByVal n As Integer) As SingleDim i As Integer, sum As IntegerFor i = 1 To nsum = sum + a(i)Next iAvenu = sum / nEnd FunctionSub Sortrnum(ByRef a() As Integer, ByVal n As Integer)Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFor i = 1 To nk = iFor j = i + 1 To nIf a(k) > a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim b(10) As Integer, i As IntegerFor i = 1 To 10b(i) = InputBox("请输入整数", "输入")Next iCall Sortrnum(b(), 10)Print "从小到大排序为："For i = 1 To 10Print b(i);NextPrintPrint "最大数为："; Maxnum(b(), 10)Print "平均数为："; Avenu(b(), 10)End Sub2、具体程序为：Function fe(n%, x!) As SingleDim temp As Single, i As Integerfe = 1temp = 1For i = 1 To ntemp = temp * x / ife = fe + tempNext iEnd FunctionPrivate Sub Form_Click()Dim n As Integer, x As Singlen = Val(InputBox("请输入n", "输入"))x = Val(InputBox("请输入x", "输入"))Print "e的值为："; fe(n, x)End Sub3、具体程序为：Sub sort(a() As Single, n As Integer)Dim i As Integer, j As Integer, k As Integer Dim temp As SingleFor i = 1 To nk = iFor j = i + 1 To nIf a(k) < a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim a(10) As Single, i As IntegerFor i = 1 To 10a(i) = Val(InputBox("请输入数据", "输入")) Next iCall sort(a(), 10)Print "从大到小为："For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub第8章 常用控件参考答案：一、判断题1、×2、×3、√4、√5、×6、×7、×8、×9、× 10、×11、× 12、√ 13、× 14、√ 15、√二、单选题1、A2、B3、A4、C5、B6、D7、A8、B9、C 10、C11、A 12、A 13、C 14、B 15、A三、填空题1、Autosize WordWrap2、Enabled Visible3、文本框和列表框4、拖动滚动框5、Change6、Command1.Setfocus7、Timer8、MaxLength 9、AddItem 10、定时器屏蔽123 45.五、程序填空题1、(1) Label1.left (2) –Label1.Width2、(1) List1.ListIndex<0 （或者List1.ListIndex = -1） (2) List1.RemoveItem List1.ListIndex(3) Text1.Text=”” (4) List1.AddItem Text1.Text3、(1) 1 to 2*I-1 (2) Command2.Enabled=True(3) Command2.Enabled=False4、(1) ndec<>0 (2) ndec mod 16 (3) ai=ndec(4) end (5) ai & shex (6)shex5、(1) Timer1.Enabled=True (2) x \ 3600 (3) (x-h*3600)\60(4) x=x+16、(1) m<len(str1)/2 (2) mid (str1,m+1,1) (3)mid (str1,len(str1)-m,1)六、程序设计题1、 Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请先输入添加项"ElseList1.AddItem Text1.TextEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex < 0 Then ‘或者if list1.listindex=-1 then MsgBox "请选择一删除项"ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()If List1.ListIndex < 0 ThenMsgBox "请选择一修改项"ElseText1.Text = List1.TextEnd IfCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()Dim a As IntegerIf List1.Text = Text1.Text ThenMsgBox "请先修改此项"Elsea = List1.ListIndexList1.RemoveItem List1.ListIndexList1.AddItem Text1.Text, aEnd IfEnd SubPrivate Sub Form_Load()Command4.Enabled = FalseEnd Sub2、 Dim a As IntegerPrivate Sub Command1_Click()a = Int(Rnd * 100) + 1End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static i As IntegerIf KeyAscii = 13 ThenIf Val(Text1.Text) > a ThenLabel1.Caption = "太大了，请重输"i = i + 1ElseIf Val(Text1.Text) = a ThenLabel1.Caption = "恭喜你，你答对了！"i = 0Command1_ClickElseLabel1.Caption = "太小了，请重输！"i = i + 1End IfIf i > 10 ThenMsgBox "你失败了！"EndEnd IfEnd IfEnd Sub3、Private Sub Command1_Click()Dim n As Integer: n = Len(Text1.Text)Dim s(1 To 1000) As String, i As Integer, j As Integer, t As String,a As StringFor i = 1 To ns(i) = Mid(Trim(Text1.Text), i, 1)Next iFor i = 1 To n - 1For j = i + 1 To nIf s(i) > s(j) Thent = s(i): s(i) = s(j): s(j) = tEnd IfNext j, iFor i = 1 To n: a = a + s(i): Next iPrint aCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click(): End: End SubPrivate Sub Form_Load()Text1.MaxLength = 200Command2.Enabled = False: Command1.Enabled = TrueEnd Sub4、Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As Double, d(1 To 1000) As DoublePrivate Sub Combo1_click()Text1.Text = a(Combo1.ListIndex + 1)Text2.Text = b(Combo1.ListIndex + 1)Text3.Text = c(Combo1.ListIndex + 1)Text4.Text = d(Combo1.ListIndex + 1)End SubPrivate Sub Command1_Click()Combo1.AddItem Text1.Texta(Combo1.ListCount) = Text1.Textb(Combo1.ListCount) = Text2.Textc(Combo1.ListCount) = Val(Text3.Text)d(Combo1.ListCount) = Val(Text4.Text)End SubPrivate Sub Command2_Click()For i = Combo1.ListIndex + 1 To Combo1.ListCount - 1a(i) = a(i + 1)b(i) = b(i + 1)c(i) = c(i + 1)d(i) = d(i + 1)Next ia(i) = ""b(i) = ""c(i) = 0d(i) = 0Combo1.RemoveItem Combo1.ListIndexText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Form_Load()Dim i As IntegerCombo1.AddItem "张三"Combo1.AddItem "李四"Combo1.AddItem "王五"a(1) = "张三": a(2) = "李四": a(3) = "王五"b(1) = "浙江林学院": b(2) = "浙江工业大学": b(3) = "浙江大学"c(1) = : c(2) = : c(3) =d(1) = : d(2) = : d(3) =End Sub5、Private Sub Check1_Click()If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = "宋体"End SubPrivate Sub Option2_Click()Label1.FontName = "楷体_gb2312"End Sub6、Private Sub Command1_Click()Dim a As String, i As Integer, n As IntegerDim s As Integer, q As Integer, l As Integern = Len(Text1.Text)For i = 1 To na = Mid(Text1.Text, i, 1)If a >= "a" And a <= "z" Thens = s + 1 '大写个数ElseIf a >= "A" And a <= "Z" Thenq = q + 1 '小写个数ElseIf a >= "0" And a <= "9" Thenl = l + 1End IfNext iText2.Text = sText3.Text = qText4.Text = lEnd SubPrivate Sub Form_Load()Text1.SetFocusEnd Sub7、Private Sub Form_Click()Dim i As Integer, j As Integer, t As IntegerFor i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iList1.ClearDo While List2.ListCountList3.AddItem List2.List(0)List2.RemoveItem 0LoopFor i = 0 To List3.ListCount - 2For j = i + 1 To List3.ListCount - 1If List3.List(i) > List3.List(j) Thent = List3.List(i): List3.List(i) = List3.List(j): List3.List(j) = tEnd IfNext j, iEnd SubPrivate Sub Form_Load()Dim i As Integer, n As Integern = InputBox("")For i = 1 To nList1.AddItem Int(Rnd * 90) + 10List2.AddItem Int(Rnd * 90) + 10Next iEnd Sub第9章对话框和菜单1．判断题：×√√(题中应把flag改为flags)√√××√√×××√××2．选择题：DDCCD BDCCB3．填空题1.－2.一级子菜单3.将顶级菜单设置为不可见4.popupmenu pmenu,0,x,y5.showfont6.工程、部件7.click8.代码窗口，click9.下拉式，弹出式打开/另存为、颜色，字体、打印、帮助4. 程序阅读题打开对话框2、*.txt3、allfiles*.exe*.txt*.doc4、Checking，No File Selectd，重试（R），取消5. 程序填空题“c:\winnt”commondialog1.showopen,loadpicture(commondialog1.filename)6. 程序设计题1、界面如图：代码如下：Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.Flags = 4096CommonDialog1.Action = 1If CommonDialog1.FileName = "" ThenMsgBox "No File Selectd", 5 + vbExclamation, "Checking"ElseList1.AddItem CommonDialog1.FileNameEnd IfEnd Sub2、代码如下：Private Sub a_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub b_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontSize = CommonDialog1.FontSizeEnd SubPrivate Sub c_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameEnd SubPrivate Sub d_Click()EndEnd Sub第10章图形操作和图形控件一、判断题×√×××√×√××二、选择题BAADACAA三、填空题(1)pic1.Circle (pic1.ScaleLeft + pic1.ScaleWidth / 2, pic1.ScaleTop + pic1.ScaleHeight / 2), 700(2)在图片框picture1中，以(800,1000)为圆心画一个半径为500的圆(3)Form1.Scale (-200, 250)-(300, -100)(4)Autosize stretch四、程序阅读题1、窗体宽和高的1/4为起点，画一个边长为1000的正方形，并画出其正向对角线2、在图片框中交替画出实心和空心的矩形，空心矩形是黄色边框。
计算机VB第6章课后参考答案思考题与习题
第6章思考题与习题一．思考题(解略)1．在Windows程序中，用户和计算机程序的交互过程主要表现在哪些方面？在VB中是通过什么途径提供用户交互的？2．如何实现弹出式菜单的设计和执行？3．在这本章我们介绍了剪切板的一些概念，如何在VB程序中使用剪切板？如果不是文本文件，那么应该如何使用剪切板？4．在键盘事件中，KeyPress和KeyDown及KeyUp之间有什么区别？在什么情况下使用KeyPress事件？5．如何确定鼠标是哪个按钮被按下？如果多个程序都使用鼠标，系统应该如何设计？6．如果需要编写一个程序，判断输入的单词是否是VB的关键字，那么应当如何设计这个程序？二．填空题1．mouseup*2．产生对象.Dragover事件*3．一个对象的DragMode属性要么是1，要么是0，它在属性窗口或程序代码中被设置。
4．MouseMove5．指针类型，17 996，Shift*7．拖放8．move9．KeyPress，对应按键的ASCII码。
KeyDown或KeyUp，Shift10．Click，当前窗体的输出位置11．右键，菜单12．AL T13．Visible，Enabled14．Click，115．Enabled False16．连接符”-”17．518．Clipboard.Clear19．文本，Clipboard.GetText20．PopupMenu，Call PopupMenu 菜单名称上机实验一．在一个窗体上放置一个文本框，向该文本框输入0～15（其他数提示为输入错误，要求重新输入），根据在文本框中的数字显示不同的鼠标指针。
Private Sub Text1_Change()If V al(Text1.Text) >= 0 And V al(Text1.Text) <= 15 ThenMe.MousePointer = V al(Text1.Text)ElseMsgBox "数据输入错误，请输入0-15的数"Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd Sub二．设计一个程序，从键盘上读入一个字符，如果是在0~9，a~z之间，直接存入该字符到窗口中的文本框中，并给出它们对应的ASCII码，如果是A~Z，则将其转换为小写后在文本框中显示原来的字符和转换后小写的字符及其ASCII码，如果是其他字符，直接在文本框中显示提示信息“您输入亚的是字母和数字以外的符号”。
vb考试题及答案.doc
vb考试题及答案.docvb 考试题及答案【篇一：vb 考试真题一含答案】一、单项选择题（40 道小题，共40 分）1、在visual basic 中应用的是( c ) 。
（1 分）a、面向过程的程序设计方法b、面向数据的程序设计方法c、面向对象的程序设计方法d、面向用户的程序设计方法2、如果想让代码窗口中代码的字体大些，可以使用( a ) 命令设置。
（1 分）a、“工具”菜单的“选项”b、“视图”菜单的“缩放”c、“编辑”菜单的“替换”d、“视图”菜单的“定义”3、开发一个标准exe 程序时，工程资源管理器窗口应包含( b ) 文件。
（1 分）a、.bas b 、.frmc、.res d 、.cls4、在设计模式下，双击窗体上的一个控件，则会打开( c ) 。
（1 分）a、属性窗口b、工程资源窗口c、代码窗口d、窗体布局窗口5、下列属性中，能表示窗体执行时以正常窗口状态显示的属性是( d ) 。
（1 分）a、tabindex b 、controlboxc、borderstyle d 、windowsstate6、text1 是个文本框，语句text1=* 和下面( d ) 的作用相同。
（ 1分）a、text1.caption=* b 、text1.password=*c、text1.maxlength=* d 、text1.text=*7、command1 是一个按钮控件，它的pictrue 属性已经被成功设置为一个可显示图形，但运行时该图形未被显示，其原因可能是( d ) 。
（1 分）a、该图形太大b、forecolor 被设置为黑色c、backcolor 被设置为黑色d、style 属性值被设置为08、为了使标签覆盖背景，应把backstyle 属性设置为( b ) 。
（1分）a、0 b 、1c、ture d 、false9、要使时钟控件的timer 事件每隔3 秒发生一次，应该把它的interval 属性设置为( d ) 。
VB书课后题答案 第2、3、6章习题
8lsb2.6 习题p411. 下列都属于Visual 数据类型的是___________。
A.Short、Int、Long、Single、DoubleB.Short、Integer、Long、Float、DoubleC.Integer、Long、Single、Double、DecimalD.Boolean、Byte、Bit、Decimal、Date2. 以下定义常量不正确的语句是____________。
A.Const Num as Integer=10B.Const Num as Long=23.4，Str$=""C.Const Str$=""D.Const Str$=# #3. 使用数值类型数据时，系统有时为什么会提示“溢出”错误？4. 什么是变量的隐式声明和显示声明？5. 根据条件写出相应的表达式。
（1）产生“A”~“Z”范围内的一个字符。
Int(rnd()*26+65)（2）产生150~268（包括150和268）范围内的一个正整数。
Int(rnd()*119+150)（3）产生100~999范围内的一个正整数，并判断是否能整除5和7。
X=int(rnd()*900+100)If x mod 5 And x mod 7 thenMsgBox( x & “能被5 和7 整除”)ElseMsgBox( x & “不能被5 和7 整除”)Endif（4）将任意一个2位数的个位与十位分离。
P30（5）产生“a”~“n”范围内的一个小写字母，并转换为大写字母。
Ucase(Chr(Int(Rnd()*14+97)))（6）将一个字符串中去掉左右的空格，再将首字母和末尾字母一起构成一个新的字符串。
（7）表示年龄age在15~30岁之间的女生。
Age >=15 And age<=30 And 性别=”女”6. 编写程序，将系统当前的时间和日期通过Label控件显示。
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
计算机二级VB第6章选择题及答案
1、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a = Val(InputBox("请输入分数：", "计算你的等级", 60))If a < 0 Or a > 100 ThenPrint "输入错误"ElseIf a < 60 ThenPrint "不及格"ElseIf a < 80 ThenPrint "合格"ElsePrint "优秀"End IfEnd Sub运行时，单击按钮，在输入对话框中直接回车，输出结果为（）。
A、输入错误B、不合格C、合格D、优秀2、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 200sum = sum + iIf i Mod 19 = 18 ThenExit ForEnd IfNext iPrint sumEnd Sub运行时，单击按钮，输出结果为（）。
A、20100B、0C、190D、1713、运行下列程序，单击窗体后输出的结果是（）。
Private Sub Form_Click()Dim k As IntegerFor k = 1 To 2Print "3" + k; "3" & k; Spc(3);NextEnd SubA、31 3132 32B、31 31 32 32C、4315 32D、431 5 324、下列程序段的执行结果是（）。
X = 3: Y = 5: z = 9X = X + YY = X - YIf X + Y > Z - X Then z = X + YIf X + Y > Z - Y Then X = z + YPrint X, Y, ZA、3 5 9B、14 3 11C、8 3 11D、8 5 95、执行下列程序段后输出的结果是（）。
- 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.先后顺序。