中国石油大学华东VB程序设计三套作业附标准答案
vb程序设计基础课后答案
vb程序设计基础课后答案【篇一：《vb程序设计基础与vba应用》1-8章参考答案】s=txt>p28 习题一二，单选题1，b 2，b 3，d 4，a 5，d 6，b 7，b 8,c 9,d三, 程序设计题5, private sub command1_click()form1.fontname = 宋体form1.print 中文字体宋体end subprivate sub command2_click()form1.fontname = 楷体_gb2312form1.print 中文字体楷体end subprivate sub command3_click()form1.fontname = 仿宋_gb2312form1.print 中文字体仿宋end subp57 习题二一，判断题对:1, 3， 7，10，14错:2，4，5，6，8，9，11，12，13二，单选题1， a 2， c 3， c4， b6， a 7， b 8， c9， b11， c12， d13， b 14， a16， b17， b18， c19， b21， b 22， d 23， a24， c26， a 27， d28， b三，简答题1. (1) 2 * cos(alfa) * sin(alfa/ ( 2 * a )(2) sqr( s*(s–a)*(s–b )*(s - c))(3) ( a*a + b*c*(x +y)) / (a+b)(4) ( 2* 3.14159*r +exp(-5))* log(x) 5， b 10， c 15， d 20， b 25， b(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * exp(-b*x) )(7) cos(alfa) ^ 2 + atn(alfa)(8) sqr( y^3 + 3 * (a*a+b*b) / (x*x+y*y) )2. (1) (a+b) mod c (2) sqr(abs(x))(3) int(x) + 1(4) int(rnd *101)+2003。
东师VB程序设计20秋在线作业2【标准答案】
VB程序设计19春在线作业2-0001
试卷总分:100 得分:100
一、单选题 (共 10 道试题,共 30 分)
1.在设计阶段，在文本框的属性窗口设置Text属性值时，通过按下()组合键实现文本的换行。
A.Enter
B.Alt+Enter
C.Ctrl+Shift+Enter
D.Ctrl+Enter
答案:D
2.函数Left("how are you”，3)的值是()。
A.how
B.are
C.you
D.how are you
答案:A
3.要使单击滚动条滑块与两端箭头之间的空白区域时变化值为20，应设置其()属性。
A.MinChange
B.SmallChange
C.MaxChange
rgeChange
答案:D
4.当将窗体的()属性设置为False时，不显示窗体的控制菜单、最大化、最小化及关闭按钮。
A.MaxButton
B.MinButton
C.ControlBox
D.WindowState
答案:C
5.在顺序文件中()。
A.每条记录的记录号按从小到大排序
B.每条记录的长度按从小到大排序
C.按记录的某个关键数据项的排序顺序组织文件
D.记录按写入的先后顺序存放，并按写入的先后顺序读出
答案:D
6.符号&是声明( )类型变量的类型定义符。
A.整型
B.长整型
C.单精度
D.双精度
答案:B。
东农Vb黄本作业题程序设计答案
程序设计参考答案（'注意：请在指定的事件内编写代码。
）期末模拟题1：1、'题目：(事件)单击窗体。
' (响应)求200~300之间既能被3整除又能被7整除的数。
' 并求出所有数之和存入变量SUM中（'注意：请在指定的事件内编写代码。
）Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNextPrint sum2、'题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，' 结果输出在窗体上（'将结果存入变量S中）Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ 2)NextPrint (s)3、'题目：(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。
（注意：请在指定的事件内编写代码。
）Dim i, j, k, m As Integers = 0i = 2j = 1For k = 1 To 10m = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + ms = s + i / jNext4、'题目：(事件)单击窗体。
' (响应)写程序解决百钱买百鸡问题：公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买100只鸡。
把结果输出到窗体上。
（将答案数存放在变量N中）Dim i, j, k As IntegerFor i = 1 To 20 '母鸡For j = 1 To 33 '公鸡For k = 3 To 100 '小鸡If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Then Print (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext期末模拟题2：1、'题目：(事件)单击窗体。
vb程序设计教程课后答案 第三版
vb程序设计教程课后答案第三版vb程序设计教程课后答案第三版vb程序设计教程课后答案(第三版)答案在教材上开。
1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类就是对同一种对象的子集与抽象化。
类涵盖所创建对象的属性数据，以及对这些数据展开操作方式的方法。
PCB和暗藏就是类的关键特性，将数据结构和对数据的操作方式PCB在一起，类的内部同时实现细节对用户来说就是透明化的。
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，由系统选定。
中国石油大学(华东)汇编语言三阶段作业
试题1．第1题单选题操作数直接存放在指令中，则它的寻址方式是( )。
A、直接寻址B、寄存器寻址C、寄存器间接寻址D、立即寻址标准答案：D您的答案：D题目分数：5此题得分：5.0批注：2．第2题单选题八位二进制补码整数的最小值是( )。
A、-126D牋牋B、-127D牋？C、-128D牋牋D、-129D标准答案：C您的答案：C题目分数：5此题得分：5.0批注：3．第3题单选题一个有128个字的数据区，它的起始地址为12ABH：00ABH，请给出这个数据区最末一个字单元的物理地址是（）。
A、12C5BHB、12B6BHC、12C59HD、12BFEH标准答案：C您的答案：C题目分数：5此题得分：5.0批注：4．第4题单选题若有BUF DW 1, 2, 3, 4，则可将数据02H取到AL寄存器中的指令是( )。
A、MOV AL BYTE PTR BUF＋1B、MOV AL BYTE PTR BUF＋2C、MOV AL BYTE PTR BUF＋3D、MOV AL BYTE BUF 2标准答案：B您的答案：B题目分数：5此题得分：5.0批注：5．第5题单选题若AX=3500H,CX=56B8H，当AND AX，CX指令执行后，AX=( )。
A、1400HB、77F8HC、0000HD、0FFFFH标准答案：A您的答案：A题目分数：5此题得分：5.0批注：6．第6题单选题设AL＝0B4H，BL＝11H，指令“MUL BL”和指令“IMUL BL”分别执行后OF,CF的值为( )。
A、OF＝1，CF＝0B、OF＝1，CF＝1C、OF＝0，CF＝0D、OF＝0，CF＝1标准答案：B您的答案：B题目分数：5此题得分：5.0批注：7．第7题单选题下面的数据传送指令中，错误的操作是（）。
A、MOV SS:[BX DI],1000HB、MOV DX,1000HC、MOV WORD PTR[BX],1000HD、MOV DS,2000H标准答案：D您的答案：D题目分数：5此题得分：5.0批注：8．第8题单选题下列叙述正确的是（）。
东师《VB程序设计》2022年秋学期在线作业1
VB程序设计2022年秋学期在线作业1一、单选题1：执行语句Open "C:StuData.dat" For Input As #2 后，系统()。
A将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B在C盘当前文件夹下建立名为StuData.dat的顺序文件C将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中正确答案：A2：语句Dim AA(9,9)所定义数组AA的元素个数为A 18B 81C 100D 90正确答案：C3：表达式Int(Rnd(O)+1)+Int(Rnd(1)-1)的值是()。
A 1B 0C -1D 2正确答案：B4：在窗体模块的通用声明段中声明变量时，不能使用()关键字。
A DimB PublicC PrivateD Static正确答案：D5：新建一工程，将其窗体的(名称)属性设置为MyFirst，则默认的窗体文件名为()。
A Forml.frmB工程1.frmC MyFirst.frmD Form1.vbp正确答案：C6：通过设置ADO数据控件的()属性可以建立该控件到数据源的连接信息。
A RecordSourceB RecordSetC ConnectionStringD Database正确答案：C7：下列控件中，没有Caption属性的是()。
A框架B列表框C复选框D单选按钮正确答案：B8：模拟方形骰子投掷的表达式是()。
A Int(6 * Rnd(1))B Int( 1+6 * Rnd(1))C Int(6 * Rnd(1) -l)D Int(6 * Rnd(1)-1)正确答案：B9：引用列表框(List1 )最后一个数据项应使用()。
A List1.List(Listl1. ListCount)B List1. List(Listl. ListCount - 1)C List1. List(ListCount)D List l. List( ListCounr-1)正确答案：B10：以下可以作为Visual Basic变量名的是()。
VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
中国石油大学(华东)智慧树知到“计算机科学与技术”《程序设计(C语言)》网课测试题答案2
中国石油大学（华东）智慧树知到“计算机科学与技术”《程序设计(C语言)》网课测试题答案（图片大小可自由调整）第1卷一.综合考核(共15题)1.在微型计算机系统中，存储一个汉字的国标码所需要的字节数是()A.1B.2C.3D.42.以下能正确定义数组并正确赋初值的语句是()A.int N=5，b[N][N];B.int a[1][2]={{1}，{3}};C.int c[2][]={{1，2}，{3，4}};D.int d[3][2]={{1，2}，{34}};3.若有说明：char s1=067, s2=1; 则变量s1，s2在内存中各占的字节数是()A.1，1B.4，1C.3，1D.1，24.在C语言中，下列字符常量中合法的是()A.′\084′B.′\x43′C.′ab′D.”\0”5.有如下程序，该程序的输出结果是() A.a=2 b=1B.a=1 b=1C.a=1 b=0D.a=2 b=26.已知：int a[ ][3]={1,2,3,4,5,6,7,8,9,0}; 则数组a的第一维的大小是()A.2B.3C.4D.无法确定7.若有说明语句：char c=‘\64’; 则变量C包含：()A.1个字符B.2个字符C.3个字符D.说明不合法，C值不确定8.以下关于数组的描述正确的是()A.数组大小固定，但是可以有不同类型的数组元素B.数组大小可变，但是所有数组元素的类型必须相同C.数组大小固定，所有元素的类型必须相同D.数组大小可变，可以有不同类型的数组元素9.以下程序中，while循环的循环次数是() main() { int i=0; while(iA.1B.10C.6D.死循环，不能确定次数10.已知char b[5], *p=b; ，则正确的赋值语句是()A.b=“abcd”;B.*b=“abcd”;C.p=“abcd”;D.*p=“abcd”;11.已知char ch=‘A’,且表达式：ch=(ch>=‘A’ && chA.AB.aC.zD.Z12.执行下面程序，输出的结果为()A.4，3，2B.3，3，2C.3，3，3D.3，2，213.已定义以下函数fun(int *p) {return *p;}该函数的返回值是()A.不确定的值B.形参p中存放的值C.形参p所指存储单元中的值D.形参p的地址值14.若有说明：char s1='\067', s2='1'; 则变量s1，s2在内存中各占的字节数是() A.1，1B.4，1C.3，1D.1，215.已知char ch='A'; 且表达式ch=(ch>='A' && chA.AB.aC.ZD.出错第2卷一.综合考核(共15题)1.以下四个选项中，属于实型常量的是()A.0x12B.-12345e-3C.1e0.5D.e-52.在C语言中，字符型数据在内存中的存储形式是()A.原码B.补码C.反码D.ASCII码3.已知：int a[ ][3]={1,2,3,4,5,6,7,8,9,0}; 则数组a的第一维的大小是()A.2B.3C.4D.无法确定;4.下列描述中不正确的是()A.字符型数组中可以存放字符串B.可以对字符型数组进行整体输入、输出C.可以对整型数组进行整体输入、输出D.不能在赋值语句中通过赋值运算符“=”对字符型数组进行整体赋值5.有如下程序，该程序的输出结果是()A.a=2 b=1B.a=1 b=1C.a=1 b=0D.a=2 b=26.下面不是C 语言基本数据类型的是() A.指针类型 B.整型C.无符号长整型D.单精度型7.以下选项中合法的实型常数是() A.5E2.0 B.E-3 C..2E0 D.1.3E8.在“while(!a)”中,其中“!a”与表达式()等价。
大学计算机VB程序设计教程课后答案
第1章概述二．选择题：1.C2. B.3.C.4.C.5.A6.C7.D8.B9.B 10.B11.A12.C 13.D 14.C 15.D16.A17.C 18.A19.A20.D 21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．Sub Form_Click( )Label1.Caption = “你单击了窗体”End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体”End Sub第2章面向对象编程基础二．选择题：1.C2. C.3.B.4.B.5.D6.D7.B8.B9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B三．填空题：1.窗体，控件2.属性，事件，方法mand2_click4.picture5.中部，代码四．编程及上机调试：1．Private Sub Command1_Click()Form1.WindowState = 2End SubPrivate Sub Command2_Click()Form1.WindowState = 0Private Sub Command3_Click()Form1.WindowState = 1End Sub2．Private Sub Command1_Click()Form1.Picture = LoadPicture("d:\picture\flower.wmf")Command1.V isible = FalseCommand2.V isible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()Form1.Picture = LoadPicture("")Command1.V isible = TrueCommand2.V isible = TrueEnd Sub第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A13.C 14.B 15.D16.D 17.C 18.A19.D 20.A21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.V alue = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.V alue = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click()If Check1.V alue = 1 ThenText1.FontUnderline = True ElseText1.FontUnderline = False End IfEnd SubPrivate Sub Command1_Click() Text1.Text = " "End Sub2.Private Sub Command1_Click() Text2.Text = List1.ListCount End SubPrivate Sub Command2_Click() List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click() Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCount End SubPrivate Sub Form_Load()Command3.Enabled = False End SubPrivate Sub List1_Click()Command3.Enabled = True End Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A15.A16.C 17.D 18.A19.B 20.D21.C 22.A23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case Is >=10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoopPrint sEnd Sub第6章数组二．单选题：1.A2.A.3.A4.C5.D6.D7.A8.D9.B 10.B四.编程及上机调试:1.Option Base 1Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, t As IntegerPrint "数组的原始数据为：";For i = 1 To 10a(i) = Int(11 * Rnd) + 10Print a(i);Next iPrintPrint "变化后数组数据为：";For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer RandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(90 * Rnd + 10)Print a(i, j);Next jPrintNext iMax = a(1, 1): k = 1: p = 1For i = 1 To 3For j = 1 To 4If a(i, j) > Max ThenMax = a(i, j)k = ip = jEnd IfNext jNext iPrint "最大的数为第" & k & "行，第" & p & "列的数：" & MaxEnd Sub3.Option Base 1Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As IntegerPrivate Sub cmdmatrix_Click() '"生成数组"按钮RandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10) '一位的随机数Picture1.Print a(i, j); '输出元素Next jPicture1.PrintNext iEnd SubPrivate Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integertxtcol.Text = ""For j = 1 To 5 '列变量先循环colsum = 0For i = 1 To 4colsum = colsum + a(i, j)Next itxtcol.Text = txtcol.Text & Str(colsum)Next jEnd SubPrivate Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integertxtrow.Text = ""For i = 1 To 4 '行变量先循环rowsum = 0For j = 1 To 5rowsum = rowsum + a(i, j)Next jtxtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLf Next iEnd SubPrivate Sub cmdclear_Click() '"清除"按钮Picture1.Clstxtcol.Text = ""txtrow.Text = ""End SubPrivate Sub cmdexit_Click() '"结束"按钮EndEnd Sub4. Option Base 1Private Sub Form_Click()Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")Do While Not IsNumeric(x)x = Int(InputBox("第一维上界"))Loopy = InputBox("第二维上界")Do While Not IsNumeric(x)y = Int(InputBox("第二维上界"))LoopReDim a(x, y)Print "原数组元素为："For i = 1 To xFor j = 1 To ya(i, j) = Int(90 * Rnd) + 10Print a(i, j);Next jPrintNext iPrint "转置后数组元素为："For i = 1 To yFor j = 1 To xPrint a(j, i);Next jPrintNext iEnd Sub5. Option Base 1Private Sub Form_Click()Dim a(10, 10) As Integer, i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Thena(i, j) = 0Elsea(i, j) = 1End IfPrint a(i, j);Next jPrintNext iEnd Sub6. Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integerj = 1For i = 3 To 21 Step 2a(j) = iPrint a(j);j = j + 1Next iPrintn = InputBox("请输入一个数")For i = 1 To 10If n = a(i) ThenFor j = i To 10a(j) = a(j + 1)k = k + 1Next jEnd IfNext iFor i = 1 To 9Print a(i);Next iEnd Sub7. Option Base 1Private Sub Form_Click()Dim a As V ariant, k As Integer, i As Integer, j As IntegerDim b As V ariantb = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)For i = 1 To 9 '对数组a的元素排序k = iFor j = i + 1 To 10If a(k) > a(j) Then k = jNext jIf k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)a(i) = a(k)a(k) = tt = b(i)b(i) = b(k)b(k) = tEnd IfNext iPrint "按名字的排列顺序为："For i = 1 To 10If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为２的编号前的"0"Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)Next iEnd Sub第7章过程二、单选题1.C2. D3.C4.D5. B6.A7. B8.B9.C 10.D11.C 12.D 13.B 14.B 15.C16.A17.B 18.B三、填空题1．52 512．4 118 353．1 3 5四.编程及上机调试:1. Private Sub Command1_Click()Dim n As IntegerFor n = 100 To 1600 Step 500Print "n="; n; "时π的近似值是："; pi(n)Next nEnd SubPrivate Function pi(x As Integer) As SingleDim s As Single, k As Integer, m As Integers = 0k = 1m = 1Dos = s + m / km = -mk = k + 2Loop While k <= xpi = 4 * sEnd FunctionPrivate Sub Command2_Click()EndEnd Sub2. Private Sub Command1_Click()Dim x As Integer, i As Integerx = V al(Text1)For i = 1 To xIf prime(i) And prime(x - i) ThenLabel2 = Str(x) & "是" & Str(i) & "和" & Str(x - i) & "两个素数之和"Exit SubEnd IfNext iEnd SubPrivate Function prime(x As Integer) As BooleanFor i = 2 To Int(Sqr(x))If x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNext iprime = TrueEnd FunctionPrivate Sub Command2_Click()EndEnd Sub3. Option ExplicitOption Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()RandomizeDim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Text1 = Text1 + Str(a(i))Next iCall sort(a)For i = 1 To 10Text2 = Text2 + Str(a(i))Next iEnd SubPrivate Sub sort(a() As Integer)Dim k As Integer, i As Integer, j As Integer, t As Integer k = UBound(a)For i = 1 To k - 1For j = i + 1 To kIf a(i) < a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub4. Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, s As IntegerFor i = 2 To 1000S=0For j=1 To i - 1If I mod j=0 Then s=s+jNext jIf s=i Then Print I,Next iEnd Sub5. Public a(10) As IntegerPublic Sub sort(a() As Integer)Dim i As Integer, j As Integer, t As IntegerFor i = 1 To UBound(a) - 1For j = i + 1 To UBound(a)If a(i) > a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd SubPublic Function max(a() As Integer) As Integermax = a(1)For i = 2 To UBound(a)If max < a(i) Thenmax = a(i)End IfNext iEnd Function窗体Form1代码Private Sub Command1_Click()Dim i As IntegerRandomizeFor i = 1 To UBound(a)a(i) = Int(Rnd * 90) + 11Text1 = Text1 & Str(a(i))Next iEnd SubPrivate Sub Command2_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command3_Click()Text2 = max(a)End SubPrivate Sub Command4_Click()EndEnd Sub窗体Form2代码Private Sub Command1_Click()Call sort(a)For i = 1 To UBound(a)Text1 = Text1 & Str(a(i))Next iEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub第8章程序调试二．上机调试题1. Option ExplicitPrivate Sub Form_Click()Dim a() As Single, i As IntegerDim y As Singlei = 1DoReDim a(i) …改为ReDim Preserve A(I) a(i) = 1 / fib(i)If a(i) <= 0.0001 Then Exit Do …改为a(i) < 0.0001 y = y + a(i)i = i + 1LoopPrint "y="; yFor i = 1 To UBound(a)Print a(i);Next iEnd SubPrivate Function fib(i As Integer) As IntegerIf i = 1 Thenfib = 1ElseIf i = 2 Thenfib = 2ElseFib（i）= fib(i - 1) + fib(i - 2) …改为Fib=Fib(I-1)+Fib(I-2) End IfEnd Function2. Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, k As Integer, st As StringFor i = 10 To 500If wanshu(i) Thenst = CStr(i)Text1.Text = Text1.Text & stCall test(st)Text1.Text = Text1.Text & Chr(13) & Chr(10)End IfNext iEnd SubPrivate Function wanshu(n As Integer) As BooleanDim i As Integer, sum As IntegerFor i = 2 To n – 1 …改为i=1If n Mod i = 0 Thensum = sum + iEnd IfNext iIf sum = n Then wanshu = TrueEnd FunctionPrivate Sub test(s As String)Dim i As Integer, sum As Integersum = 0 …位置错，和for 语句位置调换Do While Len(s) > 1For i = 1 To Len(s)sum = sum + V al(Mid(s, i, 1))Next iText1.Text = Text1.Text & "->" & Str(sum)s = Str(sum) … 改为s = CStr(sum) LoopEnd Sub第9章数据文件一、单选题1．B 2．C 3．A 4．B 5．C6．B 7．C 8．B 9．10．A11. 12.A13. 14. 15.A16.B二、编程及上机调试1．Private Sub Form_Load()Open "d:\my\text2.txt" For Output As #1End SubPrivate Sub Text1_keyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Trim(Text1) = "0000" ThenClose #1EndEnd IfWrite #1, Text1Text1.Text = ""End IfEnd Sub2．Option ExplicitPrivate Type Studentname As String * 10age As IntegerEnd TypePrivate Sub Command1_Click()Dim Stu As StudentOpen "d:\my\text2.txt" For Random As #1 Len = Len(Stu) = "WangY ing"Stu.age = 20Put #1, , StuClose #1Open "d:\my\text2.txt" For Random As #1 Len = Len(Stu)Get #1, , StuPrint "姓名：", Print "年龄：", Stu.ageClose #1End Sub第10章其它控件二、选择题1．B 2．B 3．B 4．C 5．6．A,C 7．A 8．9．10．11. 12.B 13.三、填空题1．菜单编辑器2．下拉式菜单弹出式3．顶4．PopupMenu5．多文档窗体6．MDIChild7．Private Sub HScroll1_Change()text1 = HScroll1.V alueEnd SubPrivate Sub HScroll1_Scroll()text1 = HScroll1.V alueEnd Sub8．Private Sub Toolbar1_ButtonClick(ByV al Button As MSComctlLib.Button) Select Case Button.IndexCase 1Form1.BackColor = vbRedCase 2Form1.BackColor = vbGreenCase 3Form1.BackColor = vbBlueEnd SelectEnd Sub四、编程及上机调试1．Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Button = 1 ThenPicture1.PSet (X, Y)StatusBar1.Panels(1) = "X=" & XStatusBar1.Panels.Item(2) = "Y=" & YEnd IfEnd Sub2．Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.InitDir = "D:\"CommonDialog1.Filter = "Word Files|*.doc|文本文件|*.Txt" '设置过滤器CommonDialog1.DialogTitle = "打开文件" '设置打开对话框的标题CommonDialog1.Action = 1 '创建"打开"对话框If CommonDialog1.FileName = "" Then '判断文件名是否为空MsgBox "没有选择文件", 37, "检查" '若为空，则显示信息ElseOpen CommonDialog1.FileName For Input As #1 '打开选定的文件Do While Not EOF(1)Line Input #1, a$ '读文件的一行Text1 = Text1 & a$ & vbCrLf '输出所读的内容LoopEnd IfEnd SubPrivate Sub Command2_Click()CommonDialog1.Flags = 3 '列出打印机和屏幕字体CommonDialog1.Action = 4 '打开"字体"对话框Text1.FontName = CommonDialog1.FontName '改变文本框的字体Text1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontUnderline = CommonDialog1.FontUnderline End SubPrivate Sub Command3_Click()EndEnd Sub11章略。
vb程序设计课后习题答案
vb程序设计课后习题答案VB程序设计课后习题答案在学习VB程序设计过程中，课后习题是巩固知识、提高编程能力的重要环节。
本文将为大家提供一些VB程序设计课后习题的答案，希望能够帮助大家更好地理解和掌握相关知识。
1. 编写一个VB程序，实现计算两个数的和、差、积、商的功能。
答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)lblSum.Caption = "和：" & num1 + num2lblDifference.Caption = "差：" & num1 - num2lblProduct.Caption = "积：" & num1 * num2If num2 <> 0 ThenlblQuotient.Caption = "商：" & num1 / num2ElselblQuotient.Caption = "除数不能为0"End IfEnd Sub```2. 编写一个VB程序，实现判断一个数是否为素数的功能。
答案：```vbPrivate Sub btnCheckPrime_Click()Dim num As IntegerDim i As IntegerDim isPrime As Booleannum = CInt(txtNum.Text)isPrime = TrueIf num < 2 ThenlblResult.Caption = "不是素数"Exit SubEnd IfFor i = 2 To Int(Sqr(num))If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNext iIf isPrime ThenlblResult.Caption = "是素数"ElselblResult.Caption = "不是素数"End IfEnd Sub```3. 编写一个VB程序，实现将一个字符串中的大写字母转换为小写字母，小写字母转换为大写字母的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
试 题 1．第1题 单选题 下面不是VB工作模式的是（ ） A、设计模式 B、运行模式 C、汇编模式 D、中断模式 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
2．第2题 单选题 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性
A、BACKCOLOR B、BORDERSTYLE C、FORECOLOR D、BACKSTYLE 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
3．第3题 单选题 Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（ ） A、属性、事件、事件过程 B、控件、窗体、事件 C、属性、过程、方法 D、属性、事件、方法 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
4．第4题 单选题 决定控件上文字的字体、字形、大小及效果的属性是（ ） A、TEXT B、CAPTION C、NAME D、FONT 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
5．第5题 单选题 VB应用程序的运行模式是（ ） A、解释运行模式 B、编译运行模式 C、两者都有 D、汇编模式 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
6．第6题 单选题 Visual Basic的编程机制是（ ） A、可视化 B、面向对象 C、面向图形 D、事件驱动 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
7．第7题 单选题 可视化编程的最大优点是（ ） A、具有标准工具箱 B、一个工程文件由若干个窗体文件组成 C、不需要编写大量代码来描述图形对象 D、所见即所得 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
8．第8题 单选题 在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（ ）
A、Private Sub Text1_GotFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub B、Private Sub Text1_LostFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub C、Private Sub Text1_Change( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub D、Private Sub Text1_SetFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub 标准答案：A 您的答案：A 题目分数：5 此题得分：5.0 批注：
9．第9题 单选题 决定标签（Label）显示的属性是（ ） A、Text B、Name C、Caption D、Alignment 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注： 10．第10题 单选题 下列不能打开属性窗口的操作是（ ） A、执行“视图”菜单中的“属性窗口”命令 B、按F4键 C、按Ctrl T D、单击工具栏上的“属性窗口”按钮 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
11．第11题 单选题 运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（ ）事件
A、CLICK B、DBLCLICK C、GOTFOCUS D、CHANGE 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
12．第12题 单选题 为了防止用户随意将光标置于控件上，应（ ） A、将控件的TABINDEX属性设置为0 B、将控件的TABSTOP属性设置为TRUE C、将控件的TABSTOP属性设置为FALSE D、将控件的ENABLED属性设置为FALSE 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
13．第13题 单选题 以下能够触发文本框Change事件的操作是（ ） A、文本框失去焦点 B、文本框获得焦点 C、设置文本框的焦点 D、改变文本框的内容 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
14．第14题 单选题 如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（ ）
A、文本框的MULTILINE属性值为TRUE B、文本框的LOCKED属性值为TRUE C、文本框的MULTILINE属性值为FALSE D、文本框的LOCKED属性为FALSE 标准答案：B 您的答案：B 题目分数：5 此题得分：5.0 批注： 15．第15题 单选题 下列可以打开立即窗口的操作是（ ） A、Ctrl D B、Ctrl E C、Ctrl F D、Ctrl G 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
16．第16题 单选题 在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（ ）设置为0
A、INDEX B、TABINDEX C、TABSTOP D、ENABLED 标准答案：B 您的答案：B 题目分数：5 此题得分：5.0 批注：
17．第17题 单选题 应用程序设计完成后，应将程序保存，保存的过程是（ ） A、只保存窗体文件即可 B、只保存工程文件即可 C、先保存工程文件，之后保存窗体文件 D、先保存窗体文件（或标准模块文件），之后还要保存工程文件 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注：
18．第18题 单选题 任何控件都具有的属性是（ ） A、TEXT B、CAPTION C、NAME D、FORECOLOR 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
19．第19题 单选题 在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（ ）
A、该控件的TABSTOP属性值为TRUE B、该控件的TABINDEX属性值为FALSE C、该控件的ENABLED属性值为TRUE D、该控件的ENABLED属性值为FALSE 标准答案：D 您的答案：B 题目分数：5 此题得分：0.0 批注：
20．第20题 单选题 命令按钮的标题文字由（ ）属性来设置。 A、Text B、Caption C、Name D、(名称) 标准答案：B 您的答案：B 题目分数：5 此题得分：5.0 批注：
试卷总得分：95.0 试卷总批注：
试 题 1．第1题 单选题 以下哪个是合法的变量（ ） A、right B、abc@123 C、123_abc D、ab123c 标准答案：D 您的答案：D 题目分数：5 此题得分：5.0 批注： 2．第2题 单选题 窗体Form1的Name属性是Frm1，它的单击事件过程名是（ ） A、Form1_Click B、Form_Click C、Frm1_Click D、Me_Click 标准答案：B 您的答案：B 题目分数：5 此题得分：5.0 批注：
3．第3题 单选题 语句DIM AA(3,4,5)中定义的数组有（ ）个元素 A、12 B、60 C、120 D、345 标准答案：C 您的答案：C 题目分数：5 此题得分：5.0 批注：
4．第4题 单选题 下列叙述不正确的是（ ） A、注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译 B、注释语句可以放在代码中的任何位置 C、注释语句不能放在续行符的后面 D、代码中加入注释语句的目的是提高程序的可读性