vb练习题,电子版 第12章 对话框程序设计

VB程序设计习题集VB程序设计习题集目录1·简介1·1 什么是 VB 程序设计1·2 学习 VB 程序设计的重要性2·VB 程序设计基础2·1 VB 的开发环境2·2 VB 的基本语法2·3 变量与数据类型2·4 运算符2·5 控制流程2·5·1 条件语句2·5·2 循环语句3·VB 程序设计进阶3·1 函数与过程3·2 数组与集合3·3 字符串处理3·4 文件操作3·5 错误处理与调试4·VB 程序设计实践4·1 用户界面设计4·2 数据库操作4·3 网络通信4·4 图形处理4·5 多媒体应用5·附录5·1 示例代码5·2 常用工具5·3 参考资料1·简介1·1 什么是 VB 程序设计VB（Visual Basic）是一种基于事件驱动的编程语言，它可以轻松创建 Windows 应用程序和图形用户界面。

VB 程序设计是利用VB 语言进行软件开发的过程，它广泛应用于商业软件、数据库应用、游戏开发等领域。

1·2 学习 VB 程序设计的重要性学习 VB 程序设计能够帮助您掌握快速开发 Windows 应用程序的技能。

VB 是一种易学易用的编程语言，适合初学者入门，并具有良好的图形用户界面设计能力。

掌握 VB 程序设计不仅可以提高开发效率，还能够加强对计算机科学基础的理解。

2·VB 程序设计基础2·1 VB 的开发环境VB 有多个版本，建议使用最新的 Visual Studio 等集成开发环境进行开发。

Visual Studio 提供了丰富的工具和功能，使得 VB 程序的开发更加便捷和高效。

《VB程序设计》课程练习题上表中的题号所对应题目的题干：1、叙述Visual Basic的特点。

2、当窗体上有三个文本框和一个命令按钮，若程序运行时，焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？3、若要对窗体上的三个文本框输入数据，个控件焦点的移动可通过Tab键（系统本身具有的），也可通过回车键，则要对文本框的什么事件编程？4、当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到文本框重新输入？5、怎样把关于Command命令按钮的Enabled属性的帮助示例代码复制到你的代码窗口？已知帮助中的代码如下：Private Sub Form_Load()Text1.Text = ””…消除文本框的内容Command1.Caption = “Save”…在按钮上放置标题End SubPrivate Sub Text1_Change()If Text1.Text = “” Then …查看文本框是否为空Command1.Enabled = False …使按钮无效ElseCommand1.Enabled = True …使按钮有效End IfEnd Sub6、当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。

7、在KeyPress事件中，如何取消用户刚键入的字符？8、静态数组与动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？9、函数过程和子过程的区别是什么？10、子过程调用有哪两种形式？11、什么是形参？什么是实参？什么是值引用？什么地址引用？地址引用时，对应的实参有没有限制？12、如果要时钟控件每半分钟发生一个Timer事件，则Interval属性应设置为多少？13、如果在KeyDown事件过程中将KeyCode设置为0，KeyPress的KeyAscii参数会不会受影响？如果输入的对象是文本框，那文本框的内容是否有影响？14、构造满足下列条件的Open语句。

D．BACKSTYLE
11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中
输入的字符仍然显示出来，而不显示星号，原因可能是（ ）
D．FORECOLOR
D．FONT
D．ENABLED
D．CHANGE
C．将控件的 TABSTOP 属性设置为 FALSE
D．将控件的 ENABLED 属性设置为 FALSE
10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性
A．BACKCOLOR
C．FORECOLOR
B．BORDERSTYLE
二、选择题
第 2 页 共 32 页
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关，1系电过，力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层，机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下卷2，高总而中体且资配可料置保试时障卷，各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高；中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整，处核或理对者高定对中值某资，些料审异试核常卷与高弯校中扁对资度图料固纸试定，卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置，跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等，料，编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气，线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术，技含以来术线及避槽系免、统不管启必架动要等方高多案中项；资方对料式整试，套卷为启突解动然决过停高程机中中。语高因文中此电资，气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技，进术合行，理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对：于于在调差分试动线过保盒程护处中装，高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时，术，作是应为指采调发用试电金人机属员一隔，变板需压进要器行在组隔事在开前发处掌生理握内；图部同纸故一资障线料时槽、，内设需，备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切，验除线报从缆告而敷与采设相用完关高毕技中，术资要资料进料试行，卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。

