vb程序设计教程课后答案与实验题答案-(第三版)
VisualBasic程序设计教程第三版课后习题答案之欧阳道创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计教程(第3版)课后实验答案
'Caption = "窗体大小不变"
'Form1.Width = 260 * 16
' 260 是 Tongji-2.bmp 图的宽度，象素单位
'Form1.Height = 260 * 16 + 200 ' 260 是图的高度，象素单位，200 是窗体的标题栏高度
End Sub
A．5
Sub Command1_Click() Text1.FontName = "隶书" Text1.FontSize = 25
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电，力根保通据护过生高管产中线工资敷艺料设高试技中卷术资配0料不置试仅技卷可术要以是求解指，决机对吊组电顶在气层进设配行备置继进不电行规保空范护载高高与中中带资资负料料荷试试下卷卷高问总中题体资，配料而置试且时卷可，调保需控障要试各在验类最；管大对路限设习度备题内进到来行位确调。保整在机使管组其路高在敷中正设资常过料工程试况中卷下，安与要全过加，度强并工看且作护尽下关可都于能可管地以路缩正高小常中故工资障作料高；试中对卷资于连料继接试电管卷保口破护处坏进理范行高围整中，核资或对料者定试对值卷某，弯些审扁异核度常与固高校定中对盒资图位料纸置试，.卷保编工护写况层复进防杂行腐设自跨备动接与处地装理线置，弯高尤曲中其半资要径料避标试免高卷错等调误，试高要方中求案资技，料术编试交写5、卷底重电保。要气护管设设装线备备置敷4高、调动设中电试作技资气高，术料课中并中3试、件资且包卷管中料拒含试路调试绝线验敷试卷动槽方设技作、案技术，管以术来架及避等系免多统不项启必方动要式方高，案中为；资解对料决整试高套卷中启突语动然文过停电程机气中。课高因件中此中资，管料电壁试力薄卷高、电中接气资口设料不备试严进卷等行保问调护题试装，工置合作调理并试利且技用进术管行，线过要敷关求设运电技行力术高保。中护线资装缆料置敷试做设卷到原技准则术确：指灵在导活分。。线对对盒于于处调差，试动当过保不程护同中装电高置压中高回资中路料资交试料叉卷试时技卷，术调应问试采题技用，术金作是属为指隔调发板试电进人机行员一隔，变开需压处要器理在组；事在同前发一掌生线握内槽图部内纸故，资障强料时电、，回设需路备要须制进同造行时厂外切家部断出电习具源题高高电中中源资资，料料线试试缆卷卷敷试切设验除完报从毕告而，与采要相用进关高行技中检术资查资料和料试检，卷测并主处且要理了保。解护现装场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VisualBasic程序设计教程第三版课后习题答案之欧阳法创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
(完整版)VB程序设计教程(第3版)课后实验完整答案
A．1Private Sub Command1_Click()Label3 = Text1End SubA．2Private Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Command1_Click() '自动Timer1.Interval = 200End SubPrivate Sub Command2_Click() '手动Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Timer1_Timer()Call MyMoveEnd SubSub MyMove()Label1.Move Label1.Left - 50If Label1.Left < 0 Then Label1.Left = Form1.Width End SubA．3Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1 = 0End SubA．4Private Sub Form_Click()Caption = "单击窗体，改变图片"Picture = LoadPicture(App.Path + "\n_015.bmp")Print "欢迎使用VB"End SubPrivate Sub Form_DblClick()ClsCaption = "双击窗体，卸去图片"Picture = LoadPicture("") 'End SubPrivate Sub Form_Load()Caption = "装入窗体"Picture = LoadPicture(App.Path + "\n_016.bmp")Print "装入图"End SubPrivate Sub Form_Resize() ' 该事件的作用窗体始终与图一样大'Caption = "窗体大小不变"'Form1.Width = 260 * 16 ' 260 是Tongji-2.bmp 图的宽度，象素单位'Form1.Height = 260 * 16 + 200 ' 260 是图的高度，象素单位，200 是窗体的标题栏高度End SubA．5Sub Command1_Click()Text1.FontName = "隶书"Text1.FontSize = 25End SubSub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubB．1Private Sub Command1_Click()Text2 = Format(5 / 9 * (Val(Text1) - 32), "0.00")End SubPrivate Sub Command2_Click()Text1 = Format(9 / 5 * Val(Text2) + 32, "0.00")End Sub或Private Sub Command1_Click()Dim f!, c! ' 声明两个变量f = Val(Text1)c = 5 / 9 * (f - 32)Text2 = Format(c, "0.00") ' 保留两位小数End SubPrivate Sub Command2_Click()Dim ff!, cc! ' 声明两个变量cc = Val(Text2)ff = 9 / 5 * cc + 32Text1 = Format(ff, "0.00") ' 保留两位小数End SubB．2Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End SubPrivate Sub Command2_Click()Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "输入有非数字字符，请重新输入", , "警告"Text1.Text = ""Text1.SetFocusEnd IfEnd Sub或Private Sub Command1_Click()Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End SubPrivate Sub Command2_Click()Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text1.Text) ThenText1.Text = ""End IfEnd IfEnd SubB．3Private Sub Command1_Click()n = Int(Log(2) / Log(1.008) + 1)Label1 = n & "年后人数超过26 亿"End SubB．4Private Sub Command1_Click()Dim x, dx, cdx = Text1.Textdx = UCase(x)cd = Len(x)Print "大写字母为:"; dxPrint "字符串长度为:"; cdEnd SubB．5Text1 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10 ' 分离出的个位数x2 = (x Mod 100) \ 10 ' 分离出的十位数x3 = x \ 100 ' 分离出的百位数Label1 = x1 * 100 + x2 * 10 + x3End SubB．6Private Sub Form_Click()Label1 = Left(Text1, 11)Label2 = Mid(Text1, 12, 6)Label3 = Right(Text1, 5)End SubB．7Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(15 - i * 2); String(2 * i - 1, "★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, "★")Next iEnd SubPrivate Sub Command2_Click()ClsEnd Sub进一步要求：Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(15 - i * 2); String(2 * i - 1, "★"); String(10 - (2 * i - 1), "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()ClsEnd SubB．8Private Sub Form_Click()x = Val(InputBox("输入一正实数", "计算", 0))pf = Format(x * x, "0.000")pfg = Format(Sqr(x), "0.000")lf = Format(x * x * x, "0.000")lfg = Format(x ^ (1 / 3), "0.000")Print "平方为:"; pf; Space(5); "平方根为:"; pfg; Space(5); "立方为:"; lf; Space(5); "立方根为:"; lfgEnd SubC．1Private Sub Form_Click()Dim x!, y!x = Val(InputBox("输入x 的值"))If x < 1000 Theny = xElseIf x < 2000 Theny = 0.9 * xElseIf x < 3000 Theny = 0.8 * xElsey = 0.7 * xEnd IfPrint yEnd SubC．2Private Sub Form_Click()Dim x!, y!x = Val(InputBox("输入上网时间"))If x < 10 Theny = 30ElseIf x < 50 Theny = 30 + 2.5 * (x - 10)Elsey = 30 + 2.5 * 40 + 2 * (x - 50)End IfIf y > 150 Theny = 150End IfPrint yEnd SubC．3Private Sub Command1_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " x y z"Print " 排序前"; x; " "; y; " "; z Ifx < y Then t = x: x = y: y = tIf x < z Then t = x: x = z: z = tIf y < z Then t = y: y = z: z = tPrint " 排序后" & x & " " & y & " " & z End SubPrivate Sub Command2_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " x y z"Print " 排序前"; x; " "; y; " "; z Ifx < y Then t = x: x = y: y = tIf y < z Thent = y: y = z: z = tIf x < y Thent = x: x = y: y = tEnd IfEnd IfPrint " 排序后" & x & " " & y & " " & z End SubC．4Dim a(3) As IntegerPrivate Sub Command1_Click()Picture1.ClsFor i = 0 To 2a(i) = Int(Rnd * 100 + 200)Picture1.Print a(i)Next iEnd SubPrivate Sub Command2_Click()Picture2.ClsDim z As IntegerFor i = 0 To 1If a(i) > a(i + 1) Thenz = a(i + 1)a(i + 1) = a(i)a(i) = zEnd IfNext iPicture2.Print a(0)Picture2.Print a(1)Picture2.Print a(2)End SubC．5Private Sub Text2_LostFocus()Dim m%, n%, y%m = Val(Text1)n = Val(Text2)If n Mod 2 <> 0 ThenMsgBox ("脚数必定为偶数")Text2 = ""Text2.SetFocusElsey = n / 2 - mIf y < 0 ThenMsgBox ("脚数必须≥2 倍的头数，请重新输入")Text2 = ""Text2.SetFocusElsex = n / 2 - mLabel2 = yLabel3 = m - yEnd IfEnd IfEnd SubC．6Private Sub Command1_Click()Dim a!, b!, c!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b - 4 * a * ct = 2 * aIf de = 0 ThenText4 = Format(-b / t, "0.00")Text5 = Format(-b / t, "0.00")ElseIf de > 0 ThenText4 = Format((-b + Sqr(de)) / t, "0.00")Text5 = Format((-b - Sqr(de)) / t, "0.00")ElseText4 = Format(-b / t, "0.00") & "+" & Format(Sqr(Abs(de)) / t, "0.00") & "i" Text5 = Format(-b / t, "0.00") & "-" & Format(Sqr(Abs(de)) / t, "0.00") & "i" End IfEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text3 = ""Text4 = ""Text5 = ""End SubC．7Private Sub Text3_LostFocus()Select Case Trim(Text3)Case "+"Text4 = Val(Text1) + Val(Text2)Case "-"Text4 = Val(Text1) - Val(Text2)Case "*"Text4 = Val(Text1) * Val(Text2)Case "/"If Val(Text2) = 0 ThenMsgBox "分母为零，重新输入"Text2 = ""Text2.SetFocusElseText4 = Val(Text1) / Val(Text2)End IfEnd SelectEnd SubC．8Private Sub Text1_LostFocus()Select Case Trim(Text1)Case 1Text2 = "Monday"Case 2Text2 = "Tuesday"Case 3Text2 = "Wednesday"Case 4Text2 = "Thursday"Case 5Text2 = "Friday"Case 6Text2 = "Saturday"Case 7Text2 = "Sunday"Case Is > 7, Is < 1MsgBox "数字为1~7，重新输入"Text1 = ""Text1.SetFocusEnd SelectEnd Sub或者Private Sub Text1_LostFocus()If Text1 > 7 Or Text1 < 1 ThenMsgBox "数字为1~7，重新输入"Text1 = ""Text1.SetFocusElseText2 = Choose(Text1, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")End IfEnd SubD．1Private Sub Form_Click()For i = 1 To 9Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))Next iEnd SubD．2Private Sub Form_Click()For i = 1 To 10 Step 1Print Tab(i); String((20 - 2 * i), Chr(64 + i))Next iEnd SubD．3Private Sub Command1_Click()Dim s!, t!, i&s = 1t = 1For i = 1 To 100000t = t + is = s + 1 / tIf 1 / t < 0.00001 Then Exit ForNext iPrint "For 结构"; s, i; "项"End SubD．4Private Sub Command1_Click()Dim n&, pi#, i&n = InputBox("输入n 值")pi = 2For i = 1 To npi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next iPrint "当n=" & n & "时，pi="; piEnd SubD．5Private Sub Form_Click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)t = 0: s = 0Print "a="; a, "n="; nFor i = 1 To nt = t * 10 + as = s + tPrint t;Next iPrintPrint "s="; sEnd SubD．6Private Sub Command1_Click()Dim s As Integers = 0For i = 1 To 9For j = 0 To 9For k = 0 To 9s = i * 100 + j * 10 + kIf s = i ^ 3 + j ^ 3 + k ^ 3 ThenPrint sEnd IfNext kNext jNext iEnd SubPrivate Sub Command3_Click()formd6.Hidemain.ShowEnd SubD．7Private Sub Command1_Click()Dim a!, x0!, x1!a = 27x0 = 2i = 0Doi = i + 1x1 = 2 * x0 / 3 + a / (3 * x0 * x0)If Abs(x1 - x0) < 0.00001 Then Exit Dox0 = x1LoopPrint x1, iEnd SubD．8Private Sub Command1_Click()s = 0x0 = 0.01For i = 1 To 30s = s + x0x0 = x0 * 2Next iPrint sEnd SubD．9Private Sub Command4_Click()Picture1.ClsPicture1.Print "x 课安排在"; "y 课安排在"; "z 课安排在"Picture1.Print ""For z = 5 To 6For x = 1 To z - 2For Y = x + 1 To z - 1X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日")Y1 = Choose(Weekday(Y), "周一", "周二", "周三", "周四", "周五", "周六", "周日") z1 = Choose(Weekday(z), "周一", "周二", "周三", "周四", "周五", "周六", "周日") Picture1.Print " "; X1; " "; Y1; " "; z1Next YNext xNext zEnd SubE．1Private Sub Form_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 71 + 30)Print a(i); " ";Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)Avg = Avg + a(i)Next iAvg = Avg / 10PrintPrint "Max="; Max; " Min="; Min; " Avg="; AvgEnd SubE．2Private Sub Form_Click()Dim aa = Array(56, 78, 98, 88, 76, 78)For i = 0 To 5Print String(a(i) \ 5, "◆"); a(i)PrintNext iEnd SubE．3Dim a%(19)Private Sub Command1_Click()Picture1.ClsFor i = 0 To 19a(i) = Int(Rnd * 101)Picture1.Print a(i); " ";If (i + 1) Mod 4 = 0 Then Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsDim s(5 To 9)For i = 0 To 19k = a(i) \ 10Select Case kCase 0 To 5s(5) = s(5) + 1Case 9 To 10 '90～100 分的人数s(9) = s(9) + 1Case 6 To 8 ' 存放其他三个分数段的下标有规律，根据K 获得s(k) = s(k) + 1End SelectNext iFor i = 5 To 9If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有"; Format(s(i), "0"); "个" Next iEnd SubE．4Private Sub Command1_Click()Picture1.ClsDim d%(1 To 10)For i3 = 1 To 10Randomized(i3) = Int(Rnd * 91 + 10)Next i3For i = 1 To 10For j = 1 To 10 - iIf d(j) < d(j + 1) Thent = d(j): d(j) = d(j + 1): d(j + 1) = tEnd IfNext jNext iFor i = 1 To 10: Picture1.Print d(i);If i Mod 5 = 0 Then Picture1.PrintNext iEnd SubE．5Dim a%(3, 3), b%(3, 3)Private Sub Form_Load()For i = 0 To 3For j = 0 To 3a(i, j) = Int(Rnd * 36 + 35)b(i, j) = Int(Rnd * 41 + 100)Next jNext iEnd SubPrivate Sub Command1_Click()Picture1.ClsFor i = 0 To 3For j = 0 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsFor i = 0 To 3For j = i To 3Picture2.Print Tab(j * 6); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command3_Click()Picture3.Clssa = 0For i = 0 To 3sa = sa + a(i, i)Next isb = 0For i = 0 To 3sb = sb + b(i, 3 - i)Next iPicture3.Print "A 数组主对角线元素和为："; sa Picture3.Print "B 数组副对角线元素和为："; sb End SubE．6Private Sub Form_Click()n = InputBox("输入n 值")ReDim a6%(n + 1, n + 1)a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1For i = 2 To n + 1For j = 2 To ia6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); "";Next jPicture1.PrintNextEnd SubE．7Private Sub Form_Load()List1.ClearList1.AddItem "大学计算机基础"List1.AddItem "C/C++程序设计"List1.AddItem "VB 程序设计"List1.AddItem "Web 程序设计"List1.AddItem "多媒体技术与应用"List1.AddItem "数据库技术与应用"List1.AddItem "网络技术与应用"List1.AddItem "硬件技术基础"List1.AddItem "软件技术技术基础"End SubPrivate Sub List1_Click()If List2.ListCount >= 5 ThenMsgBox ("超过5 门课程，不能再选")Exit SubElseList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd IfEnd SubE．8Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAsciiCase 48 To 57, 13Case ElseKeyAscii = 0End SelectIf KeyAscii = 13 ThenCombo1.AddItem Combo1.TextCombo1.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim min%, max%min = Val(Combo1.List(0))max = Val(Combo1.List(0))imin = 0imax = 0For i = 1 To Combo1.ListCount - 1If Val(Combo1.List(i)) > max Thenimax = imax = Combo1.List(i)ElseIf Val(Combo1.List(i)) < min Thenimin = imin = Combo1.List(i)End IfNext it = Combo1.List(0)Combo1.List(0) = Combo1.List(imin)Combo1.List(imin) = tt = Combo1.List(Combo1.ListCount - 1)Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax) Combo1.List(imax) = tEnd SubE．9Private Sub Form_Click()For i = 0 To Screen.FontCount - 1If Asc(Left(Screen.Fonts(i), 1)) < 0 ThenPicture1.Print Screen.Fonts(i)Picture2.FontName = Screen.Fonts(i)Picture2.Print "商丘师范学院"End IfNext iEnd SubE．10Private Type clerknumber As String * 3name As String * 5salary As IntegerEnd TypeDim a(0 To 4) As clerk, n%Private Sub Command1_Click()If n >= 5 ThenMsgBox ("输入人数超过数组声明的个数")ElseWith a(n).number = Text1.name = Text2.salary = Text3Picture1.Print a(n).number, a(n).name, a(n).salary PrintEnd Withn = n + 1Text1 = ""Text2 = ""Text3 = ""End IfEnd SubPrivate Sub Command2_Click()Dim t As clerk, i%, j%For i = 0 To n - 1For j = i To n - 1If a(i).salary < a(j + 1).salary Thent = a(i): a(i) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPicture1.ClsPicture1.Print "工号姓名工资" For i = 0 To n - 1Picture1.Print a(i).number, a(i).name, a(i).salaryPrintNext iEnd SubF．1Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = -Int(Rnd * 101 + 300)Print a(i);Next iCall s(a(), amin)PrintPrint "min="; aminEnd SubSub s(b(), min)Dim i%min = b(LBound(b))For i = LBound(b) + 1 To UBound(b)If b(i) < min Then min = b(i)Next iEnd SubF．2Private Sub Command1_Click()Dim mm%, nn%mm = Val(Text1)nn = Val(Text2)Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn) End SubFunction gcd%(ByVal m%, ByVal n%)If m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = n: n = r: r = m Mod nLoopgcd = nEnd FunctionF．3Dim x!Private Sub Command1_Click()Print "调用标准函数Sin 的结果"; Sin(x)End SubPrivate Sub Command2_Click()Print "调用自定义函数MySin 的结果"; MySin(x) End SubFunction MySin(x!) As DoubleDim i%, t!, s!t = xs = ti = 1Do While Abs(t) > 0.00001t = -1 * t * x * x / ((i + 1) * (i + 2))s = s + ti = i + 2LoopMySin = sEnd FunctionPrivate Sub Command3_Click()x = InputBox("输入要计算正弦函数的角度值x") x = x * 3.14 / 180End SubF．4Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入非数字串，重新输入"Text1.Text = ""Text1.SetFocusElseIf IsH(Text1) ThenPicture1.Print Text1; " ★"ElsePicture1.Print Text1End IfText1 = ""End IfEnd IfEnd SubFunction IsH(ss As String) As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)For i = 1 To Ls \ 2If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) ThenIsH = FalseExit FunctionEnd IfNext iEnd FunctionF．5Function prime(ByVal m As Integer) As Booleanprime = TrueDim i%For i = 2 To m - 1If (m Mod i) = 0 Then prime = False: Exit Function '注意冒号和exit 的范围Next iEnd FunctionPrivate Sub Command1_Click()n = 0For i = 6 To 100 Step 2For j = 3 To i \ 2If prime(j) ThenIf prime(i - j) ThenList1.AddItem i & " =" & j & " +" & i - jn = n + 1End IfEnd IfNext jNext iPicture1.Print " 6 和100 之间共有"; n; "对素数和"End SubF．6Dim a%()Private Sub Form_Click()Print "1000 以内的完数为："For i = 1 To 1000If IsWs(i) ThenPrint i; "=1";For j = 1 To UBound(a)Print "+"; a(j);Next jPrintEnd IfNext iEnd SubFunction IsWs(m) As BooleanDim s%s = 0For i = 1 To m \ 2If m Mod i = 0 ThenReDim Preserve a(j)a(j) = ij = j + 1s = s + iEnd IfNext iIf m = s Then IsWs = TrueEnd FunctionF．7Private Sub DeleStr(s1 As String, ByVal s2 As String)Dim i%ls2 = Len(s2)i = InStr(s1, s2)Do While i > 0s1 = Left(s1, i - 1) + Mid(s1, i + ls2) ' 在s1 中去除s2 子串i = InStr(s1, s2)LoopEnd SubPrivate Sub Command1_Click() ' 调用DeleStr 子过程Dim ss1 As Stringss1 = Text1Call DeleStr(ss1, Text2)Text3 = ss1End SubPrivate Sub Command2_Click()End SubF．8Private Sub Command1_Click()Dim maxw$maxlen Text1 & " ", maxwText2 = maxwEnd SubSub maxlen(s$, maxw$)Dimword$ maxw = ""Do While s <> ""i = InStr(s, " ")word = Left(s, i - 1)If Len(word) > Len(maxw) Then maxw = words = Mid(s, i + 1)LoopEnd SubG．1Private Sub Command1_Click()List1.ClearList1.AddItem Combo1If Option1 Then List1.AddItem "Pentium II"If Option2 Then List1.AddItem "Pentium I"If Option3 Then List1.AddItem "Celeron"List1.AddItem Text1If Check1 Then List1.AddItem "声卡"If Check2 Then List1.AddItem "Modem"If Check3 Then List1.AddItem "网络适配器"End SubPrivate Sub Text1_LostFocus()st = UCase(Trim(Text1))le = Len(st)If Not IsNumeric(Left(st, le - 2)) Or Right(st, 2) <> "MB" Then MsgBox "有不合法字符！"Text1 = ""Text1.SetFocusEnd IfEnd SubG．2Private Sub Check1_Click()Picture1.Font.Bold = Not Picture1.Font.BoldEnd SubPrivate Sub Check2_Click()Picture1.Font.Italic = Not Picture1.Font.BoldEnd SubPrivate Sub Command1_Click()Picture1.ClsIf Option1 ThenPicture1.Print Sin(Val(Text1))ElseIf Option2 ThenPicture1.Print Exp(Val(Text1))ElseIf Option3 ThenPicture1.Print Sqr(Val(Text1))End IfEnd SubPrivate Sub return_Click(Index As Integer)Form6.ShowUnload Form2End SubG．3Private Sub HScroll1_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubPrivate Sub HScroll2_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubPrivate Sub VScroll1_Change()Text1 = VScroll1.ValueText2 = HScroll1.ValueText3 = HScroll2.ValueText4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), "0.00") Text5 = Format(Val(Text4) + Val(Text1), "0.00")End SubG．4Dim t As SinglePrivate Sub Command1_Click()t = InputBox("输入倒计时分钟数")t = t * 60ProgressBar1.Min = 0ProgressBar1.Max = tProgressBar1.Value = tEnd SubPrivate Sub Command2_Click()Timer1.Interval = 1000ProgressBar1.Visible = TrueEnd SubPrivate Sub Timer1_Timer()Dim m%, s%t = t - 1ProgressBar1.Value = tm = t \ 60s = t Mod 60Label1 = m & "分" & s & "秒"If t = 0 ThenMsgBox " 时间到！"Timer1.Interval = 0ProgressBar1.Visible = FalseEnd IfEnd SubG．5Private Sub Command1_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowOpeni = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End SubG．6rivate Sub bold_Click()Text1.FontBold = Not Text1.FontBoldbold.Checked = Not bold.CheckedEnd SubPrivate Sub del_Click()Text1 = ""End SubPrivate Sub end_Click()EndEnd SubPrivate Sub font12_Click()Text1.FontSize = 12End SubPrivate Sub font16_Click()Text1.FontSize = 16End SubPrivate Sub Form_Load()bold.Checked = Falseitalic.Checked = FalseEnd SubPrivate Sub italic_Click()Text1.FontItalic = Not Text1.FontItalicitalic.Checked = Not italic.CheckedEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu menu2End SubG．7Private Sub Command1_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowOpeni = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus) End SubPrivate Sub return_Click(Index As Integer)Form6.ShowUnload Form5End SubG．8G．9Private Sub 结束_Click()EndEnd SubPrivate Sub 删除最大值_Click()max = List1.List(0)For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): j = i Next iList1.RemoveItem jEnd SubPrivate Sub 删除最小值_Click()min = List1.List(0)For i = 1 To List1.ListCount - 1If min > List1.List(i) Then min = List1.List(i): j = i Next iList1.RemoveItem jEnd SubPrivate Sub 随机产生_Click()RandomizeFor i = 0 To 9List1.List(i) = Int(Rnd * 30 + 70)Next iEnd SubPrivate Sub 添加数据_Click()List1.AddItem Int(Rnd * 30 + 70)End SubPrivate Sub 统计_Click()Dim max%, min%, ave!, m%, n%max = List1.List(0)min = List1.List(0)ave = List1.List(0)m = 0n = 0For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i)Next iForm2.Text1 = List1.List(n)Form2.Text2 = List1.List(m)Form2.Text3 = Format(ave / List1.ListCount, "0.00") Form2.ShowEnd SubG．10Private Sub experimentG2_Click()Form2.ShowEnd SubPrivate Sub experimentG3_Click()Form3.ShowEnd SubPrivate Sub experimentG4_Click()Form4.ShowEnd SubPrivate Sub experimentG5_Click()Form5.ShowEnd SubPrivate Sub font_12_Click()Text1.FontSize = 12End SubPrivate Sub font_16_Click()Text1.FontSize = 16End SubPrivate Sub rnd10_Click()RandomizeFor i = 0 To 9List1.List(i) = Int(Rnd * 30 + 70)Next iEnd SubPrivate Sub stat_Click()Dim max%, min%, ave!, m%, n%max = List1.List(0)min = List1.List(0)ave = List1.List(0)m = 0n = 0For i = 1 To List1.ListCount - 1If max < List1.List(i) Then max = List1.List(i): m = i If min > List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i)Next istat2.Text1 = List1.List(n)stat2.Text2 = List1.List(m)stat2.Text3 = Format(ave / List1.ListCount, "0.00")stat2.ShowEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu caidan2, vbPopupMenuCenterAlignEnd SubPrivate Sub xie_Click()Text1.Font.Italic = Not Text1.Font.BoldEnd SubH．1Private Sub Command1_Click()Open "c:\score" For Output As #1Print #1, "051023", "王海涛", 66Print #1, "052498", "周文英", 88Print #1, "050992", "陈建东", 77Open "c:\score1" For Output As #2Write #2, "051023", "王海涛", 66Write #2, "052498", "周文英", 88Write #2, "050992", "陈建东", 77Closei1 = Shell("NOTEPAD.exe" + " c:\score", vbNormalNoFocus)i2 = Shell("NOTEPAD.exe" + " c:\score1", vbNormalNoFocus)End SubPrivate Sub Command2_Click()Dim no As String, name As String, s As IntegerOpen "c:\score" For Input As #1Do While Not EOF(1)Line Input #1, linedataList1.AddItem linedataLoopOpen "c:\score1" For Input As #2Do While Not EOF(2)Input #2, no, name, sList2.AddItem no & name & sLoopCloseEnd SubH．2Private Sub Command1_Click()Dim fib%(0 To 9), i%Open "c:\fb.dat" For Output As #1For i = 0 To 9If i = 0 Or i = 1 Thenfib(i) = iElsefib(i) = fib(i - 1) + fib(i - 2)End IfPrint #1, """Fib(" & i & ")""," & fib(i)Next iClose #1i = Shell("NOTEPAD.exe" + " c:\fb.dat", vbNormalNoFocus) End SubPrivate Sub Command2_Click()Dim st$, n%, sum%Open "c:\fb.dat" For Input As #1Do While Not EOF(1)Input #1, st, nsum = sum + nList1.AddItem st & "=" & nLoopClose #1List1.AddItem " 合计：" & sumList1.AddItem "平均：" & sum / 10End SubH．3H．4Private Type studtypeno As String * 4name As String * 6mark As SingleEnd TypeDim student As studtype, stud(1 To 5) As studtype, t As studtypePrivate Sub Command1_Click()Open "d:\score.dat" For Random As #1 Len = Len(student) With student.no = "0001".name = "星期一"。
VisualBasic程序设计教程第三版课后习题答案之欧阳育创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX 控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计教程 第三版 泷沛曾等著 实验c答案
VB程序设计教程第三版泷沛曾等著实验C 答案第一题Private Sub Form_click()Dim x!, y!x = Val(InputBox(" 输入价钱 "))If x < 1000 Theny = xElseIf x >= 1000 And x < 2000 Theny = 0.9 * xElseIf x >= 2000 And x < 3000 Theny = 0.8 * xElseIf x >= 3000 Theny = 0.7 * xEnd IfPrint "对应折扣"; yEnd Sub第二题Private Sub Command1_Click()Dim t%, y%t = Val(InputBox("输入上网时间"))If t < 10 Theny = 30ElseIf t >= 10 And t < 50 Theny = 2.5 * tElseIf t >= 50 Theny = 2 * tEnd IfIf y >= 150 Theny = 150End IfPrint "上网总费用"; yEnd Sub第五题Private Sub Command1_Click()Dim x%, y%, m%, n%m = Val(Text1.Text)n = Val(Text2.Text)If (n Mod 2) <> 0ThenMsgBox ("脚数必须为>=2倍的头数，请重新输入")text2.text=""text2.setfocusesley = 1 / 2 * n - mx = 2 * m - 1 / 2 * nIf x < 0 Or y < 0 ThenMsgBox ("输入总只数或者总脚数有误，请重新输入")text1.text=""text1.setfocuselseLabel1 = xLabel2 = yend ifendifEnd Sub第6题Private Sub Command1_Click() Dim a%, b%, c%, x1%, x2%, st%a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)st = b ^ 2 - 4 * a * cIf st < 0 ThenMsgBox ("因为del<0,故方程无解") ElseIf st >= 0 Thenx1 = (-b + Sqr(st)) / 2 * ax2 = (-b - Sqr(st)) / 2 * aEnd IfText4.Text = x1Text5.Text = x2End Sub。
VB程序设计VB教程习题3答案
4. 将窗体的_________属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。
（A）ControlBox （B）Visible （C）Enabled （D）BorderStyle
参考答案为C
5. 以下说法正确的是___________。
（A）窗体文件的扩展名为 .vbp
MsgBox (Msg$)
End Sub
2. 编应用程序，在窗体上显示由如下“*”号构成的三角形图案。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
参考答案：
设计界面如图，程序代码如下：
Private Sub Form_Click()
Form1.Print Tab(15); "*"
参考答案：Form窗体、Font
3.下述程序段在运行时的显示结果是_________。
Dim x As Single
Cls
x=1.344+8
Print Len(x)
参考答案：4
4. 以下语句Print Int（12345.6789*100+0.5）/100的输出结果是_________。
参考答案：12345.68
（B）一个窗体对应一个窗体文件
（C）Visual Basic中的一个工程只包括一个窗体
（D）Visual Basic中一个工程最多可以包含256个窗体文件
参考答案为B
6.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是_________。
（A）Load（B）Click（C）Unload（D）GotFocus
VisualBasic程序设计教程第三版课后习题答案之欧阳学创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计教程 习题解答
VB程序设计教程习题解答vb程序设计教程习题解答《VB编程课程》（第三版）问题解决习题1答案一、多项选择题1.1visualbasic6.0分为3种版本，不属于这3种版本的是a）学习版b）专业版c）企业版d）业余版【答】d。
1.2在以下方法中，无法退出Visual Basic的方法是a）按Alt+Qb）按下alt+f组合键，然后按esc键c）按f10键，然后按f键，再按x键d）打开“文件”菜单→“退出”命令【答】b。
1.3 visual basic集成的主窗口不包括a）属性窗口b）标题栏C）菜单栏d）工具栏[answer]a。
1.4下列操作可以打开立即窗口的是a）ctrl+db）ctrl+fc）ctrl+gd）ctrl+e【答】c。
二、填空题1.5与传统编程语言相比，Visual Basic最突出的特点是。
[答：]事件驱动编程机制。
1.6如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。
[答：]功能键F10或alt。
1.7建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考问题1.8简述visualbasic的特点。
[答：]与通用编程语言相比，VB具有以下特点：（1）可视化设计平台；（2）面向对象设计方法；（3）事件驱动编程机制；（4）结构化设计语言；(5)充分利用windows资源；（6）开放数据库功能和网络支持。
1.9简述visualbasic集成开发环境的组成。
[答：]VB6 0集成开发环境不仅有标准Windows环境的标题栏、菜单栏和工具栏，还有工具箱、属性窗口、项目管理器窗口、表单设计器、即时窗口和表单布局窗口等有用的开发工具。
(1)标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化m还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了vb编程的常用命令。
VB程序设计教程课后答案
1、 简述 VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程 序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。 2、 当正常安装 VB6.0后，误把 Windows 子目录删除。当重新安装 Windows 后，是否需要再次安装 VB6.0？ 答：要重新安装的。因为安装 VB6.0时，有些 VB 程序被系统自动安装在 Windows 目录下，所以一旦删 除 Windows 子目录，就必须重新安装 VB6.0。 3、 Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在 VB6.0的启动界面上，能显示对应的版本。 4、 叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件） ；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、 Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、 当建立好一个简单的应用程序后， 假定该工程仅有一个窗体模块。 试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件， 应先保存什么文件？再保存什么文件？若不这样做， 系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm） ，再保存工程文件（.vbp） 。若先保存工程文件，系统 也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、 保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是 VB98 8、 安装 Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两张光盘上，即 MSDN Library，其中还包含了 VC、VFP 等其他语言的帮 助系统。 9、 如何使用 Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的内容，然后按 F1功能键，这时系统打开 MSDN Library 查阅器，直接 显示与选定内容有关的帮助信息。 10、 什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、 属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执 行的操作。 12、 当标签边框的大小由 Caption 属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的 Autosize 属性值设置为 true。 13、 在 VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是 不能显示该图形，而显示的是 Caption 属性设置的文字，应怎样修改？ 答： 命令按钮的显示形式通过将 Style 属性值设置为 Graphical 来实现。 通过 Picture 属性来装入图形。 不
VB第三版部分习题参考答案
VB 第三版部分习题解答习题三1．（1）单精度 （2）非法（3）单精度 （ 4）双精度 （5）非法 （6）整数 （7）字符型 （8）非法（9）日期型 （ 10）双精度 （11）非法 （12）八进制 （13）非法 （14）十六进制 （ 15）逻辑型 （16）非法 （17）非法 （18）单精度 2．VB 的合法变量名为： （1）、（2）、（ 6）、（ 9）、（10）、（11） 3． （1） A bs （x+y ）+z^5 （2）（1+x*y ）W （3） （10*x+Sqr （3*y ）/ x/y(4) (-b+Sqr(b*b-4*a*c))/(2*a) (6) Sin(45*3.14/180)+(Exp(10)+Log(10))/Sqr(x+y+1) 4.(1) Chr(int(Rnd*10+67)) (2) Int(Rnd*101+100) (3) x*y>0(4) x Mod 5=0 Or x Mod 7=0 (5) (x Mod 10)*10+x\10 (7) Ucase?>= ”A ”And Ucase?<= ”Z ” (8) Mid(s,5,6) (10) x<z And y>z Or x>z And y<z (11) x>z And y>z5.习题四1． 顺序结构、选择结构、循环结构2. （1） 10x 是非法变量名 （2）待求平方根的数为负数 （ 3）赋值符号的基边是表达式 （ 4）分母为零3. InputBox 函数等待用户在文本框中输入数据，获得的是输入的字符串数据 MsgBox 函数等待用户按一按钮，获得的是表示按钮的整数值，以决定程序的流向4. Print Format （x, “0.0”） ,显示 1 位小数 Print Format （x, “0.00”） ,显示 2 位小数Print Format （x, “0.000”） ,显示 3 位小数5. 可以是算术表达式、关系表达式、输入表达式6. （1） 应写成 >= （2） 应写成 10<x And x<207. （1） If Mid （c,3,1）= “C ”Then msgBox “Yes ”Else MsgBox “No ”（2）If 语句Private Sub Command1_Click （）X=Val （Text1）If x>20 Theny=x*x+3*x+2elseIf x>=10 Theny=Sqr （3*x ）-2elseIf x>0 Theny=1/x+Abs （x ）end ifPrint yEnd SubSelect 语句Private Sub Command2_Click(5) 1/(1/r1+1/r2+1/r3)(6) Round(x*100)/100(9) x>=10 And x<20 (1) 188 (2) “200100” (3) 68.56 (4) 876554 (5) #2/29/2000# (6) 6X=Val(Text1)Select Case xCase Is>20y=x*x+3*x+2Case Is >=10 y=Sqr(3*x)-2Case Is>0 y=1/x+Abs(x) end SelectPrint yEnd Sub(3)If 语句If x>y Then Max=x Else Max=yIf z>Max Then Max=zIIf 函数Max=IIf(x>y,x,y)Max=IIf(Max.z,Max,z)8．不可以(可参见例 4.9 )9．(1) 6 (2) 19 (3) 不循环,步长小于0,循环初值小于终值(4) 死循环, 步长为0 10．第40号语句共执行了4次; 第50号共执行了12次; 第90号语句显示的结果是13 0 211．将循环终值设置成一个非常大的一个数,再通过if 语句判断结束条件12．(1) s=0For i=1 To 10S=s+(i+1)*(2*i+1)Next i(2)s3=0s7=0For i=1 To 100If i mod 7=0 Then s7=s7+1If i mod 3=0 Then s3=s3+1Next i(3)s=InputBox( “输入字符串”) For i=Len(s) To 1 Step -1 Print Mid(s,i,1)Next i13．运行后结果为10100,该程序的功能是将十进制数转换成二进制字符串14. 运行的结果为22和484;该程序的功能是用相减法求x,y的最大公约数和最小公倍15．Private Sub Form_ClickDim i%,min%,max%,avg%,x% min=100:max=50:avg=0 , 设置初值For i=1 To 20x=Int(Rnd*51+50) Print x;If x>max Then max=xIf x<min Then min=x avg=avg+xNext iPrintPrint “最小值=”;min, “最大值= ”;max, “平均值=”;avg/20 End Sub习题五1.Option Base 语句, 例如, 定义数组下界为1, 则有Option Base 12.(2)、(4) 、(7) 符合要求3.下标比下界小或者比上界大4.数组名为a, 数组类型为单精度、二维、各维下界分别为-1 和0、上界分别为 2 和3、数组的大小4X 4共16个元素。
VisualBasic程序设计教程第三版课后习题答案之令狐采学创编
《VB程序设计》综合复习资料欧阳家百（2021.03.07）第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
vb程序设计教程课后答案与实验题答案(第三版)
习题一答案在教材上找。
习题二1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。
类包含所创建对象的属性数据，以及对这些数据进行操作的方法。
封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。
通过将控件类实例化，得到真正的控件对象。
在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。
VB中常用的对象是控件。
此外，VB还提供了系统对象。
窗体是个特例，它既是类也是对象。
当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。
属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。
若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。
同一事件，对不同的对象，会引发不同的反应。
事件过程：应用程序处理事件的步骤。
应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。
方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“(1) Name属性：名称所创建的对象名称,在程序中引用。
(2) Caption属性：标题该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性决定对象的大小和位置。
(4) Enabled 属性：对象是否允许操作(5) Visible 属性：对象是否可见(6) Font 属性组：文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru 删除线FontUnderline 下划线(7) ForeColor属性：前景颜色(8) BackColor属性：背景颜色(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。
程序设计教程第三版实验答案
Private Sub Command1_Click()If V al(Text1) < 1000 ThenText2 = Text1ElseIf 1000 <= V al(Text1) And V al(Text1) < 2000 Then Text2 = 0.9 * V al(Text1)ElseIf 2000 <= V al(Text1) And V al(Text1) < 3000 Then Text2 = 0.8 * V al(Text1)ElseText2 = 0.7 * V al(Text1)End IfEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text1.SetFocusEnd SubPrivate Sub Command1_Click()Dim a, b, ca = V al(Text1)b = V al(Text2)c = V al(Text3)If b * b - 4 * a * c < 0 ThenMsgBox "该一元二次方程无解", , "警告"Text1 = ""Text2 = ""Text3 = ""Text1.SetFocusElseIf b * b - 4 * a * c = 0 ThenText4 = -b / 2 * aText5 = -b / 2 * aElseText4 = (b + Sqr(b * b - 4 * a * c)) / -2 * aText5 = (b - Sqr(b * b - 4 * a * c)) / -2 * aEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub qin_Click()Text1 = ""Text2 = ""Text3 = ""Text4 = ""Text5 = ""Text1.SetFocusEnd SubPrivate Sub Command1_Click()Dim i As Stringi = Text3Select Case iCase "+"Text4 = V al(Text1) + V al(Text2)Case "-"Text4 = V al(Text1) - V al(Text2)Case "×"Text4 = V al(Text1) * V al(Text2)Case "÷"Text4 = V al(Text1) / V al(Text2)Case Elsem = MsgBox("输入的操作符无效，请重新输入", 1 + 48, "警告") If m = 1 ThenText3 = ""Text3.SetFocusElseEndEnd IfEnd SelectEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Text1 = ""Text2 = ""Text3 = ""Text4 = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Dim x, y, zForm1.AutoRedraw = Truex = V al(InputBox("输入x", "x"))y = V al(InputBox("输入y", "y"))z = V al(InputBox("输入z", "z"))Print Tab(10); "x"; Tab(18); "y"; Tab(26); "z" PrintPrint "排序前"; Tab(8); x; Tab(16); y; Tab(24); z If x < y Then t = y: y = x: x = tIf x < z Then t = z: z = x: x = tIf y < z Then t = z: z = y: y = tPrintPrint "排序后"; Tab(8); x; Tab(16); y; Tab(24); z End SubPrivate Sub Command1_Click() Text1 = ""Text2 = ""Text3 = ""Text1.SetFocusEnd SubPrivate Sub Text2_LostFocus()Dim a, ia = V al(Text2)If a Mod 2 = 0 And a <> 0 ThenElsei = MsgBox("脚数必须≥2倍的头数,请重新输入", 2 + 48, "sy2 - 5")If i = 4 ThenText2 = ""Text2.SetFocusElseIf i = 3 ThenEndElseEnd IfEnd IfEnd SubPrivate Sub Text3_lostfocus()If V al(Text3) >= 0 And Fix(V al(Text3)) = V al(Text3) And Text1 <> "" And Text2 <> "" Then Text3 = (4 * V al(Text1) - V al(Text2)) / 2End IfIf V al(Text3) < 0 ThenMsgBox "鸡的只数不能为负值", , "警告"Text3 = ""Text1.SetFocusEnd IfIf V al(Text3) > 0 And Fix(V al(Text3)) <> V al(Text3) ThenMsgBox "鸡的只数不能为小数", , "错误信息"Text3 = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Text4_lostfocus()If V al(Text4) >= 0 And Fix(V al(Text4)) = V al(Text4) And Text1 <> "" And Text2 <> "" Then Text4 = (V al(Text2) - 2 * V al(Text1)) / 2End IfIf V al(Text4) < 0 ThenMsgBox "兔的只数不能为负值", , "警告"Text4 = ""Text2.SetFocusEnd IfIf V al(Text4) > 0 And Fix(V al(Text4)) <> V al(Text4) ThenMsgBox "兔的只数不能为小数", , "错误信息"Text1.SetFocus End IfEnd Sub。
VisualBasic程序设计教程第三版课后习题答案之令狐采学创编欧阳引擎
《VB程序设计》综合复习资料欧阳引擎（2021.01.01）第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》分解温习材料第一章 Visual Basic程序设计概述一.填空题1.VisualBasic是一种面向__________的可视化程序设计说话,采纳了__________的编程机制.2.在VB中工程文件的扩大名是____________,窗体文件的扩大名是____________,尺度模块文件的扩大名是____________.3.履行“工程”菜单下的__________敕令,可选择并添加ActiveX控件.4.Visual Basic 6.0用于开辟__________情形下的运用程序.二.选择题1.下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中止模式2.可视化编程的最大长处是（）A．具有尺度对象箱B．一个工程文件由若干个窗体文件构成C．不须要编写大量代码来描写图形对象D．所见即所得3.下列不克不及打开属性窗口的操纵是（）A．履行“视图”菜单中的“属性窗口”敕令B．按F4键C．按Ctrl+TD．单击对象栏上的“属性窗口”按钮4.下列可以打开立刻窗口的操纵是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5.Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事宜驱动三.简答题1.代码窗口重要包含哪几部分？2.在工程资本治理器窗口中,重要列出了哪三类文件？3.窗体计划窗口的重要用处是什么？4.VB的根本特色是什么？5.如何懂得可视化设计？6.怎要懂得事宜驱动编程？第二章简略的VB程序设计一.填空题1.设置是否可以用Tab键来拔取敕令按钮,应当用______________属性.2.一个控件在窗体的地位由_______和________属性决议,其大小由__________和_________属性决议.3.运用对象的属性setfocus可获得核心,对于一个对象,只有其visible属性和____________属性为true,才干接收核心.4.设置控件布景色彩的属性名称是______________________.5.所有控件都具有的配合属性是__________________属性.6.一般情形下,控件有两个属性项的缺省值是雷同的,这两个属性项是_______________.7.VB中的每个对象（控件）都有一组特点,这组特点称为__________,我们经由过程修正它可以掌握对象的外不雅和操纵.8.平日情形下,VB中一个工程重要包含如下四个文件：窗体文件.工程文件.类模块文件和_____________文件,后者的扩大名为.Bas,平日由Basic说话编写,是一个可共用的子程序.9.VB有三种工作模式,分离是设计（Design）模式._____________和中止（Break）模式.二.选择题1.以下可以或许触发文本框Change事宜的操纵是（）A．文本框掉去核心B．文本框获得核心C．设置文本框的核心D．转变文本框的内容2.运用程序设计完成后,应将程序保管,保管的进程是（）A．只保管窗体文件即可B．只保督工程文件即可C．先保督工程文件,之后保管窗体文件D．先保管窗体文件（或尺度模块文件）,之后还要保督工程文件3.VB运用程序的运行模式是（）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式4.任何控件都具有的属性是（）A．TEXTB．CAPTIONC．NAMED．FORECOLOR5.决议控件上文字的字体.字形.大小及后果的属性是（）A．TEXTB．CAPTIONC．NAMED．FONT6.在窗体上树立了多个控件,如MAND1,若要使程序一运行核心就定位在COMMAND1控件上,应将COMMAND1控件的（）设置为0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED7.运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而转变了文本框的TEXT属性值时,将触发文本框的（）事宜A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8.在运行时,按TAB键跳过了一个可以获得核心的控件（如文本框）,则可能是因为（）A．该控件的TABSTOP属性值为TRUEB．该控件的TABINDEX 属性值为FALSEC．该控件的ENABLED属性值为TRUED．该控件的ENABLED属性值为FALSE9.为了防止用户随便将光标置于控件上,应（）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10.若要使标签控件显示时,不笼罩其布景内容,应设置标签控件的（）属性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE11.假如要在文本框中输入字符时,只显示某个字符,如星号（*）,运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12.在运行阶段,要在文本框TEXT1获得核心时选中文本框中所有内容,对应的事宜进程是（）A．Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC．Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD．Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13.Visual Basic持续了Basic说话简略易用的语法特色,同时支撑面向对象的编程机制,个中构成其控件（对象）的三要素是（）A．属性.事宜.事宜进程B．控件.窗体.事宜C．属性.进程.办法D．属性.事宜.办法14.决议标签（Label）显示的属性是（）A．TextB．NameC．CaptionD．Alignment15.敕令按钮的标题文字由（）属性来设置.A．Text B．Caption C．Name D．(名称)16.若要设置文本的显示色彩,则可用（）属性来实现.A．BackColor B．Forecolor C．FillColor D．Backstyle17.在运行时,若要挪用某敕令钮的Click事宜进程,则可设置该敕令钮对象的（）属性为Ture来实现.A．Enabled B．Value C．Default D．Cancel18.在运行时,若要获得用户在文本框中所选择的文本,可经由过程拜访（）属性来实现.A．SelStart B．SelLenght C．Text D．SelText三.简答题1.事宜驱动的含意是什么？举例解释.2.交互式开辟办法和传统的运用程序开辟进程有什么不合？3.文本框在什么情形下运用？4.什么是工程？5.构造化程序设计的三种根本构造是什么？6.对象的三要素是什么？并分离进行简略的解释.7.为什么要生成可履行文件和制造装配盘？8.运用变量前先声明有什么利益？9.若何运用帮忙功效？10.构造化程序设计的特色是什么？11.为了把核心移到某个指定的控件,在代码中应运用的办法是什么？12.启动Visua Basic后,只创建了一个窗体,若此时保管,须要保管几个文件？各是什么文件？先保管的是哪一个？13.为了防止文本框中的信息运行后被用户修正,应设置什么属性？第三章 VB根本说话一.填空题1.一般可以运用__________症结字声明常量.2.______类型也称变体类型,是一种通用的.可变的数据类型,它可暗示或存储任何一种数据类型.3.变量的声明分为两种办法：__________和____________.4.在VB中,用___________________语句设定命组的下界,用_____________和__________________语句分离返回数组的上.下界.5.在代码模块中参加Option Explicit的目标是_____________________.6.function aa (a1 as date,optional a2 as boolean) as single,写出optional敕令的感化__________________.7.在VB中,我们用一个简略的______语句就能实现退出程序.8.生成新闻框的敕令是____________,生成输入框的敕令是____________.9.通用对话框（commondialog）属activex控件,它可以显示多个尺度对话框,包含打开/另存为.字体.打印等对话框,若要显示所有文件,则应设置其属性filter=____________,若要使它显示为打印对话框,则应运用什么办法____________.10.从字符串中随便率性地位截取字符的函数是__________.11.语句For j = 3 To 20 Step 3 使轮回体履行了______次.12.对于正在运用的动态数组Arraya(),要增长一个单元,但不克不及损坏数组内的数据,则应运用语句__________________________________.13.在Visual Basic中声明静态变量的症结字是_________________.14.表达式10 Mod 6 \ 4的值为______.15.表达式chr(Asc("a") + 5)的值为_________.16.VB中运用注释有2种办法,即________和________.17.VB中的数据以四种情势存储：常量._________._________和记载.18.为了在VB中存储一个4行5列的二维矩阵,须要界说一个整型的数组,请把数组界说语句填补完全：Dim Juzhen(__) as Integer.19.控件数组由一组雷同类型的控件构成,这些控件共用一个雷同的控件名,但是每个控件都有一个独一的下标来区分,我们运用属性____来设置下标.20.在进程挪用中,实现挪用进程的实参和被挪用进程的形参之间的数据传递有两种方法：按值传递和____.21.为了包管程序中必须对变量的强迫性界说,须要在代码模块的声明部分参加______________语句.22.剖析For……Next轮回构造的实例：For i = 5 To 30 Step 2 中,轮回体一共履行了______次.23.表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_________.24.常量分为通俗常量和__________常量.25.要将大写字母转换为小写字母,可运用____________函数.26.不管核心在哪个控件上,按__________键相当于按了撤消按钮.27.履行“工程”菜单下的__________敕令,可选择并添加ActiveX控件.28.__________是程序中VB停滞履行的地方.29.逻辑常量为True或__________.30.运用了__________________的声明后,当程序中运用未经声明的变量时,程序运行时会报错.31.要将小写字母转换为大写字母,可运用____________函数.32.自字符串N1位开端向右取N2个字符,要运用_________________函数.33.日期常量暗示时,用符号__________将日期型数据括起来.34.局部变量只能在__________中声明和运用.35.模块级变量的声明症结字是Dim或__________.36.函数Abs(x)的功效是__________.37.表达式3/6*5的值是__________.二.选择题1.以下哪个是正当的变量（）A．right B．abc@123 C．123_abc D．ab123c2.下列说法错误的是（）A．在统一模块不合进程中的变量可以同名B．不合模块中界说的全局变量不成以同名C．引用另一模块中的全局变量时,必须在变量名前加模块名D．统一模块中不合级的变量可以同名3.把MsgBox的返回值转换为数值应当运用的函数是（）A．LogB．StrC．LenD．Val4.语句DIM AA(3,4,5)中界说的数组有（）个元素A．12 B．60 C．120 D．3455.下面程序运行后输出的成果是（）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI B．CCC C．INA D．AAA6.以下语句的输出成果是（）Print Format$(32548.5, "000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507.以下论述中错误的是（）A．假如进程被界说为Static类型,则该进程中的局部变量都是Static类型B．Sub进程中不克不及嵌套界说Sub进程C．Sub进程中可以嵌套挪用Sub进程D．事宜进程可以像通用进程一样由用户界说进程名8.Visual Basic供给的On Error Resume next错误陷阱语句暗示（）A．当产生错误时,使程序转跳到语句标号为0的程序块B．当产生错误时,不运用错误处理程序块C．当产生错误时,疏忽错误行,持续履行下一语句D．当产生错误时,终止本进程履行,持续履行下一进程9.在Visual Basic中,若要将掌握权交给操纵体系则经由过程（）的语句.A．End B．Exit Do C．Exit Sub D．DoEvents10.在Visual Basic 中语句的续行号采取（）A．空格与下划线 B．下划线与空格 C．空格与短线 D．短线与空格11.假定有以下程序段：For i=1 to 3For j=5 to 1 Step –1Print i*jNext j,i则语句Print i*j的履行次数是（）A．15 B．.16 C．17 D．1812.从键盘上输入两个字符串,分离保管在变量str1.str2中.肯定第二个字符串在第一个字符串中肇端地位的函数是（）A．LeftB．MidC．StringD．Instr13.假如将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为（）A．0B．1C．TRUED．FALSE14.下列论述不准确的是（）A．注释语句长短履行语句,仅对程序的内容起注释感化,它不被解释和编译B．注释语句可以放在代码中的任何地位C．注释语句不克不及放在续行符的后面D．代码中参加注释语句的目标是进步程序的可读性15.语句PRINT “INT(13.2)”;INT(13.2)的输出成果为（）C．INT(13.2)= 13D．INT(13.2)= 1416.假如TAB函数的参数小于1,则打印地位在第（）列A．0B．1C．2D．317.变量未赋值时,数值型变量的值为（）A.0B．空C．1D．无任何值18.下列语句中准确的是（）A．txt1.text+txt2.text=txt3.textB．=cmdokC．12label.caption=1234D．a=inputbox(“hello”)19.假设变量BOOLVAR是一个布尔型变量,则下面准确的赋值语句是（）A．BOOLVAR=‘TRUE’B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE#D．BOOLVAR=3<420.以下（）程序段可以实行X.Y变量值的变换（）A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21.语句PRINT “SGN(26)=”;SGN(26)的输出成果为（）A．SGN(26)=26B．SGN(26)= 26C．SGN(26)= +1D．SGN(26)= 122.读下面程序段,断定变量Str2的取值是（）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23.VB支撑自界说数据类型,在某程序中我们界说了如下类型：TypeStudentnumber AsstringnameAsStringageAsIntegerEndType针对上述界说,如下几项用法准确的是（）A．="张三" B．Dim s AsStudent ＝"张红"C．DimsAsTypeStudent D．DimsAsType="张三" ="张三"24.一个工程中包含两个名称分离为Form1.Form2的窗体,一个名称为mdlFunc的尺度模块.假定在Form1.Form2和mdlFunc平分离树立了自界说进程,其界说格局为：Form1中界说的进程：Private Subfrmfunction1()EndSubForm2中界说的进程：PublicSubfrmfunction2()EndSubmdlFunc中界说的进程：PublicSubmdlFunction()EndSub在挪用上述进程的程序中,假如不指明窗体或模块的名称,则以下论述中准确的是（）A．上述三个进程都可以在工程中的任何窗体或模块中直接被挪用B．只有mdlFunction进程可以或许被工程中各个窗体或模块直接被挪用C．frmfunction1只能在form1中挪用,而frmfunction2 则可以在所有模块或窗体中被直接挪用D．上述三个进程都只能在各自被界说的模块中直接挪用25.VB中Do……Loop构造既可以构成当型轮回,也可以构成直到型轮回,依据下面的代码：Dim i,n as Integern = 20i = 1DoPrint i;i = i + 2Loop Until i >20断定轮回构造的类型和轮回体的履行次数,准确的选项是（）A．当型轮回,20次B．直到型轮回,10次C．当型轮回,10次D．直到型轮回,20次26.在程序中,运用InputBox函数可以接收用户的输入,假如要把它的返回值转换为数值型的数据,应当运用的函数是（）A．Val B．LenC．Str D．Log27.动态数组因为在程序运行前无法肯定命组的大小,所以经常依据程序的运行情形,对数组进行从新界说,以下关于VB中动态数组的论述中不准确的是（）A．可以用ReDim语句从新界说动态数组,并且可以进行多次重界说B．初次用Dim进行为态数组声明的时刻,必须指明它的类型和高低界C．Preserve为ReDim语句的可选参数,用于保存动态数组本来的内容D．当对动态数组运用Erase语句进行释放操纵时,将释放其内存28.VB中的控件也叫做部件或组件,重要包含三类,以下哪一项不属于VB控件的分类（）A．控件B．可拔出对象C．ADO控件 D．ActiveX控件29.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）A．4 B．5 C．6 D．730.可以同时删除字符串前导和尾部空白的函数是（）A．Ltrim B．Rtrim C．Trim D．Mid三.简答题1.全局变量声明有哪些限制？2.字符串是否可以主动转换为数字类型？3.用Format函数格局化后的字符格局在不合区域情形下的输出是否雷同？为什么？4.在InputBox函数中,哪一个参数是必须的？5.在MsgBox函数中哪一个参数是必须的？6.在什么情形下运用进程？7.为什么要进行程序调试？8.调试程序有哪些手腕？9.用语句Dim A(3 To 5) As Integer界说的数组的元素个数是若干？10.设有如下的Visual Basic表达式：5*x^23*x2*Sin(a)/3,与它对应的数学式是什么？11.数学式)a-对应的VB表达式是什么？yx+3)(2(b12.表达式2>3 And 4<=5 Or 4>4的值是什么？13.如何在程序中设置断点？14.在什么情形下可以设置断点？15.程序出错的类型有哪几种？16.在统一模块.不合进程中声明的雷同变量名,两者是否暗示统一个变量？为什么？17.什么情形下会消失“数组下标越界错误”？18.逐语句和逐进程有什么差别？19.表达式2.75 * 2 \ 3.45的值是什么？20.在程序设计中为什么尽量不必GoTo语句？四.读程序题1.剖析以下程序,写出运行成果.Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2.读下面的程序,剖析其功效,写出运行成果.在窗体上有一个敕令按钮,名称为Command1.然后编写如下程序：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序运行后,假如单击敕令按钮,则在窗体上显示的内容是什么？3.浏览下面的程序,剖析并写出其功效.Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=201 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub4.剖析以下程序,写出运行成果.Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击敕令按钮,输出成果是什么？5.剖析以下程序,写出运行成果.Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i－nLoopPrint iEnd Sub6.剖析以下程序,写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) ThenPrint aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub7.剖析以下程序,写出运行成果.Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Print x;y;zx=x+yx=x*zPrint x,y,zEnd Sub8.剖析以下程序,写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a>=b)and(a>c)Then Print aPrint a,b,cEnd Sub五.编程题1.输入一年号,断定它是否是闰年.界面如下图所示,包含两个标签.一个文本框和一个敕令按钮.提醒：假如此年号能被400整除或者不克不及被400除尽,也不克不及被100除尽,但能被4整除,则它是闰年;不然,不是闰年.2.输入两个正整数m.n,求m和n的最大公约数.请求树立如下图所示的窗体,个中重要的控件包含：两个标签（ble2）.两个文本框（Text1.Text2）和一个按钮（Command1）.3.输入某学生成绩（百分制）,若是100≥成绩≥90输出优良;若是90＞成绩≥80输出优越;若是80＞成绩≥70输出中等;若是70＞成绩≥60输出合格;若是60＞成绩≥0,输出不合格;若是其他数则输出error信息.4.在窗体中显示从9号字型到16号字型.5.在有序序列中拔出一个数,使拔出后的数列仍然有序（设按由小到大分列）.6.编程实现二维数组转置.7.随机输入10个100以内的整型数,盘算其和及平均值.8.找出所有的水仙花数.水仙花数是个三位数,它的列位数字的立方和等于这个三位数本身.例如371＝33+73+13,则371是水仙花数.9.从键盘输入一个大于2的正整数,断定该数是否是素数.10.求二维数组中的最小值及其地点行号.列号.11.求一元二次方程ax2+bx+c=0的根（包含实根和复根）.12.输入一个正整数n,盘算出n!并输出.13.Faibonacci数列为0,1,1,2,3,5,8,13 …,盘算并输出第20项以及前20项的和.第四章经常运用控件与窗体一.填空题1.向列表框控件添加新项目标办法是__________.2.在VB中,最重要的两种对象是____________和____________.3.当窗体启动时可经由过程__________属性掌握窗体位于所有者的中间地位.4.若要将窗体Form1隐蔽起来,则可经由过程履行代码_________________来实现.5.要使装入到列表框中的数据项能主动按字母次序排序,应设置该控件的_________属性为__________.6.窗体上放置了若干个文本框和敕令按钮,当窗体装入后,要将核心主动定位到文本框Text1上,则在设计时须要将__________控件的_________属性设置为__________.7.在标签控件中经由过程编程使文字换行用的代码是___________________.8.设置计时器控件只能触发______________________事宜.9.设置计时器对象触发事宜的时光距离用_____________________属性.10.滚动条控件重要支撑两个事宜,它们是_______________事宜.11.要使鼠标逗留在按钮上显示特别的鼠标外形,应设置的属性值是_________________.12.设某列表框共有10项,按标题请求补齐程序,完成响应的功效.（1）按下敕令按钮Command1时将列表框第8项的内容显示在窗体上：PrivateSubCommand1_Click()List.__________(7)=TrueEndSub（2）单击列表框某一项时立刻将该项打印在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下敕令按钮Command1时在窗体上删除第 1.3.5.7.9项：PrivateSubCommand1_Click()ForI=1To5NextIEndSub（4）在列表框的每一项之后拔出一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入拔出的第”&I&“项内容”) NextIEndSub13.设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,要使每次单击滚动条两头箭头时,或单击滚动条滑块与两头箭头之间的空白区域时,标签内容可以或许反应滚动条的值,补齐以下代码.PrivateSubHscroll1.__________________()EndSub要使拖动滚动条滑块时标签内容可以或许反应滚动条的值,补齐以下代码.PrivateSubHscroll1.________________()EndSub14.列表框（ListBox）用于列出可供选择的项目标列表,用户可以选择一个或多个项目.它具有几个异常重要的数组属性,个中____属性存放了列表框中所有项目标值.15.菜单项一般由标题.拜访键.快捷键和复选标记等构成,经由过程对响应的属性进行设置可以转变这些项目标状况,个中与复选标记相对应的属性是____.16.keydown与keypress事宜各有其参数,若需获得用户按下"a" 照样 "A" 需用____________事宜.17.控件________组合了文本框和列表框的功效,是VB中一种功效异常壮大的选择类控件.18.若须要将窗体Form2以模态窗口的情势显示出来,可经由过程履行代码_________________来实现.19.菜单中的分隔条是一种菜单控件,不响应__________事宜,不克不及被选中.二.选择题1.当程序运行时,在窗体上单击鼠标,以下哪个事宜是窗体不会吸收到( )A．MouseDownB．MouseUpC．LoadD．Click2.窗体Form1的Name属性是Frm1,它的单击事宜进程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3.用于设置通用对话框控件显示文件类型的属性是（）A．Filter B．Path C．Partern D．FoleName4.用于从内存删除窗体的敕令是（）A．Move B．Hide C．Unload D．Delete5.用于返回窗体可用区域宽度的属性是（）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6.下列关于属性设置的论述错误的是：（）A．一个控件具有什么属性是VB预先设计好的,用户不克不及转变B．一个控件具有什么属性是VB预先设计好的,用户可以转变C．一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D．一个控件的属性在属性窗口中设置,还可以运用程序代码为其设置新值7.下列说法准确的是（）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中树立C．必须先树立一个工程,才干开端设计运用程序D．只能在“代码窗口”中编写程序代码8.下列关于窗体上控件的根本操纵错误的是（）A．按下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D．按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件9.下列关于设置控件属性的论述准确的是（）A．用户必须设置属性值B．所有的属性值都可以由用户随便设定C．属性值不必一一从新设置D．不合控件的属性项都完全一样10.不成以经由过程下列（）操纵将核心赋给对象A．运行时运用TAB键B．在代码顶用CALL语句挪用C．在代码顶用SETFOCUS办法D．用拜访键或用鼠标单击选择对象11.要在FORM_LOAD事宜进程中运用PRINT办法在窗体上输出必定的内容,应（）A．设置窗体的VISIBLE属性B．设置窗体的CAPTIONC．挪用窗体的SHOW办法D．设置窗体ENABLED属性12.下面（）对象无CAPTION属性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL13.通用对话框控件和文件列表框控件中,都能依据文件的类型对要显示的文件进行筛选过滤,后者运用（）属性进行该项设置.A．Pattern B．Path C．FilterD．FileName14.对于复选框控件chkBoy,假如在程序中设置它为选中状况,下面语句准确的是（）A．chkBoy.Checked = true B．chkBoy.Value = trueC．chkBoy.Selected = true D．chkBoy.Value = 115.计时器（Timer）控件用于每隔一段时光主动触发一次Timer事宜,可以有纪律地反复履行一段程序,它用于设置两次事宜时光距离的属性是（）A．IntervalB．SmallChangeC．LargeChange D．Max16.以下关于VB中窗体（Form）的说法中,不准确的描写为（）A．履行Unload Form语句后,窗体Form消掉,但仍在内存中B．当窗体的Enabled属性为False时,经由过程鼠标和键盘对窗体的操纵都被制止C．窗体的Height.width属性用于设置窗体的高和宽D．窗体的load事宜在加载窗体时产生17.关于滚动条控件,下面说法错误的是（）A．点击滚动条的箭头,可以转变它的value值,从而激发Change事宜B．拖动滚动框,可以触发Scroll事宜C．平日,程度滚动条的值从左向右递增,垂直滚动条的值自上而下递增D．拖动滚动框,可以触发Change事宜,并且是持续触发的18.在窗体上放置一个敕令按钮,名称为Command1.单击敕令按钮时,履行如下事宜进程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是（）A．softWareandhardware B．softwareC．hardwafe D．消失错误19.在多重窗体程序设计中,症结的问题是要解决不合窗体之间的连接和窗体的显示.封闭等问题,以下关于窗体的相干语句和办法的论述中,错误的是（）A．Load语句用于加载指定窗体,即在内存中创建该窗体B．Show办法兼具Load语句的功效,可以将窗体显示出来C．Hide办法用于将窗体隐蔽起来D．Unload语句用来释放窗体,但窗体并没从内存中消20.滚动条控件的属性中,暗示取值规模最大值的属性是（）A．MaxB．LargeChangeC．Min D．Value21.程序中假如须要检测和掌握鼠标的地位和状况的转变,就须要运用鼠标事宜,个中下面哪个选项用于暗示拖动事宜（）A．DragDrop B．MouseDownC．MouseUp D．MouseMove22.为了运用通用对话框进行打开文件的操纵,应将通用对话框的Action属性设定为（）.A．0 B．1 C．2 D．3三.简答题1.什么是单选按钮？什么是复选框？在运用上有什么不合？2.滚动条的change事宜和scroll事宜有什么不合？3.快捷键和拜访键有什么差别？4.在程序运行时代,假如拖动滚动条上的滚动块（即滑块）,则触发滚动条的什么事宜？5.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项掉效（变灰）,应运用什么语句？6.为了临时封闭计时器（即时钟控件）,应把该计时器的什么属性设置为False？7.单选按钮和复选框（即检讨框）各用于什么情形？8.若何为一个菜单项设置热键和快捷键？9.菜单的情势有哪两种？10.在KeyPress事宜中,若何撤消用户刚输入的字符？11.框架的感化是什么？12.假如要计时器每秒钟产生4个Timer事宜,则Interval属性值应设若干？13.在一个窗体的程序代码中可否拜访另一个窗体上控件的属性？若不成则请解释来由;若行则请解释若何拜访.14.如安在框架中树立控件？15.组合框有哪几种类型？四.读程序题1.对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后,按回车键,输出成果是什么？。
VB程序设计第三版习题答案(1-4)
《VB程序设计基础》（第三版）习题标准答案参考答案：1、简述Visual Basic的特点。
答：⑴基于对象的可视化设计工具⑵事件驱动的编程机制⑶提供易学易用的应用程序集成开发环境⑷结构化的程序设计语言⑸强大的网络、数据库、多媒体功能⑹完备的联机帮助功能3、Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？答：在启动VB 6.0的启动封面上，能显示对应的版本，见教材例1.1 4、Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？答：选择“视图∣代码窗口”命令或“工程资源管理器”窗口的“查看代码”按钮。
5. 叙述建立一个完整的应用程序的过程。
答：a)建立用户界面的控件对象。
b)控件属性的设置。
c)控件事件过程及编程。
d)运行和调试程序。
e)保存程序。
6. 当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件，再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件(.vbp)。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7. 保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统的默认目录是VB98。
习题二参考答案：2、属性与方法的区别是什么？答：对象中的数据保存在属性中，VB程序中的对象都有许多属性，它们是用来描述和反映对象特征的参数。
可以通过两种方法来设置属性：（1）在设计阶段利用属性窗口直接设置对象的属性值；（2）在程序运行阶段通过赋值语句实现。
方法是附属于对象的行为和动作，也可以理解为指使对象动作的命令。
面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程，称为方法供用户直接调用，这给用户的编程带来了很大的方便。
因为方法是面向对象的，所以在调用时一定要指明对象，如果省略指当前对象，一般指窗体。
VisualBasic程序设计教程第三版课后习题答案之欧阳科创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VisualBasic程序设计教程第三版课后习题答案
《VB步调安排》概括复习资料之阳早格格创做第一章 Visual Basic步调安排概括一、挖空题1、VisualBasic是一种里背__________的可视化步调安排谈话，采与了__________的编程体造.2、正在VB中工程文献的扩展名是____________，窗体文献的扩展名是____________，尺度模块文献的扩展名是____________.3、真止“工程”菜单下的__________下令，可采用并增加ActiveX控件.4、Visual Basic 6.0用于开垦__________环境下的应用步调.二、采用题1、底下出有是VB处事模式的是（）A．安排模式B．运止模式C．汇编模式D．中断模式 2、可视化编程的最大便宜是（）A．具备尺度工具箱B．一个工程文献由若搞个窗体文献组成C．出有需要编写洪量代码去形貌图形对付象D．所睹即所得3、下列出有克出有及挨开属性窗心的支配是（）A．真止“视图”菜单中的“属性窗心”下令B．按F4键C．按Ctrl+TD．单打工具栏上的“属性窗心”按钮4、下列不妨挨开坐时窗心的支配是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程体造是（）A．可视化 B．里背对付象 C．里背图形 D．事变启动三、简问题1、代码窗心主要包罗哪几部分？2、正在工程资材管造器窗心中，主要列出了哪三类文献？3、窗体筹备窗心的主要用途是什么？4、VB的基础特性是什么？5、何如明黑可视化安排？6、怎要明黑事变启动编程？第二章简朴的VB步调安排一、挖空题1、树坐是可不妨用Tab键去采用下令按钮，该当用______________属性.2、一个控件正在窗体的位子由_______战________属性决断，其大小由__________战_________属性决断.3、利用对付象的属性setfocus可赢得核心，对付于一个对付象，惟有其visible属性战____________属性为true，才搞担当核心.4、树坐控件背景颜色的属性称呼是______________________.5、所有控件皆具备的共共属性是__________________属性.6、普遍情况下，控件有二个属性项的缺省值是相共的，那二个属性项是_______________.7、VB中的每个对付象（控件）皆有一组特性，那组特性称为__________，咱们通过建改它不妨统造对付象的中瞅战支配.8、常常情况下，VB中一个工程主要包罗如下四个文献：窗体文献、工程文献、类模块文献战_____________文献，后者的扩展名为.Bas，常常由Basic谈话编写，是一个可共用的子步调.9、VB有三种处事模式，分别是安排（Design）模式、_____________战中断（Break）模式.二、采用题1、以下不妨触收文本框Change事变的支配是（）A．文本框得去核心B．文本框赢得核心C．树坐文本框的核心D．改变文本框的真量2、应用步调安排完毕后，应将步调死存，死存的历程是（）A．只死存窗体文献即可B．只死存工程文献即可C．先死存工程文献，之后死存窗体文献D．先死存窗体文献（大概尺度模块文献），之后还要死存工程文献3、VB应用步调的运止模式是（）A．阐明运止模式B．编译运止模式C．二者皆有D．汇编模式4、所有控件皆具备的属性是（）A．TEXTB．CAPTIONC．NAMED．FORECOLOR5、决断控件上笔墨的字体、字形、大小及效验的属性是（）A．TEXTB．CAPTIONC．NAMED．FONT6、正在窗体上建坐了多个控件，如TEXT、LABEL1、COMMAND1，若要使步调一运止核心便定位正在COMMAND1控件上，应将COMMAND1控件的（）树坐为0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED 7、运止时，当用户背文本框输进新的真量，大概正在步调代码中对付文本框的TEXT属性举止赋值进而改变了文本框的TEXT属性值时，将触收文本框的（）事变A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8、正在运止时，按TAB键跳过了一个不妨赢得核心的控件（如文本框），则大概是果为（）A．该控件的TABSTOP属性值为TRUEB．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUED．该控件的ENABLED属性值为FALSE9、为了预防用户随意将光标置于控件上，应（）A．将控件的TABINDEX属性树坐为0B．将控件的TABSTOP属性树坐为TRUEC．将控件的TABSTOP属性树坐为FALSED．将控件的ENABLED属性树坐为FALSE10、若要使标签控件隐现时，出有覆盖其背景真量，应树坐标签控件的（）属性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE11、如果要正在文本框中输进字符时，只隐现某个字符，如星号（*），运止时，正在文本框中输进的字符仍旧隐现出去，而出有隐现星号，本果大概是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、正在运止阶段，要正在文本框TEXT1赢得核心时选华文本框中所有真量，对付应的事变历程是（）A．Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC．Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD．Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13、Visual Basic继启了Basic谈话简朴易用的语法特性，共时支援里背对付象的编程体造，其中形成其控件（对付象）的三果素是（）A．属性、事变、事变历程B．控件、窗体、事变C．属性、历程、要领D．属性、事变、要领14、决断标签（Label）隐现的属性是（）A．TextB．NameC．CaptionD．Alignment15、下令按钮的题目笔墨由（）属性去树坐.A．Text B．Caption C．Name D．(称呼)16、若要树坐文本的隐现颜色，则可用（）属性去真止.A．BackColor B．Forecolor C．FillColor D．Backstyle17、正在运止时，若要调用某下令钮的Click事变历程，则可树坐该下令钮对付象的（）属性为Ture去真止.A．Enabled B．Value C．Default D．Cancel18、正在运止时，若要赢得用户正在文本框中所采用的文本，可通过考察（）属性去真止.A．SelStart B．SelLenght C．Text D．SelText三、简问题1、事变启动的含意是什么？举例证明.2、接互式开垦要领战保守的应用步调开垦历程有什么分歧？3、文本框正在什么情况下使用？4、什么是工程？5、结构化步调安排的三种基础结构是什么？6、对付象的三果素是什么？并分别举止简朴的阐明.7、为什么要死成可真止文献战创造拆置盘？8、使用变量前先声明有什么佳处？9、怎么样使用助闲功能？10、结构化步调安排的特性是什么？11、为了把核心移到某个指定的控件，正在代码中应使用的要领是什么？12、开用Visua Basic后，只创造了一个窗体，若此时死存，需要死存几个文献？各是什么文献？先死存的是哪一个？13、为了预防文本框中的疑息运止后被用户建改，应树坐什么属性？第三章 VB基础谈话一、挖空题1、普遍不妨使用__________关键字声明常量.2、______典型也称变体典型，是一种通用的、可变的数据典型，它可表示大概死存所有一种数据典型.3、变量的声明分为二种要领：__________战____________.4、正在VB中，用___________________语句设定数组的下界，用_____________战__________________语句分别返回数组的上、下界.5、正在代码模块中加进Option Explicit的脚法是_____________________.6、function aa (a1 as date,optional a2 as boolean) as single，写出optional下令的效率__________________.7、正在VB中，咱们用一个简朴的______语句便能真止退出步调.8、死成消息框的下令是____________，死成输进框的下令是____________.9、通用对付话框（commondialog）属activex控件，它不妨隐现多个尺度对付话框，包罗挨开/另存为、字体、挨印等对付话框，若要隐现所有文献，则应树坐其属性filter=____________，若要使它隐现为挨印对付话框，则应使用什么要领____________.10、从字符串中任性位子截与字符的函数是__________.11、语句For j = 3 To 20 Step 3 使循环体真止了______次.12、对付于正正在使用的动背数组Arraya()，要减少一个单元，然而出有克出有及损害数组内的数据，则应使用语句__________________________________.13、正在Visual Basic中声明固态变量的关键字是_________________.14、表黑式10 Mod 6 \ 4的值为______.15、表黑式chr(Asc("a") + 5)的值为_________.16、VB中使用注释有2种要领，即________战________.17、VB中的数据以四种形式死存：常量、_________、_________战记录.18、为了正在VB中死存一个4止5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完备：Dim Juzhen(__) as Integer.19、控件数组由一组相共典型的控件组成，那些控件共用一个相共的控件名，然而是每个控件皆有一个唯一的下标去区别，咱们使用属性____去树坐下标.20、正在历程调用中，真止调用历程的真参战被调用历程的形参之间的数据传播有二种办法：按值传播战____.21、为了包管步调中必须对付变量的强造性定义，需要正在代码模块的声明部分加进______________语句.22、分解For……Next循环结构的真例：For i = 5 To 30 Step 2 中，循环体一共真止了______次.23、表黑式Mid("UniversityOfPetroleum", 8, 4) 的值为_________.24、常量分为普常常量战__________常量.25、要将大写字母变更为小写字母，可使用____________函数.26、出有管核心正在哪个控件上，按__________键相称于按了与消按钮.27、真止“工程”菜单下的__________下令，可采用并增加ActiveX控件.28、__________是步调中VB停止真止的场合.29、逻辑常量为True大概__________.30、使用了__________________的声明后，当步调中使用已经声明的变量时，步调运止时会报错.31、要将小写字母变更为大写字母，可使用____________函数.32、自字符串N1位开初背左与N2个字符，要使用_________________函数.33、日期常量表示时，用标记__________将日期型数据括起去.34、局部变量只可正在__________中声明战使用.35、模块级变量的声明关键字是Dim大概__________.36、函数Abs(x)的功能是__________.37、表黑式3/6*5的值是__________.二、采用题1、以下哪个是合法的变量（）A．right B．abc@123 C．123_abc D．ab123c 2、下列道法过得的是（）A．正在共一模块分歧历程中的变量不妨共名B．分歧模块中定义的局部变量出有成以共名C．引用另一模块中的局部变量时，必须正在变量名前加模块名D．共一模块中分歧级的变量不妨共名3、把MsgBox的返回值变更为数值该当使用的函数是（）A．LogB．StrC．LenD．Val4、语句DIM AA(3,4,5)中定义的数组有（）个元素A．12 B．60 C．120 D．3455、底下步调运止后输出的截止是（）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI B．CCC C．INA D．AAA6、以下语句的输出截止是（）Print Format$(32548.5, "000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507、以下道述中过得的是（）A．如果历程被定义为Static典型，则该历程中的局部变量皆是Static典型B．Sub历程中出有克出有及嵌套定义Sub历程C．Sub历程中不妨嵌套调用Sub历程D．事变历程不妨像通用历程一般由用户定义历程名8、Visual Basic提供的On Error Resume next过得陷阱语句表示（）A．当爆收过得时，使步调转跳到语句标号为0的步调块B．当爆收过得时，出有使用过得处理步调块C．当爆收过得时，忽略过得止，继启真止下一语句D．当爆收过得时，终止本历程真止，继启真止下一历程9、正在Visual Basic中，若要将统造权接给支配系统则通过（）的语句.A．End B．Exit Do C．Exit Sub D．DoEvents 10、正在Visual Basic 中语句的绝止号采与（）A．空格与下划线 B．下划线与空格 C．空格与短线 D．短线与空格11、假定有以下步调段：For i=1 to 3For j=5 to 1 Step –1Print i*jNext j,i则语句Print i*j的真止次数是（）A．15 B．.16 C．17 D．1812、从键盘上输进二个字符串，分别死存正在变量str1、str2中.决定第二个字符串正在第一个字符串中起初位子的函数是（）A．LeftB．MidC．StringD．Instr13、如果将布我常量值TRUE赋值给一个整型变量，则整型变量的值为（）A．0B．1C．TRUED．FALSE14、下列道述出有精确的是（）A．注释语句利害真止语句，仅对付步调的真量起注释效率，它出有被阐明战编译B．注释语句不妨搁正在代码中的所有位子C．注释语句出有克出有及搁正在绝止符的后里D．代码中加进注释语句的脚法是普及步调的可读性15、语句PRINT “INT(13.2)”；INT(13.2)的输出截止为（）C．INT(13.2)= 13D．INT(13.2)= 1416、如果TAB函数的参数小于1，则挨印位子正在第（）列A．0B．1C．2D．317、变量已赋值时，数值型变量的值为（）A、0B．空C．1D．无所有值18、下列语句中精确的是（）A．txt1.text+txt2.text=txt3.textB．=cmd okC．12label.caption=1234D．a=inputbox(“hello”)19、假设变量BOOLV AR是一个布我型变量，则底下精确的赋值语句是（）A．BOOLVAR=‘TRUE’B．BOOLV AR=.TRUEC．BOOLV AR=#TRUE#D．BOOLV AR=3<420、以下（）步调段不妨真施X、Y变量值的变更（）A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21、语句PRINT “SGN(26)=”；SGN(26)的输出截止为（）A．SGN(26)=26B．SGN(26)= 26C．SGN(26)= +1D．SGN(26)= 122、读底下步调段，推断变量Str2的与值是（）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23、VB支援自定义数据典型，正在某步调中咱们定义了如下典型：TypeStudentnumber AsstringnameAsStringageAsIntegerEndType针对付上述定义，如下几项用法精确的是（）A．="弛三" B．Dim s AsStudent ＝"弛黑"C．DimsAsTypeStudent D．DimsAsType="弛三" ="弛三"24、一个工程中包罗二个称呼分别为Form1、Form2的窗体，一个称呼为mdlFunc的尺度模块.假定正在Form1、Form2战mdlFunc中分别建坐了自定义历程，其定义要领为：Form1中定义的历程：Private Subfrmfunction1()EndSubForm2中定义的历程：PublicSubfrmfunction2()EndSubmdlFunc中定义的历程：PublicSubmdlFunction()EndSub正在调用上述历程的步调中，如果出有指明窗体大概模块的称呼，则以下道述中精确的是（）A．上述三个历程皆不妨正在工程中的所有窗体大概模块中间接被调用B．惟有mdlFunction历程不妨被工程中各个窗体大概模块间接被调用C．frmfunction1只可正在form1中调用，而frmfunction2 则不妨正在所有模块大概窗体中被间接调用D．上述三个历程皆只可正在各自被定义的模块中间接调用25、VB中Do……Loop结构既不妨形成当型循环，也不妨形成曲到型循环，根据底下的代码：Dim i,n as Integern = 20i = 1DoPrint i;i = i + 2Loop Until i >20推断循环结构的典型战循环体的真止次数，精确的选项是（）A．当型循环，20次B．曲到型循环，10次C．当型循环，10次D．曲到型循环，20次26、正在步调中，使用InputBox函数不妨担当用户的输进，如果要把它的返回值变更为数值型的数据，该当使用的函数是（）A．Val B．LenC．Str D．Log27、动背数组果为正在步调运止前无法决定数组的大小，所以时常根据步调的运止情况，对付数组举止沉新定义，以下关于VB中动背数组的道述中出有精确的是（）A．不妨用ReDim语句沉新定义动背数组，而且不妨举止多次沉定义B．尾次用Dim举止径背数组声明的时间，必须指明它的典型战上下界C．Preserve为ReDim语句的可选参数，用于死存动背数组本去的真量D．当对付动背数组使用Erase语句举止释搁支配时，将释搁其内存28、VB中的控件也喊搞部件大概组件，主要包罗三类，以下哪一项出有属于VB控件的分类（）A．控件B．可拔出对付象C．ADO控件 D．ActiveX控件29、表黑式4+5 \ 6 * 7 / 8 Mod 9 的值是（）A．4 B．5 C．6 D．730、不妨共时简略字符串前导战尾部空黑的函数是（）A．Ltrim B．Rtrim C．Trim D．Mid三、简问题1、局部变量声明有哪些节造？2、字符串是可不妨自动变更为数字典型？3、用Format函数要领化后的字符要领正在分歧天区环境下的输出是可相共？为什么？4、正在InputBox函数中，哪一个参数是必须的？5、正在MsgBox函数中哪一个参数是必须的？6、正在什么情况下使用历程？7、为什么要举止步调调试？8、调试步调有哪些脚法？9、用语句Dim A(3 To 5) As Integer定义的数组的元素个数是几？10、设犹如下的Visual Basic表黑式：5*x^23*x2*Sin(a)/3，与它对付应的数教式是什么？11、数教式)a-对付应的VB表黑式是什么？yx+3)(2(b12、表黑式2>3 And 4<=5 Or 4>4的值是什么？13、何如正在步调中树坐断面？14、正在什么情况下不妨树坐断面？15、步调堕落的典型有哪几种？16、正在共一模块、分歧历程中声明的相共变量名，二者是可表示共一个变量？为什么？17、什么情况下会出现“数组下标越界过得”？18、逐语句战逐历程有什么辨别？19、表黑式2.75 * 2 \ 3.45的值是什么？20、正在步调安排中为什么尽管出有必GoTo语句？四、读步调题1、分解以下步调，写出运止截止.Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2、读底下的步调，分解其功能，写出运止截止.正在窗体上有一个下令按钮，称呼为Command1.而后编写如下步调：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub步调运止后，如果单打下令按钮，则正在窗体上隐现的真量是什么？3、阅读底下的步调，分解并写出其功能.Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=201 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub4、分解以下步调，写出运止截止.Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运止上头的步调，单打下令按钮，输出截止是什么？5、分解以下步调，写出运止截止.Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i－nLoopPrint iEnd Sub6、分解以下步调，写出运止截止.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) ThenPrint aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub7、分解以下步调，写出运止截止.Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Print x;y;zx=x+yx=x*zPrint x,y,zEnd Sub8、分解以下步调，写出运止截止.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a>=b)and(a>c)Then Print aPrint a,b,cEnd Sub五、编程题1、输进一年号，推断它是可是闰年.界里如下图所示，包罗二个标签、一个文本框战一个下令按钮.提示：如果此年号能被400整除大概者出有克出有及被400除尽，也出有克出有及被100除尽，然而能被4整除，则它是闰年；可则，出有是闰年.2、输进二个正整数m、n，供m战n的最大契约数.央供建坐如下图所示的窗体，其中主要的控件包罗：二个标签（Lable1、Lable2）、二个文本框（Text1、Text2）战一个按钮（Command1）.3、输进某教死结果（百分造），假如100≥结果≥90输出特出；假如90＞结果≥80输出良佳；假如80＞结果≥70输出中等；假如70＞结果≥60输出及格；假如60＞结果≥0，输出出有及格；假如其余数则输出error疑息.4、正在窗体中隐现从9号字型到16号字型.5、正在有序序列中拔出一个数，使拔出后的数列仍旧有序（设按由小到大排列）.6、编程真止二维数组转置.7、随机输进10个100以内的整型数，估计其战及仄衡值.8、找出所有的火仙花数.火仙花数是个三位数，它的诸位数字的坐圆战等于那个三位数自己.比圆371＝33+73+13，则371是火仙花数.9、从键盘输进一个大于2的正整数，推断该数是可是素数.10、供二维数组中的最小值及其天圆止号、列号.11、供一元二次圆程ax2+bx+c=0的根（包罗真根战复根）.12、输进一个正整数n，估计出n!并输出.13、Faibonacci数列为0，1，1，2，3，5，8，13 …，估计并输出第20项以及前20项的战.第四章时常使用控件与窗体一、挖空题1、背列表框控件增加新名脚法要领是__________.2、正在VB中，最主要的二种对付象是____________战____________.3、当窗体开用时可通过__________属性统造窗体位于所有者的核心位子.4、若要将窗体Form1隐躲起去，则可通过真止代码_________________去真止.5、要使拆进到列表框中的数据项能自动按字母程序排序，应树坐该控件的_________属性为__________.6、窗体上搁置了若搞个文本框战下令按钮，当窗体拆进后，要将核心自动定位到文本框Text1上，则正在安排时需要将__________控件的_________属性树坐为__________.7、正在标签控件中通过编程使笔墨换止用的代码是___________________.8、树坐计时器控件只可触收______________________事变.9、树坐计时器对付象触收事变的时间隔断用_____________________属性.10、滑动条控件主要支援二个事变，它们是_______________事变.11、要使鼠标停顿正在按钮上隐现特殊的鼠标形状，应树坐的属性值是_________________.12、设某列表框公有10项，按题目央供补齐步调，完毕相映的功能.（1）按下下令按钮Command1时将列表框第8项的真量隐现正在窗体上：PrivateSubCommand1_Click()List.__________(7)=True（2）单打列表框某一项时坐将要该项挨印正在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下下令按钮Command1时正在窗体上简略第1、3、5、7、9项：PrivateSubCommand1_Click()ForI=1To5NextIEndSub（4）正在列表框的每一项之后拔出一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输进拔出的第”&I&“项真量”) NextIEndSub13、设正在界里上搁置了一个滑动条Hscroll1战一个标签控件Label1，要使屡屡单打滑动条二端箭头时，大概单打滑动条滑块与二端箭头之间的空黑天区时，标签真量不妨反映滑动条的值，补齐以下代码.PrivateSubHscroll1.__________________()要使拖动滑动条滑块时标签真量不妨反映滑动条的值，补齐以下代码.PrivateSubHscroll1.________________()EndSub14、列表框（ListBox）用于列出可供采用的名脚法列表，用户不妨采用一个大概多个名目.它具备几个非常要害的数组属性，其中____属性存搁了列表框中所有名脚法值.15、菜单项普遍由题目、考察键、快速键战复选标记等形成，通过对付相映的属性举止树坐不妨改变那些名脚法状态，其中与复选标记相对付应的属性是____.16、keydown与keypress事变各有其参数，若需赢得用户按下 "a" 仍旧 "A" 需用____________事变.17、控件________推拢了文本框战列表框的功能，是VB 中一种功能非常强盛的采用类控件.18、若需要将窗体Form2以模态窗心的形式隐现出去，可通过真止代码_________________去真止.19、菜单中的合并条是一种菜单控件，出有赞同__________事变，出有克出有及被选中.二、采用题1、当步调运止时，正在窗体上单打鼠标，以下哪个事变是窗体出有会接支到( )A．MouseDownB．MouseUpC．LoadD．Click2、窗体Form1的Name属性是Frm1，它的单打事变历程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_ Click3、用于树坐通用对付话框控件隐现文献典型的属性是（）A．Filter B．Path C．Partern D．FoleName4、用于从内存简略窗体的下令是（）A．Move B．Hide C．Unload D．Delete5、用于返回窗体可用天区宽度的属性是（）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6、下列关于属性树坐的道述过得的是：（）A．一个控件具备什么属性是VB预先安排佳的，用户出有克出有及改变B．一个控件具备什么属性是VB预先安排佳的，用户不妨改变C．一个控件的属性即不妨正在属性窗心中树坐，也不妨用步调代码树坐D．一个控件的属性正在属性窗心中树坐，还不妨利用步调代码为其树坐新值7、下列道法精确的是（）A．对付象属性只可正在“属性窗心”中树坐B．一个新的工程不妨正在“工程窗心”中建坐C．必须先建坐一个工程，才搞开初安排应用步调D．只可正在“代码窗心”中编写步调代码8、下列关于窗体上控件的基础支配过得的是（）A．按下一次DEL键只可简略一个控件B．按下一次DEL键不妨共时简略多个控件C．按住SHIFT键，而后单打每个要采用的控件，不妨共时选中多个控件D．按住ALT键，而后单打每个要采用的控件，不妨共时选中多个控件9、下列关于树坐控件属性的道述精确的是（）A．用户必须树坐属性值B．所有的属性值皆不妨由用户随意设定C．属性值出有必一一沉新树坐D．分歧控件的属性项皆真足一般10、出有成以通过下列（）支配将核心赋给对付象A．运止时使用TAB键B．正在代码中用CALL语句调用C．正在代码中用SETFOCUS要领D．用考察键大概用鼠标单打采用对付象11、要正在FORM_LOAD事变历程中使用PRINT要领正在窗体上输出一定的真量，应（）A．树坐窗体的VISIBLE属性B．树坐窗体的CAPTIONC．调用窗体的SHOW要领D．树坐窗体ENABLED 属性12、底下（）对付象无CAPTION属性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL13、通用对付话框控件战文献列表框控件中，皆能根据文献的典型对付要隐现的文献举止筛选过滤，后者使用（）属性举止该项树坐.A．Pattern B．Path C．FilterD．FileName14、对付于复选框控件chkBoy，如果正在步调中树坐它为选中状态，底下语句精确的是（）A．chkBoy.Checked = true B．chkBoy.Value = trueC．chkBoy.Selected = true D．chkBoy.Value = 115、计时器（Timer）控件用于每隔一段时间自动触收一次Timer事变，不妨有程序天沉复真止一段步调，它用于树坐二次事变时间隔断的属性是（）A．IntervalB．SmallChangeC．LargeChange D．Max16、以下关于VB中窗体（Form）的道法中，出有精确的形貌为（）A．真止Unload Form语句后，窗体Form消得，然而仍正在内存中B．当窗体的Enabled属性为False时，通过鼠标战键盘对付窗体的支配皆被克制C．窗体的Height、width属性用于树坐窗体的下战宽D．窗体的load事变正在加载窗体时爆收17、关于滑动条控件，底下道法过得的是（）A．面打滑动条的箭头，不妨改变它的value值，进而激励Change事变B．拖动滑动框，不妨触收Scroll事变C．常常，火仄滑动条的值从左背左递加，笔曲滑动条的值自上而下递加D．拖动滑动框，不妨触收Change事变，而且是连绝触收的18、正在窗体上搁置一个下令按钮，称呼为Command1.单打下令按钮时，真止如下事变历程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则正在弹出的疑息框的题目栏中隐现的疑息是（）A．softWareandhardware B．softwareC．hardwafe D．出现过得19、正在多沉窗体步调安排中，关键的问题是要办理分歧窗体之间的贯串战窗体的隐现、关关等问题，以下关于窗体的相关语句战要领的道述中，过得的是（）A．Load语句用于加载指定窗体，即正在内存中创造该窗体B．Show要领兼具Load语句的功能，不妨将窗体隐现出去C．Hide要领用于将窗体隐躲起去D．Unload语句用去释搁窗体，然而窗体并出从内存中消20、滑动条控件的属性中，表示与值范畴最大值的属性是（）A．MaxB．LargeChangeC．Min D．Value21、步调中如果需要检测战统造鼠目标位子战状态的改变，便需要使用鼠标事变，其中底下哪个选项用于表示拖动事变（）A．DragDrop B．MouseDownC．MouseUpD．MouseMove22、为了使用通用对付话框举止挨开文献的支配，应将通用对付话框的Action属性设定为（）.A．0 B．1 C．2 D．3三、简问题1、什么是单选按钮？什么是复选框？正在使用上有什么分歧？2、滑动条的change事变战scroll事变有什么分歧？3、快速键战考察键有什么辨别？4、正在步调运止功夫，如果拖动滑动条上的滑动块（即滑块），则触收滑动条的什么事变？5、假定有一个菜单项，名为MenuItem，为了正在运止时使该菜单项做废（变灰），应使用什么语句？6、为了姑且关关计时器（坐即钟控件），应把该计时器的什么属性树坐为False？。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题一答案在教材上找。
习题二1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。
类包含所创建对象的属性数据，以及对这些数据进行操作的方法。
封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。
通过将控件类实例化，得到真正的控件对象。
在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。
VB中常用的对象是控件。
此外，VB还提供了系统对象。
窗体是个特例，它既是类也是对象。
当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。
属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。
若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。
同一事件，对不同的对象，会引发不同的反应。
事件过程：应用程序处理事件的步骤。
应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。
方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“(1) Name属性：名称所创建的对象名称,在程序中引用。
(2) Caption属性：标题该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性决定对象的大小和位置。
(4) Enabled 属性：对象是否允许操作(5) Visible 属性：对象是否可见(6) Font 属性组：文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru 删除线FontUnderline 下划线(7) ForeColor属性：前景颜色(8) BackColor属性：背景颜色(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。
若为99，由用户提供的图形文件定义鼠标指针形状。
(10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。
图标库在Graphics目录下。
3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。
当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。
窗体的方法:（1）Print方法用来显示文本内容，格式：[对象.]print 表达式（2）Cls方法清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形。
格式：[对象.]cls（3）Move方法可移动窗体或控件，并可改变其大小。
语法格式如下：[对象.]Move 左边距离[,上边距离[,宽度[,高度]]]4.标签作用：用于显示文本(输出)信息，不能作为输入信息的界面。
其内容只能通过Caption属性设置或修改，不能直接编辑。
5.文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。
在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。
重要属性(1) Text 显示或输入的正文内容。
(2) Maxlength 设置文本框可输入的文字最大长度。
默认值为0，表示可以输入任意长字符串。
(3) MultiLine 多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。
(4) ScrollBars 滚动条属性0-None 无滚动条1-Horizontal 水平滚动条2-Vertical 垂直滚动条3-Both 同时加水平和垂直滚动条注意：当MultiLine为True时，ScrollBars才有效(5) PassWordChar 设置显示文本的替代符。
例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。
一般用于设置口令的输入。
当MultiLine为True时，该属性不起作用，密码不允许多行。
(6) Locked 指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。
注意：Locked与Enabled的区别。
(7)文本内容进行选择操作的三个属性SelStart 选定的正文开始位置SelLength 选定的正文长度SelText 选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText 自动存放指定的文本。
注意：属性窗口中没有这三个属性，只能在程序代码中使用。
6.文本框的事件：(1) Change事件：当Text属性值发生改变时引发该事件(2) KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。
对回车的判断KeyAscii=137.文本框最有用的方法是SetFocus，把光标移到指定的文本框中。
8.命令按钮Picture属性：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。
10. 启动窗体时将命令按钮定位在窗体中央的代码Private Sub Form_Load()Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2 End Sub11．vb图片文件在C:\Program Files\Microsoft VisualStudio\Common\Graphics 文件夹。
安装VB时可选择是否安装这些图片文件。
习题三1. 合法常量：(1) Double(2) 错误(3) Double(4) Double(5) 错误(6) Integer(7) String(8) String(9) Date(10) Double(11) 错误（汉字字符）(12)Integer(八进制)(13) 错误（八进制无数码8）(14) Integer(15) Boolean(16) 错误(17) 错误（十六进制无数码g）(18) Single说明：浮点型变量默认为Double类型而非Single。
2. 合法变量名：(1) √(2) √(3) 误：数字开头(4) 误：含空格(5) 误：关键字(6) √(7) 误：关键字(8) 误：有括号(9) √(10) √(11) √(12) √（汉字字符可作为变量名，但不常用，且此名称易误解）变量命名规则见P.41-42。
字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。
常量、数组、类型、函数、过程、对象命名规则与此相同。
常量名通常全用大写。
3. 写VB表达式(1) Abs(x + y) + z ^ 5(2) (1 + x * y) ^ 6(3) (10 * x + Sqr(3 * y)) / (x * y)(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)4. 根据条件写表达式(1) 随机产生大写字母Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))(2) [100,200]内的随机数Int(Rnd * 101) + 100(3) 点(x,y)位于第一或第三象限x > 0 And y > 0 Or x < 0 And y < 0 或x * y > 0(4) x是5或7的整数倍x Mod 5 = 0 Or Int(x / 7) = x / 7(5) 将两位整数x的个位与十位对换x \ 10 + (x Mod 10) * 10(6) 四舍五入取两位小数Round(x, 2)(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母C >= "A" And C <= "Z" Or C >= "a" And C < "z"或UCase(C) >= "A" And UCase(C) <= "Z"或LCase(C) >= "a" And LCase(C) <= "z"(8) 字符变量S第5个字符起取6个字符Mid(S, 5, 6)(9) 10≤x＜20 10 <= x And x < 20(10) x，y至少有一个小于z x < z Or y < z(11)x，y都大于z x > z And y > z5. 写表达式的值(1) 188 ——注意运算的优先级顺序，以及整除运算“\”的计算(2) 200100 ——计算100 + "100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。
(3) 68.56 ——在四舍五入函数产生之前，这就是四舍五入的计算方法(4) 876554 ——先进行字符串的“+”运算，再转换成数值。
在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。
(5) 2000-2-29(6) 66．Shell函数调用i = Shell("mspaint.exe", 1) '启动画图i = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", 1) '启动Word说明：“画图”是Windows本身提供的程序，可以省略路径。
8. 答：单精度浮点型第7，9题答案在教材中找。