7.在窗体上画一个命令按钮和一个通用对话框，其名称分别为command1和 commondialog1，然后编写如下代码： Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Flags = vbofnfilemustexist CommonDialog1.Filter = "all files|*.*|(*.exe)|*.exe|(*.text)|*.txt|(*.doc)|*.doc" CommonDialog1.filterindex = 4 CommonDialog1.DialogTitle = "open file(*.exe)" CommonDialog1.Action = 1 If CommonDialog1.FileName = "" Then MsgBox "no file selected", 37, "checking" Else '对所选择的文件进行处理 End If End Sub程序运行后，单击命令按钮，将显示一个对话框。 1）该对话框的标题是 open file(*.exe) 。 2）该对话框“文件类型”框中显示的内容是 *.doc 。 3）单击“文件类型”框右端的剪头，下拉显示的内容是 all files\(*.exe)\(*.text)\(*.doc) 。 4）如果在对话框中不选择文件，直接单击“取消”按钮，则显示在信息框中的信 息是 no file selected ，该信息框中的按钮是 重试 和 取消 。
假定在窗体上有一个通用对话框其名称为commondialog1为了建立一个打开文件对话框则需要把action属性设置为其等价的方法是showsave在窗体上画一个通用对话框其名称为commondialog1然后画一个命令按钮并编写如下事件过程

《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。

13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。

4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。

15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。

2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。

15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。

9A.对B.错√3. 每一个控件实质上都是一个微型程序。

2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。

A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。

21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。

9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。

3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。

6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。

《VB语言程序设计》习题参考答案第1章习题一、单选题1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B二、多选题1．ACDE 2．BCDE 3．CD 4. CE三、填空题1．事件驱动 2．解释，编译 3．设计，运行，中断4. 属性，方法，事件5. Command2_Click6. 中央，代码7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"编程及上机调试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．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2．Int(50+6*Rnd)3．(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试1～3题：按要求完成操作练习。

第一章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、字节。

试卷编号：8491所属语言：Visual Basic一、填空共5题（共计5分）第1题（1.0分）题号:40要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.=======(答案1)=======Default第2题（1.0分）题号:1562由Dim a (10) As single定义的数组占用【1】字节的内存空间.=======(答案1)=======44第3题（1.0分）题号:247声明定长为10个字符变量Sstr的语句为【1】. =======(答案1)=======Dim Sstr as String*10=========或=========Sstr as String*10第4题（1.0分）题号:1401通用对话框可以提供6种形式的对话框,通过设置【1】属性值或调用Show方法来建立不同类型的对话框.=======(答案1)=======Action第5题（1.0分）题号:279设置计时器对象触发事件的时间间隔用【1】属性.=======(答案1)=======interval二、判断共5题（共计5分）第1题（1.0分）题号:1125在程序运行过程中,变量中的值不会改变,而常量中的值会被改变.答案：N第2题（1.0分）题号:254move方法的一般形式是:对象名.moveA,B[,C,D],其中A指Left,C 指width.答案：N第3题（1.0分）题号:368如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值. 答案：N第4题（1.0分）题号:1210一个目标程序所需的所有文件的集合称为工程答案：Y第5题（1.0分）题号:275对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的定位网格起作用.答案：Y三、单项选择共5题（共计5分）第1题（1.0分）题号:3179在下列表达式中,非法的是______.A:a=b+cB:a>b+cC:a≠b>cD:a<b+c答案：C第2题（1.0分）题号:3400下列对象中没有焦点属性的是().A:命令按钮控件B:窗口控件C:文本框控件D:单选框控件答案：B第3题（1.0分）题号:3573列表框中列表项的数目可通过()属性的值获得.A:CountB:ListCountC:SelcountD:Index答案：B第4题（1.0分）题号:3505以下程序Dim aa=Array(1,2,3,4,5,6,7)For i=Lbound (((A) To Ubound (((A)a(i)=a(i)*a(i)Next iPrint a(i)输出结果是A:49B:0C:不确定D:程序出错答案：D第5题（1.0分）题号:3511在窗体上添加一个命令按钮，编写如下代码：Option Base 1Private Sub Command1_ClickDim a(10) As Integer,p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A:35B:28C:33D:37答案：C四、多项选择共5题（共计5分）第1题（1.0分）题号:283要选择列表框List1的第6项，可以使用语句（）。

第十二章对话框程序设计教学要求：了解对话框的作用和设计手段，掌握通用对话框控件的基本用法。

能够自主设计出一个外型美观，功能全面的对话框。

知识点：对话框的分类与特点；自定义对话框；通用对话框；文件对话框。

内容导航：一、对话框的概念（一）对话框的定义对话框是一种特殊的窗口（窗体），它通过显示和获取信息与用户进行交流。

（二）对话框的分类和特点1．对话框的分类在Visual Basic中，对话框分为预定义对话框、自定义对话框和通用对话框。

2．对话框的特点（1）在一般情况下，用户没有必要改变对话框的大小，因此其大小是固定的。

（2）为了退出对话框，必须单击其上的某个按钮，不能通过单击对话框外部的某个地方关闭对话框。

（3）在对话框中不能有最大化按钮和最小化按钮，以免被意外的扩大或缩成图标。

（4）对话框不是应用程序的主要工作区，只是临时使用，使用后就关闭。

（5）对话框控件的属性可以在设计阶段设置，但在有些情况下，必须在运行时设置控件的属性，因为某些属性设置取决与程序中的条件判断。

二、预定义对话框预定义对话框即使用MsgBox和InputBox函数建立的信息框和输入框。

三、自定义对话框预定义对话框很容易建立，但在应用上有一定的限制，例如输入框只有一个输入区域。

如果需要比输入框或信息框功能更多的对话框，就只能由用户自己建立。

四、通用对话框控件用MsgBox和InputBox函数可以建立简单的对话框。

如果需要，也可以自己定义对话框。

当定义的对话框较复杂时，将会花费较多的精力。

为此V isual Basic 6.0提供了通用对话框控件，用它可以定义较为复杂的对话框。

为了把通用对话框加到工具箱中，可按以下步骤操作：①执行“工程”菜单中的“部件”命令，打开“部件”对话框；②在对话框中选择“控件”选项卡，然后在控件列表框中选择“Microsoft Common Dialog Control 6.0”；③单击“确定”按钮，通用对话框即被加到工具箱中。

一、单项选择（每小题2分，共40分）1、窗体文件、标准模块文件的扩展名分别是__D__。

(A) .frm和.mdb (B) .frm和.vbp (C) .bas和.vbp 工程文件扩展名(D) .frm和.bas2、如果要设置窗体的标题栏，应选择_ B__属性。

(A) Name窗体名称(B) Caption (C) Tips (D) Text3、当运行程序时，系统自动执行启动窗体的___ D _事件过程。

(A) Click (B) Unload (C) Gotfocus (D) Load4、Visual basic程序设计语言属于___C_。

(A) 面向过程的语言(B) 面向问题的语言(C) 面向对象的语言(D) 面向机器的语言5、任何控件都具有的属性是___B_。

(A) Text (B) Name (C) ForeColor (D) Caption文本框没有6、VB的一个文本框控件名为mytxt，要使该控件中显示“我的VB程序”，以下__C__语句执行后能正确结果。

(A) Text1.Text = "我的VB程序" (B) Text1.Caption = "我的VB程序"(C) mytxt.Text = "我的VB程序" (D) mytxt.Caption = "我的VB程序"7、Visual Basic程序设计中，构成对象的三要素是___B_。

(A) 属性、控件和方法(B) 属性、事件和方法(C) 控件、过程和模块(D) 窗体、控件和过程8、在语句Public Sub Sort(i As Integer)中的i 是一个按__C__传递的参数。

(A) 地址(B) 值(C) 变量(D) 常量9、要将变量x赋值为50到100之间（含50和100）的一个随机整数，下面语句正确的是___B_。

x=下限+Int(上限-下限+1*Rnd)(A)x=50+Int(50*Rnd) (B) x=50+Int(51*Rnd)(C) x=Int(49+50*Rnd) (D) x=Int(49+51*Rnd)10、在通用声明代码中有以下语句：Option Base 1Dim a (4,-3 to 3) As String则该数组有__ __个元素。

VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。

2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。

3．在文本框中，通过属性能获得当前插入点所在的位置。

4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。

6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。

7.整数变量x存储两位数。

要交换两个数字的位置，例如，13变为31，表达式为。

8．表示x是5的倍数或是9的倍数的逻辑表达式为。

9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。

10．int(-3.5)、int(3.5)值分别是、。

11．表达式ucase(mid(\的值是。

12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。

fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。

15．属性设置为1，单选按钮和复选框的标题显示在左边。

16．属性设置为1，单选按钮和复选框以图形方式显示。

17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。

18．列表框中项目的序号是从开始的。

19.指示列表框中最后一项的序列号。

20.方法可以清除列表框中的所有内容。

21．组合框是组合了文本框和列表框的特性而形成的一种控件。

风格的组合框不允许用户输入列表框中没有的项。

22.VB程序存储在模块中，模块分为______________三种类型。

123.如果希望每15秒生成一次计时器事件，interval属性应设置为。

一、选择题：1、C2、D3、A4、C5、B6、A二、填空题：1、学习版，专业版，企业版2、文件，退出3、ALT+Q4、文件，打开工程，打开工程5、ESC6、.VBP，.FRM7、固定，浮动第2章（P30）一、选择题：1、D2、BD3、A4、B5、D6、B7、A二、填空题：1、对象框，属性显示方式，属性列表，属性解释2、Text1.Text=”Hello！”3、标准控件，ActiveX控件，可插入对象4、Top，Left，Height，Width5、（1）用鼠标单击属性窗口的任何部位（2）执行“视图”菜单中的“属性窗口”命令（3）按F4键（4）单击工具栏上的“属性窗口”按钮（5）按组合键Ctrl+PgDn或Ctrl+PgUp6、Shift（或答Ctrl)第3章（P51）一、选择题：1、B2、D3、D4、B5、B二、填空题：1、ABCD，VB Programming2、建立用户界面，设置窗体和控件的属性，编写代码3、属性窗口，运行4、对象框，过程/事件框5、工具，选项，选项，自动语法检测6、.frm，.vbp7、工程8、窗体模块，标准模块，类模块一、选择题：1、B2、A3、C4、D5、B6、D7、B8、A9、B10、C11、D12、B二、填空题：20、CONTT*DE+COS(28*3.1415926/180)2、-3/8+8*INT(24.8)3、(8+6)^(4/(-2))+SIN(2*3.1415926)4、((x+y)+Z)*80-5*(C+D)5、(cos(c+d))^26、5+(a+b)^27、cos(x)*(sin(x)+1)8、Exp(2)+29、2*a*(7+b)10、8*Exp(3)*log(2)11、A12、113、Good Morning，Good Morning14、ABCD，HIJK15、CDEF，1116、0，abcdefghijk17、25，8，2001，718、“，#19、UniCode，1，220、12345.68第5章（P108）一、选择题：1、C2、D3、C4、B5、C6、B7、D8、C9、D10、B11、B12、D13、A14、A二、填空题：1、25+32=572、Beijing3、34、002.45，2.449，24.49E-01，-2.44955、△10△△△△△15△△△△△△△20△10△△△△△△△△15△△△△△20△20△△△+△△△25△△△=△△△456、△9△△10△△11△（注：三角形表示空格，参见选择题3小题）7、对X四舍五入后取整第6章（P151）一、选择题：1、C2、B3、D4、A5、D6、C7、A8、C9、C10、D11、B12、C13、B14、B15、A16、B17、D18、C19、C20、C二、填空题：1、autosize2、scrollbars，multiline,true3、text1.setfocus4、0, 05、picture1.picture=loadpicture(“pic2.gif”)6、true7、picture8、interval9、enabled10、下拉式组合框，简单组合框，下拉式列表框，style，0，1，211、下拉式列表框12、ItemB和ItemE13、VB程序设计，VB Programming第7章（P183）一、选择题：1、A2、A3、B4、D5、A6、B7、A8、C9、A10、B二、填空题：1、92、1233、4、x&gt;=7（注：此题有多种写法）5、x&gt;=0，x&lt;amin6、10247、118、1239、16第8章（P210）一、选择题：1、D2、C3、A4、C5、D6、D二、填空题：1、NAME，INDEX2、变体3、n(2)=2n(3)=34、1 2 3 1 4 15、46、1 2 3 2 4 6第9章（P251）一、选择题：1、B2、D3、B4、A5、A6、D二、填空题：1、形式，常数，变量，表达式，数组，实际2、2593、244、2第10章（P287）一、选择题：1、A2、C3、B4、D5、C6、D7、D8、D二、填空题：1、65，972、KEYCODE键，返回，ASCII码3、ABCDE（注意是大写字母）4、移动鼠标后松开鼠标按键5、MOUSEPOINTER，99，MOUSEICON6、DRAGMODE，1，07、1，2，4，Shift，ctrl，Alt8、1，2，4，左，右，中间第11章（P314）一、选择题：1、D2、A二、填空题：1、弹出式，下拉式2、数据区，编辑区，菜单项显示区3、-4、子菜单5、PopupMenu第12章（P335）一、选择题：1、B2、B二、填空题：1、预定义、自定义、通用2、Microsoft Common Dialog Control 6.03、showopen，showsave，showcolor，showfont，showprinter，1，2，3，4，54、FILENAME属性用来指定完整的路径,而FILTERTITLE属性只指定文件名，c:\\abc\\def\\fn.exe，fn.exe5、(1)OPEN FILE(*.EXE)(2)(*.DOC)(3)ALL FILES(*.EXE)(*.TXT)(*.DOC)(4)No file selected，重试，取消6、action，2，showsave第13章（P361）一、选择题：1、B2、C3、D二、填空题：1、load，unload2、show，hide3、执行“工程”菜单中的“添加窗体”命令，单击工具栏上的“添加窗体”按钮，右击工程资源管理器，在弹出的菜单中选择“添加”命令后在下一级菜单中选择“添加窗体”命令4、工程属性，工程，属性5、窗体，标准，类6、标准，Public7、模块层，全局，窗体8、闲置循环第14章（P395）一、选择题：1、C2、A二、填空题：1、程序，数据，顺序，随机，ASCII，二进制文件2、Open，Input，Output，Append，Random，Binary，Random，Read，Write，Read Write3、记录数4、PRINT#，WRITE#，关闭文件，缓冲区已满，执行下一个PRINT#5、INPUT#，LINE INPUT#，INPUT（$,#文件号），PUT#，GET#6、Dir1_Change，Drive1_Change，File1.Path=Dir1.Path，Dir1.Path=Drive1.Drive。

参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。

选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。

（2）设置对象属性，见表。

（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。

vb程序设计题库及答案详解在编写VB程序设计题库及答案详解时，我们通常会按照以下结构进行排版：1. 题目编号：为每个题目分配一个唯一的编号，方便索引和查找。

2. 题目描述：清晰地描述题目要求，包括输入、输出、功能等。

3. 解题思路：简要说明解题的步骤和方法。

4. 代码实现：提供完整的VB代码实现，包括必要的注释。

5. 运行结果：展示程序运行后的结果，可以是截图或文本描述。

6. 注意事项：列出在编写程序时应注意的问题或常见的错误。

7. 拓展思考：提供一些拓展问题或变体，引导读者进一步思考。

以下是一篇符合标题的正文内容示例：题目编号：001题目描述：编写一个VB程序，实现用户输入两个整数，程序输出这两个整数的和。

解题思路：1. 使用InputBox函数获取用户输入的两个整数。

2. 将输入的字符串转换为整数类型。

3. 计算两个整数的和。

4. 使用MsgBox函数显示结果。

代码实现：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数："))num2 = Val(InputBox("请输入第二个整数："))sum = num1 + num2MsgBox "两个整数的和是：" & sum```运行结果：程序将弹出两个输入框，用户输入两个整数后，将显示一个消息框，展示这两个整数的和。

注意事项：- 确保输入的是整数，否则Val函数可能会失败。

- 输入框中不要包含非法字符。

拓展思考：- 如果用户输入的不是数字，程序应如何处理？- 能否修改程序，使其能够计算两个数的平均值而不是和？请注意，这只是一个示例，实际的题库及答案详解会根据具体题目的不同而有所变化。